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 /lib | |
| parent | aebd4d72544f1265ba2be9a0755b824b69e69f8a (diff) | |
| download | elibs-46f79f42cb2b7b38143ee6aa60b28aab78f0f366.tar.gz elibs-46f79f42cb2b7b38143ee6aa60b28aab78f0f366.tar.bz2 | |
jao-spt: lyrics
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/media/jao-spt.el | 13 |
1 files changed, 13 insertions, 0 deletions
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 |