orgmode image inserter

insert-image.el

(defun org-insert-image-from-clipboard ()
    "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. Depends in X.org to work (for now)"
    (interactive)
    (setq folder-name (concat (file-name-sans-extension (buffer-file-name)) "-orgimg"))
    (message folder-name)
    (if (not (file-directory-p folder-name))
        (make-directory folder-name nil))
    (setq filename
          (concat
           folder-name "/"
           (make-temp-name
            (concat ;(buffer-file-name) ;"-"
             (format-time-string "%Y%m%d_%H%M%S_")) ) ".png"))
    ;; TODO: add switch to detect Xorg or wayland session using (getenv "XDG_SESSION_TYPE")
    (insert
     (if (string= (car (split-string
                        (shell-command-to-string
                         (concat "xclip -selection clip -t image/png  -o >> " filename ))
                        ":")) "Error")
         (message "clipboard does not contain a image!")
       (concat "[[./" (file-relative-name filename) "]]")))
    (org-display-inline-images))