Insert Org Image

(defun org-screenshot ()
  "Take a screenshot into a time stamped unique-named file in the
same directory as the org-buffer and insert a link to this file."
  (interactive)
  (make-directory "img" :parents)
  (setq filename
        (concat
         (make-temp-name
          (concat (file-name-directory buffer-file-name) "img/") ) ".png"))
  (call-process "import" nil nil nil filename)
  (insert (concat "[[file:images/" (file-name-nondirectory filename) "]]"))
)