Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ; Mac OSX version. Tested on 10.7. Will not work on other OSes.
- (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)
- ; FIX: take a file name rather than hour min sec
- (setq filename (format-time-string "%Y/%m%d-%H%M%S.png"))
- (call-process "sleep" nil nil nil "5")
- (call-process "screencapture" nil nil nil "-T" "15" "-i" filename)
- (insert (concat "[[" filename "]]\n\n"))
- ;(org-display-inline-images)
- )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement