3 ms·
If you use it on Windows and have Itfanview installed, here's is how you can do it to copy paste images from clipboard using C-c-s (defun my-org-screenshot ()
by proxygeek 6y ago
If you use it on Windows and have Itfanview installed, here's is how you can do it to copy paste images from clipboard using C-c-s
(defun my-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)
(setq screenshot_dir ".\\images\\")
(setq tilde-buffer-filename
(replace-regexp-in-string "/" "\\" (buffer-name) t t))
(setq filename
(concat
(make-temp-name
(concat screenshot_dir tilde-buffer-filename ;; attempt to make irfanview approach work
"_"
(format-time-string "%Y%m%d_%H%M%S_")) ) ".png"))
(insert (concat "[[file:" filename "]]"))
(org-display-inline-images))
(global-set-key "\C-cs" 'my-org-screenshot)
- boogies 6y agoCould you indent your Lisp by four spaces for formatting? (Like this)
- dan-robertson 6y agoOn HN you only indent two spaces to turn on monospace. Here is the lisp with formatting: (defun my-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) (setq screenshot_dir ".\\images\\") (setq tilde-buffer-filename (replace-regexp-in-string "/" "\\" (buffer-name) t t)) (setq filename (concat (make-temp-name (concat screenshot_dir tilde-buffer-filename ;; attempt to make irfanview approach work "_" (format-time-string "%Y%m%d_%H%M%S_"))) ".png")) (insert (concat "[[file:" filename "]]")) (org-display-inline-images))
- vz8 6y agoDid you mean Irfanview? Thanks for the tip. Mostly emacsing via X, but good to know.