 (defun dwim-shell-command-convert-image-to-jpg ()
   "Convert all marked images to jpg(s)."
   (interactive)
-  (dwim-shell-command--on-marked-files
+  (dwim-shell-command-on-marked-files
    "Convert to jpg"
    "convert -verbose <<f>> <<fne>>.jpg"
    :utils "convert"))

    (progress-reporter-update reporter))
  (comint-output-filter process string))

(cl-defun dwim-shell-command--on-marked-files (buffer-name script &key utils extensions shell-util shell-args post-process-template on-completion)
  "Execute SCRIPT, using buffer NAME, FILES, and bin UTILS."
  (dwim-shell-command-execute-script buffer-name script
                                     :files (dwim-shell-command--marked-files)

(defun dwim-shell-command-convert-image-to-png ()
  "Convert all marked images to png(s)."
  (interactive)
  (dwim-shell-command-on-marked-files
   "Convert to png"
   "convert -verbose <<f>> <<fne>>.png"
   :utils "convert"))
