[elpa] externals/listen b1eeaff4b8 002/103: Rename to listen.el

[ELPA Syncer]

branch: externals/listen
commit b1eeaff4b8c4c0eaada2b79f046f54f1f9f66c7d
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Rename to listen.el
    
    Found this: <https://github.com/progfolio/emp> It isn't published as a
    package yet, but that's ok.
---
 emp-vlc.el => listen-vlc.el | 60 +++++++++++++++++-----------------
 emp.el => listen.el         | 78 ++++++++++++++++++++++-----------------------
 2 files changed, 69 insertions(+), 69 deletions(-)

diff --git a/emp-vlc.el b/listen-vlc.el
similarity index 54%
rename from emp-vlc.el
rename to listen-vlc.el
index d30557af83..4788ea260d 100755
--- a/emp-vlc.el
+++ b/listen-vlc.el
@@ -1,4 +1,4 @@
-;;; emp-vlc.el --- VLC support for Emacs Music Player                    -*- 
lexical-binding: t; -*-
+;;; listen-vlc.el --- VLC support for Emacs Music Player                    
-*- lexical-binding: t; -*-
 
 ;; Copyright (C) 2024  Adam Porter
 
@@ -31,61 +31,61 @@
 
 ;;;; Types
 
-(cl-defstruct (emp-player-vlc
-               (:include emp-player
+(cl-defstruct (listen-player-vlc
+               (:include listen-player
                          (command "vlc")
                          (args '("-I" "rc")))))
 
 ;;;; Functions
 
-(cl-defmethod emp-info ((player emp-player-vlc))
-  (emp-send player "info"))
+(cl-defmethod listen-info ((player listen-player-vlc))
+  (listen-send player "info"))
 
-(cl-defmethod emp-title ((player emp-player-vlc))
-  (emp-send player "get_title"))
+(cl-defmethod listen-title ((player listen-player-vlc))
+  (listen-send player "get_title"))
 
-(cl-defmethod emp-ensure ((player emp-player-vlc))
+(cl-defmethod listen-ensure ((player listen-player-vlc))
   "Ensure PLAYER is ready."
-  (pcase-let (((cl-struct emp-player command args process) player))
+  (pcase-let (((cl-struct listen-player command args process) player))
     (unless (and process (process-live-p process))
-      (setf (emp-player-process player)
-            (apply #'start-process "emp-player-vlc" (get-buffer-create " 
*emp-player-vlc*")
+      (setf (listen-player-process player)
+            (apply #'start-process "listen-player-vlc" (get-buffer-create " 
*listen-player-vlc*")
                    command args)))))
 
-(cl-defmethod emp--play ((player emp-player-vlc) file)
+(cl-defmethod listen--play ((player listen-player-vlc) file)
   "Play FILE with PLAYER."
   (dolist (command `("clear" ,(format "add %s" (expand-file-name file)) 
"play"))
-    (emp-send player command)))
+    (listen-send player command)))
 
-(cl-defmethod emp--stop ((player emp-player-vlc))
+(cl-defmethod listen--stop ((player listen-player-vlc))
   "Stop playing with PLAYER."
-  (emp-send player "stop"))
+  (listen-send player "stop"))
 
-(cl-defmethod emp--status ((player emp-player-vlc))
-  (let ((status (emp-send player "status")))
+(cl-defmethod listen--status ((player listen-player-vlc))
+  (let ((status (listen-send player "status")))
     (when (string-match (rx "( state " (group (1+ alnum)) " )") status)
       (match-string 1 status))))
 
-(cl-defmethod emp--pause ((player emp-player-vlc))
+(cl-defmethod listen--pause ((player listen-player-vlc))
   "Pause playing with PLAYER."
-  (emp-send player "pause"))
+  (listen-send player "pause"))
 
-(cl-defmethod emp-playing-p ((player emp-player-vlc))
+(cl-defmethod listen-playing-p ((player listen-player-vlc))
   "Return non-nil if PLAYER is playing."
-  (equal "1" (emp-send player "is_playing")))
+  (equal "1" (listen-send player "is_playing")))
 
-(cl-defmethod emp-elapsed ((player emp-player-vlc))
+(cl-defmethod listen-elapsed ((player listen-player-vlc))
   "Return seconds elapsed for PLAYER's track."
-  (cl-parse-integer (emp-send player "get_time")))
+  (cl-parse-integer (listen-send player "get_time")))
 
-(cl-defmethod emp-length ((player emp-player-vlc))
+(cl-defmethod listen-length ((player listen-player-vlc))
   "Return length of  PLAYER's track."
-  (cl-parse-integer (emp-send player "get_length")))
+  (cl-parse-integer (listen-send player "get_length")))
 
-(cl-defmethod emp-send ((player emp-player-vlc) command)
+(cl-defmethod listen-send ((player listen-player-vlc) command)
   "Send COMMAND to PLAYER and return output."
-  (emp-ensure player)
-  (pcase-let (((cl-struct emp-player process) player))
+  (listen-ensure player)
+  (pcase-let (((cl-struct listen-player process) player))
     (with-current-buffer (process-buffer process)
       (let ((pos (marker-position (process-mark process))))
         (process-send-string process command)
@@ -94,6 +94,6 @@
           (accept-process-output process))
         (buffer-substring pos (- (process-mark process) 4))))))
 
-(provide 'emp-vlc)
+(provide 'listen-vlc)
 
-;;; emp-vlc.el ends here
+;;; listen-vlc.el ends here
diff --git a/emp.el b/listen.el
similarity index 51%
rename from emp.el
rename to listen.el
index eb9d82a647..3b6515627c 100755
--- a/emp.el
+++ b/listen.el
@@ -1,4 +1,4 @@
-;;; emp.el --- Emacs Music Player                    -*- lexical-binding: t; 
-*-
+;;; listen.el --- Music player                    -*- lexical-binding: t; -*-
 
 ;; Copyright (C) 2024  Adam Porter
 
@@ -30,87 +30,87 @@
 
 ;;;; Types
 
-(cl-defstruct emp-player
+(cl-defstruct listen-player
   process command args)
 
 ;;;; Variables
 
-(defvar emp-player nil)
+(defvar listen-player nil)
 
-(defvar emp-mode-update-mode-line-timer nil)
+(defvar listen-mode-update-mode-line-timer nil)
 
 ;;;; Functions
 
-(cl-defmethod emp-play ((player emp-vlc) &key file))
+(cl-defmethod listen-play ((player listen-vlc) &key file))
 
-(cl-defmethod emp-running-p ((player emp-player))
+(cl-defmethod listen-running-p ((player listen-player))
   "Return non-nil if PLAYER is running."
-  (process-live-p (emp-player-process player)))
+  (process-live-p (listen-player-process player)))
 
-(defvar emp-mode-lighter nil)
+(defvar listen-mode-lighter nil)
 
-(define-minor-mode emp-mode
+(define-minor-mode listen-mode
   "Show EMP player status in the mode line."
   :global t
-  (let ((lighter '(emp-mode emp-mode-lighter)))
-    (if emp-mode
+  (let ((lighter '(listen-mode listen-mode-lighter)))
+    (if listen-mode
         (progn
-          (when (timerp emp-mode-update-mode-line-timer)
+          (when (timerp listen-mode-update-mode-line-timer)
             ;; Cancel any existing timer.  Generally shouldn't happen, but not 
impossible.
-            (cancel-timer emp-mode-update-mode-line-timer))
-          (setf emp-mode-update-mode-line-timer (run-with-timer 1 1 
#'emp--mode-line-update))
+            (cancel-timer listen-mode-update-mode-line-timer))
+          (setf listen-mode-update-mode-line-timer (run-with-timer 1 1 
#'listen--mode-line-update))
           ;; Avoid adding the lighter multiple times if the mode is activated 
again.
           (cl-pushnew lighter global-mode-string :test #'equal))
-      (when emp-mode-update-mode-line-timer
-        (cancel-timer emp-mode-update-mode-line-timer)
-        (setf emp-mode-update-mode-line-timer nil))
+      (when listen-mode-update-mode-line-timer
+        (cancel-timer listen-mode-update-mode-line-timer)
+        (setf listen-mode-update-mode-line-timer nil))
       (setf global-mode-string
             (remove lighter global-mode-string)))))
 
-(defcustom emp-lighter-format 'remaining
+(defcustom listen-lighter-format 'remaining
   "Time elapsed/remaining format."
   :type '(choice (const remaining)
                  (const elapsed)))
 
-(defun emp-mode-lighter ()
-  "Return lighter for `emp-mode'."
+(defun listen-mode-lighter ()
+  "Return lighter for `listen-mode'."
   (cl-labels ((format-time (seconds)
                 (format-seconds "%h:%.2m:%.2s%z" seconds))
               (format-track ()
-                (emp-title emp-player))
+                (listen-title listen-player))
               (format-status ()
-                (pcase (emp--status emp-player)
+                (pcase (listen--status listen-player)
                   ("playing" "▶")
                   ("paused" "⏸")
                   ("stopped" "■"))))
-    (if (emp-playing-p emp-player)
+    (if (listen-playing-p listen-player)
         (concat "🎵 "
                 (format-track)
                 " ("
-                (pcase emp-lighter-format
-                  ('remaining (concat "-" (format-time (- (emp-length 
emp-player)
-                                                          (emp-elapsed 
emp-player)))))
-                  (_ (concat (format-time (emp-elapsed emp-player))
+                (pcase listen-lighter-format
+                  ('remaining (concat "-" (format-time (- (listen-length 
listen-player)
+                                                          (listen-elapsed 
listen-player)))))
+                  (_ (concat (format-time (listen-elapsed listen-player))
                              "/"
-                             (format-time (emp-length emp-player)))))
+                             (format-time (listen-length listen-player)))))
                 ")" (format-status) " ")
       "")))
 
-(defun emp--mode-line-update (&rest _ignore)
+(defun listen--mode-line-update (&rest _ignore)
   "Force updating of all mode lines when EMP is active."
-  (when (and emp-player (emp-running-p emp-player))
-    (setf emp-mode-lighter (emp-mode-lighter ))
+  (when (and listen-player (listen-running-p listen-player))
+    (setf listen-mode-lighter (listen-mode-lighter ))
     ;; (force-mode-line-update 'all)
     ))
 
-(defun emp-pause (player)
-  (interactive (list emp-player))
-  (emp--pause player))
+(defun listen-pause (player)
+  (interactive (list listen-player))
+  (listen--pause player))
 
-(defun emp-stop (player)
-  (interactive (list emp-player))
-  (emp--stop player))
+(defun listen-stop (player)
+  (interactive (list listen-player))
+  (listen--stop player))
 
-(provide 'emp)
+(provide 'listen)
 
-;;; emp.el ends here
+;;; listen.el ends here