emacs_el/configuration/don-configuration.org

   1 #+PROPERTY: header-args:emacs-lisp :tangle don-configuration.el
   2 * Load debugger
   3
   4 # if for some reason, things get pear-shaped, we want to be able to
   5 # enter the debugger by sending -USR2 to emacs
   6
   7 #+BEGIN_SRC emacs-lisp
   8 (setq debug-on-event 'siguser2)
   9 #+END_SRC
  10 * Add library paths
  11
  12 #+BEGIN_SRC emacs-lisp
  13   (add-to-list 'load-path '"~/lib/emacs_el/")
  14   (add-to-list 'load-path '"~/lib/emacs_el/tiny-tools/lisp/tiny")
  15   (add-to-list 'load-path '"~/lib/emacs_el/tiny-tools/lisp/other")
  16   (add-to-list 'load-path '"~/lib/emacs_el/magit-annex")
  17 #+END_SRC
  18
  19 * Package management
  20 ** package repositories and package manager
  21 #+BEGIN_SRC emacs-lisp
  22   (require 'package)
  23   (setq package-archives '(("gnu" . "https://elpa.gnu.org/packages/")
  24                            ("melpa" . "https://melpa.org/packages/")
  25                            ("org" . "http://orgmode.org/elpa/") ))
  26 #+END_SRC
  27 ** [[https://github.com/jwiegley/use-package/][use-package]]
  28 #+BEGIN_SRC emacs-lisp
  29   (package-initialize)
  30   (condition-case nil
  31       (require 'use-package)
  32     (progn (package-install 'use-package)
  33            (require 'use-package)))
  34 #+END_SRC
  35 ** Paradox
  36 #+BEGIN_SRC emacs-lisp
  37   (use-package paradox
  38     :ensure paradox
  39   )
  40 #+END_SRC
  41 * Disable custom-vars
  42 #+BEGIN_SRC emacs-lisp
  43   ;; Set the custom file to /dev/null and don't bother to load it
  44   (setq custom-file "/dev/null")
  45 #+END_SRC
  46 * Misc functions
  47 ** with-library
  48 #+BEGIN_SRC emacs-lisp
  49 ;; From http://www.emacswiki.org/emacs/LoadingLispFiles
  50 ;; execute conditional code when loading libraries
  51 (defmacro with-library (symbol &rest body)
  52   `(when (require ,symbol nil t)
  53      ,@body))
  54 (put 'with-library 'lisp-indent-function 1)
  55 #+END_SRC
  56
  57 * Variables
  58 ** Safe Local Variables
  59 #+BEGIN_SRC emacs-lisp
  60   (setq safe-local-variable-values
  61         (quote ((auto-save-default)
  62                 (make-backup-files)
  63                 (cperl-indent-level . 4)
  64                 (indent-level . 4)
  65                 (indent-tabs-mode . f)
  66                 )))
  67 #+END_SRC
  68 * Memory
  69 #+BEGIN_SRC emacs-lisp
  70   (setq global-mark-ring-max 128
  71         mark-ring-max 128
  72         kill-ring-max 128)
  73
  74   (defun don/minibuffer-setup-hook ()
  75     (setq gc-cons-threshold most-positive-fixnum))
  76
  77   (defun don/minibuffer-exit-hook ()
  78     (setq gc-cons-threshold 1048576))
  79
  80   (add-hook 'minibuffer-setup-hook #'don/minibuffer-setup-hook)
  81   (add-hook 'minibuffer-exit-hook #'don/minibuffer-exit-hook)
  82 #+END_SRC
  83 * Modules
  84 ** Flyspell 🐝
  85 #+BEGIN_SRC emacs-lisp
  86   (use-package flyspell
  87     :ensure t
  88     :diminish flyspell-mode 🐝
  89     :config
  90     (add-hook 'text-mode-hook 'turn-on-flyspell)
  91     (add-hook 'c-mode-common-hook 'flyspell-prog-mode)
  92     (add-hook 'cperl-mode-hook 'flyspell-prog-mode)
  93     (add-hook 'tcl-mode-hook 'flyspell-prog-mode)
  94     :init
  95     (setq ispell-program-name "ispell")
  96     )
  97
  98 #+END_SRC
  99 ** Winnermode
 100 #+BEGIN_SRC emacs-lisp
 101   (winner-mode 1)
 102 #+END_SRC
 103 ** Eyebrowse
 104
 105 #+BEGIN_SRC emacs-lisp
 106   ;; (use-package eyebrowse
 107   ;;   :ensure t
 108   ;;   :diminish eyebrowse-mode
 109   ;;   :init (setq eyebrowse-keymap-prefix (kbd "C-c C-\\"))
 110   ;;   :config (progn
 111   ;;             (setq eyebrowse-wrap-around t)
 112   ;;             (eyebrowse-mode t)
 113   ;;
 114   ;;             (defun my/eyebrowse-new-window-config ()
 115   ;;               (interactive)
 116   ;;               (let ((done nil))
 117   ;;                 (dotimes (i 10)
 118   ;;                   ;; start at 1 run till 0
 119   ;;                   (let ((j (mod (+ i 1) 10)))
 120   ;;                     (when (and (not done)
 121   ;;                                (not (eyebrowse--window-config-present-p j)))
 122   ;;                       (eyebrowse-switch-to-window-config j)
 123   ;;                       (call-interactively 'eyebrowse-rename-window-config2 j)
 124   ;;                       (setq done t)
 125   ;;                       ))
 126   ;;                   )))
 127   ;;
 128   ;;             ;; I don't use latex-preview-pane
 129   ;;             ;; (require 'latex-preview-pane)
 130   ;;             ;; (defun my/close-latex-preview-pane-before-eyebrowse-switch ()
 131   ;;             ;;   ;; latex-preview-pane uses window-parameters which are
 132   ;;             ;;   ;; not preserved by eyebrowse, so we close the preview
 133   ;;             ;;   ;; pane before switching, it will be regenerated when we
 134   ;;             ;;   ;; edit the TeX file.
 135   ;;             ;;   (when (lpp/window-containing-preview)
 136   ;;             ;;     (delete-window (lpp/window-containing-preview))))
 137   ;;
 138   ;;             ;; (add-to-list 'eyebrowse-pre-window-switch-hook
 139   ;;             ;;              #'my/close-latex-preview-pane-before-eyebrowse-switch)
 140   ;;
 141   ;;             ;; (my/set-menu-key "["  #'my/eyebrowse-new-window-config)
 142   ;;             ;; (my/set-menu-key ";"  #'eyebrowse-prev-window-config)
 143   ;;             ;; (my/set-menu-key "'"  #'eyebrowse-next-window-config)
 144   ;;             ;; (my/set-menu-key "]"  #'eyebrowse-close-window-config)
 145   ;;             ;; (my/set-menu-key "\\" #'eyebrowse-rename-window-config)
 146   ;;             )
 147   ;;   )
 148 #+END_SRC
 149
 150 ** Window handling
 151
 152 *** Splitting
 153 #+BEGIN_SRC emacs-lisp
 154   (defun my/vsplit-last-buffer ()
 155     "Split the window vertically and display the previous buffer."
 156     (interactive)
 157     (split-window-vertically)
 158     (other-window 1 nil)
 159     (switch-to-next-buffer))
 160
 161   (defun my/hsplit-last-buffer ()
 162     "Split the window horizontally and display the previous buffer."
 163     (interactive)
 164     (split-window-horizontally)
 165     (other-window 1 nil)
 166     (switch-to-next-buffer))
 167
 168   (bind-key "C-x 2" 'my/vsplit-last-buffer)
 169   (bind-key "C-x 3" 'my/hsplit-last-buffer)
 170
 171   (setq split-width-threshold  100)
 172   (setq split-height-threshold 60)
 173
 174   (defun my/split-window-prefer-vertically (window)
 175     "If there's only one window (excluding any possibly active
 176            minibuffer), then split the current window horizontally."
 177     (if (and (one-window-p t)
 178              (not (active-minibuffer-window))
 179              ( < (frame-width) (frame-height))
 180              )
 181         (let ((split-width-threshold nil))
 182           (split-window-sensibly window))
 183       (split-window-sensibly window)))
 184
 185   (setq split-window-preferred-function #'my/split-window-prefer-vertically)
 186   (setq window-combination-resize t)
 187 #+END_SRC
 188
 189 *** Compilation window
 190
 191 If there is no compilation window, open one at the bottom, spanning
 192 the complete width of the frame. Otherwise, reuse existing window. In
 193 the former case, if there was no error the window closes
 194 automatically.
 195
 196 #+BEGIN_SRC emacs-lisp
 197   (add-to-list 'display-buffer-alist
 198                `(,(rx bos "*compilation*" eos)
 199                  (display-buffer-reuse-window
 200                   display-buffer-in-side-window)
 201                  (reusable-frames . visible)
 202                  (side            . bottom)
 203                  (window-height   . 0.4)))
 204 #+END_SRC
 205
 206 #+BEGIN_SRC emacs-lisp
 207   (defun my/compilation-exit-autoclose (status code msg)
 208     ;; If M-x compile exists with a 0
 209     (when (and (eq status 'exit) (zerop code))
 210       ;; and delete the *compilation* window
 211       (let ((compilation-window (get-buffer-window (get-buffer "*compilation*"))))
 212         (when (and (not (window-at-side-p compilation-window 'top))
 213                    (window-at-side-p compilation-window 'left)
 214                    (window-at-side-p compilation-window 'right))
 215           (delete-window compilation-window))))
 216     ;; Always return the anticipated result of compilation-exit-message-function
 217     (cons msg code))
 218
 219   ;; Specify my function (maybe I should have done a lambda function)
 220   (setq compilation-exit-message-function #'my/compilation-exit-autoclose)
 221 #+END_SRC
 222
 223 If you change the variable ~compilation-scroll-output~ to a ~non-nil~
 224 value, the compilation buffer scrolls automatically to follow the
 225 output. If the value is ~first-error~, scrolling stops when the first
 226 error appears, leaving point at that error. For any other non-nil
 227 value, scrolling continues until there is no more output.
 228
 229 #+BEGIN_SRC emacs-lisp
 230   (setq compilation-scroll-output 'first-error)
 231 #+END_SRC
 232
 233 ** Mode line cleaning
 234 *** Diminish
 235 #+BEGIN_SRC emacs-lisp
 236   (use-package diminish
 237     :ensure t)
 238 #+END_SRC
 239
 240 *** Delight
 241 #+BEGIN_SRC emacs-lisp
 242   (use-package delight
 243     :ensure t)
 244 #+END_SRC
 245
 246 ** Jumping
 247 *** Avy
 248 #+BEGIN_SRC emacs-lisp
 249   (use-package avy
 250     :ensure t
 251     :bind (("C-c C-<SPC>" . avy-goto-word-or-subword-1)
 252            ("C-c j j" . avy-goto-word-or-subword-1)
 253            ("M-g g" . avy-goto-line))
 254     :config (progn (setq avy-background t))
 255     )
 256 #+END_SRC
 257 *** Ace-link (jumping to links)
 258 #+BEGIN_SRC emacs-lisp
 259   (use-package ace-link
 260     :ensure t
 261     ; bind o in most modes
 262     :config (ace-link-setup-default))
 263 #+END_SRC
 264 *** Jumping through edit points (goto-chg)
 265 #+BEGIN_SRC emacs-lisp
 266   (use-package goto-chg
 267     :ensure t
 268     :bind (("C-c j ," . goto-last-change)
 269            ("C-c j ." . goto-last-change-reverse))
 270     )
 271 #+END_SRC
 272 *** Jumping to bookmarks (visible bookmarks, bm)
 273 #+BEGIN_SRC emacs-lisp
 274   (use-package bm
 275     :ensure t
 276     :bind (("C-c j b ." . bm-next)
 277            ("C-c j b ," . bm-previous)
 278            ("C-c j b SPC" . bm-toggle)))
 279 #+END_SRC
 280
 281 ** Snippets
 282 *** Yasnippet
 283 #+BEGIN_SRC emacs-lisp
 284   (use-package yasnippet
 285     :ensure t
 286     :diminish yas-minor-mode
 287     :config (progn
 288               (yas-global-mode)
 289               (setq yas-verbosity 1)
 290               (define-key yas-minor-mode-map (kbd "<tab>") nil)
 291               (define-key yas-minor-mode-map (kbd "TAB") nil)
 292               (define-key yas-minor-mode-map (kbd "<backtab>") 'yas-expand)
 293               (setq yas-snippet-dirs '("~/lib/emacs_el/snippets/"
 294                                        "~/lib/emacs_el/yasnippet-snippets/snippets/"))
 295               (add-to-list 'hippie-expand-try-functions-list
 296                                'yas-hippie-try-expand)
 297               )
 298     )
 299 #+END_SRC
 300 *** Auto-YASnippet
 301 #+BEGIN_SRC emacs-lisp
 302   (use-package auto-yasnippet
 303     :bind (("H-w" . aya-create)
 304            ("H-y" . aya-expand)
 305            )
 306     )
 307 #+END_SRC
 308 ** Tinyprocmail
 309
 310 #+BEGIN_SRC emacs-lisp
 311   ;; load tinyprocmail
 312   (use-package tinyprocmail
 313     :ensure f
 314     :config (with-library 'tinyprocmail
 315               ;; (setq tinyprocmail--procmail-version "v3.22")
 316               (add-hook 'tinyprocmail--load-hook 'tinyprocmail-install))
 317   )
 318 #+END_SRC
 319
 320 ** Magit
 321 #+BEGIN_SRC emacs-lisp :tangle don-configuration.el
 322   (use-package magit
 323     :ensure t
 324     :bind (("C-x g" . magit-status)
 325            ("C-x C-g" . magit-status))
 326     :config
 327     ;; don't verify where we are pushing
 328     (setq magit-push-always-verify nil)
 329     ;; refine diffs always (hilight words)
 330     (setq magit-diff-refine-hunk nil)
 331     ;; load magit-annex
 332     (setq load-path
 333           (append '("~/lib/emacs_el/magit-annex")
 334                   load-path))
 335     ;; load magit-vcsh
 336     (setq load-path
 337           (append '("~/lib/emacs_el/magit-vcsh")
 338                   load-path))
 339     )
 340   (use-package magit-annex
 341     :ensure t
 342   )
 343   (use-package magit-vcsh
 344     :ensure f ; currently not in melpa, so don't try to install
 345   )
 346 #+END_SRC
 347
 348 ** Perl
 349 #+BEGIN_SRC emacs-lisp
 350   (use-package cperl-mode
 351     :config
 352     (progn
 353       ;; Use c-mode for perl .xs files
 354       (add-to-list 'auto-mode-alist '("\\.xs\\'" . c-mode))
 355       (add-to-list 'auto-mode-alist '("\\.\\([pP][Llm]\\|al\\)\\'" . cperl-mode))
 356       (add-to-list 'interpreter-mode-alist '("perl" . cperl-mode))
 357       (add-to-list 'interpreter-mode-alist '("perl5" . cperl-mode))
 358       (add-to-list 'interpreter-mode-alist '("miniperl" . cperl-mode))
 359       (setq cperl-hairy t
 360             cperl-indent-level 4
 361             cperl-auto-newline nil
 362             cperl-auto-newline-after-colon nil
 363             cperl-continued-statement-offset 4
 364             cperl-brace-offset -1
 365             cperl-continued-brace-offset 0
 366             cperl-label-offset -4
 367             cperl-highlight-variables-indiscriminately t
 368             cperl-electric-lbrace-space nil
 369             cperl-indent-parens-as-block nil
 370             cperl-close-paren-offset -1
 371             cperl-tab-always-indent t)
 372       ;;(add-hook 'cperl-mode-hook (lambda () (cperl-set-style "PerlStyle")))
 373   ))
 374 #+END_SRC
 375
 376 ** Helm
 377 #+BEGIN_SRC emacs-lisp
 378   (use-package helm
 379     :ensure t
 380     :config
 381     (helm-mode 1)
 382     (define-key global-map [remap find-file] 'helm-find-files)
 383     (define-key global-map [remap occur] 'helm-occur)
 384     (define-key global-map [remap list-buffers] 'helm-buffers-list)
 385     (define-key global-map [remap dabbrev-expand] 'helm-dabbrev)
 386     (global-set-key (kbd "M-x") 'helm-M-x)
 387     (unless (boundp 'completion-in-region-function)
 388       (define-key lisp-interaction-mode-map [remap completion-at-point] 'helm-lisp-completion-at-point)
 389       (define-key emacs-lisp-mode-map       [remap completion-at-point] 'helm-lisp-completion-at-point))
 390     (add-hook 'kill-emacs-hook #'(lambda () (and (file-exists-p "$TMP") (delete-file "$TMP"))))
 391   )
 392 #+END_SRC
 393 *** Helm Flx
 394
 395  [[https://github.com/PythonNut/helm-flx][helm-flx]] implements intelligent helm fuzzy sorting, provided by [[https://github.com/lewang/flx][flx]].
 396
 397  #+BEGIN_SRC emacs-lisp
 398  (use-package helm-flx
 399    :ensure t
 400    :config (progn
 401              ;; these are helm configs, but they kind of fit here nicely
 402              (setq helm-M-x-fuzzy-match                  t
 403                    helm-bookmark-show-location           t
 404                    helm-buffers-fuzzy-matching           t
 405                    helm-completion-in-region-fuzzy-match t
 406                    helm-file-cache-fuzzy-match           t
 407                    helm-imenu-fuzzy-match                t
 408                    helm-mode-fuzzy-match                 t
 409                    helm-locate-fuzzy-match               nil
 410                    helm-quick-update                     t
 411                    helm-recentf-fuzzy-match              nil
 412                    helm-semantic-fuzzy-match             t)
 413              (helm-flx-mode +1)))
 414  #+END_SRC
 415 *** Helm Swoop
 416 #+BEGIN_SRC emacs-lisp
 417
 418   ;;; stolen from https://github.com/malb/emacs.d/blob/master/malb.org
 419   (defun malb/helm-swoop-pre-fill ()
 420     (thing-at-point 'symbol))
 421   (setq malb/helm-swoop-ignore-major-mode '(dired-mode
 422         paradox-menu-mode doc-view-mode pdf-view-mode
 423         mu4e-headers-mode org-mode markdown-mode latex-mode
 424         ein:notebook-multilang-mode))
 425
 426   (defun malb/swoop-or-search ()
 427     (interactive)
 428     (if (or (> (buffer-size) 1048576) ;; helm-swoop can be slow on big buffers
 429             (memq major-mode malb/helm-swoop-ignore-major-mode))
 430         (isearch-forward)
 431       (helm-swoop)))
 432
 433   (use-package helm-swoop
 434     :ensure t
 435     :bind (("C-c o" . helm-multi-swoop-org)
 436            ("C-s" . malb/swoop-or-search)
 437            ("C-M-s" . helm-multi-swoop-all))
 438     :config (progn
 439
 440               (setq helm-swoop-pre-input-function  #'malb/helm-swoop-pre-fill
 441                     helm-swoop-split-with-multiple-windows nil
 442                     helm-swoop-split-direction #'split-window-horizontally
 443                     helm-swoop-split-window-function 'helm-default-display-buffer
 444                     helm-swoop-speed-or-color t)
 445
 446               ;; https://emacs.stackexchange.com/questions/28790/helm-swoop-how-to-make-it-behave-more-like-isearch
 447               (defun malb/helm-swoop-C-s ()
 448                 (interactive)
 449                 (if (boundp 'helm-swoop-pattern)
 450                     (if (equal helm-swoop-pattern "")
 451                         (previous-history-element 1)
 452                       (helm-next-line))
 453                   (helm-next-line)))
 454
 455               (bind-key "C-S-s" #'helm-swoop-from-isearch isearch-mode-map)
 456               (bind-key "C-S-s" #'helm-multi-swoop-all-from-helm-swoop helm-swoop-map)
 457               (bind-key "C-r"   #'helm-previous-line helm-swoop-map)
 458               (bind-key "C-s"   #'malb/helm-swoop-C-s helm-swoop-map)
 459               (bind-key "C-r"   #'helm-previous-line helm-multi-swoop-map)
 460               (bind-key "C-s"   #'malb/helm-swoop-C-s helm-multi-swoop-map))
 461     )
 462
 463 #+END_SRC
 464 *** Helm Ag
 465 #+BEGIN_SRC emacs-lisp
 466 (use-package helm-ag
 467   :ensure t
 468   :config (setq helm-ag-base-command "ag --nocolor --nogroup"
 469                 helm-ag-command-option "--all-text"
 470                 helm-ag-insert-at-point 'symbol
 471                 helm-ag-fuzzy-match t
 472                 helm-ag-use-temp-buffer t
 473                 helm-ag-use-grep-ignore-list t
 474                 helm-ag-use-agignore t))
 475 #+END_SRC
 476 *** Helm Descbinds
 477 #+BEGIN_SRC emacs-lisp
 478   (use-package helm-descbinds
 479     :ensure t
 480     :bind ("C-h b" . helm-descbinds)
 481     :init (fset 'describe-bindings 'helm-descbinds))
 482 #+END_SRC
 483
 484 *** Helm YaSnippet
 485 #+BEGIN_SRC emacs-lisp
 486   (use-package helm-c-yasnippet
 487     :ensure t
 488     :bind ("C-c h y" .  helm-yas-complete)
 489     :config (progn
 490               (setq helm-yas-space-match-any-greedy t)))
 491 #+END_SRC
 492 *** Helm Org Rifle
 493 #+BEGIN_SRC emacs-lisp
 494   (use-package helm-org-rifle
 495     :ensure t
 496     :config (progn
 497               (defun malb/helm-org-rifle-agenda-files (arg)
 498                 (interactive "p")
 499                 (let ((current-prefix-arg nil))
 500                   (cond
 501                    ((equal arg 4) (call-interactively #'helm-org-rifle-agenda-files nil))
 502                    ((equal arg 16) (helm-org-rifle-occur-agenda-files))
 503                    (t (helm-org-agenda-files-headings)))))))
 504 #+END_SRC
 505
 506 ** Hydra
 507 #+BEGIN_SRC emacs-lisp :tangle don-configuration.el
 508 (require 'don-hydra)
 509 #+END_SRC
 510
 511 ** Tramp
 512 #+BEGIN_SRC emacs-lisp
 513   (add-to-list 'tramp-methods '("vcsh"
 514                                 (tramp-login-program "vcsh")
 515                                 (tramp-login-args
 516                                  (("enter")
 517                                   ("%h")))
 518                                 (tramp-remote-shell "/bin/sh")
 519                                 (tramp-remote-shell-args
 520                                  ("-c"))))
 521 #+END_SRC
 522 ** Reftex
 523 #+BEGIN_SRC emacs-lisp
 524   (use-package reftex
 525     :ensure t
 526     :config
 527     (setq-default reftex-default-bibliography
 528                     '("~/projects/research/references.bib")))
 529 #+END_SRC
 530 ** BibTex
 531 #+BEGIN_SRC emacs-lisp
 532   (use-package bibtex
 533     :config (setq bibtex-user-optional-fields
 534                   (quote (("annote" "Personal annotation (ignored)")
 535                           ("abstract" "")
 536                   ("pmid" "")
 537                   ("doi" ""))))
 538     )
 539
 540 #+END_SRC
 541 ** LaTeX
 542 #+BEGIN_SRC emacs-lisp
 543   (use-package tex
 544     :defer t
 545     :ensure auctex
 546     :config
 547     ; (add-to-list 'TeX-style-path '"/home/don/lib/emacs_el/auctex/style")
 548     ;; REFTEX (much enhanced management of cross-ref, labels, etc)
 549     ;; http://www.strw.leidenuniv.nl/~dominik/Tools/reftex/
 550     ; (autoload 'reftex-mode     "reftex" "RefTeX Minor Mode" t)
 551     ; (autoload 'turn-on-reftex  "reftex" "RefTeX Minor Mode" nil)
 552     ; (autoload 'reftex-citation "reftex-cite" "Make citation" nil)
 553     ; (autoload 'reftex-index-phrase-mode "reftex-index" "Phrase mode" t)
 554     (add-hook 'LaTeX-mode-hook 'turn-on-reftex)   ; with AUCTeX LaTeX mode
 555     (add-hook 'latex-mode-hook 'turn-on-reftex)   ; with Emacs latex mode
 556     (add-hook 'LaTeX-mode-hook 'outline-minor-mode)   ; with AUCTeX LaTeX mode
 557     (add-hook 'latex-mode-hook 'outline-minor-mode)   ; with Emacs latex mode
 558
 559     (setq-default reftex-plug-into-AUCTeX t)
 560     ;; support fake section headers
 561     (setq TeX-outline-extra
 562           '(("%chapter" 1)
 563             ("%section" 2)
 564             ("%subsection" 3)
 565             ("%subsubsection" 4)
 566             ("%paragraph" 5)))
 567     ;; add font locking to the headers
 568     (font-lock-add-keywords
 569      'latex-mode
 570      '(("^%\\(chapter\\|\\(sub\\|subsub\\)?section\\|paragraph\\)"
 571         0 'font-lock-keyword-face t)
 572        ("^%chapter{\\(.*\\)}"       1 'font-latex-sectioning-1-face t)
 573        ("^%section{\\(.*\\)}"       1 'font-latex-sectioning-2-face t)
 574        ("^%subsection{\\(.*\\)}"    1 'font-latex-sectioning-3-face t)
 575        ("^%subsubsection{\\(.*\\)}" 1 'font-latex-sectioning-4-face t)
 576        ("^%paragraph{\\(.*\\)}"     1 'font-latex-sectioning-5-face t)))
 577
 578     ;; use smart quotes by default instead of `` and ''
 579     ;; taken from http://kieranhealy.org/esk/kjhealy.html
 580     (setq TeX-open-quote "“")
 581     (setq TeX-close-quote "”")
 582
 583     ;; (TeX-add-style-hook
 584     ;;  "latex"
 585     ;;  (lambda ()
 586     ;;    (TeX-add-symbols
 587     ;;     '("DLA" 1))))
 588     ;; (custom-set-variables
 589     ;;  '(font-latex-user-keyword-classes
 590     ;;    '(("fixme"
 591     ;;       ("DLA" "RZ")
 592     ;;       font-lock-function-name-face 2 (command 1 t))))
 593     ;; )
 594     (setq-default TeX-parse-self t)
 595     (setq-default TeX-auto-save t)
 596     (setq-default TeX-master nil)
 597     (eval-after-load
 598         "latex"
 599       '(TeX-add-style-hook
 600         "cleveref"
 601         (lambda ()
 602           (if (boundp 'reftex-ref-style-alist)
 603               (add-to-list
 604                'reftex-ref-style-alist
 605                '("Cleveref" "cleveref"
 606                  (("\\cref" ?c) ("\\Cref" ?C) ("\\cpageref" ?d) ("\\Cpageref" ?D)))))
 607           (reftex-ref-style-activate "Cleveref")
 608           (TeX-add-symbols
 609            '("cref" TeX-arg-ref)
 610            '("Cref" TeX-arg-ref)
 611            '("cpageref" TeX-arg-ref)
 612            '("Cpageref" TeX-arg-ref)))))
 613     (eval-after-load
 614         "latex"
 615       '(add-to-list 'LaTeX-fill-excluded-macros
 616                     '("Sexpr")))
 617
 618     (use-package font-latex
 619       :config
 620       (setq font-latex-match-reference-keywords
 621             '(
 622               ("fref" "{")
 623               ("Fref" "{")
 624               ("citep" "{")
 625               ("citet" "{")
 626               ("acs" "{")
 627               ("acsp" "{")
 628               ("ac" "{")
 629               ("acp" "{")
 630               ("acl" "{")
 631               ("aclp" "{")
 632               ("acsu" "{")
 633               ("aclu" "{")
 634               ("acused" "{")
 635               ("DLA" "{")
 636               ("RZ" "{")
 637               ("OM" "{")
 638               ("DL" "{")
 639               ("fixme" "{"))
 640             )
 641       )
 642     (setq font-latex-fontify-script nil)
 643     (setq font-latex-fontify-sectioning (quote color))
 644     (setq font-latex-script-display (quote (nil)))
 645   )
 646
 647 #+END_SRC
 648 ** ESS
 649 #+BEGIN_SRC emacs-lisp
 650   (use-package ess
 651     :ensure t
 652     :config
 653     (defun ess-change-directory (path)
 654       "Set the current working directory to PATH for both *R* and Emacs."
 655       (interactive "DDirectory to change to: ")
 656
 657       (when (file-exists-p path)
 658         (ess-command (concat "setwd(\"" path "\")\n"))
 659         ;; use file-name-as-directory to ensure it has trailing /
 660         (setq default-directory (file-name-as-directory path))))
 661     (add-hook 'ess-mode-hook 'flyspell-prog-mode)
 662     ;; outlining support for ess modes
 663     (add-hook
 664      'ess-mode-hook
 665      '(lambda ()
 666         (outline-minor-mode)
 667         (setq outline-regexp "\\(^#\\{4,5\\} \\)\\|\\(^[a-zA-Z0-9_\.]+ ?<- ?function\\)")
 668         (defun outline-level ()
 669           (cond ((looking-at "^##### ") 1)
 670                 ((looking-at "^#### ") 2)
 671                 ((looking-at "^[a-zA-Z0-9_\.]+ ?<- ?function(.*{") 3)
 672                 (t 1000)))
 673         ))
 674     (add-hook 'ess-mode-hook
 675               '(lambda ()
 676                  (local-set-key (kbd "C-c C-R")
 677                                 'dla/ess-region-remote-eval)))
 678
 679     ;; Don't restore history or save workspace image
 680     '(inferior-R-args "--no-restore-history --no-save")
 681     )
 682 #+END_SRC
 683
 684 ** Rainbowmode
 685 From http://julien.danjou.info/projects/emacs-packages#rainbow-mode, this colorizes color strings
 686
 687 #+BEGIN_SRC emacs-lisp
 688   (use-package rainbow-mode
 689     ;; add ess to the x major mode
 690     :config (add-to-list 'rainbow-x-colors-major-mode-list 'ESS[S])
 691     (add-to-list 'rainbow-x-colors-major-mode-list 'ESS[R])
 692   )
 693 #+END_SRC
 694
 695 ** Polymode
 696 #+BEGIN_SRC emacs-lisp
 697   (use-package polymode
 698     :config
 699     (use-package poly-R)
 700     (use-package poly-noweb)
 701     (use-package poly-markdown)
 702     :mode ("\\.Snw" . poly-noweb+r-mode)
 703     :mode ("\\.Rnw" . poly-noweb+r-mode)
 704     :mode ("\\.Rmd" . poly-markdown+r-mode)
 705     )
 706 #+END_SRC
 707
 708 ** Outlining
 709 *** Outline magic
 710 #+BEGIN_SRC emacs-lisp
 711   (use-package outline-magic)
 712 #+END_SRC
 713 ** Writeroom Mode
 714 #+BEGIN_SRC emacs-lisp
 715   (use-package writeroom-mode
 716     :config
 717     (defun my/writing-mode ()
 718       "Start my writing mode; enable visual-line-mode and auto-fill-mode"
 719       (interactive)
 720       (if writeroom-mode
 721           (progn
 722             (writeroom-mode -1)
 723             (visual-line-mode -1)
 724             (auto-fill-mode -1)
 725             (visual-fill-column-mode -1)
 726             )
 727         (visual-line-mode 1)
 728         (auto-fill-mode 1)
 729         (visual-fill-column-mode 1)
 730         (writeroom-mode 1))
 731       )
 732     )
 733 #+END_SRC
 734 ** GhostText/Atomic Chrome
 735 #+BEGIN_SRC emacs-lisp
 736   (use-package atomic-chrome
 737     :config
 738     (ignore-errors (atomic-chrome-start-server))
 739     (setq atomic-chrome-buffer-open-style 'full)
 740     )
 741 #+END_SRC
 742 ** Multiple Cursors
 743    :PROPERTIES:
 744    :ID:       6fcf218b-a762-4c37-9339-a8202ddeb544
 745    :END:
 746 [[https://github.com/magnars/multiple-cursors.el][Multiple Cursors]]
 747 #+BEGIN_SRC emacs-lisp
 748   (use-package multiple-cursors
 749     :bind (("C-;" . mc/mark-all-dwim)
 750            ("C-<" . mc/mark-previous-like-this)
 751            ("C->" . mc/mark-next-like-this)
 752            ("C-S-c C-S-c" . mc/edit-lines))
 753     )
 754 #+END_SRC
 755 ** Web Mode
 756 #+BEGIN_SRC emacs-lisp
 757   (use-package web-mode
 758     :config
 759     (add-to-list 'auto-mode-alist '("\\.tmpl\\'" . web-mode))
 760     (setq web-mode-enable-engine-detection t)
 761     (setq web-mode-engines-alist
 762           '(("template-toolkit" . "\\.tmpl\\'")))
 763     )
 764 #+END_SRC
 765 * Email
 766 ** Message Mode
 767 #+BEGIN_SRC emacs-lisp
 768   (use-package post
 769     :config
 770     (setq post-email-address "don@donarmstrong.com")
 771     (setq post-kill-quoted-sig nil)
 772     (setq post-mail-message "mutt\\(ng\\|\\)-[a-z0-9]+-[0-9]+-.*")
 773     (setq post-uses-fill-mode nil)
 774     )
 775 #+END_SRC
 776 ** Mutt
 777 *** Message-mode
 778 #+BEGIN_SRC emacs-lisp
 779   (use-package message-mode
 780
 781     :mode "muttng-[a-z0-9]+-[0-9]+-"
 782     :mode "mutt-[a-z0-9]+-[0-9]+-"
 783     :hook 'my/message-mode-settings
 784     :hook 'turn-on-flyspell
 785     :bind (:map message-mode-map
 786                 ("C-c C-a" . my/post-attach-file))
 787     :config
 788     (defun my/message-mode-settings ()
 789       (font-lock-add-keywords nil
 790                               '(("^[ \t]*>[ \t]*>[ \t]*>.*$"
 791                                  (0 'message-multiply-quoted-text-face))
 792                                 ("^[ \t]*>[ \t]*>.*$"
 793                                  (0 'message-double-quoted-text-face))))
 794       )
 795
 796     (defun my/post-attach-file ()
 797       "Prompt for an attachment."
 798       (interactive)
 799       (let ((file (read-file-name "Attach file: " nil nil t nil))
 800             (description (string-read "Description: ")))
 801         (my/header-attach-file file description)))
 802
 803     (defun my/header-attach-file (file description)
 804       "Attach a FILE to the current message (works with Mutt).
 805     Argument DESCRIPTION MIME description."
 806       (interactive "fAttach file: \nsDescription: ")
 807       (when (> (length file) 0)
 808         (save-excursion
 809           (save-match-data
 810             (save-restriction
 811               (widen)
 812               (goto-char (point-min))
 813               (search-forward-regexp "^$")
 814               (insert (concat "Attach: " (replace-regexp-in-string "\\([[:space:]\\]\\)" "\\\\\\1" (file-truename file)) " "
 815                               description "\n"))
 816               (message (concat "Attached '" file "'."))
 817               (setq post-has-attachment t))))))
 818
 819     (setq mail-yank-prefix "> ")
 820   )
 821 #+END_SRC
 822 *** Muttrc mode
 823 #+BEGIN_SRC emacs-lisp
 824   (use-package muttrc-mode
 825     :mode "muttngrc"
 826     :mode "muttrc"
 827   )
 828
 829 #+END_SRC
 830 * Org Mode
 831 ** Use-package and load things
 832 #+BEGIN_SRC emacs-lisp
 833
 834   (use-package org
 835     :config
 836
 837 #+END_SRC
 838 ** Agenda Configuration
 839 #+BEGIN_SRC emacs-lisp
 840   :mode "\\.\\(org\\|org_archive\\|txt\\)$"
 841   :bind (("C-c l"  . org-store-link)
 842          ("C-c a"  . org-agenda)
 843          ("C-c b"  . org-iswitchb)
 844   :config
 845   (setq-default org-log-done 'time)
 846   (setq-default org-agenda-ndays 5)
 847
 848   ;; agenda configuration
 849   ;; Do not dim blocked tasks
 850   (setq org-agenda-dim-blocked-tasks nil)
 851   (setq org-agenda-inhibit-startup t)
 852   (setq org-agenda-use-tag-inheritance nil)
 853
 854   ;; Compact the block agenda view
 855   (setq org-agenda-compact-blocks t)
 856
 857   ;; Custom agenda command definitions
 858   (setq org-agenda-custom-commands
 859         (quote (("N" "Notes" tags "NOTE"
 860                  ((org-agenda-overriding-header "Notes")
 861                   (org-tags-match-list-sublevels t)))
 862                 ("h" "Habits" tags-todo "STYLE=\"habit\""
 863                  ((org-agenda-overriding-header "Habits")
 864                   (org-agenda-sorting-strategy
 865                    '(todo-state-down effort-up category-keep))))
 866                 (" " "Agenda"
 867                  ((agenda "" nil)
 868                   (tags "REFILE"
 869                         ((org-agenda-overriding-header "Tasks to Refile")
 870                          (org-tags-match-list-sublevels nil)))
 871                   (tags-todo "-CANCELLED/!"
 872                              ((org-agenda-overriding-header "Stuck Projects")
 873                               (org-agenda-skip-function 'bh/skip-non-stuck-projects)
 874                               (org-agenda-sorting-strategy
 875                                '(category-keep))))
 876                   (tags-todo "-HOLD-CANCELLED/!"
 877                              ((org-agenda-overriding-header "Projects")
 878                               (org-agenda-skip-function 'bh/skip-non-projects)
 879                               (org-tags-match-list-sublevels 'indented)
 880                               (org-agenda-sorting-strategy
 881                                '(category-keep))))
 882                   (tags-todo "-CANCELLED/!NEXT"
 883                              ((org-agenda-overriding-header (concat "Project Next Tasks"
 884                                                                     (if bh/hide-scheduled-and-waiting-next-tasks
 885                                                                         ""
 886                                                                       " (including WAITING and SCHEDULED tasks)")))
 887                               (org-agenda-skip-function 'bh/skip-projects-and-habits-and-single-tasks)
 888                               (org-tags-match-list-sublevels t)
 889                               (org-agenda-todo-ignore-scheduled bh/hide-scheduled-and-waiting-next-tasks)
 890                               (org-agenda-todo-ignore-deadlines bh/hide-scheduled-and-waiting-next-tasks)
 891                               (org-agenda-todo-ignore-with-date bh/hide-scheduled-and-waiting-next-tasks)
 892                               (org-agenda-sorting-strategy
 893                                '(todo-state-down effort-up category-keep))))
 894                   (tags-todo "-REFILE-CANCELLED-WAITING-HOLD/!"
 895                              ((org-agenda-overriding-header (concat "Project Subtasks"
 896                                                                     (if bh/hide-scheduled-and-waiting-next-tasks
 897                                                                         ""
 898                                                                       " (including WAITING and SCHEDULED tasks)")))
 899                               (org-agenda-skip-function 'bh/skip-non-project-tasks)
 900                               (org-agenda-todo-ignore-scheduled bh/hide-scheduled-and-waiting-next-tasks)
 901                               (org-agenda-todo-ignore-deadlines bh/hide-scheduled-and-waiting-next-tasks)
 902                               (org-agenda-todo-ignore-with-date bh/hide-scheduled-and-waiting-next-tasks)
 903                               (org-agenda-sorting-strategy
 904                                '(category-keep))))
 905                   (tags-todo "-REFILE-CANCELLED-WAITING-HOLD/!"
 906                              ((org-agenda-overriding-header (concat "Standalone Tasks"
 907                                                                     (if bh/hide-scheduled-and-waiting-next-tasks
 908                                                                         ""
 909                                                                       " (including WAITING and SCHEDULED tasks)")))
 910                               (org-agenda-skip-function 'bh/skip-project-tasks)
 911                               (org-agenda-todo-ignore-scheduled bh/hide-scheduled-and-waiting-next-tasks)
 912                               (org-agenda-todo-ignore-deadlines bh/hide-scheduled-and-waiting-next-tasks)
 913                               (org-agenda-todo-ignore-with-date bh/hide-scheduled-and-waiting-next-tasks)
 914                               (org-agenda-sorting-strategy
 915                                '(category-keep))))
 916                   (tags-todo "-CANCELLED+WAITING|HOLD/!"
 917                              ((org-agenda-overriding-header "Waiting and Postponed Tasks")
 918                               (org-agenda-skip-function 'bh/skip-stuck-projects)
 919                               (org-tags-match-list-sublevels nil)
 920                               (org-agenda-todo-ignore-scheduled t)
 921                               (org-agenda-todo-ignore-deadlines t)))
 922                   (tags "-REFILE/"
 923                         ((org-agenda-overriding-header "Tasks to Archive")
 924                          (org-agenda-skip-function 'bh/skip-non-archivable-tasks)
 925                          (org-tags-match-list-sublevels nil))))
 926                  nil))))
 927
 928   ; org mode agenda files
 929   (setq org-agenda-files
 930         (quote ("~/projects/org-notes/debbugs.org"
 931             "~/projects/org-notes/notes.org"
 932             "~/projects/org-notes/holidays.org"
 933             "~/projects/org-notes/refile.org"
 934             "~/projects/org-notes/diary.org"
 935             "~/projects/org-notes/ool.org"
 936             "~/projects/org-notes/sndservers.org"
 937             "~/projects/org-notes/chaim.org"
 938             "~/projects/org-notes/wildman.org"
 939             "~/projects/org-notes/uddin.org"
 940             "~/projects/org-notes/reviews.org"
 941             "~/org-mode/from-mobile.org"
 942             "~/projects/org-notes/fh.org")))
 943
 944   (set-register ?n (cons 'file "~/projects/org-notes/notes.org"))
 945   (set-register ?r (cons 'file "~/projects/org-notes/refile.org"))
 946   (set-register ?o (cons 'file "~/projects/org-notes/ool.org"))
 947   (set-register ?s (cons 'file "~/projects/org-notes/sndservers.org"))
 948   (set-register ?c (cons 'file "~/projects/org-notes/chaim.org"))
 949   (set-register ?w (cons 'file "~/projects/org-notes/wildman.org"))
 950   (set-register ?u (cons 'file "~/projects/org-notes/uddin.org"))
 951   (set-register ?R (cons 'file "~/projects/reviews/reviews.org"))
 952   (set-register ?d (cons 'file "~/projects/org-notes/diary.org"))
 953   ; from https://emacs.stackexchange.com/questions/909/how-can-i-have-an-agenda-timeline-view-of-multiple-files
 954   (defun org-agenda-timeline-all (&optional arg)
 955     (interactive "P")
 956     (with-temp-buffer
 957       (dolist (org-agenda-file org-agenda-files)
 958         (insert-file-contents org-agenda-file nil)
 959         (end-of-buffer)
 960         (newline))
 961       (write-file "/tmp/timeline.org")
 962       (org-agenda arg "L")))
 963   (define-key org-mode-map (kbd "C-c t") 'org-agenda-timeline-all)
 964   ;; add automatic reminders for appointments
 965   (defadvice  org-agenda-redo (after org-agenda-redo-add-appts)
 966     "Pressing `r' on the agenda will also add appointments."
 967     (progn
 968       (setq appt-time-msg-list nil)
 969       (org-agenda-to-appt)))
 970
 971 #+END_SRC
 972 ** General config
 973 #+BEGIN_SRC emacs-lisp
 974   (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")))
 975   (setq org-columns-default-format "%40ITEM(Task) %6Effort{:} %CLOCKSUM %PRIORITY %TODO %13SCHEDULED %13DEADLINE %TAGS")
 976
 977   (setq org-default-notes-file "~/projects/org-notes/notes.org")
 978   (setq org-id-link-to-org-use-id 'use-existing)
 979 #+END_SRC
 980 ** Capture Templates
 981 #+BEGIN_SRC emacs-lisp
 982   (setq org-capture-templates  ;; mail-specific note template, identified by "m"
 983         '(("m" "Mail" entry (file "~/projects/org-notes/refile.org")
 984            "* %?\n\n  Source: %u, [[%:link][%:description]]\n  %:initial")
 985           ("t" "todo" entry (file "~/projects/org-notes/refile.org")
 986            "* TODO %?\n  :PROPERTIES:\n  :END:\n  :LOGBOOK:\n  :END:\n%U\n%a\n" :clock-in t :clock-resume t)
 987           ("r" "respond" entry (file "~/projects/org-notes/refile.org")
 988            "* NEXT Respond to %:from on %:subject\nSCHEDULED: %t\n%U\n%a\n" :clock-in t :clock-resume t :immediate-finish t)
 989           ("n" "note" entry (file "~/projects/org-notes/refile.org")
 990            "* %? :NOTE:\n%U\n%a\n" :clock-in t :clock-resume t)
 991           ("s" "schedule" entry (file "~/projects/org-notes/refile.org")
 992            "* %? :cal:\n%^{scheduled:}t\n%U\n%a\n" :clock-in t :clock-resume t)
 993           ("j" "Journal" entry (file+datetree "~/projects/org-notes/diary.org")
 994            "* %?\n%U\n" :clock-in t :clock-resume t)
 995           ("w" "org-protocol" entry (file "~/projects/org-notes/refile.org")
 996            "* TODO Review %c\n%U\n" :immediate-finish t)
 997           ("M" "Meeting" entry (file "~/projects/org-notes/refile.org")
 998            "* MEETING with %? :MEETING:\n%U" :clock-in t :clock-resume t)
 999           ("S" "Seminar" entry (file "~/projects/org-notes/refile.org")
1000            "* SEMINAR notes %? :SEMINAR:\n%U" :clock-in t :clock-resume t)
1001           ("P" "Paper to read" entry (file+headline "~/projects/research/papers_to_read.org" "Refile")
1002            "* TODO Get/Read %? \n%U" :clock-in t :clock-resume t)
1003           ("p" "Phone call" entry (file "~/projects/org-notes/refile.org")
1004            "* PHONE %? :PHONE:\n%U" :clock-in t :clock-resume t)
1005           ("J" "job" entry (file "~/projects/org-notes/refile.org")
1006            "* 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)
1007           ("h" "Habit" entry (file "~/projects/org-notes/refile.org")
1008            "* 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")
1009           )
1010         )
1011
1012   ;; Remove empty LOGBOOK drawers on clock out
1013   (defun bh/remove-empty-drawer-on-clock-out ()
1014     (interactive)
1015     (save-excursion
1016       (beginning-of-line 0)
1017       (org-remove-empty-drawer-at (point))))
1018
1019   (defun my/org-add-id ()
1020     (interactive)
1021     (save-excursion
1022       (if (org-current-level)
1023           ()
1024         (forward-char 1)
1025         )
1026       (org-id-get-create)
1027       )
1028   )
1029
1030 #+END_SRC
1031 ** Org mode key bindings
1032 #+BEGIN_SRC emacs-lisp
1033   ; org mode configuration from http://doc.norang.ca/org-mode.html
1034   ;; Custom Key Bindings
1035   (global-set-key (kbd "<f12>") 'org-agenda)
1036   (global-set-key (kbd "<f5>") 'bh/org-todo)
1037   (global-set-key (kbd "<S-f5>") 'bh/widen)
1038   (global-set-key (kbd "<f7>") 'bh/set-truncate-lines)
1039   (global-set-key (kbd "<f8>") 'org-cycle-agenda-files)
1040   (global-set-key (kbd "<f9> <f9>") 'bh/show-org-agenda)
1041   (global-set-key (kbd "<f9> b") 'bbdb)
1042   (global-set-key (kbd "<f9> c") 'calendar)
1043   (global-set-key (kbd "<f9> f") 'boxquote-insert-file)
1044   (global-set-key (kbd "<f9> h") 'bh/hide-other)
1045   (global-set-key (kbd "<f9> n") 'bh/toggle-next-task-display)
1046   (global-set-key (kbd "<f9> w") 'widen)
1047
1048   ; change the outline mode prefix from C-c @ to C-c C-2
1049   (setq outline-minor-mode-prefix "C-c C-2")
1050   ;(add-hook 'outline-minor-mode-hook
1051   ;          (lambda () (local-set-key (kbd "C-c C-2")
1052   ;                                    outline-mode-prefix-map)))
1053
1054   (global-set-key (kbd "<f9> I") 'bh/punch-in)
1055   (global-set-key (kbd "<f9> O") 'bh/punch-out)
1056
1057   (global-set-key (kbd "<f9> o") 'bh/make-org-scratch)
1058
1059   (global-set-key (kbd "<f9> r") 'boxquote-region)
1060   (global-set-key (kbd "<f9> s") 'bh/switch-to-scratch)
1061
1062   (global-set-key (kbd "<f9> t") 'bh/insert-inactive-timestamp)
1063   (global-set-key (kbd "<f9> T") 'bh/toggle-insert-inactive-timestamp)
1064
1065   (global-set-key (kbd "<f9> v") 'visible-mode)
1066   (global-set-key (kbd "<f9> l") 'org-toggle-link-display)
1067   (global-set-key (kbd "<f9> SPC") 'bh/clock-in-last-task)
1068   (global-set-key (kbd "C-<f9>") 'previous-buffer)
1069   (global-set-key (kbd "M-<f9>") 'org-toggle-inline-images)
1070   (global-set-key (kbd "C-x n r") 'narrow-to-region)
1071   (global-set-key (kbd "C-<f10>") 'next-buffer)
1072   (global-set-key (kbd "<f11>") 'org-clock-goto)
1073   (global-set-key (kbd "C-<f11>") 'org-clock-in)
1074   (global-set-key (kbd "C-s-<f12>") 'bh/save-then-publish)
1075   (global-set-key (kbd "C-c c") 'org-capture)
1076
1077 #+END_SRC
1078 ** Utility Functions
1079 #+BEGIN_SRC emacs-lisp
1080   (defun bh/hide-other ()
1081     (interactive)
1082     (save-excursion
1083       (org-back-to-heading 'invisible-ok)
1084       (hide-other)
1085       (org-cycle)
1086       (org-cycle)
1087       (org-cycle)))
1088
1089   (defun bh/set-truncate-lines ()
1090     "Toggle value of truncate-lines and refresh window display."
1091     (interactive)
1092     (setq truncate-lines (not truncate-lines))
1093     ;; now refresh window display (an idiom from simple.el):
1094     (save-excursion
1095       (set-window-start (selected-window)
1096                         (window-start (selected-window)))))
1097
1098   (defun bh/make-org-scratch ()
1099     (interactive)
1100     (find-file "/tmp/publish/scratch.org")
1101     (gnus-make-directory "/tmp/publish"))
1102
1103   (defun bh/switch-to-scratch ()
1104     (interactive)
1105     (switch-to-buffer "*scratch*"))
1106
1107   (setq org-use-fast-todo-selection t)
1108   (setq org-treat-S-cursor-todo-selection-as-state-change nil)
1109
1110   ; create function to create headlines in file. This comes from
1111   ; http://stackoverflow.com/questions/13340616/assign-ids-to-every-entry-in-org-mode
1112   (defun my/org-add-ids-to-headlines-in-file ()
1113     "Add ID properties to all headlines in the current file which
1114   do not already have one."
1115     (interactive)
1116     (org-map-entries 'org-id-get-create))
1117   ; if we wanted to do this to every buffer, do the following:
1118   ; (add-hook 'org-mode-hook
1119   ;           (lambda ()
1120   ;             (add-hook 'before-save-hook 'my/org-add-ids-to-headlines-in-file nil 'local)))
1121 #+END_SRC
1122 ** Keywords (TODO)
1123 #+BEGIN_SRC emacs-lisp
1124   (setq org-todo-keywords
1125         (quote ((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d)")
1126                 (sequence "WAITING(w@/!)" "HOLD(h@/!)" "|" "CANCELLED(c@/!)" "PHONE" "MEETING"))))
1127
1128   (setq org-todo-keyword-faces
1129         (quote (("TODO" :foreground "red" :weight bold)
1130                 ("NEXT" :foreground "blue" :weight bold)
1131                 ("DONE" :foreground "forest green" :weight bold)
1132                 ("WAITING" :foreground "orange" :weight bold)
1133                 ("HOLD" :foreground "magenta" :weight bold)
1134                 ("CANCELLED" :foreground "forest green" :weight bold)
1135                 ("MEETING" :foreground "forest green" :weight bold)
1136                 ("PHONE" :foreground "forest green" :weight bold))))
1137
1138   (setq org-todo-state-tags-triggers
1139         (quote (("CANCELLED" ("CANCELLED" . t))
1140                 ("WAITING" ("WAITING" . t))
1141                 ("HOLD" ("WAITING") ("HOLD" . t))
1142                 (done ("WAITING") ("HOLD"))
1143                 ("TODO" ("WAITING") ("CANCELLED") ("HOLD"))
1144                 ("NEXT" ("WAITING") ("CANCELLED") ("HOLD"))
1145                 ("DONE" ("WAITING") ("CANCELLED") ("HOLD")))))
1146
1147
1148
1149   ; (add-hook 'org-clock-out-hook 'bh/remove-empty-drawer-on-clock-out 'append)
1150   ; add ids on creation of nodes
1151   (add-hook 'org-capture-prepare-finalize-hook 'my/org-add-id)
1152
1153
1154   ; resolve clocks after 10 minutes of idle; use xprintidle
1155   ; (setq org-clock-idle-time 10)
1156   ; (setq org-clock-x11idle-program-name "xprintidle")
1157
1158   ; this is from http://doc.norang.ca/org-mode.html#Capture
1159   ; use C-M-r for org mode capture
1160   (global-set-key (kbd "C-M-r") 'org-capture)
1161
1162   ; Targets include this file and any file contributing to the agenda - up to 9 levels deep
1163   (setq org-refile-targets (quote ((nil :maxlevel . 9)
1164                                    (org-agenda-files :maxlevel . 9))))
1165
1166   ; Use full outline paths for refile targets - we file directly with IDO
1167   (setq org-refile-use-outline-path t)
1168
1169   ; Targets complete directly with IDO
1170   (setq org-outline-path-complete-in-steps nil)
1171
1172   ; Allow refile to create parent tasks with confirmation
1173   (setq org-refile-allow-creating-parent-nodes (quote confirm))
1174
1175   ; ; Use IDO for both buffer and file completion and ido-everywhere to t
1176   ; (setq org-completion-use-ido t)
1177   ; (setq ido-everywhere t)
1178   ; (setq ido-max-directory-size 100000)
1179   ; (ido-mode (quote both))
1180   ; ; Use the current window when visiting files and buffers with ido
1181   ; (setq ido-default-file-method 'selected-window)
1182   ; (setq ido-default-buffer-method 'selected-window)
1183   ; ; Use the current window for indirect buffer display
1184   ; (setq org-indirect-buffer-display 'current-window)
1185
1186
1187   ;;;; Refile settings
1188   ; Exclude DONE state tasks from refile targets
1189   (defun bh/verify-refile-target ()
1190     "Exclude todo keywords with a done state from refile targets"
1191     (not (member (nth 2 (org-heading-components)) org-done-keywords)))
1192
1193   (setq org-refile-target-verify-function 'bh/verify-refile-target)
1194
1195   ;; ensure that emacsclient will show just the note to be edited when invoked
1196   ;; from Mutt, and that it will shut down emacsclient once finished;
1197   ;; fallback to legacy behavior when not invoked via org-protocol.
1198   (require 'org-protocol)
1199   ; (add-hook 'org-capture-mode-hook 'delete-other-windows)
1200   (setq my-org-protocol-flag nil)
1201   (defadvice org-capture-finalize (after delete-frame-at-end activate)
1202     "Delete frame at remember finalization"
1203     (progn (if my-org-protocol-flag (delete-frame))
1204            (setq my-org-protocol-flag nil)))
1205   (defadvice org-capture-refile (around delete-frame-after-refile activate)
1206     "Delete frame at remember refile"
1207     (if my-org-protocol-flag
1208         (progn
1209           (setq my-org-protocol-flag nil)
1210           ad-do-it
1211           (delete-frame))
1212       ad-do-it)
1213     )
1214   (defadvice org-capture-kill (after delete-frame-at-end activate)
1215     "Delete frame at remember abort"
1216     (progn (if my-org-protocol-flag (delete-frame))
1217            (setq my-org-protocol-flag nil)))
1218   (defadvice org-protocol-capture (before set-org-protocol-flag activate)
1219     (setq my-org-protocol-flag t))
1220
1221   (defadvice org-insert-todo-heading (after dla/create-id activate)
1222     (org-id-get-create)
1223     )
1224
1225   ;; org modules
1226   (add-to-list 'org-modules 'org-habit)
1227
1228   ; this comes from http://upsilon.cc/~zack/blog/posts/2010/02/integrating_Mutt_with_Org-mode/
1229   (defun open-mail-in-mutt (message)
1230     "Open a mail message in Mutt, using an external terminal.
1231
1232   Message can be specified either by a path pointing inside a
1233   Maildir, or by Message-ID."
1234     (interactive "MPath or Message-ID: ")
1235     (shell-command
1236      (format "faf xterm -e \"%s %s\""
1237          (substitute-in-file-name "$HOME/bin/mutt_open") message)))
1238
1239   ;; add support for "mutt:ID" links
1240   (org-add-link-type "mutt" 'open-mail-in-mutt)
1241
1242   (defun my-org-mode-setup ()
1243     ; (load-library "reftex")
1244     (and (buffer-file-name)
1245          (file-exists-p (buffer-file-name))
1246          (progn
1247            ; (reftex-parse-all)
1248            (reftex-set-cite-format
1249             '((?b . "[[bib:%l][%l-bib]]")
1250               (?n . "[[notes:%l][%l-notes]]")
1251               (?c . "\\cite{%l}")
1252               (?h . "*** %t\n:PROPERTIES:\n:Custom_ID: %l\n:END:\n[[papers:%l][%l xoj]] [[papers-pdf:%l][pdf]]")))
1253            ))
1254     (define-key org-mode-map (kbd "C-c )") 'reftex-citation)
1255     (define-key org-mode-map (kbd "C-c [") 'reftex-citation)
1256     (define-key org-mode-map (kbd "C-c (") 'org-mode-reftex-search)
1257     (define-key org-mode-map (kbd "C-c 0") 'reftex-view-crossref)
1258     )
1259   (add-hook 'org-mode-hook 'my-org-mode-setup)
1260
1261   (defun org-mode-reftex-search ()
1262     (interactive)
1263     (org-open-link-from-string (format "[[notes:%s]]" (first (reftex-citation t)))))
1264
1265   (defun open-research-paper (bibtexkey)
1266     "Open a paper by bibtex key"
1267     (interactive "bibtex key: ")
1268     (shell-command
1269      (format "%s %s"
1270          (substitute-in-file-name "$HOME/bin/bibtex_to_paper") bibtexkey)))
1271   (org-add-link-type "papers" 'open-research-paper)
1272   (defun open-research-paper-pdf (bibtexkey)
1273     "Open a paper pdf by bibtex key"
1274     (interactive "bibtex key: ")
1275     (shell-command
1276      (format "%s -p evince_annot %s"
1277          (substitute-in-file-name "$HOME/bin/bibtex_to_paper") bibtexkey)))
1278   (org-add-link-type "papers-pdf" 'open-research-paper-pdf)
1279
1280   (add-to-list 'org-link-abbrev-alist
1281                '("notes" .
1282                  "~/projects/research/paper_notes.org::#%s"))
1283
1284   ; I pretty much always want hiearchical checkboxes
1285   (setq org-hierachical-checkbox-statistics nil)
1286
1287   ;; Add \begin{equation}\end{equation} templates to the org mode easy templates
1288   (add-to-list 'org-structure-template-alist
1289                '("E" "\\begin{equation}\n?\n\\end{equation}"))
1290
1291    ;; stolen from
1292   ;; http://www-public.it-sudparis.eu/~berger_o/weblog/2012/03/23/how-to-manage-and-export-bibliographic-notesrefs-in-org-mode/
1293   (defun my-rtcite-export-handler (path desc format)
1294     (message "my-rtcite-export-handler is called : path = %s, desc = %s, format = %s" path desc format)
1295     (let* ((search (when (string-match "::#?\\(.+\\)\\'" path)
1296                      (match-string 1 path)))
1297            (path (substring path 0 (match-beginning 0))))
1298       (cond ((eq format 'latex)
1299              (if (or (not desc)
1300                      (equal 0 (search "rtcite:" desc)))
1301                  (format "\\cite{%s}" search)
1302                (format "\\cite[%s]{%s}" desc search))))))
1303
1304   (org-add-link-type "rtcite"
1305                      'org-bibtex-open
1306                      'my-rtcite-export-handler)
1307
1308
1309 #+END_SRC
1310 ** Org Mobile Configuration
1311 #+BEGIN_SRC emacs-lisp
1312   (setq-default org-mobile-directory "/linnode.donarmstrong.com:/sites/dav.donarmstrong.com/root/org/")
1313   (when (string= system-name "linnode")
1314     (setq-default org-mobile-directory "/sites/dav.donarmstrong.com/root/org/"))
1315   (setq-default org-directory "/home/don/org-mode/")
1316   (setq-default org-mobile-inbox-for-pull "/home/don/org-mode/from-mobile.org")
1317
1318 #+END_SRC
1319 ** Org iCal Support
1320 #+BEGIN_SRC emacs-lisp
1321   ;; org mode ical export
1322   (setq org-icalendar-timezone "America/Los_Angeles")
1323   (setq org-icalendar-use-scheduled '(todo-start event-if-todo))
1324   ;; we already add the id manually
1325   (setq org-icalendar-store-UID t)
1326
1327 #+END_SRC
1328 ** General Org Babel Configuration
1329 #+BEGIN_SRC emacs-lisp
1330   ;; org babel support
1331   (org-babel-do-load-languages
1332    'org-babel-load-languages
1333    '((emacs-lisp . t )
1334      (R . t)
1335      (latex . t)
1336      (ditaa . t)
1337      (dot . t)
1338      ))
1339   ;; use graphviz-dot for dot things
1340   (add-to-list 'org-src-lang-modes '("dot" . graphviz-dot))
1341   ;; org-babel-by-backend
1342   (defmacro org-babel-by-backend (&rest body)
1343      `(case (if (boundp 'backend)
1344                 (org-export-backend-name backend)
1345               nil) ,@body))
1346
1347   (defun my/fix-inline-images ()
1348     (when org-inline-image-overlays
1349       (org-redisplay-inline-images)))
1350
1351   (add-hook 'org-babel-after-execute-hook
1352              'my/fix-inline-images)
1353
1354 #+END_SRC
1355 ** LaTeX configuration
1356    :PROPERTIES:
1357    :ID:       7135ba17-6a50-4eed-84ca-b90afa5b12f8
1358    :END:
1359 #+BEGIN_SRC emacs-lisp
1360   (require 'ox-latex)
1361   (add-to-list 'org-latex-classes
1362            '("memarticle"
1363          "\\documentclass[11pt,oneside,article]{memoir}\n"
1364          ("\\section{%s}" . "\\section*{%s}")
1365          ("\\subsection{%s}" . "\\subsection*{%s}")
1366          ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
1367          ("\\paragraph{%s}" . "\\paragraph*{%s}")
1368          ("\\subparagraph{%s}" . "\\subparagraph*{%s}")))
1369
1370   (setq org-beamer-outline-frame-options "")
1371   (add-to-list 'org-latex-classes
1372            '("beamer"
1373          "\\documentclass[ignorenonframetext]{beamer}
1374   [NO-DEFAULT-PACKAGES]
1375   [PACKAGES]
1376   [EXTRA]"
1377          ("\\section{%s}" . "\\section*{%s}")
1378          ("\\subsection{%s}" . "\\subsection*{%s}")
1379          ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
1380          ("\\paragraph{%s}" . "\\paragraph*{%s}")
1381          ("\\subparagraph{%s}" . "\\subparagraph*{%s}")))
1382
1383   (add-to-list 'org-latex-classes
1384            '("membook"
1385          "\\documentclass[11pt,oneside]{memoir}\n"
1386          ("\\chapter{%s}" . "\\chapter*{%s}")
1387          ("\\section{%s}" . "\\section*{%s}")
1388          ("\\subsection{%s}" . "\\subsection*{%s}")
1389          ("\\subsubsection{%s}" . "\\subsubsection*{%s}")))
1390
1391   (add-to-list 'org-latex-classes
1392            '("letter"
1393          "\\documentclass[11pt]{letter}
1394   [NO-DEFAULT-PACKAGES]
1395   [PACKAGES]
1396   [EXTRA]"
1397      ("\\section{%s}" . "\\section*{%s}")
1398          ("\\subsection{%s}" . "\\subsection*{%s}")
1399          ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
1400          ("\\paragraph{%s}" . "\\paragraph*{%s}")
1401          ("\\subparagraph{%s}" . "\\subparagraph*{%s}")))
1402
1403   (add-to-list 'org-latex-classes
1404            '("dlacv"
1405          "\\documentclass{dlacv}
1406   [NO-DEFAULT-PACKAGES]
1407   [NO-PACKAGES]
1408   [NO-EXTRA]"
1409          ("\\section{%s}" . "\\section*{%s}")
1410          ("\\subsection{%s}" . "\\subsection*{%s}")
1411          ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
1412          ("\\paragraph{%s}" . "\\paragraph*{%s}")
1413          ("\\subparagraph{%s}" . "\\subparagraph*{%s}")))
1414
1415
1416   (add-to-list 'org-latex-classes
1417            '("dlaresume"
1418          "\\documentclass{dlaresume}
1419   [NO-DEFAULT-PACKAGES]
1420   [NO-PACKAGES]
1421   [NO-EXTRA]"
1422          ("\\section{%s}" . "\\section*{%s}")
1423          ("\\subsection{%s}" . "\\subsection*{%s}")
1424          ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
1425          ("\\paragraph{%s}" . "\\paragraph*{%s}")
1426          ("\\subparagraph{%s}" . "\\subparagraph*{%s}")))
1427
1428
1429   ;; Originally taken from Bruno Tavernier: http://thread.gmane.org/gmane.emacs.orgmode/31150/focus=31432
1430   ;; but adapted to use latexmk 4.22 or higher.
1431   (setq org-latex-pdf-process '("latexmk -f -pdflatex=xelatex -bibtex -use-make -pdf %f"))
1432
1433   ;; Default packages included in /every/ tex file, latex, pdflatex or xelatex
1434   (setq org-latex-default-packages-alist
1435     '(("" "amsmath" t)
1436       ("" "unicode-math" t)
1437       ))
1438   (setq org-latex-packages-alist
1439     '(("" "graphicx" t)
1440       ("" "fontspec" t)
1441       ("" "xunicode" t)
1442       ("" "hyperref" t)
1443       ("" "url" t)
1444       ("" "rotating" t)
1445       ("" "longtable" nil)
1446       ("" "float" )))
1447
1448   ;; make equations larger
1449   (setq org-format-latex-options (plist-put org-format-latex-options :scale 2.0))
1450
1451   (defun org-create-formula--latex-header ()
1452     "Return LaTeX header appropriate for previewing a LaTeX snippet."
1453     (let ((info (org-combine-plists (org-export--get-global-options
1454              (org-export-get-backend 'latex))
1455             (org-export--get-inbuffer-options
1456              (org-export-get-backend 'latex)))))
1457       (org-latex-guess-babel-language
1458        (org-latex-guess-inputenc
1459     (org-splice-latex-header
1460      org-format-latex-header
1461      org-latex-default-packages-alist
1462      nil t
1463      (plist-get info :latex-header)))
1464        info)))
1465
1466
1467   ; support ignoring headers in org mode export to latex
1468   ; from http://article.gmane.org/gmane.emacs.orgmode/67692
1469   (defadvice org-latex-headline (around my-latex-skip-headlines
1470                     (headline contents info) activate)
1471     (if (member "ignoreheading" (org-element-property :tags headline))
1472     (setq ad-return-value contents)
1473       ad-do-it))
1474
1475   ;; keep latex logfiles
1476
1477   (setq org-latex-remove-logfiles nil)
1478
1479   ;; Resume clocking task when emacs is restarted
1480   (org-clock-persistence-insinuate)
1481   ;;
1482   ;; Show lot of clocking history so it's easy to pick items off the C-F11 list
1483   (setq org-clock-history-length 23)
1484   ;; Resume clocking task on clock-in if the clock is open
1485   (setq org-clock-in-resume t)
1486   ;; Change tasks to NEXT when clocking in; this avoids clocking in when
1487   ;; there are things like PHONE calls
1488   (setq org-clock-in-switch-to-state 'bh/clock-in-to-next)
1489   ;; Separate drawers for clocking and logs
1490   (setq org-drawers (quote ("PROPERTIES" "LOGBOOK")))
1491   ;; Save clock data and state changes and notes in the LOGBOOK drawer
1492   (setq org-clock-into-drawer t)
1493   (setq org-log-into-drawer t)
1494   ;; Sometimes I change tasks I'm clocking quickly - this removes clocked tasks with 0:00 duration
1495   (setq org-clock-out-remove-zero-time-clocks t)
1496   ;; Clock out when moving task to a done state
1497   (setq org-clock-out-when-done t)
1498   ;; Save the running clock and all clock history when exiting Emacs, load it on startup
1499   (setq org-clock-persist t)
1500   ;; Do not prompt to resume an active clock
1501   (setq org-clock-persist-query-resume nil)
1502   ;; Enable auto clock resolution for finding open clocks
1503   (setq org-clock-auto-clock-resolution (quote when-no-clock-is-running))
1504   ;; Include current clocking task in clock reports
1505   (setq org-clock-report-include-clocking-task t)
1506
1507   ;; the cache seems to be broken
1508   (setq org-element-use-cache nil)
1509
1510   (defvar bh/keep-clock-running nil)
1511
1512   (defun bh/is-task-p ()
1513     "Any task with a todo keyword and no subtask"
1514     (save-restriction
1515       (widen)
1516       (let ((has-subtask)
1517             (subtree-end (save-excursion (org-end-of-subtree t)))
1518             (is-a-task (member (nth 2 (org-heading-components)) org-todo-keywords-1)))
1519         (save-excursion
1520           (forward-line 1)
1521           (while (and (not has-subtask)
1522                       (< (point) subtree-end)
1523                       (re-search-forward "^\*+ " subtree-end t))
1524             (when (member (org-get-todo-state) org-todo-keywords-1)
1525               (setq has-subtask t))))
1526         (and is-a-task (not has-subtask)))))
1527   (defun bh/is-project-p ()
1528     "Any task with a todo keyword subtask"
1529     (save-restriction
1530       (widen)
1531       (let ((has-subtask)
1532             (subtree-end (save-excursion (org-end-of-subtree t)))
1533             (is-a-task (member (nth 2 (org-heading-components)) org-todo-keywords-1)))
1534         (save-excursion
1535           (forward-line 1)
1536           (while (and (not has-subtask)
1537                       (< (point) subtree-end)
1538                       (re-search-forward "^\*+ " subtree-end t))
1539             (when (member (org-get-todo-state) org-todo-keywords-1)
1540               (setq has-subtask t))))
1541         (and is-a-task has-subtask))))
1542
1543   (defun bh/is-subproject-p ()
1544     "Any task which is a subtask of another project"
1545     (let ((is-subproject)
1546           (is-a-task (member (nth 2 (org-heading-components)) org-todo-keywords-1)))
1547       (save-excursion
1548         (while (and (not is-subproject) (org-up-heading-safe))
1549           (when (member (nth 2 (org-heading-components)) org-todo-keywords-1)
1550             (setq is-subproject t))))
1551       (and is-a-task is-subproject)))
1552
1553
1554   (defun bh/clock-in-to-next (kw)
1555     "Switch a task from TODO to NEXT when clocking in.
1556   Skips capture tasks, projects, and subprojects.
1557   Switch projects and subprojects from NEXT back to TODO"
1558     (when (not (and (boundp 'org-capture-mode) org-capture-mode))
1559       (cond
1560        ((and (member (org-get-todo-state) (list "TODO"))
1561          (bh/is-task-p))
1562     "NEXT")
1563        ((and (member (org-get-todo-state) (list "NEXT"))
1564          (bh/is-project-p))
1565     "TODO"))))
1566
1567   (defun bh/punch-in (arg)
1568     "Start continuous clocking and set the default task to the
1569   selected task.  If no task is selected set the Organization task
1570   as the default task."
1571     (interactive "p")
1572     (setq bh/keep-clock-running t)
1573     (if (equal major-mode 'org-agenda-mode)
1574     ;;
1575     ;; We're in the agenda
1576     ;;
1577     (let* ((marker (org-get-at-bol 'org-hd-marker))
1578            (tags (org-with-point-at marker (org-get-tags-at))))
1579       (if (and (eq arg 4) tags)
1580           (org-agenda-clock-in '(16))
1581         (bh/clock-in-organization-task-as-default)))
1582       ;;
1583       ;; We are not in the agenda
1584       ;;
1585       (save-restriction
1586     (widen)
1587     ; Find the tags on the current task
1588     (if (and (equal major-mode 'org-mode) (not (org-before-first-heading-p)) (eq arg 4))
1589         (org-clock-in '(16))
1590       (bh/clock-in-organization-task-as-default)))))
1591
1592   (defun bh/punch-out ()
1593     (interactive)
1594     (setq bh/keep-clock-running nil)
1595     (when (org-clock-is-active)
1596       (org-clock-out))
1597     (org-agenda-remove-restriction-lock))
1598
1599   (defun bh/clock-in-default-task ()
1600     (save-excursion
1601       (org-with-point-at org-clock-default-task
1602     (org-clock-in))))
1603
1604   (defun bh/clock-in-parent-task ()
1605     "Move point to the parent (project) task if any and clock in"
1606     (let ((parent-task))
1607       (save-excursion
1608     (save-restriction
1609       (widen)
1610       (while (and (not parent-task) (org-up-heading-safe))
1611         (when (member (nth 2 (org-heading-components)) org-todo-keywords-1)
1612           (setq parent-task (point))))
1613       (if parent-task
1614           (org-with-point-at parent-task
1615         (org-clock-in))
1616         (when bh/keep-clock-running
1617           (bh/clock-in-default-task)))))))
1618
1619   (defvar bh/organization-task-id "e22cb8bf-07c7-408b-8f60-ff3aadac95e4")
1620
1621   (defun bh/clock-in-organization-task-as-default ()
1622     (interactive)
1623     (org-with-point-at (org-id-find bh/organization-task-id 'marker)
1624       (org-clock-in '(16))))
1625
1626   (defun bh/clock-out-maybe ()
1627     (when (and bh/keep-clock-running
1628            (not org-clock-clocking-in)
1629            (marker-buffer org-clock-default-task)
1630            (not org-clock-resolving-clocks-due-to-idleness))
1631       (bh/clock-in-parent-task)))
1632
1633   ; (add-hook 'org-clock-out-hook 'bh/clock-out-maybe 'append)
1634
1635   (require 'org-id)
1636   (defun bh/clock-in-task-by-id (id)
1637     "Clock in a task by id"
1638     (org-with-point-at (org-id-find id 'marker)
1639       (org-clock-in nil)))
1640
1641   (defun bh/clock-in-last-task (arg)
1642     "Clock in the interrupted task if there is one
1643   Skip the default task and get the next one.
1644   A prefix arg forces clock in of the default task."
1645     (interactive "p")
1646     (let ((clock-in-to-task
1647        (cond
1648         ((eq arg 4) org-clock-default-task)
1649         ((and (org-clock-is-active)
1650           (equal org-clock-default-task (cadr org-clock-history)))
1651          (caddr org-clock-history))
1652         ((org-clock-is-active) (cadr org-clock-history))
1653         ((equal org-clock-default-task (car org-clock-history)) (cadr org-clock-history))
1654         (t (car org-clock-history)))))
1655       (widen)
1656       (org-with-point-at clock-in-to-task
1657     (org-clock-in nil))))
1658
1659
1660   (defun org-export-to-ods ()
1661     (interactive)
1662     (let ((csv-file "data.csv"))
1663       (org-table-export csv-file "orgtbl-to-csv")
1664       (org-odt-convert csv-file "ods" 'open)))
1665
1666   ; allow for zero-width-space to be a break in regexp too
1667   ; (setcar org-emphasis-regexp-components " [:space:] \t('\"{")
1668   ; (setcar (nthcdr 1 org-emphasis-regexp-components) " [:space:]- \t.,:!?;'\")}\\")
1669   ; (org-set-emph-re 'org-emphasis-regexp-components org-emphasis-regexp-components)
1670
1671   ;; support inserting screen shots
1672   (defun my/org-insert-screenshot ()
1673     "Take a screenshot into a time stamped unique-named file in the
1674   same directory as the org-buffer and insert a link to this file."
1675     (interactive)
1676     (defvar my/org-insert-screenshot/filename)
1677     (setq my/org-insert-screenshot/filename
1678       (read-file-name
1679        "Screenshot to insert: "
1680        nil
1681        (concat (buffer-file-name) "_" (format-time-string "%Y%m%d_%H%M%S") ".png")
1682        )
1683       )
1684     (call-process "import" nil nil nil my/org-insert-screenshot/filename)
1685     (insert (concat "[[" my/org-insert-screenshot/filename "]]"))
1686     (org-display-inline-images))
1687
1688   (defun my/fix-inline-images ()
1689     (when org-inline-image-overlays
1690       (org-redisplay-inline-images)))
1691
1692   (add-hook 'org-babel-after-execute-hook 'my/fix-inline-images)
1693
1694   ;; use xelatex to preview with imagemagick
1695   (add-to-list 'org-preview-latex-process-alist
1696            '(xelateximagemagick
1697         :programs ("xelatex" "convert")
1698         :description "pdf > png"
1699         :message "you need to install xelatex and imagemagick"
1700         :use-xcolor t
1701         :image-input-type "pdf"
1702         :image-output-type "png"
1703         :image-size-adjust (1.0 . 1.0)
1704         :latex-compiler ("xelatex -interaction nonstopmode -output-directory %o %f")
1705         :image-converter ("convert -density %D -trim -antialias %f -quality 100 %O"))
1706            )
1707   ;; use xelatex by default
1708   (setq org-preview-latex-default-process 'xelateximagemagick)
1709
1710   ; from http://orgmode.org/Changes.html
1711   (defun my/org-repair-property-drawers ()
1712     "Fix properties drawers in current buffer.
1713    Ignore non Org buffers."
1714     (interactive)
1715     (when (eq major-mode 'org-mode)
1716       (org-with-wide-buffer
1717        (goto-char (point-min))
1718        (let ((case-fold-search t)
1719          (inline-re (and (featurep 'org-inlinetask)
1720                  (concat (org-inlinetask-outline-regexp)
1721                      "END[ \t]*$"))))
1722      (org-map-entries
1723       (lambda ()
1724         (unless (and inline-re (org-looking-at-p inline-re))
1725           (save-excursion
1726         (let ((end (save-excursion (outline-next-heading) (point))))
1727           (forward-line)
1728           (when (org-looking-at-p org-planning-line-re) (forward-line))
1729           (when (and (< (point) end)
1730                  (not (org-looking-at-p org-property-drawer-re))
1731                  (save-excursion
1732                    (and (re-search-forward org-property-drawer-re end t)
1733                     (eq (org-element-type
1734                      (save-match-data (org-element-at-point)))
1735                     'drawer))))
1736             (insert (delete-and-extract-region
1737                  (match-beginning 0)
1738                  (min (1+ (match-end 0)) end)))
1739             (unless (bolp) (insert "\n"))))))))))))
1740
1741 #+END_SRC
1742 ** Org-Gcal
1743 #+BEGIN_SRC emacs-lisp
1744   (use-package calfw
1745     :ensure f
1746     )
1747   (use-package calfw-org
1748     :ensure f
1749     )
1750   (use-package org-gcal
1751     :ensure f
1752     :config '((if (file-readable-p "~/.hide/org_gcal.el")
1753                   (load-file "~/.hide/org_gcal.el"))
1754               )
1755     )
1756 #+END_SRC
1757 ** End use-package
1758 #+BEGIN_SRC emacs-lisp
1759   )
1760 #+END_SRC
1761 * Keybindings
1762 ** Override other things
1763 #+BEGIN_SRC emacs-lisp
1764   ; apparently things like to step on C-;, so we'll use a hack from
1765   ; http://stackoverflow.com/questions/683425/globally-override-key-binding-in-emacs/5340797#5340797 to fix this
1766
1767   (defvar my-keys-minor-mode-map (make-keymap) "my-keys-minor-mode keymap.")
1768
1769   ; use mc everywhere
1770   (define-key my-keys-minor-mode-map (kbd "C-;") 'mc/mark-all-dwim)
1771   ;; use outline mode keybindings everywhere
1772   ;; (define-key my-keys-minor-mode-map (kbd "C-;") 'my/mydra-outline/body)
1773
1774   (define-minor-mode my-keys-minor-mode
1775     "A minor mode so that my key settings override annoying major modes."
1776     t " my-keys" 'my-keys-minor-mode-map)
1777
1778   (my-keys-minor-mode 1)
1779   (defun my-minibuffer-setup-hook ()
1780     (my-keys-minor-mode 0))
1781
1782   (add-hook 'minibuffer-setup-hook 'my-minibuffer-setup-hook)
1783   (defadvice load (after give-my-keybindings-priority)
1784     "Try to ensure that my keybindings always have priority."
1785     (if (not (eq (car (car minor-mode-map-alist)) 'my-keys-minor-mode))
1786         (let ((mykeys (assq 'my-keys-minor-mode minor-mode-map-alist)))
1787           (assq-delete-all 'my-keys-minor-mode minor-mode-map-alist)
1788           (add-to-list 'minor-mode-map-alist mykeys))))
1789   (ad-activate 'load)
1790 #+END_SRC
1791 ** Goto line
1792 #+BEGIN_SRC emacs-lisp
1793   (global-unset-key "\M-g")
1794   (global-set-key (kbd "M-g l") 'goto-line)
1795 #+END_SRC
1796 * Misc (uncharacterized)
1797 #+BEGIN_SRC emacs-lisp
1798   (setq calendar-latitude 40.11)
1799   (setq calendar-longitude -88.24)
1800   (setq case-fold-search t)
1801   (setq confirm-kill-emacs (quote y-or-n-p))
1802   (setq cperl-lazy-help-time nil)
1803   (setq debian-changelog-mailing-address "don@debian.org")
1804   (display-time)
1805   (setq display-time-24hr-format t)
1806   (setq display-time-day-and-date t)
1807   (display-time-mode 1)
1808   (global-auto-revert-mode 1)
1809   (global-font-lock-mode 1)
1810   (icomplete-mode 1)
1811   (setq log-edit-keep-buffer t)
1812   (setq mail-user-agent (quote sendmail-user-agent))
1813   (setq markdown-enable-math t)
1814   (setq markdown-follow-wiki-link-on-enter nil)
1815   (setq mutt-alias-file-list (quote ("~/.mutt/aliases" "~/.mail_aliases")))
1816   (setq ps-footer-font-size (quote (8 . 10)))
1817   (setq ps-header-font-size (quote (8 . 10)))
1818   (setq ps-header-title-font-size (quote (10 . 10)))
1819   (setq ps-line-number-color "blue")
1820   (setq ps-print-footer t)
1821   (setq ps-print-footer-frame nil)
1822   (setq ps-print-only-one-header t)
1823   (setq sentence-end "[.?!][]\"')]*\\($\\|   \\| \\)[
1824   ]*")
1825   (setq sentence-end-double-space nil)
1826   ; enable matching parenthesis
1827   (show-paren-mode 1)
1828   (tool-bar-mode -1)
1829   (setq user-mail-address "don@donarmstrong.com")
1830   (setq vc-delete-logbuf-window nil)
1831   (setq vc-follow-symlinks t)
1832
1833   ;; use git before SVN; use CVS earlier, because I have CVS
1834   ;; repositories inside of git directories
1835   (setq vc-handled-backends (quote (CVS Git RCS SVN SCCS Bzr Hg Mtn Arch)))
1836
1837   ;; switch back to the old primary selection method
1838   (setq x-select-enable-clipboard nil)
1839   (setq x-select-enable-primary t)
1840   ; (setq mouse-drag-copy-region t)
1841
1842   (fset 'perl-mode 'cperl-mode)
1843   ;;(load-file "cperl-mode.el")
1844
1845   (require 'vcl-mode)
1846
1847   (global-set-key "\C-xp" 'server-edit)
1848
1849   (setq-default auto-mode-alist (cons '("\.wml$" .
1850                     (lambda () (html-mode) (auto-fill-mode)))
1851                   auto-mode-alist))
1852
1853
1854   ; use markdown mode for mdwn files
1855   (add-to-list 'auto-mode-alist '("\\.mdwn$" . markdown-mode))
1856   (add-to-list 'auto-mode-alist '("\\.md$" . markdown-mode))
1857
1858
1859   ;; tramp configuration
1860   (setq tramp-use-ssh-controlmaster-options nil)
1861
1862   ;; self-insert-command hack.
1863   ;;   Without this, "if<SP>" expands to
1864   ;;   if ( -!-) {
1865   ;;   }
1866   ;;   which really should be,
1867   ;;   if (-!-) {
1868   ;;   }
1869
1870
1871
1872   ;(load-library "php-mode")
1873
1874   (setq-default c-indent-level 4)
1875   (setq-default c-brace-imaginary-offset 0)
1876   (setq-default c-brace-offset -4)
1877   (setq-default c-argdecl-indent 4)
1878   (setq-default c-label-offset -4)
1879   (setq-default c-continued-statement-offset 4)
1880   ; tabs are annoying
1881   (setq-default indent-tabs-mode nil)
1882   (setq-default tab-width 4)
1883
1884
1885   ;; (autoload 'php-mode "php-mode" "PHP editing mode" t)
1886   ;; (add-to-list 'auto-mode-alist '("\\.php3?\\'" . php-mode))
1887   ;; (add-to-list 'auto-mode-alist '("\\.phtml?\\'" . php-mode))
1888   ;; (add-to-list 'auto-mode-alist '("\\.php?\\'" . php-mode))
1889   ;; (add-to-list 'auto-mode-alist '("\\.php4?\\'" . php-mode))
1890
1891
1892   (defun insert-date ()
1893     "Insert date at point."
1894     (interactive)
1895     (insert (format-time-string "%A, %B %e, %Y %k:%M:%S %Z")))
1896   (global-set-key "\C-[d" 'insert-date)
1897
1898   (defun unfill-paragraph (arg)
1899     "Pull this whole paragraph up onto one line."
1900     (interactive "*p")
1901     (let ((fill-column 10000))
1902       (fill-paragraph arg))
1903     )
1904
1905   (column-number-mode t)
1906
1907   ; (require 'mode-compile)
1908
1909   (defadvice server-process-filter (after post-mode-message first activate)
1910     "If the buffer is in post mode, overwrite the server-edit
1911       message with a post-save-current-buffer-and-exit message."
1912     (if (eq major-mode 'post-mode)
1913         (message
1914          (substitute-command-keys "Type \\[describe-mode] for help composing; \\[post-save-current-buffer-and-exit] when done."))))
1915                       ; This is also needed to see the magic message.  Set to a higher
1916                       ; number if you have a faster computer or read slower than me.
1917   '(font-lock-verbose 1000)
1918   ;(setq-default server-temp-file-regexp "mutt\(-\|ng-\)")
1919   ; (add-hook 'server-switch-hook
1920   ;     (function (lambda()
1921   ;             (cond ((string-match "Post" mode-name)
1922   ;                (post-goto-body)))
1923   ;             set-buffer-file-coding-system 'utf-8
1924   ;             )))
1925   ;
1926
1927   (add-hook 'post-mode-hook
1928         (auto-fill-mode nil)
1929         )
1930   ; abbrev mode settings
1931   ; load abbreviations from
1932   (setq abbrev-file-name
1933         "~/.emacs_abbrev_def")
1934
1935   ; read the abbrev file if it exists
1936   (if (file-exists-p abbrev-file-name)
1937       (quietly-read-abbrev-file))
1938
1939   ; for now, use abbrev mode everywhere
1940   (setq default-abbrev-mode t)
1941
1942
1943   (defun insert-function-documentation ()
1944     "Insert function documentation"
1945     (interactive)
1946     (insert-file-contents "/home/don/lib/templates/perl_function_documentation" nil))
1947   (global-set-key "\M-f" 'insert-function-documentation)
1948
1949   (eval-after-load "lilypond-mode"
1950     '(progn
1951        (load-library "lyqi-mode")
1952        (define-key LilyPond-mode-map "\C-cq" 'lyqi-mode)))
1953
1954   (autoload 'spamassassin-mode "spamassassin-mode" nil t)
1955
1956   (desktop-load-default)
1957   (desktop-read)
1958   '(icomplete-mode on)
1959   (custom-set-faces
1960    ;; custom-set-faces was added by Custom.
1961    ;; If you edit it by hand, you could mess it up, so be careful.
1962    ;; Your init file should contain only one such instance.
1963    ;; If there is more than one, they won't work right.
1964    '(menu ((((type x-toolkit)) (:background "black" :foreground "grey90")))))
1965
1966
1967   (put 'upcase-region 'disabled nil)
1968   (put 'downcase-region 'disabled nil)
1969   (put 'narrow-to-region 'disabled nil)
1970
1971   ; (defun turn-on-flyspell ()
1972   ;    "Force flyspell-mode on using a positive arg.  For use in hooks."
1973   ;    (interactive)
1974   ;    (flyspell-mode 1))
1975
1976
1977    ; Outline-minor-mode key map
1978    (define-prefix-command 'cm-map nil "Outline-")
1979    ; HIDE
1980    (define-key cm-map "q" 'hide-sublevels)    ; Hide everything but the top-level headings
1981    (define-key cm-map "t" 'hide-body)         ; Hide everything but headings (all body lines)
1982    (define-key cm-map "o" 'hide-other)        ; Hide other branches
1983    (define-key cm-map "c" 'hide-entry)        ; Hide this entry's body
1984    (define-key cm-map "l" 'hide-leaves)       ; Hide body lines in this entry and sub-entries
1985    (define-key cm-map "d" 'hide-subtree)      ; Hide everything in this entry and sub-entries
1986    ; SHOW
1987    (define-key cm-map "a" 'show-all)          ; Show (expand) everything
1988    (define-key cm-map "e" 'show-entry)        ; Show this heading's body
1989    (define-key cm-map "i" 'show-children)     ; Show this heading's immediate child sub-headings
1990    (define-key cm-map "k" 'show-branches)     ; Show all sub-headings under this heading
1991    (define-key cm-map "s" 'show-subtree)      ; Show (expand) everything in this heading & below
1992    ; MOVE
1993    (define-key cm-map "u" 'outline-up-heading)                ; Up
1994    (define-key cm-map "n" 'outline-next-visible-heading)      ; Next
1995    (define-key cm-map "p" 'outline-previous-visible-heading)  ; Previous
1996    (define-key cm-map "f" 'outline-forward-same-level)        ; Forward - same level
1997    (define-key cm-map "b" 'outline-backward-same-level)       ; Backward - same level
1998    (global-set-key "\M-o" cm-map)
1999
2000
2001   ; debian stuff
2002   (setq-default debian-changelog-mailing-address "don@debian.org")
2003   (setq-default debian-changelog-full-name "Don Armstrong")
2004
2005   ; ediff configuration
2006   ; don't use the multi-window configuration
2007   (setq ediff-window-setup-function 'ediff-setup-windows-plain)
2008
2009   ; fix up css mode to not be silly
2010   ; from http://www.stokebloke.com/wordpress/2008/03/21/css-mode-indent-buffer-fix/
2011   (setq cssm-indent-level 4)
2012   (setq cssm-newline-before-closing-bracket t)
2013   (setq cssm-indent-function #'cssm-c-style-indenter)
2014   (setq cssm-mirror-mode nil)
2015
2016   (require 'multi-web-mode)
2017   (setq mweb-default-major-mode 'html-mode)
2018   (setq mweb-tags '((php-mode "<\\?php\\|<\\? \\|<\\?=" "\\?>")
2019                     (js-mode "<script +\\(type=\"text/javascript\"\\|language=\"javascript\"\\)[^>]*>" "</script>")
2020                     (css-mode "<style +type=\"text/css\"[^>]*>" "</style>")))
2021   (setq mweb-filename-extensions '("php" "htm" "html" "ctp" "phtml" "php4" "php5"))
2022   (multi-web-global-mode 1)
2023
2024   ;;; alias the new `flymake-report-status-slim' to
2025   ;;; `flymake-report-status'
2026   (defalias 'flymake-report-status 'flymake-report-status-slim)
2027   (defun flymake-report-status-slim (e-w &optional status)
2028     "Show \"slim\" flymake status in mode line."
2029     (when e-w
2030       (setq flymake-mode-line-e-w e-w))
2031     (when status
2032       (setq flymake-mode-line-status status))
2033     (let* ((mode-line " Φ"))
2034       (when (> (length flymake-mode-line-e-w) 0)
2035         (setq mode-line (concat mode-line ":" flymake-mode-line-e-w)))
2036       (setq mode-line (concat mode-line flymake-mode-line-status))
2037       (setq flymake-mode-line mode-line)
2038       (force-mode-line-update)))
2039
2040   ; load sql-indent when sql is loaded
2041   (eval-after-load "sql"
2042     '(load-library "sql-indent"))
2043
2044   ; fix up tmux xterm keys
2045   ; stolen from http://unix.stackexchange.com/questions/24414/shift-arrow-not-working-in-emacs-within-tmux
2046   (defun fix-up-tmux-keys ()
2047       "Fix up tmux xterm keys"
2048       (if (getenv "TMUX")
2049           (progn
2050             (let ((x 2) (tkey ""))
2051               (while (<= x 8)
2052                 ;; shift
2053                 (if (= x 2)
2054                     (setq tkey "S-"))
2055                 ;; alt
2056                 (if (= x 3)
2057                     (setq tkey "M-"))
2058                 ;; alt + shift
2059                 (if (= x 4)
2060                     (setq tkey "M-S-"))
2061                 ;; ctrl
2062                 (if (= x 5)
2063                     (setq tkey "C-"))
2064                 ;; ctrl + shift
2065                 (if (= x 6)
2066                     (setq tkey "C-S-"))
2067                 ;; ctrl + alt
2068                 (if (= x 7)
2069                     (setq tkey "C-M-"))
2070                 ;; ctrl + alt + shift
2071                 (if (= x 8)
2072                     (setq tkey "C-M-S-"))
2073
2074                 ;; arrows
2075                 (define-key key-translation-map (kbd (format "M-[ 1 ; %d A" x)) (kbd (format "%s<up>" tkey)))
2076                 (define-key key-translation-map (kbd (format "M-[ 1 ; %d B" x)) (kbd (format "%s<down>" tkey)))
2077                 (define-key key-translation-map (kbd (format "M-[ 1 ; %d C" x)) (kbd (format "%s<right>" tkey)))
2078                 (define-key key-translation-map (kbd (format "M-[ 1 ; %d D" x)) (kbd (format "%s<left>" tkey)))
2079                 ;; home
2080                 (define-key key-translation-map (kbd (format "M-[ 1 ; %d H" x)) (kbd (format "%s<home>" tkey)))
2081                 ;; end
2082                 (define-key key-translation-map (kbd (format "M-[ 1 ; %d F" x)) (kbd (format "%s<end>" tkey)))
2083                 ;; page up
2084                 (define-key key-translation-map (kbd (format "M-[ 5 ; %d ~" x)) (kbd (format "%s<prior>" tkey)))
2085                 ;; page down
2086                 (define-key key-translation-map (kbd (format "M-[ 6 ; %d ~" x)) (kbd (format "%s<next>" tkey)))
2087                 ;; insert
2088                 (define-key key-translation-map (kbd (format "M-[ 2 ; %d ~" x)) (kbd (format "%s<delete>" tkey)))
2089                 ;; delete
2090                 (define-key key-translation-map (kbd (format "M-[ 3 ; %d ~" x)) (kbd (format "%s<delete>" tkey)))
2091                 ;; f1
2092                 (define-key key-translation-map (kbd (format "M-[ 1 ; %d P" x)) (kbd (format "%s<f1>" tkey)))
2093                 ;; f2
2094                 (define-key key-translation-map (kbd (format "M-[ 1 ; %d Q" x)) (kbd (format "%s<f2>" tkey)))
2095                 ;; f3
2096                 (define-key key-translation-map (kbd (format "M-[ 1 ; %d R" x)) (kbd (format "%s<f3>" tkey)))
2097                 ;; f4
2098                 (define-key key-translation-map (kbd (format "M-[ 1 ; %d S" x)) (kbd (format "%s<f4>" tkey)))
2099                 ;; f5
2100                 (define-key key-translation-map (kbd (format "M-[ 15 ; %d ~" x)) (kbd (format "%s<f5>" tkey)))
2101                 ;; f6
2102                 (define-key key-translation-map (kbd (format "M-[ 17 ; %d ~" x)) (kbd (format "%s<f6>" tkey)))
2103                 ;; f7
2104                 (define-key key-translation-map (kbd (format "M-[ 18 ; %d ~" x)) (kbd (format "%s<f7>" tkey)))
2105                 ;; f8
2106                 (define-key key-translation-map (kbd (format "M-[ 19 ; %d ~" x)) (kbd (format "%s<f8>" tkey)))
2107                 ;; f9
2108                 (define-key key-translation-map (kbd (format "M-[ 20 ; %d ~" x)) (kbd (format "%s<f9>" tkey)))
2109                 ;; f10
2110                 (define-key key-translation-map (kbd (format "M-[ 21 ; %d ~" x)) (kbd (format "%s<f10>" tkey)))
2111                 ;; f11
2112                 (define-key key-translation-map (kbd (format "M-[ 23 ; %d ~" x)) (kbd (format "%s<f11>" tkey)))
2113                 ;; f12
2114                 (define-key key-translation-map (kbd (format "M-[ 24 ; %d ~" x)) (kbd (format "%s<f12>" tkey)))
2115                 ;; f13
2116                 (define-key key-translation-map (kbd (format "M-[ 25 ; %d ~" x)) (kbd (format "%s<f13>" tkey)))
2117                 ;; f14
2118                 (define-key key-translation-map (kbd (format "M-[ 26 ; %d ~" x)) (kbd (format "%s<f14>" tkey)))
2119                 ;; f15
2120                 (define-key key-translation-map (kbd (format "M-[ 28 ; %d ~" x)) (kbd (format "%s<f15>" tkey)))
2121                 ;; f16
2122                 (define-key key-translation-map (kbd (format "M-[ 29 ; %d ~" x)) (kbd (format "%s<f16>" tkey)))
2123                 ;; f17
2124                 (define-key key-translation-map (kbd (format "M-[ 31 ; %d ~" x)) (kbd (format "%s<f17>" tkey)))
2125                 ;; f18
2126                 (define-key key-translation-map (kbd (format "M-[ 32 ; %d ~" x)) (kbd (format "%s<f18>" tkey)))
2127                 ;; f19
2128                 (define-key key-translation-map (kbd (format "M-[ 33 ; %d ~" x)) (kbd (format "%s<f19>" tkey)))
2129                 ;; f20
2130                 (define-key key-translation-map (kbd (format "M-[ 34 ; %d ~" x)) (kbd (format "%s<f20>" tkey)))
2131
2132                 (setq x (+ x 1))
2133                 ))
2134             )
2135         )
2136       )
2137   ; (add-hook 'tty-setup-hook 'fix-up-tmux-keys)
2138
2139   ; procmailmode configuration
2140   (load "procmail_mode")
2141
2142   (load "mode-line-cleaner")
2143
2144   (defadvice ask-user-about-supersession-threat (around ask-user-about-supersession-threat-if-necessary)
2145     "Call ask-user-about-supersession-threat only if the buffer is actually obsolete."
2146     (if (or (buffer-modified-p)
2147             (verify-visited-file-modtime)
2148             (< (* 8 1024 1024) (buffer-size))
2149             (/= 0 (call-process-region 1 (+ 1 (buffer-size)) "diff" nil nil nil "-q" (buffer-file-name) "-")))
2150         ad-do-it
2151       (clear-visited-file-modtime)
2152       (not-modified)))
2153   (ad-activate 'ask-user-about-supersession-threat)
2154
2155   ; apparently things like to step on C-;, so we'll use a hack from
2156   ; http://stackoverflow.com/questions/683425/globally-override-key-binding-in-emacs/5340797#5340797 to fix this
2157
2158   (defvar my-keys-minor-mode-map (make-keymap) "my-keys-minor-mode keymap.")
2159
2160   ; use iedit everywhere
2161   (define-key my-keys-minor-mode-map (kbd "C-;") 'mc/mark-all-dwim)
2162
2163   (define-minor-mode my-keys-minor-mode
2164     "A minor mode so that my key settings override annoying major modes."
2165     t " my-keys" 'my-keys-minor-mode-map)
2166
2167   (my-keys-minor-mode 1)
2168   (defun my-minibuffer-setup-hook ()
2169     (my-keys-minor-mode 0))
2170
2171   (add-hook 'minibuffer-setup-hook 'my-minibuffer-setup-hook)
2172   (defadvice load (after give-my-keybindings-priority)
2173     "Try to ensure that my keybindings always have priority."
2174     (if (not (eq (car (car minor-mode-map-alist)) 'my-keys-minor-mode))
2175         (let ((mykeys (assq 'my-keys-minor-mode minor-mode-map-alist)))
2176           (assq-delete-all 'my-keys-minor-mode minor-mode-map-alist)
2177           (add-to-list 'minor-mode-map-alist mykeys))))
2178   (ad-activate 'load)
2179   (global-set-key "\M- " 'hippie-expand)
2180
2181 #+END_SRC
2182
2183 * Server
2184 #+BEGIN_SRC emacs-lisp
2185   (unless (server-running-p)
2186   (server-start))
2187 #+END_SRC
2188
2189
2190
2191 * END
2192 #+BEGIN_SRC emacs-lisp
2193   (provide 'don-configuration)
2194 #+END_SRC