            ("@email"     . ?e)
            ("@errand"    . ?E)
            ("@home"      . ?h)
-           ("@kindle"    . ?k)
+           ("@reading"   . ?r)
            ("@phone"     . ?p)
            (:endgroup    . nil)
            (:startgroup  . nil)

  (save-place-mode -1)

  ;; Tailor whitespace mode
  (set (make-local-variable 'whitespace-style)
       '(trailing tabs empty))
  (whitespace-mode))

(add-hook 'org-mode-hook 'pjones:org-mode-hook)

(defun pjones:org-agenda-mode-hook ()
  "Hook run after a `org-agenda-mode' buffer is created."
  (hl-line-mode 1))

(add-hook 'org-agenda-mode-hook 'pjones:org-agenda-mode-hook)

(defun pjones:org-hide-others ()
  "Close all headings except the heading at point."

  "\C-k" #'pjones:org-insert-above)

(evil-define-key 'motion org-mode-map
  "[[" #'outline-up-heading
  "]]" #'outline-forward-same-level
  "gj" #'org-shiftmetadown
  "gk" #'org-shiftmetaup)

(evil-leader/set-key-for-mode 'org-mode
  "m !" #'org-time-stamp-inactive
