-(setcar org-emphasis-regexp-components " [:space:] \t('\"{")
-(setcar (nthcdr 1 org-emphasis-regexp-components) " [:space:]- \t.,:!?;'\")}\\")
-(org-set-emph-re 'org-emphasis-regexp-components org-emphasis-regexp-components)
+; (setcar org-emphasis-regexp-components " [:space:] \t('\"{")
+; (setcar (nthcdr 1 org-emphasis-regexp-components) " [:space:]- \t.,:!?;'\")}\\")
+; (org-set-emph-re 'org-emphasis-regexp-components org-emphasis-regexp-components)
+
+;; support inserting screen shots
+(defun my/org-insert-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)
+ (defvar my/org-insert-screenshot/filename)
+ (setq my/org-insert-screenshot/filename
+ (read-file-name
+ "Screenshot to insert: "
+ nil
+ (concat (buffer-file-name) "_" (format-time-string "%Y%m%d_%H%M%S") ".png")
+ )
+ )
+ (call-process "import" nil nil nil my/org-insert-screenshot/filename)
+ (insert (concat "[[" my/org-insert-screenshot/filename "]]"))
+ (org-display-inline-images))