emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/mpv 3a43c9e60a 14/50: reorder function definitions


From: ELPA Syncer
Subject: [nongnu] elpa/mpv 3a43c9e60a 14/50: reorder function definitions
Date: Tue, 28 Dec 2021 00:58:37 -0500 (EST)

branch: elpa/mpv
commit 3a43c9e60abec315da803d645869e835eb8be1a8
Author: Johann Klähn <kljohann@gmail.com>
Commit: Johann Klähn <kljohann@gmail.com>

    reorder function definitions
---
 mpv.el | 44 +++++++++++++++++++++++++++-----------------
 1 file changed, 27 insertions(+), 17 deletions(-)

diff --git a/mpv.el b/mpv.el
index 514843d5d8..3f2454281b 100644
--- a/mpv.el
+++ b/mpv.el
@@ -21,7 +21,17 @@
 
 ;;; Commentary:
 
+;; This package is a potpourri of helper functions to control a mpv
+;; process via its IPC interface.  You might want to add the following
+;; to your init file:
 ;;
+;; (org-add-link-type "mpv" #'mpv-play)
+;; (defun org-mpv-complete-link (&optional arg)
+;;   (replace-regexp-in-string
+;;    "file:" "mpv:"
+;;    (org-file-complete-link arg)
+;;    t t))
+;; (add-hook 'org-open-at-point-functions #'mpv-seek-to-position-at-point)
 
 ;;; Code:
 
@@ -78,23 +88,6 @@ it will be killed."
        (-tq-filter -queue string)))
     t))
 
-(defun kill ()
-  "Kill the mpv process."
-  (interactive)
-  (when -queue
-    (tq-close -queue))
-  (when (-alive-p)
-    (kill-process -process))
-  (setq -process nil)
-  (setq -queue nil))
-
-(defun play (path)
-  "Start an mpv process playing the file at PATH.
-
-You can use this with `org-add-link-type' or `org-file-apps'."
-  (interactive "fFile: ")
-  (-start path))
-
 (defun -enqueue (command fn &optional delay-command)
   "Add COMMAND to the transaction queue.
 
@@ -151,6 +144,23 @@ drops unsolicited event messages."
           (tq-queue-pop tq)))
       (-tq-process-buffer tq))))
 
+(defun play (path)
+  "Start an mpv process playing the file at PATH.
+
+You can use this with `org-add-link-type' or `org-file-apps'."
+  (interactive "fFile: ")
+  (-start path))
+
+(defun kill ()
+  "Kill the mpv process."
+  (interactive)
+  (when -queue
+    (tq-close -queue))
+  (when (-alive-p)
+    (kill-process -process))
+  (setq -process nil)
+  (setq -queue nil))
+
 (defun pause ()
   "Pause or unpause playback."
   (interactive)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]