Convert multiple jpg files in clipboard to png

sipsmult.el

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

(if (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))))
  (progn (princ "system not seems Darwin, exit...")
         (kill-emacs 1)))