add insert screenshot command

[lib.git] / emacs_el / configuration / org-mode-configuration.el

diff --git a/emacs_el/configuration/org-mode-configuration.el b/emacs_el/configuration/org-mode-configuration.el
index 7071e1ef85c90e5c09d1e19b9033a486b3ffe41c..552b08ec5012f73139f05d1278d4f07f476c9667 100644 (file)
--- a/emacs_el/configuration/org-mode-configuration.el
+++ b/emacs_el/configuration/org-mode-configuration.el
@@ -91,7 +91,7 @@
 
 ; org mode agenda files
 (setq org-agenda-files
-      (quote ("~/projects/debbugs/debbugs.org"
+      (quote ("~/projects/org-notes/debbugs.org"
              "~/projects/org-notes/notes.org"
              "~/projects/org-notes/refile.org"
              "~/projects/org-notes/diary.org"
@@ -100,7 +100,7 @@
              "~/projects/org-notes/chaim.org"
              "~/projects/org-notes/wildman.org"
              "~/projects/org-notes/uddin.org"
-          "~/projects/reviews/reviews.org"
+          "~/projects/org-notes/reviews.org"
              "~/projects/org-notes/fh.org")))
 
 (set-register ?n (cons 'file "~/projects/org-notes/notes.org"))
@@ -134,6 +134,10 @@
          "* TODO Review %c\n%U\n" :immediate-finish t)
         ("M" "Meeting" entry (file "~/projects/org-notes/refile.org")
          "* MEETING with %? :MEETING:\n%U" :clock-in t :clock-resume t)
+        ("S" "Seminar" entry (file "~/projects/org-notes/refile.org")
+         "* SEMINAR notes %? :SEMINAR:\n%U" :clock-in t :clock-resume t)
+        ("P" "Paper to read" entry (file+headline "~/projects/research/papers_to_read.org" "Refile")
+         "* TODO Get/Read %? \n%U" :clock-in t :clock-resume t)
         ("p" "Phone call" entry (file "~/projects/org-notes/refile.org")
          "* PHONE %? :PHONE:\n%U" :clock-in t :clock-resume t)
         ("J" "job" entry (file "~/projects/org-notes/refile.org")
@@ -961,3 +965,22 @@ A prefix arg forces clock in of the default task."
 (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 filename)
+  (setq filename
+        (read-file-name
+         "Screenshot to insert: "
+         nil
+         (concat (buffer-file-name) "_" (format-time-string "%Y%m%d_%H%M%S") ".png")
+         nil
+         nil
+         )
+        )
+  (call-process "import" nil nil nil filename)
+  (insert (concat "[[" filename "]]"))
+  (org-display-inline-images))