diff options
author | jao <jao@gnu.org> | 2019-10-22 21:08:33 +0100 |
---|---|---|
committer | jao <jao@gnu.org> | 2019-10-22 21:08:33 +0100 |
commit | 0eb7bf5458bee1309c0fb2a3b8a8689fa6f8ea97 (patch) | |
tree | 1b85df4ec285006f8944df10db144fc6e50a5961 /emms | |
parent | 2a4b4f8f1528df644f0ff7b6b60a36f5e41e1451 (diff) | |
download | elibs-0eb7bf5458bee1309c0fb2a3b8a8689fa6f8ea97.tar.gz elibs-0eb7bf5458bee1309c0fb2a3b8a8689fa6f8ea97.tar.bz2 |
emms-lyrics: warn about glyrc not installed
Diffstat (limited to 'emms')
-rw-r--r-- | emms/jao-emms-lyrics.el | 8 |
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)) |