summaryrefslogtreecommitdiffhomepage
path: root/emms/jao-emms-lyrics.el
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2019-10-22 21:08:33 +0100
committerjao <jao@gnu.org>2019-10-22 21:08:33 +0100
commit0eb7bf5458bee1309c0fb2a3b8a8689fa6f8ea97 (patch)
tree1b85df4ec285006f8944df10db144fc6e50a5961 /emms/jao-emms-lyrics.el
parent2a4b4f8f1528df644f0ff7b6b60a36f5e41e1451 (diff)
downloadelibs-0eb7bf5458bee1309c0fb2a3b8a8689fa6f8ea97.tar.gz
elibs-0eb7bf5458bee1309c0fb2a3b8a8689fa6f8ea97.tar.bz2
emms-lyrics: warn about glyrc not installed
Diffstat (limited to 'emms/jao-emms-lyrics.el')
-rw-r--r--emms/jao-emms-lyrics.el8
1 files changed, 6 insertions, 2 deletions
diff --git a/emms/jao-emms-lyrics.el b/emms/jao-emms-lyrics.el
index 8a0b0ce..9bf00b2 100644
--- a/emms/jao-emms-lyrics.el
+++ b/emms/jao-emms-lyrics.el
@@ -1,6 +1,6 @@
;; jao-emms-lyrics.el -- simple show lyrics in emms
-;; Copyright (C) 2009, 2010, 2017 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009, 2010, 2017, 2019 Jose Antonio Ortega Ruiz
;; Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
;; Start date: Sat Jul 04, 2009 13:41
@@ -98,6 +98,8 @@
(defun jao-emms-lyrics--download (artist title)
(message "Retrieving lyrics...")
+ (or (executable-find "glyrc")
+ (error "glyrc not installed"))
(let ((fn (jao-emms-lyrics--filename artist title)))
(shell-command-to-string (format "glyrc lyrics -n 1-8 -Y -a %s -t %s -w %s"
(shell-quote-argument artist)
@@ -113,7 +115,9 @@
(buffer (jao-emms-lyrics-buffer))
(cached (and (not force) (jao-emms-lyrics--get-cached artist title)))
(cached (and (not (zerop (length cached))) cached))
- (lyrics (or cached (jao-emms-lyrics--download artist title)))
+ (lyrics (or cached
+ (jao-emms-lyrics--download artist title)
+ (jao-emms-lyrics--download "" title)))
(inhibit-read-only t))
(with-current-buffer buffer
(delete-region (point-min) (point-max))