diff options
| -rw-r--r-- | exwm.org | 3 | ||||
| -rw-r--r-- | lib/media/jao-spt.el | 13 |
2 files changed, 15 insertions, 1 deletions
@@ -545,7 +545,8 @@ ("p" "previous" jao-spt-previous)] ["current song" ("l" "like" jao-spt-like) - ("d" "dislike" jao-spt-dislike)] + ("d" "dislike" jao-spt-dislike) + ("L" "lyrics" jao-spt-show-lyrics)] ["seek" ("f" "forward 10 secs" jao-spt-seek :transient t) ("b" "backward 10 secs" jao-spt-seek-back :transient t)] diff --git a/lib/media/jao-spt.el b/lib/media/jao-spt.el index c4c1604..1fdee83 100644 --- a/lib/media/jao-spt.el +++ b/lib/media/jao-spt.el @@ -110,5 +110,18 @@ (defun jao-spt-set-up () (jao-minibuffer-add-msg-variable 'jao-spt--status-str)) +(defun jao-spt-lyrics-info () + (let* ((jao-spt-format "%a~~~%t") + (s (jao-spt--pb)) + (at (split-string s "~~~"))) + (cons (car at) (cadr at)))) + +(declare jao-show-lyrics "jao-lyrics") + +;;;###autoload +(defun jao-spt-show-lyrics (force) + (interactive "P") + (jao-show-lyrics force #'jao-spt-lyrics-info)) + (provide 'jao-spt) ;;; jao-spt.el ends here |