[elpa] externals/listen 5a6a99d00d 016/103: Autoloads, menu

[ELPA Syncer]

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

    Autoloads, menu
---
 listen-queue.el |  4 +++-
 listen.el       | 16 +++++++++++++++-
 2 files changed, 18 insertions(+), 2 deletions(-)

diff --git a/listen-queue.el b/listen-queue.el
index 37a5fc4db8..6a02ff5b65 100644
--- a/listen-queue.el
+++ b/listen-queue.el
@@ -97,7 +97,7 @@
       (pop-to-buffer (current-buffer))
       (goto-char (point-min))
       (re-search-forward "▶" nil t)
-      (hl-line-mode))))
+      (hl-line-mode 1))))
 
 (defun listen-queue--update-buffer (queue)
   "Update QUEUE's buffer, if any."
@@ -133,6 +133,7 @@ PROMPT is passed to `completing-read', which see."
              (cl-find selected listen-queues :key #'listen-queue-name :test 
#'equal)
            (push (make-listen-queue :name selected) listen-queues))))))
 
+;;;###autoload
 (defun listen-queue-new (name)
   "Add and return a new queue having NAME."
   (interactive (list (read-string "New queue name: ")))
@@ -143,6 +144,7 @@ PROMPT is passed to `completing-read', which see."
   (interactive (list (listen-queue-complete :prompt "Discard queue: ")))
   (cl-callf2 delete queue listen-queues))
 
+;;;###autoload
 (cl-defun listen-queue-add (queue files)
   "Add FILES to QUEUE."
   (interactive
diff --git a/listen.el b/listen.el
index 19b1bd4415..8e35f9f252 100755
--- a/listen.el
+++ b/listen.el
@@ -56,6 +56,7 @@
 
 (defvar listen-mode-lighter nil)
 
+;;;###autoload
 (define-minor-mode listen-mode
   "Show Listen player status in the mode line."
   :global t
@@ -128,6 +129,7 @@
   (interactive (list listen-player))
   (listen--stop player))
 
+;;;###autoload
 (defun listen-play (player file)
   (interactive
    (list (listen--player)
@@ -172,6 +174,7 @@ TIME is an HH:MM:SS string."
 
 (require 'transient)
 
+;;;###autoload
 (transient-define-prefix listen-menu ()
   "Show Listen menu."
   :refresh-suffixes t
@@ -184,7 +187,18 @@ TIME is an HH:MM:SS string."
     ("SPC" "Pause" listen-pause)
     ("p" "Play" listen-play)
     ("s" "Stop" listen-stop)
-    ]]
+    ]
+   
+   ]
+  ["Queue"
+   :description
+   (lambda ()
+     (if-let ((queue (map-elt (listen-player-etc listen-player) :queue)))
+         (concat "Queue: " (listen-queue-name queue))
+       "No queue"))
+   ("a" "Add" listen-queue-add)
+   ]
+  
   )
 
 (provide 'listen)