diff options
| author | jao <jao@gnu.org> | 2019-12-13 05:03:25 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2019-12-13 05:03:25 +0000 |
| commit | 9f7b8a79685b290e8d0f9296b95607581ff731bf (patch) | |
| tree | d069b934053f16975bf9f4aeb1b4c60898dcb00d | |
| parent | 2fef2493e6f8289cbbb778f5f78f1c87d74065cd (diff) | |
| download | elibs-9f7b8a79685b290e8d0f9296b95607581ff731bf.tar.gz elibs-9f7b8a79685b290e8d0f9296b95607581ff731bf.tar.bz2 | |
lyrics: more washing
| -rw-r--r-- | net/jao-lyrics.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/net/jao-lyrics.el b/net/jao-lyrics.el index 8cda421..a093bb8 100644 --- a/net/jao-lyrics.el +++ b/net/jao-lyrics.el @@ -95,10 +95,12 @@ (defun jao-lyrics--clean-download (fn) (with-current-buffer (find-file-noselect fn) (goto-char (point-min)) - (when (re-search-forward "^\\(CreditsWritten by:\\|External linksNominate\\)" nil t) + (when (re-search-forward + "^\\(CreditsWritten by:\\|External linksNominate\\)" nil t) (beginning-of-line) - (kill-region (point) (point-max)) - (save-buffer)))) + (kill-region (point) (point-max))) + (query-replace "
" "" nil (point-min) (point-max)) + (save-buffer))) (defun jao-lyrics--download (artist title &optional noartist) (message "Retrieving lyrics...") |