org-format-image.el

(defun org-format-hyperlink (link-text-start link-text-end)
	"Format the selected text as a orgmode link prompting for the link"
	(interactive "r")
										;(setq clip (shell-command-to-string "xclip -selection clip -t TEXT -o"))
	(setq dest-link (read-string "Link to insert: ")); nil nil (nth 0 kill-ring)))
	(if (not (string-blank-p dest-link))
		(progn (goto-char link-text-start)
			   (setq tmp-link  (concat `"[[" dest-link `"][" (buffer-substring link-text-start link-text-end) '"]]"))
			   (delete-region link-text-start link-text-end)
			   (insert tmp-link))
	  (message "Empty link")
      ))