Converting PNG to JPG using sips and pbpaste on macOS for multiple paths

sipsmult.el

#!/usr/bin/env emacs --script

(cond ((eq system-type 'darwin)
       (dolist (fpath (split-string (shell-command-to-string "pbpaste") "\n" t))
         (let* ((output (replace-regexp-in-string "\\(?:\\.\\w+\\)?$" ".jpg" fpath))
                (cmd (format "sips -s format jpeg -s formatOptions 80 \'%s\' --out \'%s\'"
                             fpath output)))
           (when (and (file-exists-p fpath)
                      (string-match-p "\\.png\\'" fpath))
             (princ (format "=> cocnvert: %s\n" fpath))
             (shell-command cmd)))))
      ((eq system-type 'gnu/linux)
       (unless (and (executable-find "wl-paste")
                    (executable-find "convert"))
         (princ "requirements not satisfied, exit...")
         (kill-emacs 1))
       (dolist (fpath (split-string (shell-command-to-string "wl-paste --no-newline") "\n" t))
         (let* ((output (replace-regexp-in-string "\\(?:\\.\\w+\\)?$" ".jpg" fpath))
                (cmd (format "convert \'%s\' \'%s\' -quality 80"
                             fpath output)))
           (when (and (file-exists-p fpath)
                      (string-match-p "\\.png\\'" fpath))
             (princ (format "=> cocnvert: %s\n" fpath))
             (shell-command cmd)))))
      (t (progn (princ "not supported system, exit...")
                (kill-emacs 1))))