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