emacs_el/configuration/org-mode-configuration.el

   1 (require 'org-id)
   2 (require 'reftex)
   3 (require 'gnus)
   4
   5 (require 'org)
   6 (require 'org-agenda)
   7 (require 'org-habit)
   8 ;; The following lines are always needed. Choose your own keys.
   9 (add-to-list 'auto-mode-alist '("\\.\\(org\\|org_archive\\|txt\\)$" . org-mode))
  10 (eval-when-compile
  11   (require 'cl))
  12 (global-set-key "\C-cl" 'org-store-link)
  13 (global-set-key "\C-ca" 'org-agenda)
  14 (global-set-key "\C-cb" 'org-iswitchb)
  15 (setq-default org-log-done 'time)
  16 (setq-default org-agenda-ndays 5)
  17
  18 ;; agenda configuration
  19 ;; Do not dim blocked tasks
  20 (setq org-agenda-dim-blocked-tasks nil)
  21
  22 ;; Compact the block agenda view
  23 (setq org-agenda-compact-blocks t)
  24
  25 ;; Custom agenda command definitions
  26 (setq org-agenda-custom-commands
  27       (quote (("N" "Notes" tags "NOTE"
  28                ((org-agenda-overriding-header "Notes")
  29                 (org-tags-match-list-sublevels t)))
  30               ("h" "Habits" tags-todo "STYLE=\"habit\""
  31                ((org-agenda-overriding-header "Habits")
  32                 (org-agenda-sorting-strategy
  33                  '(todo-state-down effort-up category-keep))))
  34               (" " "Agenda"
  35                ((agenda "" nil)
  36                 (tags "REFILE"
  37                       ((org-agenda-overriding-header "Tasks to Refile")
  38                        (org-tags-match-list-sublevels nil)))
  39                 (tags-todo "-CANCELLED/!"
  40                            ((org-agenda-overriding-header "Stuck Projects")
  41                             (org-agenda-skip-function 'bh/skip-non-stuck-projects)
  42                             (org-agenda-sorting-strategy
  43                              '(category-keep))))
  44                 (tags-todo "-HOLD-CANCELLED/!"
  45                            ((org-agenda-overriding-header "Projects")
  46                             (org-agenda-skip-function 'bh/skip-non-projects)
  47                             (org-tags-match-list-sublevels 'indented)
  48                             (org-agenda-sorting-strategy
  49                              '(category-keep))))
  50                 (tags-todo "-CANCELLED/!NEXT"
  51                            ((org-agenda-overriding-header (concat "Project Next Tasks"
  52                                                                   (if bh/hide-scheduled-and-waiting-next-tasks
  53                                                                       ""
  54                                                                     " (including WAITING and SCHEDULED tasks)")))
  55                             (org-agenda-skip-function 'bh/skip-projects-and-habits-and-single-tasks)
  56                             (org-tags-match-list-sublevels t)
  57                             (org-agenda-todo-ignore-scheduled bh/hide-scheduled-and-waiting-next-tasks)
  58                             (org-agenda-todo-ignore-deadlines bh/hide-scheduled-and-waiting-next-tasks)
  59                             (org-agenda-todo-ignore-with-date bh/hide-scheduled-and-waiting-next-tasks)
  60                             (org-agenda-sorting-strategy
  61                              '(todo-state-down effort-up category-keep))))
  62                 (tags-todo "-REFILE-CANCELLED-WAITING-HOLD/!"
  63                            ((org-agenda-overriding-header (concat "Project Subtasks"
  64                                                                   (if bh/hide-scheduled-and-waiting-next-tasks
  65                                                                       ""
  66                                                                     " (including WAITING and SCHEDULED tasks)")))
  67                             (org-agenda-skip-function 'bh/skip-non-project-tasks)
  68                             (org-agenda-todo-ignore-scheduled bh/hide-scheduled-and-waiting-next-tasks)
  69                             (org-agenda-todo-ignore-deadlines bh/hide-scheduled-and-waiting-next-tasks)
  70                             (org-agenda-todo-ignore-with-date bh/hide-scheduled-and-waiting-next-tasks)
  71                             (org-agenda-sorting-strategy
  72                              '(category-keep))))
  73                 (tags-todo "-REFILE-CANCELLED-WAITING-HOLD/!"
  74                            ((org-agenda-overriding-header (concat "Standalone Tasks"
  75                                                                   (if bh/hide-scheduled-and-waiting-next-tasks
  76                                                                       ""
  77                                                                     " (including WAITING and SCHEDULED tasks)")))
  78                             (org-agenda-skip-function 'bh/skip-project-tasks)
  79                             (org-agenda-todo-ignore-scheduled bh/hide-scheduled-and-waiting-next-tasks)
  80                             (org-agenda-todo-ignore-deadlines bh/hide-scheduled-and-waiting-next-tasks)
  81                             (org-agenda-todo-ignore-with-date bh/hide-scheduled-and-waiting-next-tasks)
  82                             (org-agenda-sorting-strategy
  83                              '(category-keep))))
  84                 (tags-todo "-CANCELLED+WAITING|HOLD/!"
  85                            ((org-agenda-overriding-header "Waiting and Postponed Tasks")
  86                             (org-agenda-skip-function 'bh/skip-stuck-projects)
  87                             (org-tags-match-list-sublevels nil)
  88                             (org-agenda-todo-ignore-scheduled t)
  89                             (org-agenda-todo-ignore-deadlines t)))
  90                 (tags "-REFILE/"
  91                       ((org-agenda-overriding-header "Tasks to Archive")
  92                        (org-agenda-skip-function 'bh/skip-non-archivable-tasks)
  93                        (org-tags-match-list-sublevels nil))))
  94                nil))))
  95
  96 ; org mode agenda files
  97 (setq org-agenda-files
  98       (quote ("~/projects/org-notes/debbugs.org"
  99               "~/projects/org-notes/notes.org"
 100               "~/projects/org-notes/refile.org"
 101               "~/projects/org-notes/diary.org"
 102               "~/projects/org-notes/ool.org"
 103               "~/projects/org-notes/sndservers.org"
 104               "~/projects/org-notes/chaim.org"
 105               "~/projects/org-notes/wildman.org"
 106               "~/projects/org-notes/uddin.org"
 107           "~/projects/org-notes/reviews.org"
 108           "~/projects/org-notes/hpcbio.org"
 109           "~/org-mode/from-mobile.org"
 110               "~/projects/org-notes/fh.org")))
 111
 112 (set-register ?n (cons 'file "~/projects/org-notes/notes.org"))
 113 (set-register ?r (cons 'file "~/projects/org-notes/refile.org"))
 114 (set-register ?o (cons 'file "~/projects/org-notes/ool.org"))
 115 (set-register ?s (cons 'file "~/projects/org-notes/sndservers.org"))
 116 (set-register ?c (cons 'file "~/projects/org-notes/chaim.org"))
 117 (set-register ?w (cons 'file "~/projects/org-notes/wildman.org"))
 118 (set-register ?u (cons 'file "~/projects/org-notes/uddin.org"))
 119 (set-register ?R (cons 'file "~/projects/reviews/reviews.org"))
 120 (set-register ?d (cons 'file "~/projects/org-notes/diary.org"))
 121
 122 (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")))
 123 (setq org-columns-default-format "%40ITEM(Task) %6Effort{:} %CLOCKSUM %PRIORITY %TODO %13SCHEDULED %13DEADLINE %TAGS")
 124
 125 ;; add automatic reminders for appointments
 126 (defadvice  org-agenda-redo (after org-agenda-redo-add-appts)
 127   "Pressing `r' on the agenda will also add appointments."
 128   (progn
 129     (setq appt-time-msg-list nil)
 130     (org-agenda-to-appt)))
 131
 132 (setq org-default-notes-file "~/projects/org-notes/notes.org")
 133 (setq org-id-link-to-org-use-id t)
 134 (setq org-capture-templates  ;; mail-specific note template, identified by "m"
 135       '(("m" "Mail" entry (file+headline "~/projects/org-notes/refile.org" "Mail")
 136          "* %?\n\n  Source: %u, %c\n  %i")
 137         ("t" "todo" entry (file "~/projects/org-notes/refile.org")
 138          "* TODO %?\n  :PROPERTIES:\n  :END:\n  :LOGBOOK:\n  :END:\n%U\n%a\n" :clock-in t :clock-resume t)
 139         ("r" "respond" entry (file "~/projects/org-notes/refile.org")
 140          "* NEXT Respond to %:from on %:subject\nSCHEDULED: %t\n%U\n%a\n" :clock-in t :clock-resume t :immediate-finish t)
 141         ("n" "note" entry (file "~/projects/org-notes/refile.org")
 142          "* %? :NOTE:\n%U\n%a\n" :clock-in t :clock-resume t)
 143         ("s" "schedule" entry (file "~/projects/org-notes/refile.org")
 144          "* %? :cal:\n%^{scheduled:}t\n%U\n%a\n" :clock-in t :clock-resume t)
 145         ("j" "Journal" entry (file+datetree "~/projects/org-notes/diary.org")
 146          "* %?\n%U\n" :clock-in t :clock-resume t)
 147         ("w" "org-protocol" entry (file "~/projects/org-notes/refile.org")
 148          "* TODO Review %c\n%U\n" :immediate-finish t)
 149         ("M" "Meeting" entry (file "~/projects/org-notes/refile.org")
 150          "* MEETING with %? :MEETING:\n%U" :clock-in t :clock-resume t)
 151         ("S" "Seminar" entry (file "~/projects/org-notes/refile.org")
 152          "* SEMINAR notes %? :SEMINAR:\n%U" :clock-in t :clock-resume t)
 153         ("P" "Paper to read" entry (file+headline "~/projects/research/papers_to_read.org" "Refile")
 154          "* TODO Get/Read %? \n%U" :clock-in t :clock-resume t)
 155         ("p" "Phone call" entry (file "~/projects/org-notes/refile.org")
 156          "* PHONE %? :PHONE:\n%U" :clock-in t :clock-resume t)
 157         ("J" "job" entry (file "~/projects/org-notes/refile.org")
 158          "* TODO Apply for %a%? :job:\nSCHEDULED: %(format-time-string \"<%Y-%m-%d 17:00-17:30>\")\n%U\n%a\n" :clock-in t :clock-resume t)
 159         ("h" "Habit" entry (file "~/projects/org-notes/refile.org")
 160          "* NEXT %?\n%U\n%a\nSCHEDULED: %(format-time-string \"<%Y-%m-%d .+1d/3d>\")\n:PROPERTIES:\n:STYLE: habit\n:REPEAT_TO_STATE: NEXT\n:END:\n%a\n")
 161         )
 162       )
 163
 164 ;; Remove empty LOGBOOK drawers on clock out
 165 (defun bh/remove-empty-drawer-on-clock-out ()
 166   (interactive)
 167   (save-excursion
 168     (beginning-of-line 0)
 169     (org-remove-empty-drawer-at (point))))
 170
 171 (defun my/org-add-id ()
 172   (interactive)
 173   (save-excursion
 174     (if (org-current-level)
 175         ()
 176       (forward-char 1)
 177       )
 178     (org-id-get-create)
 179     )
 180 )
 181
 182 ; org mode configuration from http://doc.norang.ca/org-mode.html
 183 ;; Custom Key Bindings
 184 (global-set-key (kbd "<f12>") 'org-agenda)
 185 (global-set-key (kbd "<f5>") 'bh/org-todo)
 186 (global-set-key (kbd "<S-f5>") 'bh/widen)
 187 (global-set-key (kbd "<f7>") 'bh/set-truncate-lines)
 188 (global-set-key (kbd "<f8>") 'org-cycle-agenda-files)
 189 (global-set-key (kbd "<f9> <f9>") 'bh/show-org-agenda)
 190 (global-set-key (kbd "<f9> b") 'bbdb)
 191 (global-set-key (kbd "<f9> c") 'calendar)
 192 (global-set-key (kbd "<f9> f") 'boxquote-insert-file)
 193 (global-set-key (kbd "<f9> h") 'bh/hide-other)
 194 (global-set-key (kbd "<f9> n") 'bh/toggle-next-task-display)
 195 (global-set-key (kbd "<f9> w") 'widen)
 196
 197 ; change the outline mode prefix from C-c @ to C-c C-2
 198 (setq outline-minor-mode-prefix "C-c C-2")
 199 ;(add-hook 'outline-minor-mode-hook
 200 ;          (lambda () (local-set-key (kbd "C-c C-2")
 201 ;                                    outline-mode-prefix-map)))
 202
 203 (global-set-key (kbd "<f9> I") 'bh/punch-in)
 204 (global-set-key (kbd "<f9> O") 'bh/punch-out)
 205
 206 (global-set-key (kbd "<f9> o") 'bh/make-org-scratch)
 207
 208 (global-set-key (kbd "<f9> r") 'boxquote-region)
 209 (global-set-key (kbd "<f9> s") 'bh/switch-to-scratch)
 210
 211 (global-set-key (kbd "<f9> t") 'bh/insert-inactive-timestamp)
 212 (global-set-key (kbd "<f9> T") 'bh/toggle-insert-inactive-timestamp)
 213
 214 (global-set-key (kbd "<f9> v") 'visible-mode)
 215 (global-set-key (kbd "<f9> l") 'org-toggle-link-display)
 216 (global-set-key (kbd "<f9> SPC") 'bh/clock-in-last-task)
 217 (global-set-key (kbd "C-<f9>") 'previous-buffer)
 218 (global-set-key (kbd "M-<f9>") 'org-toggle-inline-images)
 219 (global-set-key (kbd "C-x n r") 'narrow-to-region)
 220 (global-set-key (kbd "C-<f10>") 'next-buffer)
 221 (global-set-key (kbd "<f11>") 'org-clock-goto)
 222 (global-set-key (kbd "C-<f11>") 'org-clock-in)
 223 (global-set-key (kbd "C-s-<f12>") 'bh/save-then-publish)
 224 (global-set-key (kbd "C-c c") 'org-capture)
 225
 226 (defun bh/hide-other ()
 227   (interactive)
 228   (save-excursion
 229     (org-back-to-heading 'invisible-ok)
 230     (hide-other)
 231     (org-cycle)
 232     (org-cycle)
 233     (org-cycle)))
 234
 235 (defun bh/set-truncate-lines ()
 236   "Toggle value of truncate-lines and refresh window display."
 237   (interactive)
 238   (setq truncate-lines (not truncate-lines))
 239   ;; now refresh window display (an idiom from simple.el):
 240   (save-excursion
 241     (set-window-start (selected-window)
 242                       (window-start (selected-window)))))
 243
 244 (defun bh/make-org-scratch ()
 245   (interactive)
 246   (find-file "/tmp/publish/scratch.org")
 247   (gnus-make-directory "/tmp/publish"))
 248
 249 (defun bh/switch-to-scratch ()
 250   (interactive)
 251   (switch-to-buffer "*scratch*"))
 252
 253 (setq org-use-fast-todo-selection t)
 254 (setq org-treat-S-cursor-todo-selection-as-state-change nil)
 255
 256 (setq org-todo-keywords
 257       (quote ((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d)")
 258               (sequence "WAITING(w@/!)" "HOLD(h@/!)" "|" "CANCELLED(c@/!)" "PHONE" "MEETING"))))
 259
 260 (setq org-todo-keyword-faces
 261       (quote (("TODO" :foreground "red" :weight bold)
 262               ("NEXT" :foreground "blue" :weight bold)
 263               ("DONE" :foreground "forest green" :weight bold)
 264               ("WAITING" :foreground "orange" :weight bold)
 265               ("HOLD" :foreground "magenta" :weight bold)
 266               ("CANCELLED" :foreground "forest green" :weight bold)
 267               ("MEETING" :foreground "forest green" :weight bold)
 268               ("PHONE" :foreground "forest green" :weight bold))))
 269
 270 (setq org-todo-state-tags-triggers
 271       (quote (("CANCELLED" ("CANCELLED" . t))
 272               ("WAITING" ("WAITING" . t))
 273               ("HOLD" ("WAITING") ("HOLD" . t))
 274               (done ("WAITING") ("HOLD"))
 275               ("TODO" ("WAITING") ("CANCELLED") ("HOLD"))
 276               ("NEXT" ("WAITING") ("CANCELLED") ("HOLD"))
 277               ("DONE" ("WAITING") ("CANCELLED") ("HOLD")))))
 278
 279
 280
 281 ; (add-hook 'org-clock-out-hook 'bh/remove-empty-drawer-on-clock-out 'append)
 282 ; add ids on creation of nodes
 283 (add-hook 'org-capture-prepare-finalize-hook 'my/org-add-id)
 284 ; create function to create headlines in file. This comes from
 285 ; http://stackoverflow.com/questions/13340616/assign-ids-to-every-entry-in-org-mode
 286 (defun my/org-add-ids-to-headlines-in-file ()
 287   "Add ID properties to all headlines in the current file which
 288 do not already have one."
 289   (interactive)
 290   (org-map-entries 'org-id-get-create))
 291 ; if we wanted to do this to every buffer, do the following:
 292 ; (add-hook 'org-mode-hook
 293 ;           (lambda ()
 294 ;             (add-hook 'before-save-hook 'my/org-add-ids-to-headlines-in-file nil 'local)))
 295
 296
 297 ; resolve clocks after 10 minutes of idle; use xprintidle
 298 ; (setq org-clock-idle-time 10)
 299 ; (setq org-clock-x11idle-program-name "xprintidle")
 300
 301 ; this is from http://doc.norang.ca/org-mode.html#Capture
 302 ; use C-M-r for org mode capture
 303 (global-set-key (kbd "C-M-r") 'org-capture)
 304
 305 ; Targets include this file and any file contributing to the agenda - up to 9 levels deep
 306 (setq org-refile-targets (quote ((nil :maxlevel . 9)
 307                                  (org-agenda-files :maxlevel . 9))))
 308
 309 ; Use full outline paths for refile targets - we file directly with IDO
 310 (setq org-refile-use-outline-path t)
 311
 312 ; Targets complete directly with IDO
 313 (setq org-outline-path-complete-in-steps nil)
 314
 315 ; Allow refile to create parent tasks with confirmation
 316 (setq org-refile-allow-creating-parent-nodes (quote confirm))
 317
 318 ; ; Use IDO for both buffer and file completion and ido-everywhere to t
 319 ; (setq org-completion-use-ido t)
 320 ; (setq ido-everywhere t)
 321 ; (setq ido-max-directory-size 100000)
 322 ; (ido-mode (quote both))
 323 ; ; Use the current window when visiting files and buffers with ido
 324 ; (setq ido-default-file-method 'selected-window)
 325 ; (setq ido-default-buffer-method 'selected-window)
 326 ; ; Use the current window for indirect buffer display
 327 ; (setq org-indirect-buffer-display 'current-window)
 328
 329
 330 ;;;; Refile settings
 331 ; Exclude DONE state tasks from refile targets
 332 (defun bh/verify-refile-target ()
 333   "Exclude todo keywords with a done state from refile targets"
 334   (not (member (nth 2 (org-heading-components)) org-done-keywords)))
 335
 336 (setq org-refile-target-verify-function 'bh/verify-refile-target)
 337
 338 ;; ensure that emacsclient will show just the note to be edited when invoked
 339 ;; from Mutt, and that it will shut down emacsclient once finished;
 340 ;; fallback to legacy behavior when not invoked via org-protocol.
 341 (require 'org-protocol)
 342 ; (add-hook 'org-capture-mode-hook 'delete-other-windows)
 343 (setq my-org-protocol-flag nil)
 344 (defadvice org-capture-finalize (after delete-frame-at-end activate)
 345   "Delete frame at remember finalization"
 346   (progn (if my-org-protocol-flag (delete-frame))
 347          (setq my-org-protocol-flag nil)))
 348 (defadvice org-capture-refile (around delete-frame-after-refile activate)
 349   "Delete frame at remember refile"
 350   (if my-org-protocol-flag
 351       (progn
 352         (setq my-org-protocol-flag nil)
 353         ad-do-it
 354         (delete-frame))
 355     ad-do-it)
 356   )
 357 (defadvice org-capture-kill (after delete-frame-at-end activate)
 358   "Delete frame at remember abort"
 359   (progn (if my-org-protocol-flag (delete-frame))
 360          (setq my-org-protocol-flag nil)))
 361 (defadvice org-protocol-capture (before set-org-protocol-flag activate)
 362   (setq my-org-protocol-flag t))
 363
 364 (defadvice org-insert-todo-heading (after dla/create-id activate)
 365   (org-id-get-create)
 366   )
 367
 368 ;; org modules
 369 (add-to-list 'org-modules 'org-habit)
 370
 371 ; this comes from http://upsilon.cc/~zack/blog/posts/2010/02/integrating_Mutt_with_Org-mode/
 372 (defun open-mail-in-mutt (message)
 373   "Open a mail message in Mutt, using an external terminal.
 374
 375 Message can be specified either by a path pointing inside a
 376 Maildir, or by Message-ID."
 377   (interactive "MPath or Message-ID: ")
 378   (shell-command
 379    (format "faf xterm -e \"%s %s\""
 380        (substitute-in-file-name "$HOME/bin/mutt_open") message)))
 381
 382 ;; add support for "mutt:ID" links
 383 (org-add-link-type "mutt" 'open-mail-in-mutt)
 384
 385 (defun my-org-mode-setup ()
 386   (load-library "reftex")
 387   (and (buffer-file-name)
 388        (file-exists-p (buffer-file-name))
 389        (progn
 390          (reftex-parse-all)
 391          (reftex-set-cite-format
 392           '((?b . "[[bib:%l][%l-bib]]")
 393             (?n . "[[notes:%l][%l-notes]]")
 394             (?c . "\\cite{%l}")
 395             (?h . "*** %t\n:PROPERTIES:\n:Custom_ID: %l\n:END:\n[[papers:%l][%l xoj]] [[papers-pdf:%l][pdf]]")))
 396          ))
 397   (define-key org-mode-map (kbd "C-c )") 'reftex-citation)
 398   (define-key org-mode-map (kbd "C-c [") 'reftex-citation)
 399   (define-key org-mode-map (kbd "C-c (") 'org-mode-reftex-search)
 400   (define-key org-mode-map (kbd "C-c 0") 'reftex-view-crossref)
 401   )
 402 (add-hook 'org-mode-hook 'my-org-mode-setup)
 403
 404 (defun org-mode-reftex-search ()
 405   (interactive)
 406   (org-open-link-from-string (format "[[notes:%s]]" (first (reftex-citation t)))))
 407
 408 (defun open-research-paper (bibtexkey)
 409   "Open a paper by bibtex key"
 410   (interactive "bibtex key: ")
 411   (shell-command
 412    (format "%s %s"
 413        (substitute-in-file-name "$HOME/bin/bibtex_to_paper") bibtexkey)))
 414 (org-add-link-type "papers" 'open-research-paper)
 415 (defun open-research-paper-pdf (bibtexkey)
 416   "Open a paper pdf by bibtex key"
 417   (interactive "bibtex key: ")
 418   (shell-command
 419    (format "%s -p evince_annot %s"
 420        (substitute-in-file-name "$HOME/bin/bibtex_to_paper") bibtexkey)))
 421 (org-add-link-type "papers-pdf" 'open-research-paper-pdf)
 422
 423 (add-to-list 'org-link-abbrev-alist
 424              '("notes" .
 425                "~/projects/research/paper_notes.org::#%s"))
 426
 427 ; I pretty much always want hiearchical checkboxes
 428 (setq org-hierachical-checkbox-statistics nil)
 429
 430 ;; Add \begin{equation}\end{equation} templates to the org mode easy templates
 431 (add-to-list 'org-structure-template-alist
 432              '("E" "\\begin{equation}\n?\n\\end{equation}"))
 433
 434  ;; stolen from
 435 ;; http://www-public.it-sudparis.eu/~berger_o/weblog/2012/03/23/how-to-manage-and-export-bibliographic-notesrefs-in-org-mode/
 436 (defun my-rtcite-export-handler (path desc format)
 437   (message "my-rtcite-export-handler is called : path = %s, desc = %s, format = %s" path desc format)
 438   (let* ((search (when (string-match "::#?\\(.+\\)\\'" path)
 439                    (match-string 1 path)))
 440          (path (substring path 0 (match-beginning 0))))
 441     (cond ((eq format 'latex)
 442            (if (or (not desc)
 443                    (equal 0 (search "rtcite:" desc)))
 444                (format "\\cite{%s}" search)
 445              (format "\\cite[%s]{%s}" desc search))))))
 446
 447 (org-add-link-type "rtcite"
 448                    'org-bibtex-open
 449                    'my-rtcite-export-handler)
 450
 451
 452 (setq-default org-mobile-directory "/linnode.donarmstrong.com:/sites/dav.donarmstrong.com/root/org/")
 453 (when (string= system-name "linnode.donarmstrong.com")
 454   (setq-default org-mobile-directory "/sites/dav.donarmstrong.com/root/org/"))
 455 (setq-default org-directory "/home/don/org-mode/")
 456 (setq-default org-mobile-inbox-for-pull "/home/don/org-mode/from-mobile.org")
 457
 458 ;; org mode ical export
 459 (setq org-icalendar-timezone "America/Los_Angeles")
 460 (setq org-icalendar-use-scheduled '(todo-start event-if-todo))
 461 ;; we already add the id manually
 462 ;; (setq org-icalendar-store-UID t)
 463
 464 ;; org babel support
 465 (org-babel-do-load-languages
 466  'org-babel-load-languages
 467  '((emacs-lisp . t )
 468    (R . t)
 469    (latex . t)
 470    (ditaa . t)
 471    (dot . t)
 472    ))
 473 ;; use graphviz-dot for dot things
 474 (add-to-list 'org-src-lang-modes '("dot" . graphviz-dot))
 475 ;; org-babel-by-backend
 476 (defmacro org-babel-by-backend (&rest body)
 477    `(case (if (boundp 'backend)
 478               (org-export-backend-name backend)
 479             nil) ,@body))
 480
 481 (defun my/fix-inline-images ()
 482   (when org-inline-image-overlays
 483     (org-redisplay-inline-images)))
 484
 485 (add-hook 'org-babel-after-execute-hook
 486            'my/fix-inline-images)
 487
 488 ;; ;; org latex
 489 ;; ;; stolen from http://kieranhealy.org/esk/kjhealy.html
 490 ;; (require 'org-latex)
 491 ;; ;; Choose either listings or minted for exporting source code blocks.
 492 ;; ;; Using minted (as here) requires pygments be installed. To use the
 493 ;; ;; default listings package instead, use
 494 ;; ;; (setq org-latex-listings t)
 495 ;; ;; and change references to "minted" below to "listings"
 496 ;; ; (setq org-latex-listings 'minted)
 497 ;;
 498 ;; ;; default settings for minted code blocks
 499 ;; (setq org-latex-minted-options
 500 ;;       '(;("frame" "single")
 501 ;;         ("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.
 502 ;;         ("fontsize" "\\small")
 503 ;;         ))
 504 ;; ;; turn off the default toc behavior; deal with it properly in headers to files.
 505 ;; (defun org-latex-no-toc (depth)
 506 ;;   (when depth
 507 ;;     (format "%% Org-mode is exporting headings to %s levels.\n"
 508 ;;             depth)))
 509 ;; (setq org-latex-format-toc-function 'org-latex-no-toc)
 510
 511 (require 'ox-latex)
 512 (add-to-list 'org-latex-classes
 513              '("memarticle"
 514                "\\documentclass[11pt,oneside,article]{memoir}\n"
 515                ("\\section{%s}" . "\\section*{%s}")
 516                ("\\subsection{%s}" . "\\subsection*{%s}")
 517                ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
 518                ("\\paragraph{%s}" . "\\paragraph*{%s}")
 519                ("\\subparagraph{%s}" . "\\subparagraph*{%s}")))
 520
 521 (setq org-beamer-outline-frame-options "")
 522 (require 'ox-beamer)
 523 (add-to-list 'org-latex-classes
 524              '("beamer"
 525                "\\documentclass[ignorenonframetext]{beamer}
 526 [NO-DEFAULT-PACKAGES]
 527 [PACKAGES]
 528 [EXTRA]"
 529                ("\\section{%s}" . "\\section*{%s}")
 530                ("\\subsection{%s}" . "\\subsection*{%s}")
 531                ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
 532                ("\\paragraph{%s}" . "\\paragraph*{%s}")
 533                ("\\subparagraph{%s}" . "\\subparagraph*{%s}")))
 534
 535 (add-to-list 'org-latex-classes
 536              '("membook"
 537                "\\documentclass[11pt,oneside]{memoir}\n"
 538                ("\\chapter{%s}" . "\\chapter*{%s}")
 539                ("\\section{%s}" . "\\section*{%s}")
 540                ("\\subsection{%s}" . "\\subsection*{%s}")
 541                ("\\subsubsection{%s}" . "\\subsubsection*{%s}")))
 542
 543 (add-to-list 'org-latex-classes
 544              '("letter"
 545                "\\documentclass[11pt]{letter}
 546 [NO-DEFAULT-PACKAGES]
 547 [PACKAGES]
 548 [EXTRA]"
 549        ("\\section{%s}" . "\\section*{%s}")
 550                ("\\subsection{%s}" . "\\subsection*{%s}")
 551                ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
 552                ("\\paragraph{%s}" . "\\paragraph*{%s}")
 553                ("\\subparagraph{%s}" . "\\subparagraph*{%s}")))
 554
 555 (add-to-list 'org-latex-classes
 556              '("dlacv"
 557                "\\documentclass{dlacv}
 558 [NO-DEFAULT-PACKAGES]
 559 [NO-PACKAGES]
 560 [NO-EXTRA]"
 561                ("\\section{%s}" . "\\section*{%s}")
 562                ("\\subsection{%s}" . "\\subsection*{%s}")
 563                ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
 564                ("\\paragraph{%s}" . "\\paragraph*{%s}")
 565                ("\\subparagraph{%s}" . "\\subparagraph*{%s}")))
 566
 567
 568 ;; Originally taken from Bruno Tavernier: http://thread.gmane.org/gmane.emacs.orgmode/31150/focus=31432
 569 ;; but adapted to use latexmk 4.22 or higher.
 570 (setq org-latex-pdf-process '("latexmk -pdflatex=xelatex -bibtex -use-make -pdf %f"))
 571
 572 ;; Default packages included in /every/ tex file, latex, pdflatex or xelatex
 573 (setq org-latex-default-packages-alist
 574       '(("" "amsmath" t)))
 575 (setq org-latex-packages-alist
 576       '(("" "graphicx" t)
 577         ("" "fontspec" t)
 578         ("" "xunicode" t)
 579         ("" "hyperref" t)
 580         ("" "url" t)
 581         ("" "rotating" t)
 582         ("" "longtable" nil)
 583         ("" "float" )))
 584
 585 ;; make equations larger
 586 (setq org-format-latex-options (plist-put org-format-latex-options :scale 2.0))
 587
 588 (defun org-create-formula--latex-header ()
 589   "Return LaTeX header appropriate for previewing a LaTeX snippet."
 590   (let ((info (org-combine-plists (org-export--get-global-options
 591                                    (org-export-get-backend 'latex))
 592                                   (org-export--get-inbuffer-options
 593                                    (org-export-get-backend 'latex)))))
 594     (org-latex-guess-babel-language
 595      (org-latex-guess-inputenc
 596       (org-splice-latex-header
 597        org-format-latex-header
 598        org-latex-default-packages-alist
 599        nil t
 600        (plist-get info :latex-header)))
 601      info)))
 602
 603
 604 ; support ignoring headers in org mode export to latex
 605 ; from http://article.gmane.org/gmane.emacs.orgmode/67692
 606 (defadvice org-latex-headline (around my-latex-skip-headlines
 607                                       (headline contents info) activate)
 608   (if (member "ignoreheading" (org-element-property :tags headline))
 609       (setq ad-return-value contents)
 610     ad-do-it))
 611
 612 ;; keep latex logfiles
 613
 614 (setq org-latex-remove-logfiles nil)
 615
 616 ;; helper functions
 617 (defun bh/is-project-p ()
 618   "Any task with a todo keyword subtask"
 619   (save-restriction
 620     (widen)
 621     (let ((has-subtask)
 622           (subtree-end (save-excursion (org-end-of-subtree t)))
 623           (is-a-task (member (nth 2 (org-heading-components)) org-todo-keywords-1)))
 624       (save-excursion
 625         (forward-line 1)
 626         (while (and (not has-subtask)
 627                     (< (point) subtree-end)
 628                     (re-search-forward "^\*+ " subtree-end t))
 629           (when (member (org-get-todo-state) org-todo-keywords-1)
 630             (setq has-subtask t))))
 631       (and is-a-task has-subtask))))
 632
 633 (defun bh/is-project-subtree-p ()
 634   "Any task with a todo keyword that is in a project subtree.
 635 Callers of this function already widen the buffer view."
 636   (let ((task (save-excursion (org-back-to-heading 'invisible-ok)
 637                               (point))))
 638     (save-excursion
 639       (bh/find-project-task)
 640       (if (equal (point) task)
 641           nil
 642         t))))
 643
 644 (defun bh/is-task-p ()
 645   "Any task with a todo keyword and no subtask"
 646   (save-restriction
 647     (widen)
 648     (let ((has-subtask)
 649           (subtree-end (save-excursion (org-end-of-subtree t)))
 650           (is-a-task (member (nth 2 (org-heading-components)) org-todo-keywords-1)))
 651       (save-excursion
 652         (forward-line 1)
 653         (while (and (not has-subtask)
 654                     (< (point) subtree-end)
 655                     (re-search-forward "^\*+ " subtree-end t))
 656           (when (member (org-get-todo-state) org-todo-keywords-1)
 657             (setq has-subtask t))))
 658       (and is-a-task (not has-subtask)))))
 659
 660 (defun bh/is-subproject-p ()
 661   "Any task which is a subtask of another project"
 662   (let ((is-subproject)
 663         (is-a-task (member (nth 2 (org-heading-components)) org-todo-keywords-1)))
 664     (save-excursion
 665       (while (and (not is-subproject) (org-up-heading-safe))
 666         (when (member (nth 2 (org-heading-components)) org-todo-keywords-1)
 667           (setq is-subproject t))))
 668     (and is-a-task is-subproject)))
 669
 670 (defun bh/list-sublevels-for-projects-indented ()
 671   "Set org-tags-match-list-sublevels so when restricted to a subtree we list all subtasks.
 672   This is normally used by skipping functions where this variable is already local to the agenda."
 673   (if (marker-buffer org-agenda-restrict-begin)
 674       (setq org-tags-match-list-sublevels 'indented)
 675     (setq org-tags-match-list-sublevels nil))
 676   nil)
 677
 678 (defun bh/list-sublevels-for-projects ()
 679   "Set org-tags-match-list-sublevels so when restricted to a subtree we list all subtasks.
 680   This is normally used by skipping functions where this variable is already local to the agenda."
 681   (if (marker-buffer org-agenda-restrict-begin)
 682       (setq org-tags-match-list-sublevels t)
 683     (setq org-tags-match-list-sublevels nil))
 684   nil)
 685
 686 (defvar bh/hide-scheduled-and-waiting-next-tasks t)
 687
 688 (defun bh/toggle-next-task-display ()
 689   (interactive)
 690   (setq bh/hide-scheduled-and-waiting-next-tasks (not bh/hide-scheduled-and-waiting-next-tasks))
 691   (when  (equal major-mode 'org-agenda-mode)
 692     (org-agenda-redo))
 693   (message "%s WAITING and SCHEDULED NEXT Tasks" (if bh/hide-scheduled-and-waiting-next-tasks "Hide" "Show")))
 694
 695 (defun bh/skip-stuck-projects ()
 696   "Skip trees that are not stuck projects"
 697   (save-restriction
 698     (widen)
 699     (let ((next-headline (save-excursion (or (outline-next-heading) (point-max)))))
 700       (if (bh/is-project-p)
 701           (let* ((subtree-end (save-excursion (org-end-of-subtree t)))
 702                  (has-next ))
 703             (save-excursion
 704               (forward-line 1)
 705               (while (and (not has-next) (< (point) subtree-end) (re-search-forward "^\\*+ NEXT " subtree-end t))
 706                 (unless (member "WAITING" (org-get-tags-at))
 707                   (setq has-next t))))
 708             (if has-next
 709                 nil
 710               next-headline)) ; a stuck project, has subtasks but no next task
 711         nil))))
 712
 713 (defun bh/skip-non-stuck-projects ()
 714   "Skip trees that are not stuck projects"
 715   ;; (bh/list-sublevels-for-projects-indented)
 716   (save-restriction
 717     (widen)
 718     (let ((next-headline (save-excursion (or (outline-next-heading) (point-max)))))
 719       (if (bh/is-project-p)
 720           (let* ((subtree-end (save-excursion (org-end-of-subtree t)))
 721                  (has-next ))
 722             (save-excursion
 723               (forward-line 1)
 724               (while (and (not has-next) (< (point) subtree-end) (re-search-forward "^\\*+ NEXT " subtree-end t))
 725                 (unless (member "WAITING" (org-get-tags-at))
 726                   (setq has-next t))))
 727             (if has-next
 728                 next-headline
 729               nil)) ; a stuck project, has subtasks but no next task
 730         next-headline))))
 731
 732 (defun bh/skip-non-projects ()
 733   "Skip trees that are not projects"
 734   ;; (bh/list-sublevels-for-projects-indented)
 735   (if (save-excursion (bh/skip-non-stuck-projects))
 736       (save-restriction
 737         (widen)
 738         (let ((subtree-end (save-excursion (org-end-of-subtree t))))
 739           (cond
 740            ((bh/is-project-p)
 741             nil)
 742            ((and (bh/is-project-subtree-p) (not (bh/is-task-p)))
 743             nil)
 744            (t
 745             subtree-end))))
 746     (save-excursion (org-end-of-subtree t))))
 747
 748 (defun bh/skip-project-trees-and-habits ()
 749   "Skip trees that are projects"
 750   (save-restriction
 751     (widen)
 752     (let ((subtree-end (save-excursion (org-end-of-subtree t))))
 753       (cond
 754        ((bh/is-project-p)
 755         subtree-end)
 756        ((org-is-habit-p)
 757         subtree-end)
 758        (t
 759         nil)))))
 760
 761 (defun bh/skip-projects-and-habits-and-single-tasks ()
 762   "Skip trees that are projects, tasks that are habits, single non-project tasks"
 763   (save-restriction
 764     (widen)
 765     (let ((next-headline (save-excursion (or (outline-next-heading) (point-max)))))
 766       (cond
 767        ((org-is-habit-p)
 768         next-headline)
 769        ((and bh/hide-scheduled-and-waiting-next-tasks
 770              (member "WAITING" (org-get-tags-at)))
 771         next-headline)
 772        ((bh/is-project-p)
 773         next-headline)
 774        ((and (bh/is-task-p) (not (bh/is-project-subtree-p)))
 775         next-headline)
 776        (t
 777         nil)))))
 778
 779 (defun bh/skip-project-tasks-maybe ()
 780   "Show tasks related to the current restriction.
 781 When restricted to a project, skip project and sub project tasks, habits, NEXT tasks, and loose tasks.
 782 When not restricted, skip project and sub-project tasks, habits, and project related tasks."
 783   (save-restriction
 784     (widen)
 785     (let* ((subtree-end (save-excursion (org-end-of-subtree t)))
 786            (next-headline (save-excursion (or (outline-next-heading) (point-max))))
 787            (limit-to-project (marker-buffer org-agenda-restrict-begin)))
 788       (cond
 789        ((bh/is-project-p)
 790         next-headline)
 791        ((org-is-habit-p)
 792         subtree-end)
 793        ((and (not limit-to-project)
 794              (bh/is-project-subtree-p))
 795         subtree-end)
 796        ((and limit-to-project
 797              (bh/is-project-subtree-p)
 798              (member (org-get-todo-state) (list "NEXT")))
 799         subtree-end)
 800        (t
 801         nil)))))
 802
 803 (defun bh/skip-project-tasks ()
 804   "Show non-project tasks.
 805 Skip project and sub-project tasks, habits, and project related tasks."
 806   (save-restriction
 807     (widen)
 808     (let* ((subtree-end (save-excursion (org-end-of-subtree t))))
 809       (cond
 810        ((bh/is-project-p)
 811         subtree-end)
 812        ((org-is-habit-p)
 813         subtree-end)
 814        ((bh/is-project-subtree-p)
 815         subtree-end)
 816        (t
 817         nil)))))
 818
 819 (defun bh/skip-non-project-tasks ()
 820   "Show project tasks.
 821 Skip project and sub-project tasks, habits, and loose non-project tasks."
 822   (save-restriction
 823     (widen)
 824     (let* ((subtree-end (save-excursion (org-end-of-subtree t)))
 825            (next-headline (save-excursion (or (outline-next-heading) (point-max)))))
 826       (cond
 827        ((bh/is-project-p)
 828         next-headline)
 829        ((org-is-habit-p)
 830         subtree-end)
 831        ((and (bh/is-project-subtree-p)
 832              (member (org-get-todo-state) (list "NEXT")))
 833         subtree-end)
 834        ((not (bh/is-project-subtree-p))
 835         subtree-end)
 836        (t
 837         nil)))))
 838
 839 (defun bh/skip-projects-and-habits ()
 840   "Skip trees that are projects and tasks that are habits"
 841   (save-restriction
 842     (widen)
 843     (let ((subtree-end (save-excursion (org-end-of-subtree t))))
 844       (cond
 845        ((bh/is-project-p)
 846         subtree-end)
 847        ((org-is-habit-p)
 848         subtree-end)
 849        (t
 850         nil)))))
 851
 852 (defun bh/skip-non-subprojects ()
 853   "Skip trees that are not projects"
 854   (let ((next-headline (save-excursion (outline-next-heading))))
 855     (if (bh/is-subproject-p)
 856         nil
 857       next-headline)))
 858 ;
 859 ;; Resume clocking task when emacs is restarted
 860 (org-clock-persistence-insinuate)
 861 ;;
 862 ;; Show lot of clocking history so it's easy to pick items off the C-F11 list
 863 (setq org-clock-history-length 23)
 864 ;; Resume clocking task on clock-in if the clock is open
 865 (setq org-clock-in-resume t)
 866 ;; Change tasks to NEXT when clocking in
 867 (setq org-clock-in-switch-to-state 'bh/clock-in-to-next)
 868 ;; (setq org-clock-in-switch-to-state "NEXT")
 869 ;; Separate drawers for clocking and logs
 870 (setq org-drawers (quote ("PROPERTIES" "LOGBOOK")))
 871 ;; Save clock data and state changes and notes in the LOGBOOK drawer
 872 (setq org-clock-into-drawer t)
 873 (setq org-log-into-drawer t)
 874 ;; Sometimes I change tasks I'm clocking quickly - this removes clocked tasks with 0:00 duration
 875 (setq org-clock-out-remove-zero-time-clocks t)
 876 ;; Clock out when moving task to a done state
 877 (setq org-clock-out-when-done t)
 878 ;; Save the running clock and all clock history when exiting Emacs, load it on startup
 879 (setq org-clock-persist t)
 880 ;; Do not prompt to resume an active clock
 881 (setq org-clock-persist-query-resume nil)
 882 ;; Enable auto clock resolution for finding open clocks
 883 (setq org-clock-auto-clock-resolution (quote when-no-clock-is-running))
 884 ;; Include current clocking task in clock reports
 885 (setq org-clock-report-include-clocking-task t)
 886
 887 ;; the cache seems to be broken
 888 (setq org-element-use-cache nil)
 889
 890 (defvar bh/keep-clock-running nil)
 891
 892 (defun bh/clock-in-to-next (kw)
 893   "Switch a task from TODO to NEXT when clocking in.
 894 Skips capture tasks, projects, and subprojects.
 895 Switch projects and subprojects from NEXT back to TODO"
 896   (when (not (and (boundp 'org-capture-mode) org-capture-mode))
 897     (cond
 898      ((and (member (org-get-todo-state) (list "TODO"))
 899            (bh/is-task-p))
 900       "NEXT")
 901      ((and (member (org-get-todo-state) (list "NEXT"))
 902            (bh/is-project-p))
 903       "TODO"))))
 904
 905 (defun bh/find-project-task ()
 906   "Move point to the parent (project) task if any"
 907   (save-restriction
 908     (widen)
 909     (let ((parent-task (save-excursion (org-back-to-heading 'invisible-ok) (point))))
 910       (while (org-up-heading-safe)
 911         (when (member (nth 2 (org-heading-components)) org-todo-keywords-1)
 912           (setq parent-task (point))))
 913       (goto-char parent-task)
 914       parent-task)))
 915
 916 (defun bh/punch-in (arg)
 917   "Start continuous clocking and set the default task to the
 918 selected task.  If no task is selected set the Organization task
 919 as the default task."
 920   (interactive "p")
 921   (setq bh/keep-clock-running t)
 922   (if (equal major-mode 'org-agenda-mode)
 923       ;;
 924       ;; We're in the agenda
 925       ;;
 926       (let* ((marker (org-get-at-bol 'org-hd-marker))
 927              (tags (org-with-point-at marker (org-get-tags-at))))
 928         (if (and (eq arg 4) tags)
 929             (org-agenda-clock-in '(16))
 930           (bh/clock-in-organization-task-as-default)))
 931     ;;
 932     ;; We are not in the agenda
 933     ;;
 934     (save-restriction
 935       (widen)
 936       ; Find the tags on the current task
 937       (if (and (equal major-mode 'org-mode) (not (org-before-first-heading-p)) (eq arg 4))
 938           (org-clock-in '(16))
 939         (bh/clock-in-organization-task-as-default)))))
 940
 941 (defun bh/punch-out ()
 942   (interactive)
 943   (setq bh/keep-clock-running nil)
 944   (when (org-clock-is-active)
 945     (org-clock-out))
 946   (org-agenda-remove-restriction-lock))
 947
 948 (defun bh/clock-in-default-task ()
 949   (save-excursion
 950     (org-with-point-at org-clock-default-task
 951       (org-clock-in))))
 952
 953 (defun bh/clock-in-parent-task ()
 954   "Move point to the parent (project) task if any and clock in"
 955   (let ((parent-task))
 956     (save-excursion
 957       (save-restriction
 958         (widen)
 959         (while (and (not parent-task) (org-up-heading-safe))
 960           (when (member (nth 2 (org-heading-components)) org-todo-keywords-1)
 961             (setq parent-task (point))))
 962         (if parent-task
 963             (org-with-point-at parent-task
 964               (org-clock-in))
 965           (when bh/keep-clock-running
 966             (bh/clock-in-default-task)))))))
 967
 968 (defvar bh/organization-task-id "e22cb8bf-07c7-408b-8f60-ff3aadac95e4")
 969
 970 (defun bh/clock-in-organization-task-as-default ()
 971   (interactive)
 972   (org-with-point-at (org-id-find bh/organization-task-id 'marker)
 973     (org-clock-in '(16))))
 974
 975 (defun bh/clock-out-maybe ()
 976   (when (and bh/keep-clock-running
 977              (not org-clock-clocking-in)
 978              (marker-buffer org-clock-default-task)
 979              (not org-clock-resolving-clocks-due-to-idleness))
 980     (bh/clock-in-parent-task)))
 981
 982 ; (add-hook 'org-clock-out-hook 'bh/clock-out-maybe 'append)
 983
 984 (require 'org-id)
 985 (defun bh/clock-in-task-by-id (id)
 986   "Clock in a task by id"
 987   (org-with-point-at (org-id-find id 'marker)
 988     (org-clock-in nil)))
 989
 990 (defun bh/clock-in-last-task (arg)
 991   "Clock in the interrupted task if there is one
 992 Skip the default task and get the next one.
 993 A prefix arg forces clock in of the default task."
 994   (interactive "p")
 995   (let ((clock-in-to-task
 996          (cond
 997           ((eq arg 4) org-clock-default-task)
 998           ((and (org-clock-is-active)
 999                 (equal org-clock-default-task (cadr org-clock-history)))
1000            (caddr org-clock-history))
1001           ((org-clock-is-active) (cadr org-clock-history))
1002           ((equal org-clock-default-task (car org-clock-history)) (cadr org-clock-history))
1003           (t (car org-clock-history)))))
1004     (widen)
1005     (org-with-point-at clock-in-to-task
1006       (org-clock-in nil))))
1007
1008
1009 (defun org-export-to-ods ()
1010   (interactive)
1011   (let ((csv-file "data.csv"))
1012     (org-table-export csv-file "orgtbl-to-csv")
1013     (org-odt-convert csv-file "ods" 'open)))
1014
1015 ; allow for zero-width-space to be a break in regexp too
1016 ; (setcar org-emphasis-regexp-components " [:space:] \t('\"{")
1017 ; (setcar (nthcdr 1 org-emphasis-regexp-components) " [:space:]- \t.,:!?;'\")}\\")
1018 ; (org-set-emph-re 'org-emphasis-regexp-components org-emphasis-regexp-components)
1019
1020 ;; support inserting screen shots
1021 (defun my/org-insert-screenshot ()
1022   "Take a screenshot into a time stamped unique-named file in the
1023 same directory as the org-buffer and insert a link to this file."
1024   (interactive)
1025   (defvar my/org-insert-screenshot/filename)
1026   (setq my/org-insert-screenshot/filename
1027         (read-file-name
1028          "Screenshot to insert: "
1029          nil
1030          (concat (buffer-file-name) "_" (format-time-string "%Y%m%d_%H%M%S") ".png")
1031          )
1032         )
1033   (call-process "import" nil nil nil my/org-insert-screenshot/filename)
1034   (insert (concat "[[" my/org-insert-screenshot/filename "]]"))
1035   (org-display-inline-images))
1036
1037 (defun my/fix-inline-images ()
1038   (when org-inline-image-overlays
1039     (org-redisplay-inline-images)))
1040
1041 (add-hook 'org-babel-after-execute-hook 'my/fix-inline-images)
1042
1043 ; from http://orgmode.org/Changes.html
1044 (defun my/org-repair-property-drawers ()
1045   "Fix properties drawers in current buffer.
1046  Ignore non Org buffers."
1047   (interactive)
1048   (when (eq major-mode 'org-mode)
1049     (org-with-wide-buffer
1050      (goto-char (point-min))
1051      (let ((case-fold-search t)
1052            (inline-re (and (featurep 'org-inlinetask)
1053                            (concat (org-inlinetask-outline-regexp)
1054                                    "END[ \t]*$"))))
1055        (org-map-entries
1056         (lambda ()
1057           (unless (and inline-re (org-looking-at-p inline-re))
1058             (save-excursion
1059               (let ((end (save-excursion (outline-next-heading) (point))))
1060                 (forward-line)
1061                 (when (org-looking-at-p org-planning-line-re) (forward-line))
1062                 (when (and (< (point) end)
1063                            (not (org-looking-at-p org-property-drawer-re))
1064                            (save-excursion
1065                              (and (re-search-forward org-property-drawer-re end t)
1066                                   (eq (org-element-type
1067                                        (save-match-data (org-element-at-point)))
1068                                       'drawer))))
1069                   (insert (delete-and-extract-region
1070                            (match-beginning 0)
1071                            (min (1+ (match-end 0)) end)))
1072                   (unless (bolp) (insert "\n"))))))))))))
1073
1074 (provide 'org-mode-configuration)