[elpa] externals/listen a6c67deeba 049/103: Tidy

[ELPA Syncer]

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

    Tidy
---
 listen.el | 23 ++++++++++++-----------
 1 file changed, 12 insertions(+), 11 deletions(-)

diff --git a/listen.el b/listen.el
index 648662914e..d66bf362b4 100755
--- a/listen.el
+++ b/listen.el
@@ -47,6 +47,17 @@
   "Default music directory."
   :type 'directory)
 
+(defcustom listen-lighter-title-max-length 15
+  "Truncate track titles to this many characters.
+Used for mode line lighter and transient menu."
+  :type 'natnum)
+
+(defcustom listen-lighter-format 'remaining
+  "Time elapsed/remaining format.
+For the currently playing track."
+  :type '(choice (const :tag "Time remaining" remaining)
+                 (const :tag "Time elapsed/total" elapsed)))
+
 ;;;; Commands
 
 (defun listen-quit (player)
@@ -153,7 +164,7 @@ command with completion."
                 (when-let ((info (listen--info listen-player)))
                   (format "%s: %s" (alist-get "artist" info nil nil #'equal)
                           (truncate-string-to-width (alist-get "title" info 
nil nil #'equal)
-                                                    
listen-mode-title-max-length nil nil t))))
+                                                    
listen-lighter-title-max-length nil nil t))))
               (format-status ()
                 (pcase (listen--status listen-player)
                   ("playing" "▶")
@@ -173,16 +184,6 @@ command with completion."
                      ") ")
              '("■ ")))))
 
-(defcustom listen-mode-title-max-length 15
-  "Truncate track titles to this many characters."
-  :type 'natnum)
-
-(defcustom listen-lighter-format 'remaining
-  "Time elapsed/remaining format.
-For the currently playing track."
-  :type '(choice (const :tag "Time remaining" remaining)
-                 (const :tag "Time elapsed/total" elapsed)))
-
 (declare-function listen-queue-play "listen-queue")
 (declare-function listen-queue-next-track "listen-queue")
 (defun listen-mode--update (&rest _ignore)