Refactor org-mode config (WIP)

modules/module-org-notebook.el

@@ -1,116 +0,0 @@
-;;; module-org-notebook.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)
-
-(defvar org-directory-notebook (expand-file-name "/notebook/" org-directory))
-(defvar org-default-notes-file (expand-file-name "inbox.org" org-directory))
-
-(defvar org-attach-directory ".attach/")
-(defvar doom-org-export-directory (concat org-directory ".export"))
-(defvar doom-org-quicknote-dir (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 ()
-  ;; (define-org-section! course "Classes"
-  ;;   (lambda (path) (substring path 0 (s-index-of " " path))) "%s*.org")
-  ;; (exmap "ocl[ass]" 'doom:org-search-course)
-  (doom-fix-unicode "FontAwesome" '(? ? ? ? ? ? ? ?) 13))
-
-;;
-(defun doom|org-attach-init ()
-  ;; 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))
-
-  ;; ...auto-delete attachments once all references to it have been deleted.
-  (add-hook 'org-mode-hook 'doom|org-attach-track-init)
-  (defun doom|org-attach-track-init ()
-    (setq doom-org-attachments-list (doom/org-attachments))
-    (add-hook 'after-save-hook 'doom/org-cleanup-attachments nil t)))
-
-
-;;
-(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 doom-org-export-directory)
-    (mkdir doom-org-export-directory))
-  (defun doom*org-export-output-file-name (args)
-    (unless (nth 2 args)
-      (setq args (append args (list doom-org-export-directory))))
-    args)
-  (advice-add 'org-export-output-file-name :filter-args 'doom*org-export-output-file-name))
-
-
-;;
-;; (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 (_)
-;;      (load (concat php-extras-eldoc-functions-file ".el"))
-;;      (message "PHP eldoc updated!")))
-;;   )
-
-;;
-(provide 'module-org-notebook)
-;;; module-org-notebook.el ends here