]> git.donarmstrong.com Git - lib.git/blobdiff - emacs_el/configuration/org-mode-configuration.el
add registry settings for org configuration
[lib.git] / emacs_el / configuration / org-mode-configuration.el
index daa930da8e4dd8e92e709304297fa708f78ca379..d181d07a98a1b2dbe439bd7578e0f1d850b80903 100644 (file)
              "~/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) %TAGS %PRIORITY %TODO %13SCHEDULED %13DEADLINE %6Effort{:}  %CLOCKSUM")
+(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-capture-templates  ;; mail-specific note template, identified by "m"
          "* %?\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:\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")
         )
 (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)
 
@@ -278,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
@@ -324,6 +339,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,10 +367,10 @@ 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]]")))
+            (?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)
@@ -363,7 +381,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"
@@ -372,6 +390,17 @@ 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" .
+               "~/projects/research/paper_notes.org::#%s"))
 
 ; I pretty much always want hiearchical checkboxes
 (setq org-hierachical-checkbox-statistics nil)
@@ -401,14 +430,17 @@ Maildir, or by Message-ID."
 ;; org mode ical export
 (setq org-icalendar-timezone "America/Los_Angeles")
 (setq org-icalendar-use-scheduled '(todo-start event-if-todo))
-(setq org-icalendar-store-UID t)
+;; we already add the id manually
+;; (setq org-icalendar-store-UID t)
 
 ;; org babel support
 (org-babel-do-load-languages
  'org-babel-load-languages
  '((emacs-lisp . t )
    (R . t)
-   (latex . t)))
+   (latex . t)
+   (ditaa . t)
+   ))
 ;; org-babel-by-backend
 (defmacro org-babel-by-backend (&rest body)
    `(case (if (boundp 'backend) 
@@ -417,28 +449,28 @@ Maildir, or by Message-ID."
 
 
 
-;; org latex
-;; stolen from http://kieranhealy.org/esk/kjhealy.html
-(require 'org-latex)   
-;; Choose either listings or minted for exporting source code blocks.
-;; Using minted (as here) requires pygments be installed. To use the
-;; default listings package instead, use
-;; (setq org-latex-listings t)
-;; and change references to "minted" below to "listings"
-; (setq org-latex-listings 'minted)
-
-;; default settings for minted code blocks
-(setq org-latex-minted-options
-      '(;("frame" "single")
-        ("bgcolor" "bg") ; bg will need to be defined in the preamble of your document. It's defined in org-preamble-pdflatex.sty and org-preamble-xelatex.sty below.
-        ("fontsize" "\\small")
-        ))
-;; turn off the default toc behavior; deal with it properly in headers to files.
-(defun org-latex-no-toc (depth)  
-  (when depth
-    (format "%% Org-mode is exporting headings to %s levels.\n"
-            depth)))
-(setq org-latex-format-toc-function 'org-latex-no-toc)
+;; ;; org latex
+;; ;; stolen from http://kieranhealy.org/esk/kjhealy.html
+;; (require 'org-latex)   
+;; ;; Choose either listings or minted for exporting source code blocks.
+;; ;; Using minted (as here) requires pygments be installed. To use the
+;; ;; default listings package instead, use
+;; ;; (setq org-latex-listings t)
+;; ;; and change references to "minted" below to "listings"
+;; ; (setq org-latex-listings 'minted)
+;; 
+;; ;; default settings for minted code blocks
+;; (setq org-latex-minted-options
+;;       '(;("frame" "single")
+;;         ("bgcolor" "bg") ; bg will need to be defined in the preamble of your document. It's defined in org-preamble-pdflatex.sty and org-preamble-xelatex.sty below.
+;;         ("fontsize" "\\small")
+;;         ))
+;; ;; turn off the default toc behavior; deal with it properly in headers to files.
+;; (defun org-latex-no-toc (depth)  
+;;   (when depth
+;;     (format "%% Org-mode is exporting headings to %s levels.\n"
+;;             depth)))
+;; (setq org-latex-format-toc-function 'org-latex-no-toc)
 
 (require 'ox-latex)
 (add-to-list 'org-latex-classes
@@ -450,6 +482,20 @@ 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}
+[NO-DEFAULT-PACKAGES]
+[PACKAGES]
+[EXTRA]"
+               ("\\section{%s}" . "\\section*{%s}")
+               ("\\subsection{%s}" . "\\subsection*{%s}")
+               ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
+               ("\\paragraph{%s}" . "\\paragraph*{%s}")
+               ("\\subparagraph{%s}" . "\\subparagraph*{%s}")))
+
 (add-to-list 'org-latex-classes
              '("membook"
                "\\documentclass[11pt,oneside]{memoir}\n"
@@ -511,6 +557,9 @@ Maildir, or by Message-ID."
       (setq ad-return-value contents)
     ad-do-it))
 
+;; keep latex logfiles
+
+(setq org-latex-remove-logfiles nil)
 
 ;; helper functions
 (defun bh/is-project-p ()
@@ -768,6 +817,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
@@ -900,3 +950,8 @@ A prefix arg forces clock in of the default task."
     (org-with-point-at clock-in-to-task
       (org-clock-in nil))))
 
+
+; allow for zero-width-space to be a break in regexp too
+(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)