sqrtminusone/lyrics-fetcher.el
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/lyrics-fetcher.el.git synced 2025-12-10 17:03:03 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

refactor: remove code duplication, new version

Browse source
This commit is contained in:
Pavel Korytov 2021-08-12 11:34:53 +03:00
parent 3bfc8c856e
commit edfd862451
2 changed files with 8 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lyrics-fetcher-genius.el
View file

@ -4,7 +4,7 @@
;; Author: Korytov Pavel <thexcloud@gmail.com> ;; Author: Korytov Pavel <thexcloud@gmail.com>
;; Maintainer: Korytov Pavel <thexcloud@gmail.com> ;; Maintainer: Korytov Pavel <thexcloud@gmail.com>
;; Version: 0.1.0 ;; Version: 0.1.1
;; Package-Requires: ((emacs "27") (request "0.3.2") (f "0.20.0")) ;; Package-Requires: ((emacs "27") (request "0.3.2") (f "0.20.0"))
;; Homepage: https://github.com/SqrtMinusOne/lyrics-fetcher.el ;; Homepage: https://github.com/SqrtMinusOne/lyrics-fetcher.el

20
lyrics-fetcher.el
View file

@ -4,7 +4,7 @@
;; Author: Korytov Pavel <thexcloud@gmail.com> ;; Author: Korytov Pavel <thexcloud@gmail.com>
;; Maintainer: Korytov Pavel <thexcloud@gmail.com> ;; Maintainer: Korytov Pavel <thexcloud@gmail.com>
;; Version: 0.1.0 ;; Version: 0.1.1
;; Package-Requires: ((emacs "27") (emms "7.5") (f "0.20.0") (request "0.3.2")) ;; Package-Requires: ((emacs "27") (emms "7.5") (f "0.20.0") (request "0.3.2"))
;; Homepage: https://github.com/SqrtMinusOne/lyrics-fetcher.el ;; Homepage: https://github.com/SqrtMinusOne/lyrics-fetcher.el
@ -499,18 +499,12 @@ If EDIT is non-nil, edit the query in minibuffer before search."
"Create small and medium versions of FILENAME. "Create small and medium versions of FILENAME.
Requires imagemagick installed." Requires imagemagick installed."
(shell-command-to-string (dolist (size `((,lyrics-fetcher-small-cover-size . "cover_small.")
(format "convert \"%s\" -resize %s^ -gravity Center -extent %s \"%s\"" (,lyrics-fetcher-medium-cover-size . "cover_med.")))
filename (shell-command-to-string
lyrics-fetcher-small-cover-size (format "convert \"%s\" -resize %s^ -gravity Center -extent %s \"%s\""
lyrics-fetcher-small-cover-size filename (car size) (car size)
(f-join (f-dirname filename) (concat "cover_small." (f-ext filename))))) (f-join (f-dirname filename) (concat (cdr size) (f-ext filename)))))))
(shell-command-to-string
(format "convert \"%s\" -resize %s^ -gravity Center -extent %s \"%s\""
filename
lyrics-fetcher-medium-cover-size
lyrics-fetcher-medium-cover-size
(f-join (f-dirname filename) (concat "cover_med." (f-ext filename))))))
(provide 'lyrics-fetcher) (provide 'lyrics-fetcher)
;;; lyrics-fetcher.el ends here ;;; lyrics-fetcher.el ends here