[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/eev 13f88c4 03/20: Fixed `find-mpv-video' and documente
From: |
Stefan Monnier |
Subject: |
[elpa] externals/eev 13f88c4 03/20: Fixed `find-mpv-video' and documented a bug in `find-man'. |
Date: |
Mon, 4 Jan 2021 01:01:47 -0500 (EST) |
branch: externals/eev
commit 13f88c494d1b748be8945204219b260fd5118caf
Author: Eduardo Ochs <eduardoochs@gmail.com>
Commit: Eduardo Ochs <eduardoochs@gmail.com>
Fixed `find-mpv-video' and documented a bug in `find-man'.
---
ChangeLog | 12 ++++++++++++
VERSION | 4 ++--
eev-audiovideo.el | 5 +++--
eev-blinks.el | 37 +++++++++++++++++++++++++++++++------
eev-pdflike.el | 6 +++++-
5 files changed, 53 insertions(+), 11 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 5ca7d99..f607555 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,15 @@
+2020-10-27 Eduardo Ochs <eduardoochs@gmail.com>
+
+ * eev-audiovideo.el (ee-find-mpv-video): use "--start=1:23"
+ instead of "--start 1:23".
+
+ * eev-pdflike.el (ee-code-pdfbackend, ee-code-pdftextbackend): add
+ the missing backslashes.
+
+2020-10-24 Eduardo Ochs <eduardoochs@gmail.com>
+
+ * eev-blinks.el (find-man): document an open bug.
+
2020-10-18 Eduardo Ochs <eduardoochs@gmail.com>
* eev-tlinks.el (find-eevvideo-links, code-eevvideo)
diff --git a/VERSION b/VERSION
index f5a0898..e4ca8b5 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Fri Oct 23 00:29:44 GMT 2020
-Thu Oct 22 21:29:44 -03 2020
+Tue Oct 27 06:43:11 GMT 2020
+Tue Oct 27 03:43:11 -03 2020
diff --git a/eev-audiovideo.el b/eev-audiovideo.el
index 4c32d1f..c8ada3c 100644
--- a/eev-audiovideo.el
+++ b/eev-audiovideo.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version: 2020oct17
+;; Version: 2020oct27
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-audiovideo.el>
@@ -364,7 +364,8 @@ See: (find-audiovideo-intro \"`eev-avadj-mode'\")"
(defun ee-find-mpv-video (fname &optional pos &rest rest)
`("mpv"
,fname
- ,@(if pos `("--start" ,(ee-secs-to-mm:ss pos)))
+ ;; ,@(if pos `("--start" ,(ee-secs-to-mm:ss pos)))
+ ,@(if pos (list (format "--start=%s" (ee-secs-to-mm:ss pos))))
,@ee-mpv-video-options
))
diff --git a/eev-blinks.el b/eev-blinks.el
index 1da7bf3..528a763 100644
--- a/eev-blinks.el
+++ b/eev-blinks.el
@@ -53,6 +53,7 @@
;; «.find-estring» (to "find-estring")
;; «.find-sh» (to "find-sh")
;; «.find-man» (to "find-man")
+;; «.find-man-bug» (to "find-man-bug")
;; «.find-w3m» (to "find-w3m")
;; «.find-Package» (to "find-Package")
;; «.find-epp» (to "find-epp")
@@ -640,6 +641,14 @@ This is like `find-sh' but sets the buffer's
default-directory to DIR."
(defvar ee-find-man-flag nil "See `find-man'.")
(defvar ee-find-man-pos-spec-list nil "See `find-man'.")
+;; See: (to "find-man-bug")
+(defun find-man (manpage &rest pos-spec-list)
+ "Hyperlink to a manpage."
+ (interactive (list (ee-manpagename-ask)))
+ (setq ee-find-man-flag t
+ ee-find-man-pos-spec-list pos-spec-list)
+ (man manpage))
+
;; See: (find-elnode "Advising Functions")
;; (find-elnode "Porting old advice")
;; (find-efunctiondescr 'defadvice)
@@ -651,12 +660,28 @@ This is like `find-sh' but sets the buffer's
default-directory to DIR."
(apply 'ee-goto-position ee-find-man-pos-spec-list)
(setq ee-find-man-flag nil)))
-(defun find-man (manpage &rest pos-spec-list)
- "Hyperlink to a manpage."
- (interactive (list (ee-manpagename-ask)))
- (setq ee-find-man-flag t
- ee-find-man-pos-spec-list pos-spec-list)
- (man manpage))
+;; «find-man-bug» (to ".find-man-bug")
+;; Note: find-man has an open bug that I did not have time to fix yet...
+;; an example:
+;;
+;; (find-man "1 git-commit")
+;; (find-man "1 git-commit" "-m <msg>, --message=<msg>")
+;;
+;; The second find-man link should run the
+;;
+;; (ee-goto-position "-m <msg>, --message=<msg>")
+;;
+;; AFTER the man page gets completely rendered, but the mechanism that
+;; delays its execution until the rendering it done it currently broken,
+;; and the ee-goto-position runs too soon. A workaround for that is to
+;; run the
+;;
+;; (find-man "1 git-commit")
+;;
+;; to render the manpage, then bury its buffer with M-K, then run this:
+;;
+;; (find-man "1 git-commit" "-m <msg>, --message=<msg>")
+
;; Missing: find-woman.
;; (find-node "(woman)Top")
diff --git a/eev-pdflike.el b/eev-pdflike.el
index 8aa2566..69d9d1a 100644
--- a/eev-pdflike.el
+++ b/eev-pdflike.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version: 2020oct16
+;; Version: 2020oct27
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-pdflike.el>
@@ -308,6 +308,8 @@ newline are spurious - and replaces them by \"(ff)\"."
;; (find-code-{pdfbackend} \\\"{<}c{>}\\\" \\\"{<}fname{>}\\\")
;; (code-{pdfbackend} \\\"{<}c{>}\\\" \\\"{<}fname{>}\\\")
;;
+ ;; See: (find-pdf-like-intro \\\"7. Shorter hyperlinks to PDF files\\\")
+ ;;
(setq ee-pdflike-last 'find-{<}c{>}page)
(defun find-{<}c{>}page (&optional page &rest rest)
(setq ee-pdflike-last 'find-{<}c{>}page)
@@ -359,6 +361,8 @@ newline are spurious - and replaces them by \"(ff)\"."
;; (find-code-{pdftextbackend} \\\"{<}c{>}\\\" \\\"{<}fname{>}\\\")
;; (code-{pdftextbackend} \\\"{<}c{>}\\\" \\\"{<}fname{>}\\\")
;;
+ ;; See: (find-pdf-like-intro \\\"7. Shorter hyperlinks to PDF files\\\")
+ ;;
(setq ee-page-c {<}(ee-pp0 c){>})
(setq ee-page-fname {<}(ee-pp0 fname){>})
(setq ee-page-offset {<}(ee-pp0 offset){>})
- [elpa] externals/eev updated (90678b4 -> 4386fbd), Stefan Monnier, 2021/01/04
- [elpa] externals/eev 3bb1fa6 02/20: Added `code-eevvideo' and `code-psnevideo'., Stefan Monnier, 2021/01/04
- [elpa] externals/eev 13f88c4 03/20: Fixed `find-mpv-video' and documented a bug in `find-man'.,
Stefan Monnier <=
- [elpa] externals/eev c95d15a 06/20: Added `eepitch-vterm'., Stefan Monnier, 2021/01/04
- [elpa] externals/eev c6ed5f7 01/20: Rewrote most of the file eev-pdflike.el., Stefan Monnier, 2021/01/04
- [elpa] externals/eev d73f329 04/20: Cleaned up and reorganized `find-youtubedl-links'., Stefan Monnier, 2021/01/04
- [elpa] externals/eev 121acfc 05/20: Added comments to `find-grep-links'., Stefan Monnier, 2021/01/04
- [elpa] externals/eev df4c21f 07/20: Added support for `M-7 M-e'., Stefan Monnier, 2021/01/04
- [elpa] externals/eev 5496a57 09/20: Added the file `README.org'., Stefan Monnier, 2021/01/04
- [elpa] externals/eev 19bad3a 12/20: Rewrote the docs for `find-extra-file-links' (`M-e M-h')., Stefan Monnier, 2021/01/04
- [elpa] externals/eev 01b2212 13/20: Rewrote `(find-anchors-intro)'., Stefan Monnier, 2021/01/04
- [elpa] externals/eev f256747 14/20: Rewrote `find-man' completely to fix a long-standing bug., Stefan Monnier, 2021/01/04
- [elpa] externals/eev 092ee70 16/20: Started rewriting `(find-videos-intro)'., Stefan Monnier, 2021/01/04