Take-Screenshot-org.el

(defun my-take-screenshot ()
    (interactive)
    (let
        ;; Read Filename from Minibuffer
        ((filename (read-from-minibuffer "image file name: "))
        (directory "_media"))

        ;; Use maim to screenshot
        (shell-command (format "maim --select %s/%s/%s.png" default-directory directory filename ))

        ;; Insert formatted link at point
        (save-excursion (insert(format
        "#+attr_html: :width 400px \n #+attr_latex: :width 0.4\\textwidth \n [[file:%s/%s.png]]"
        directory filename)))

        ;; Message success to the minibuffer
        (message "saved to %s as %s.png" directory filename)
    )