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: shell-command-to-string > call-process

Browse source
This commit is contained in:
Pavel Korytov 2021-08-28 12:51:15 +05:00
parent ce7858a602
commit a933d4201a
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lyrics-fetcher.el
View file

@ -506,10 +506,11 @@ If EDIT is non-nil, edit the query in minibuffer before search."
Requires imagemagick installed." Requires imagemagick installed."
(dolist (size `((,lyrics-fetcher-small-cover-size . "cover_small.") (dolist (size `((,lyrics-fetcher-small-cover-size . "cover_small.")
(,lyrics-fetcher-medium-cover-size . "cover_med."))) (,lyrics-fetcher-medium-cover-size . "cover_med.")))
(shell-command-to-string (call-process
(format "convert \"%s\" -resize %s^ -gravity Center -extent %s \"%s\"" "convert" nil nil nil
filename (car size) (car size) filename "-resize" (concat (car size) "^")
(f-join (f-dirname filename) (concat (cdr size) (f-ext filename))))))) "-gravity" "Center" "-extent" (car size)
(f-join (f-dirname filename) (concat (cdr size) (f-ext filename))))))
(provide 'lyrics-fetcher) (provide 'lyrics-fetcher)
;;; lyrics-fetcher.el ends here ;;; lyrics-fetcher.el ends here