[elpa] externals/ampc 3ff387653a 006/111: Add ampc-goto-current-song.

[Stefan Monnier]

branch: externals/ampc
commit 3ff387653a3ee31fd9b4f0565cfd0525440c8384
Author: Christopher Schmidt <christopher@ch.ristopher.com>
Commit: Christopher Schmidt <christopher@ch.ristopher.com>

    Add ampc-goto-current-song.
---
 ampc.el | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/ampc.el b/ampc.el
index 0b6357cb40..56b2b29c61 100644
--- a/ampc.el
+++ b/ampc.el
@@ -138,6 +138,9 @@
 ;; `r' (ampc-toggle-random): Toggle random state.
 ;; `f' (ampc-toggle-consume): Toggle consume state.
 ;;
+;; `P' (ampc-goto-current-song): Select the current playlist window and move
+;; point to the current song.
+;;
 ;; `T' (ampc-trigger-update): Trigger a database update.
 ;; `q' (ampc-quit): Quit ampc.
 
@@ -261,6 +264,7 @@ This hook is called as the first thing when ampc is 
started."
     (define-key map (kbd "e") 'ampc-toggle-repeat)
     (define-key map (kbd "r") 'ampc-toggle-random)
     (define-key map (kbd "f") 'ampc-toggle-consume)
+    (define-key map (kbd "P") 'ampc-goto-current-song)
     (define-key map (kbd "q") 'ampc-quit)
     (define-key map (kbd "T") 'ampc-trigger-update)
     (loop for view in ampc-views
@@ -1516,7 +1520,7 @@ If ARG is omitted, use the selected entries."
       (ampc-send-command 'playlistclear nil (ampc-playlist))
     (ampc-send-command 'clear)))
 
-(defun* ampc-add (&optional arg)
+(defun ampc-add (&optional arg)
   "Add the next ARG songs associated with the entries after point
 to the playlist.
 If ARG is omitted, use the selected entries in the current buffer."
@@ -1538,6 +1542,18 @@ Interactively, read NAME from the minibuffer."
   (interactive "MSave playlist as: ")
   (ampc-send-command 'save nil name))
 
+(defun* ampc-goto-current-song
+    (&aux (song (cdr-safe (assoc "song" ampc-status))))
+  "Select the current playlist window and move point to the current song."
+  (interactive)
+  (when song
+    (ampc-with-buffer 'current-playlist
+      no-se
+      (select-window (ampc-get-window 'current-playlist))
+      (goto-char (point-min))
+      (forward-line (string-to-number song))
+      (ampc-align-point))))
+
 (defun ampc-previous-line (&optional arg)
   "Go to previous ARG'th entry in the current buffer.
 ARG defaults to 1."