From 9f7b8a79685b290e8d0f9296b95607581ff731bf Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Fri, 13 Dec 2019 05:03:25 +0000
Subject: lyrics: more washing
---
net/jao-lyrics.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
(limited to 'net')
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...")
--
cgit v1.2.3