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 05d30514a88d336c7180da73157f3232dfd35c20..552b08ec5012f73139f05d1278d4f07f476c9667 100644 (file)
--- a/emacs_el/configuration/org-mode-configuration.el
+++ b/emacs_el/configuration/org-mode-configuration.el
@@ -91,43 +91,58 @@
 
 ; org mode agenda files
 (setq org-agenda-files
-      (quote ("~/projects/debbugs/debbugs.org"
-             "~/projects/notes/notes.org"
-             "~/projects/notes/refile.org"
-             "~/projects/notes/diary.org"
-             "~/projects/origins_of_life/ool.org"
-             "~/projects/sysadmin/sndservers/sndservers.org"
-             "~/projects/chaim/chaim.org"
-             "~/projects/chaim/papers/gwas_paper_2012/gwas_paper.org"
-          "~/projects/reviews/reviews.org"
-             "~/projects/fh/fh.org")))
+      (quote ("~/projects/org-notes/debbugs.org"
+             "~/projects/org-notes/notes.org"
+             "~/projects/org-notes/refile.org"
+             "~/projects/org-notes/diary.org"
+             "~/projects/org-notes/ool.org"
+             "~/projects/org-notes/sndservers.org"
+             "~/projects/org-notes/chaim.org"
+             "~/projects/org-notes/wildman.org"
+             "~/projects/org-notes/uddin.org"
+          "~/projects/org-notes/reviews.org"
+             "~/projects/org-notes/fh.org")))
+
+(set-register ?n (cons 'file "~/projects/org-notes/notes.org"))
+(set-register ?r (cons 'file "~/projects/org-notes/refile.org"))
+(set-register ?o (cons 'file "~/projects/org-notes/ool.org"))
+(set-register ?s (cons 'file "~/projects/org-notes/sndservers.org"))
+(set-register ?c (cons 'file "~/projects/org-notes/chaim.org"))
+(set-register ?w (cons 'file "~/projects/org-notes/wildman.org"))
+(set-register ?u (cons 'file "~/projects/org-notes/uddin.org"))
+(set-register ?R (cons 'file "~/projects/reviews/reviews.org"))
+(set-register ?d (cons 'file "~/projects/org-notes/diary.org"))
 
 (setq org-global-properties '(("Effort_ALL 0 0:10 0:30 1:00 2:00 3:00 4:00 5:00 6:00 7:00")))
 (setq org-columns-default-format "%40ITEM(Task) %6Effort{:} %CLOCKSUM %PRIORITY %TODO %13SCHEDULED %13DEADLINE %TAGS")
 
-(setq org-default-notes-file "~/projects/notes/notes.org")
+(setq org-default-notes-file "~/projects/org-notes/notes.org")
 (setq org-capture-templates  ;; mail-specific note template, identified by "m"
-      '(("m" "Mail" entry (file+headline "~/projects/notes/refile.org" "Mail")
+      '(("m" "Mail" entry (file+headline "~/projects/org-notes/refile.org" "Mail")
          "* %?\n\n  Source: %u, %c\n  %i")
-        ("t" "todo" entry (file "~/projects/notes/refile.org")
+        ("t" "todo" entry (file "~/projects/org-notes/refile.org")
          "* TODO %?\n%U\n%a\n" :clock-in t :clock-resume t)
-        ("r" "respond" entry (file "~/projects/notes/refile.org")
+        ("r" "respond" entry (file "~/projects/org-notes/refile.org")
          "* NEXT Respond to %:from on %:subject\nSCHEDULED: %t\n%U\n%a\n" :clock-in t :clock-resume t :immediate-finish t)
-        ("n" "note" entry (file "~/projects/notes/refile.org")
+        ("n" "note" entry (file "~/projects/org-notes/refile.org")
          "* %? :NOTE:\n%U\n%a\n" :clock-in t :clock-resume t)
-        ("s" "schedule" entry (file "~/projects/notes/refile.org")
+        ("s" "schedule" entry (file "~/projects/org-notes/refile.org")
          "* %? \n%^{scheduled:}t\n%U\n%a\n" :clock-in t :clock-resume t)
-        ("j" "Journal" entry (file+datetree "~/projects/notes/diary.org")
+        ("j" "Journal" entry (file+datetree "~/projects/org-notes/diary.org")
          "* %?\n%U\n" :clock-in t :clock-resume t)
-        ("w" "org-protocol" entry (file "~/projects/notes/refile.org")
+        ("w" "org-protocol" entry (file "~/projects/org-notes/refile.org")
          "* TODO Review %c\n%U\n" :immediate-finish t)
-        ("M" "Meeting" entry (file "~/projects/notes/refile.org")
+        ("M" "Meeting" entry (file "~/projects/org-notes/refile.org")
          "* MEETING with %? :MEETING:\n%U" :clock-in t :clock-resume t)
-        ("p" "Phone call" entry (file "~/projects/notes/refile.org")
+        ("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/notes/refile.org")
+        ("J" "job" entry (file "~/projects/org-notes/refile.org")
          "* TODO Apply for %a%? :job:\nSCHEDULED: %(format-time-string \"<%Y-%m-%d %a 17:00-17:30>\")\n%U\n" :clock-in t :clock-resume t)
-        ("h" "Habit" entry (file "~/projects/notes/refile.org")
+        ("h" "Habit" entry (file "~/projects/org-notes/refile.org")
          "* NEXT %?\n%U\n%a\nSCHEDULED: %(format-time-string \"<%Y-%m-%d %a .+1d/3d>\")\n:PROPERTIES:\n:STYLE: habit\n:REPEAT_TO_STATE: NEXT\n:END:\n")
         )
       )
@@ -286,16 +301,16 @@ do not already have one."
 ; Allow refile to create parent tasks with confirmation
 (setq org-refile-allow-creating-parent-nodes (quote confirm))
 
-; Use IDO for both buffer and file completion and ido-everywhere to t
-(setq org-completion-use-ido t)
-(setq ido-everywhere t)
-(setq ido-max-directory-size 100000)
-(ido-mode (quote both))
-; Use the current window when visiting files and buffers with ido
-(setq ido-default-file-method 'selected-window)
-(setq ido-default-buffer-method 'selected-window)
-; Use the current window for indirect buffer display
-(setq org-indirect-buffer-display 'current-window)
+; ; Use IDO for both buffer and file completion and ido-everywhere to t
+; (setq org-completion-use-ido t)
+; (setq ido-everywhere t)
+; (setq ido-max-directory-size 100000)
+; (ido-mode (quote both))
+; ; Use the current window when visiting files and buffers with ido
+; (setq ido-default-file-method 'selected-window)
+; (setq ido-default-buffer-method 'selected-window)
+; ; Use the current window for indirect buffer display
+; (setq org-indirect-buffer-display 'current-window)
 
 
 ;;;; Refile settings
@@ -417,6 +432,8 @@ Maildir, or by Message-ID."
 
 
 (setq-default org-mobile-directory "/rzlab.ucr.edu:/sites/dav.donarmstrong.com/root/org/")
+(when (string= system-name "rzlab.ucr.edu")
+  (setq-default org-mobile-directory "/sites/dav.donarmstrong.com/root/org/"))
 (setq-default org-directory "/home/don/org-mode/")
 (setq-default org-mobile-inbox-for-pull "/home/don/org-mode/from-mobile.org")
 
@@ -948,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))