branch: elpa/mpv
commit ed9c7b0028dce0596d68cb1ecd0d87349e3a9366
Author: Johann Klähn <kljoh...@gmail.com>
Commit: Johann Klähn <kljoh...@gmail.com>
move functions to public interface
• mpv--alive-p → mpv-live-p
• mpv--start → mpv-start
---
README.md | 2 +-
mpv.el | 17 ++++++++++-------
2 files changed, 11 insertions(+), 8 deletions(-)
diff --git a/README.md b/README.md
index 2bf926a46c..2df0cfdd46 100644
--- a/README.md
+++ b/README.md
@@ -10,7 +10,7 @@ using Org-mode:
"When no org timer is running but mpv is alive, insert playback position."
(if (and
(not org-timer-start-time)
- (mpv--alive-p))
+ (mpv-live-p))
(mpv-insert-playback-position t)
(apply fun args)))
(advice-add 'org-timer-item :around
diff --git a/mpv.el b/mpv.el
index 5c4a327b2b..7490921bff 100644
--- a/mpv.el
+++ b/mpv.el
@@ -43,6 +43,9 @@
(require 'org-timer)
(require 'tq)
+(define-obsolete-function-alias 'mpv--start 'mpv-start "20150216")
+(define-obsolete-function-alias 'mpv--alive-p 'mpv-live-p "20150216")
+
;;;###autoload
(define-namespace mpv-
:package mpv
@@ -62,11 +65,11 @@
(defvar -process nil)
(defvar -queue nil)
-(defun -alive-p ()
- "Return non-nil if an mpv process is running."
+(defun live-p ()
+ "Return non-nil if inferior mpv is running."
(and -process (eq (process-status -process) 'run)))
-(defun -start (&rest args)
+(defun start (&rest args)
"Start an mpv process with the specified ARGS.
If there already is an mpv process controlled by this Emacs instance,
@@ -79,7 +82,7 @@ it will be killed."
"--no-terminal"
(concat "--input-unix-socket=" socket) args))
(set-process-query-on-exit-flag -process nil)
- (while (and (-alive-p) (not (file-exists-p socket)))
+ (while (and (live-p) (not (file-exists-p socket)))
(sleep-for 0.05))
(setq -queue (tq-create
(make-network-process :name "mpv-socket"
@@ -102,7 +105,7 @@ This produces more reliable results with some processes.
Note that we do not use the regexp and closure arguments of
`tq-enqueue', see our custom implementation of `tq-process-buffer'
below."
- (when (-alive-p)
+ (when (live-p)
(tq-enqueue
-queue
(concat (json-encode `((command . ,command))) "\n")
@@ -153,14 +156,14 @@ drops unsolicited event messages."
You can use this with `org-add-link-type' or `org-file-apps'."
(interactive "fFile: ")
- (-start path))
+ (start path))
(defun kill ()
"Kill the mpv process."
(interactive)
(when -queue
(tq-close -queue))
- (when (-alive-p)
+ (when (live-p)
(kill-process -process))
(setq -process nil)
(setq -queue nil))
