Emacs Org Mode paste current image clipboard as file

paste.el

(defun paste-current-image ()
  "Assume the current clipboard contains and image and paste it into the org file"
  (interactive)
  (setq filename
        (concat
         (make-temp-name
          (concat (buffer-file-name)
                  "_"
                  (format-time-string "%Y%m%d_%H%M%S_")) ) ".png"))
  (call-process "xclip" nil (list :file filename) nil "-selection" "clipboard" "-t" "image/png" "-o")
  (insert (concat "[[" filename "]]"))
  (org-display-inline-images))