branch: externals/listen
commit 51413ae2519a9240269abd23e8fadf8f571d8deb
Author: Adam Porter <[email protected]>
Commit: Adam Porter <[email protected]>
Tidy
---
listen-queue.el | 20 ++++++++++----------
1 file changed, 10 insertions(+), 10 deletions(-)
diff --git a/listen-queue.el b/listen-queue.el
index 0794366116..3f41ef59c0 100644
--- a/listen-queue.el
+++ b/listen-queue.el
@@ -201,6 +201,16 @@ To be called in a queue's buffer."
(insert (format "Duration: %s" (listen-format-seconds duration))))
(listen-queue--highlight-current)))
+(defun listen-queue--highlight-current ()
+ "Draw highlight onto current track."
+ (when listen-queue-overlay
+ (delete-overlay listen-queue-overlay))
+ (save-excursion
+ (goto-char (point-min))
+ (when (re-search-forward "▶" nil t)
+ (setf listen-queue-overlay (make-overlay (pos-bol) (pos-eol)))
+ (overlay-put listen-queue-overlay 'face 'highlight))))
+
(cl-defun listen-queue-transpose-forward (track queue &key backwardp)
"Transpose TRACK forward in QUEUE.
If BACKWARDP, move it backward."
@@ -240,16 +250,6 @@ If BACKWARDP, move it backward."
(seq-subseq (listen-queue-tracks queue) position)))
(listen-queue--update-buffer queue))
-(defun listen-queue--highlight-current ()
- "Draw highlight onto current track."
- (when listen-queue-overlay
- (delete-overlay listen-queue-overlay))
- (save-excursion
- (goto-char (point-min))
- (when (re-search-forward "▶" nil t)
- (setf listen-queue-overlay (make-overlay (pos-bol) (pos-eol)))
- (overlay-put listen-queue-overlay 'face 'highlight))))
-
(defun listen-queue--update-buffer (queue)
"Update QUEUE's buffer, if any."
(when-let ((buffer (listen-queue-buffer queue)))
