add ess configuration and remote eval

[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 daa930da8e4dd8e92e709304297fa708f78ca379..67c41193d9661c0572e97e640396c222adb023f0 100644 (file)
--- a/emacs_el/configuration/org-mode-configuration.el
+++ b/emacs_el/configuration/org-mode-configuration.el
@@ -125,6 +125,8 @@
          "* 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)
         ("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")
         )
@@ -163,6 +165,12 @@
 (global-set-key (kbd "<f9> n") 'bh/toggle-next-task-display)
 (global-set-key (kbd "<f9> w") 'widen)
 
+; change the outline mode prefix from C-c @ to C-c C-2
+(setq outline-minor-mode-prefix "C-c C-2")
+(add-hook 'outline-minor-mode-hook
+          (lambda () (local-set-key (kbd "C-c C-2")
+                                    outline-mode-prefix-map)))
+
 (global-set-key (kbd "<f9> I") 'bh/punch-in)
 (global-set-key (kbd "<f9> O") 'bh/punch-out)
 
@@ -324,6 +332,9 @@ do not already have one."
 (defadvice org-protocol-capture (before set-org-protocol-flag activate)
   (setq my-org-protocol-flag t))
 
+(defadvice org-insert-todo-heading (after dla/create-id activate)
+  (org-id-get-create)
+  )
 
 ;; org modules
 (add-to-list 'org-modules 'org-habit)
@@ -349,8 +360,8 @@ Maildir, or by Message-ID."
        (progn
          (reftex-parse-all)
          (reftex-set-cite-format
-          '((?b . "[[bib::%l][%l-bib]]")
-            (?n . "[[note::%l][%l-notes]]")
+          '((?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]]")))
          ))
@@ -363,7 +374,7 @@ Maildir, or by Message-ID."
 
 (defun org-mode-reftex-search ()
   (interactive)
-  (org-open-link-from-string (format "[[notes:%s]]" (reftex-citation t))))
+  (org-open-link-from-string (format "[[notes:%s]]" (first (reftex-citation t)))))
 
 (defun open-research-paper (bibtexkey)
   "Open a paper by bibtex key"
@@ -373,6 +384,10 @@ Maildir, or by Message-ID."
        (substitute-in-file-name "$HOME/bin/bibtex_to_paper") bibtexkey)))
 (org-add-link-type "papers" 'open-research-paper)
 
+(add-to-list 'org-link-abbrev-alist
+             '("notes" .
+               "~/projects/research/paper_notes.org::#%s"))
+
 ; I pretty much always want hiearchical checkboxes
 (setq org-hierachical-checkbox-statistics nil)
  
@@ -768,6 +783,7 @@ Skip project and sub-project tasks, habits, and loose non-project tasks."
 (setq org-drawers (quote ("PROPERTIES" "LOGBOOK")))
 ;; Save clock data and state changes and notes in the LOGBOOK drawer
 (setq org-clock-into-drawer t)
+(setq org-log-into-drawer t)
 ;; Sometimes I change tasks I'm clocking quickly - this removes clocked tasks with 0:00 duration
 (setq org-clock-out-remove-zero-time-clocks t)
 ;; Clock out when moving task to a done state