diff options
| author | jao <jao@gnu.org> | 2020-01-10 21:54:08 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2020-01-10 21:54:08 +0000 |
| commit | 46595ad04fc6720934fc5999cea78e7db3e7c0d4 (patch) | |
| tree | f1358507667006505123a5bb4ff9f1ffebc307c1 | |
| parent | bd2c02aa2969543b64b8248cab28f687428ccb7e (diff) | |
| download | elibs-46595ad04fc6720934fc5999cea78e7db3e7c0d4.tar.gz elibs-46595ad04fc6720934fc5999cea78e7db3e7c0d4.tar.bz2 | |
lyrics: option to edit song name/artist
| -rw-r--r-- | net/jao-lyrics.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/net/jao-lyrics.el b/net/jao-lyrics.el index a093bb8..79be660 100644 --- a/net/jao-lyrics.el +++ b/net/jao-lyrics.el @@ -1,6 +1,6 @@ ;; jao-lyrics.el -- simple show lyrics using glyrc -;; Copyright (C) 2009, 2010, 2017, 2019 Jose Antonio Ortega Ruiz +;; Copyright (C) 2009, 2010, 2017, 2019, 2020 Jose Antonio Ortega Ruiz ;; Author: Jose Antonio Ortega Ruiz <jao@gnu.org> ;; Start date: Sat Jul 04, 2009 13:41 @@ -99,7 +99,7 @@ "^\\(CreditsWritten by:\\|External linksNominate\\)" nil t) (beginning-of-line) (kill-region (point) (point-max))) - (query-replace "
" "" nil (point-min) (point-max)) + (replace-string "
" "" nil (point-min) (point-max)) (save-buffer))) (defun jao-lyrics--download (artist title &optional noartist) @@ -121,6 +121,8 @@ (let* ((a/t (funcall jao-lyrics-info-function)) (artist (car a/t)) (title (cdr a/t)) + (artist (if force (read-string "Artist: " artist) artist)) + (title (if force (read-string "Title: " title) title)) (buffer (jao-lyrics-buffer)) (cached (and (not force) (jao-lyrics--get-cached artist title))) (cached (and (not (zerop (length cached))) cached)) |