From 46f79f42cb2b7b38143ee6aa60b28aab78f0f366 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Thu, 20 Jan 2022 20:27:47 +0000
Subject: jao-spt: lyrics

---
 lib/media/jao-spt.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'lib/media/jao-spt.el')

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
-- 
cgit v1.2.3