Refactor org-mode config (WIP)

modules/module-org-notes.el

@@ -0,0 +1,134 @@
+;;; module-org-notes.el
+
+;; This transforms Emacs+org-mode into a notebook application with:
+;;   + Custom links for class notes
+;;   + Shortcuts for searching org files
+;;   + Shortcuts for creating new notes (there's org-capture, but this is suited to my
+;;     workflow)
+;;   + A simpler attachment system (with auto-deleting support) and drag-and-drop
+;;     for images and documents into org files
+;;   + A pandoc-powered export system
+
+(add-hook 'org-load-hook 'doom|org-notebook-init t)
+(add-hook 'org-load-hook 'doom|org-attach-init t)
+(add-hook 'org-load-hook 'doom|org-export-init t)
+
+(defconst org-directory-notebook (f-expand "notes/" org-directory))
+(defconst org-default-notes-file (f-expand "inbox.org" org-directory-notebook))
+
+(defvar org-attach-directory ".attach/")
+(defvar org-export-directory (concat org-directory ".export"))
+(defvar org-quicknote-directory (concat org-directory "Inbox/"))
+
+;; Keep track of attachments
+(defvar-local doom-org-attachments-list '()
+  "A list of attachments for the current buffer")
+
+;; Tell helm to ignore these directories
+(after! helm
+  (mapc (lambda (r) (add-to-list 'helm-boring-file-regexp-list r))
+        (list "\\.attach$" "\\.export$")))
+
+
+;;
+(defun doom|org-notebook-init ()
+  (setq org-capture-templates
+        '(;; TODO: New Note (note)
+          ;; TODO: New Task (todo)
+          ;; TODO: New vocabulary word
+
+          ("c" "Changelog" entry
+           (file+headline (f-expand "CHANGELOG.org" (doom/project-root)) "Unreleased")
+           "* %?")
+
+          ;; ("p" "Project Notes" entry
+          ;;  (file+headline org-default-notes-file "Inbox")
+          ;;  "* %u %?\n%i" :prepend t)
+
+          ;; ("m" "Major-mode Notes" entry
+          ;;  (file+headline org-default-notes-file "Inbox")
+          ;;  "* %u %?\n%i" :prepend t)
+
+          ;; ("n" "Notes" entry
+          ;;  (file+headline org-default-notes-file "Inbox")
+          ;;  "* %u %?\n%i" :prepend t)
+
+          ;; ("v" "Vocab" entry
+          ;;  (file+headline (concat org-directory "topics/vocab.org") "Unsorted")
+          ;;  "** %i%?\n")
+          )))
+
+;; I don't like Org's attachment system. So I replaced it with my own, which stores
+;; attachments in a global org .attach directory. It also implements drag-and-drop
+;; file support and attachment icons. It also treats images specially.
+;;
+;; To clean up unreferenced attachments, call `doom/org-cleanup-attachments'
+(defun doom|org-attach-init ()
+  ;; Render attachment icons properly
+  (doom-fix-unicode '("FontAwesome" 13) ? ? ? ? ? ? ? ?)
+  ;; Drag-and-drop support
+  (require 'org-download)
+  (setq-default org-download-image-dir org-attach-directory
+                org-download-heading-lvl nil
+                org-download-timestamp "_%Y%m%d_%H%M%S")
+
+  (when IS-MAC
+    (setq org-download-screenshot-method "screencapture -i %s"))
+
+  ;; Write download paths relative to current file
+  (defun org-download--dir-2 () nil)
+  (defun doom*org-download--fullname (path)
+    (f-relative path (f-dirname (buffer-file-name))))
+  (advice-add 'org-download--fullname :filter-return 'doom*org-download--fullname)
+
+  ;; Add another drag-and-drop handler that will handle anything but image files
+  (setq dnd-protocol-alist `(("^\\(https?\\|ftp\\|file\\|nfs\\):\\(//\\)?" . doom/org-download-dnd)
+                             ,@dnd-protocol-alist)))
+
+
+;;
+(defun doom|org-export-init ()
+  "Set up my own exporting system."
+  (setq org-export-backends '(ascii html latex md)
+        org-export-with-toc t
+        org-export-with-author t)
+
+  (require 'ox-pandoc)
+  (setq org-pandoc-options '((standalone . t) (mathjax . t) (parse-raw . t)))
+
+  ;; Export to a central directory (why isn't this easier?)
+  (unless (file-directory-p org-export-directory)
+    (mkdir org-export-directory))
+  (defun doom*org-export-output-file-name (args)
+    (unless (nth 2 args)
+      (setq args (append args (list org-export-directory))))
+    args)
+  (advice-add 'org-export-output-file-name :filter-args 'doom*org-export-output-file-name))
+
+;; TODO
+;; (defvar doom-org-tags '())
+;; (defun doom|org-tag-init ()
+;;   (async-start
+;;    `(lambda ()
+;;       (let* ((default-directory (doom/project-root))
+;;              (data (s-trim (shell-command-to-string "ag --nocolor --nonumbers '^#\\+TAGS:'")))
+;;              (alist '()))
+;;         (unless (zerop (length data))
+;;           (mapc (lambda (l)
+;;                   (let* ((parts (s-split ":" l))
+;;                          (file (car parts))
+;;                          (tags (s-trim (nth 2 parts))))
+;;                     (mapc (lambda (tag)
+;;                             (setq tag (substring tag 1))
+;;                             (unless (assoc tag alist)
+;;                               (push (cons tag (list)) alist))
+;;                             (push file (cdr (assoc tag alist))))
+;;                           (s-split " " tags))))
+;;                 (s-lines data))
+;;           alist)))
+;;    (lambda (_)
+;;      )))
+
+;;
+(provide 'module-org-notes)
+;;; module-org-notes.el ends here