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