From a933d4201ad490fc1613f84012b7cb28f3373959 Mon Sep 17 00:00:00 2001 From: SqrtMinusOne Date: Sat, 28 Aug 2021 12:51:15 +0500 Subject: [PATCH] refactor: shell-command-to-string > call-process --- lyrics-fetcher.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lyrics-fetcher.el b/lyrics-fetcher.el index bf06374..7747788 100644 --- a/lyrics-fetcher.el +++ b/lyrics-fetcher.el @@ -506,10 +506,11 @@ If EDIT is non-nil, edit the query in minibuffer before search." Requires imagemagick installed." (dolist (size `((,lyrics-fetcher-small-cover-size . "cover_small.") (,lyrics-fetcher-medium-cover-size . "cover_med."))) - (shell-command-to-string - (format "convert \"%s\" -resize %s^ -gravity Center -extent %s \"%s\"" - filename (car size) (car size) - (f-join (f-dirname filename) (concat (cdr size) (f-ext filename))))))) + (call-process + "convert" nil nil nil + filename "-resize" (concat (car size) "^") + "-gravity" "Center" "-extent" (car size) + (f-join (f-dirname filename) (concat (cdr size) (f-ext filename)))))) (provide 'lyrics-fetcher) ;;; lyrics-fetcher.el ends here