"~/projects/fh/fh.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"
"* 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")
)
(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)
(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)
(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]]")))
))
(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"
(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)
;; 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)
("\\paragraph{%s}" . "\\paragraph*{%s}")
("\\subparagraph{%s}" . "\\subparagraph*{%s}")))
+(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"
(setq ad-return-value contents)
ad-do-it))
+;; keep latex logfiles
+
+(setq org-latex-remove-logfiles nil)
;; helper functions
(defun bh/is-project-p ()
(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
(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)