X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=emacs_el%2Fconfiguration%2Forg-mode-configuration.el;h=d181d07a98a1b2dbe439bd7578e0f1d850b80903;hb=be841cd8abd654839959cc3433f070a2ad881acb;hp=a8b427ce8769107b1b4db41d82e79aacc530986e;hpb=102e63f80004e76d1532e97f73508e9eea2ada9e;p=lib.git

diff --git a/emacs_el/configuration/org-mode-configuration.el b/emacs_el/configuration/org-mode-configuration.el
index a8b427c..d181d07 100644
--- a/emacs_el/configuration/org-mode-configuration.el
+++ b/emacs_el/configuration/org-mode-configuration.el
@@ -98,10 +98,17 @@
 	      "~/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")))
 
+(set-register ?n (cons 'file "~/projects/notes/notes.org"))
+(set-register ?r (cons 'file "~/projects/notes/refile.org"))
+(set-register ?o (cons 'file "~/projects/origins_of_life/ool.org"))
+(set-register ?s (cons 'file "~/projects/sysadmin/sndservers/sndservers.org"))
+(set-register ?c (cons 'file "~/projects/chaim/chaim.org"))
+(set-register ?R (cons 'file "~/projects/reviews/reviews.org"))
+(set-register ?d (cons 'file "~/projects/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")
 
@@ -121,12 +128,12 @@
          "* %?\n%U\n" :clock-in t :clock-resume t)
         ("w" "org-protocol" entry (file "~/projects/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/notes/refile.org")
          "* MEETING with %? :MEETING:\n%U" :clock-in t :clock-resume t)
         ("p" "Phone call" entry (file "~/projects/notes/refile.org")
          "* PHONE %? :PHONE:\n%U" :clock-in t :clock-resume t)
         ("J" "job" entry (file "~/projects/notes/refile.org")
-         "* TODO Apply for %a%? :job:\n%U\n" :clock-in t :clock-resume t)
+         "* 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")
          "* 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 +293,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
@@ -363,7 +370,7 @@ Maildir, or by Message-ID."
           '((?b . "[[bib:%l][%l-bib]]")
             (?n . "[[notes:%l][%l-notes]]")
             (?c . "\\cite{%l}")
-            (?h . "*** %t\n:PROPERTIES:\n:Custom_ID: %l\n:END:\n[[papers:%l][%l paper]]")))
+            (?h . "*** %t\n:PROPERTIES:\n:Custom_ID: %l\n:END:\n[[papers:%l][%l xoj]] [[papers-pdf:%l][pdf]]")))
          ))
   (define-key org-mode-map (kbd "C-c )") 'reftex-citation)
   (define-key org-mode-map (kbd "C-c [") 'reftex-citation)
@@ -383,6 +390,13 @@ Maildir, or by Message-ID."
    (format "%s %s"
        (substitute-in-file-name "$HOME/bin/bibtex_to_paper") bibtexkey)))
 (org-add-link-type "papers" 'open-research-paper)
+(defun open-research-paper-pdf (bibtexkey)
+  "Open a paper pdf by bibtex key"
+  (interactive "bibtex key: ")
+  (shell-command
+   (format "%s -p evince %s"
+       (substitute-in-file-name "$HOME/bin/bibtex_to_paper") bibtexkey)))
+(org-add-link-type "papers-pdf" 'open-research-paper-pdf)
 
 (add-to-list 'org-link-abbrev-alist
              '("notes" .
@@ -468,6 +482,8 @@ Maildir, or by Message-ID."
                ("\\paragraph{%s}" . "\\paragraph*{%s}")
                ("\\subparagraph{%s}" . "\\subparagraph*{%s}")))
 
+(setq org-beamer-outline-frame-options "")
+(require 'ox-beamer)
 (add-to-list 'org-latex-classes
              '("beamer"
                "\\documentclass[ignorenonframetext]{beamer}