summaryrefslogtreecommitdiffhomepage
path: root/lib
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-01-20 20:27:47 +0000
committerjao <jao@gnu.org>2022-01-20 20:28:13 +0000
commit46f79f42cb2b7b38143ee6aa60b28aab78f0f366 (patch)
tree0ae59f8f5c6a98eb0b4497a9de9a6a8ab0919a1a /lib
parentaebd4d72544f1265ba2be9a0755b824b69e69f8a (diff)
downloadelibs-46f79f42cb2b7b38143ee6aa60b28aab78f0f366.tar.gz
elibs-46f79f42cb2b7b38143ee6aa60b28aab78f0f366.tar.bz2
jao-spt: lyrics
Diffstat (limited to 'lib')
-rw-r--r--lib/media/jao-spt.el13
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