  '(org-id-link-to-org-use-id 'create-if-interactive)
  '(org-edit-src-persistent-message nil)
  '(org-src-window-setup (quote current-window))
- '(org-attach-directory "attachments/")
- '(org-attach-commit nil)
- '(org-attach-git-annex-cutoff nil)
- '(org-attach-annex-auto-get nil)
+ '(org-attach-id-dir "~/notes/attachments/")
+ '(org-attach-auto-tag nil)
+ '(org-attach-dir-relative t)
  '(org-attach-method 'ln)
- '(org-attach-store-link-p t)
+ '(org-attach-store-link-p 'attached)
  '(org-attach-archive-delete nil)
  '(org-capture-bookmark nil)
  '(org-archive-file-header-format nil)

      :section-numbers t
      :with-broken-links t
      :with-toc 2
      :archived-trees nil)
     ("wiki"
      :base-directory "~/notes/wiki/"
      :base-extension "org"

               (concat today "::* Archived From %s")))
    (org-archive-subtree 0)))

(defun pjones:org-attach (file)
  "Attach a FILE then insert link to it."
  (interactive "f")
  (org-attach-attach file)
  (if org-attach-store-link-p
      (org-insert-last-stored-link 1)))

;;; Key Bindings:
(let ((map org-mode-map))
  ;; Reset this so I can use it as a prefix:
  (define-key map (kbd "C-c C-a") nil)

  (define-key map (kbd "<f12>") #'org-tree-slide-mode)
  (define-key map (kbd "C-'") nil)
  (define-key map (kbd "C-<return>") #'pjones:org-insert-heading)
  (define-key map (kbd "C-c 0") #'pjones:org-hide-all)
  (define-key map (kbd "C-c 1") #'pjones:org-hide-others)
  (define-key map (kbd "C-c C-a a") #'pjones:org-attach)
  (define-key map (kbd "C-c C-a d") #'org-attach-reveal-in-emacs)
  (define-key map (kbd "C-c C-a u") #'org-attach-url)
  (define-key map (kbd "C-c C-x a") #'pjones:org-archive-subtree-to-daily)
  (define-key map (kbd "C-c C-x A") #'pjones:org-archive-subtree-to-daily)
  (define-key map (kbd "C-M-n") #'org-next-visible-heading)
  (define-key map (kbd "C-M-p") #'pjones:org-up-or-prev)
  (define-key map (kbd "C-o") #'pjones:org-open-line)
  (define-key map (kbd "M-<return>") #'pjones:org-insert-item)
  (define-key map (kbd "M-n") #'org-forward-heading-same-level)
  (define-key map (kbd "M-N") #'org-metadown)
  (define-key map (kbd "M-p") #'org-backward-heading-same-level)
