diff options
| author | jao <jao@gnu.org> | 2022-01-20 20:27:47 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-01-20 20:28:13 +0000 |
| commit | 46f79f42cb2b7b38143ee6aa60b28aab78f0f366 (patch) | |
| tree | 0ae59f8f5c6a98eb0b4497a9de9a6a8ab0919a1a | |
| parent | aebd4d72544f1265ba2be9a0755b824b69e69f8a (diff) | |
| download | elibs-46f79f42cb2b7b38143ee6aa60b28aab78f0f366.tar.gz elibs-46f79f42cb2b7b38143ee6aa60b28aab78f0f366.tar.bz2 | |
jao-spt: lyrics
| -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 |