diff --git a/dotfiles/emacs.d/.gitignore b/dotfiles/emacs.d/.gitignore
index 365b0a7a..6e4822f0 100644
--- a/dotfiles/emacs.d/.gitignore
+++ b/dotfiles/emacs.d/.gitignore
@@ -30,7 +30,7 @@ jabber-avatar-cache
 kat-mode.el
 org-caldav-*
 org-caldav-backup.org
-org-config.el
+org-config*.el
 org-gcal/
 persp-confs/
 places
diff --git a/dotfiles/emacs.d/README.org b/dotfiles/emacs.d/README.org
index 99499167..1c62a3a7 100644
--- a/dotfiles/emacs.d/README.org
+++ b/dotfiles/emacs.d/README.org
@@ -595,15 +595,6 @@ For composing functions with an apply so that they can be used with the ~:around
        ,@body
        (- (float-time) ,start))))
 #+END_SRC
-** Add Files to ~org-agenda-files~
-#+BEGIN_SRC emacs-lisp
-(defun imalison:add-to-org-agenda-files (incoming-files)
-  (setq org-agenda-files
-        (delete-dups
-         (cl-loop for filepath in (append org-agenda-files incoming-files)
-                  when (and filepath (file-exists-p (file-truename filepath)))
-                  collect (file-truename filepath)))))
-#+END_SRC
 ** Get String From File
 #+BEGIN_SRC emacs-lisp
 (defun imalison:get-string-from-file (file-path)
@@ -2993,946 +2984,11 @@ The following is taken from [[https://github.com/syl20bnr/spacemacs/blob/a650877
 #+end_src
 ** Document
 *** org
-**** config
-#+BEGIN_SRC emacs-lisp :tangle org-config.el
-(defvar imalison:org-dir "~/org")
-(defvar imalison:shared-org-dir "~/katnivan")
-(defvar imalison:org-whoami "Ivan Malison")
-(defvar imalison:org-people (list "Ivan Malison" "Kat Huang"))
-(defvar imalison:org-default-initial-state "TODO")
-(use-package org
-  :defer 1
-  :commands (org-mode org org-mobile-push org-mobile-pull org-agenda)
-  :mode ("\\.org\\'" . org-mode)
-  :bind (("C-c c" . org-capture)
-         :map org-mode-map
-         (("C-e" . end-of-visual-line)
-          ("C-c n t" . org-insert-todo-heading)
-          ("C-c n s" . org-insert-todo-subheading)
-          ("C-c n h" . org-insert-habit)
-          ("C-c n m" . org-make-habit)
-          ("C-c n l" . org-store-link)
-          ("C-c n i" . org-insert-link)
-          ("C-c C-t" . org-todo)
-          ("C-c C-S-t" . org-todo-force-notes)
-          ("M-." . elisp-slime-nav-find-elisp-thing-at-point)))
-  :custom
-  ((org-startup-indented nil)
-   (org-startup-folded t)
-   (org-fold-catch-invisible-edits 'show)
-   (org-edit-src-content-indentation 0)
-   (org-src-preserve-indentation t)
-   (org-refile-targets '((org-agenda-files . (:maxlevel . 2))
-                         (org-agenda-files . (:level . 0))))
-   (org-refile-use-outline-path 'file)
-   (org-refile-allow-creating-parent-nodes t)
-   (org-outline-path-complete-in-steps nil)
-   (org-log-into-drawer t)
-   (org-log-reschedule t)
-   (org-log-redeadline t)
-   (org-treat-insert-todo-heading-as-state-change t)
-   (org-lowest-priority 69) ;; The character E
-   (org-enforce-todo-dependencies t)
-   (org-deadline-warning-days 0)
-   (org-default-priority ?C)
-   (org-agenda-skip-scheduled-if-done t)
-   (org-agenda-skip-deadline-if-done t)
-   (org-agenda-window-setup 'other-window)
-   (org-imenu-depth 10)
-   (org-agenda-timegrid-use-ampm 1)
-   (org-todo-repeat-to-state "TODO")
-   (org-agenda-span 10)
-   (org-habit-show-all-today t)
-   (org-agenda-start-day "-0d"))
-  :preface
-  (progn
-    (require 'cl-lib)
-    (defun imalison:maybe-symbol-name (arg)
-      (if (symbolp arg)
-          (symbol-name arg)
-        arg))
-
-    (defun imalison:set-display-custom-times ()
-      (setq org-display-custom-times nil))
-
-    (setq org-goto-interface 'outline-path-completion
-          org-goto-max-level 10
-          org-export-headline-levels 3)
-    (add-hook 'org-mode-hook 'imalison:disable-linum-mode)
-    (add-hook 'org-mode-hook (lambda () (setq org-todo-key-trigger t)))
-    (add-hook 'org-mode-hook 'imalison:set-display-custom-times)
-    (add-hook 'org-agenda-mode-hook 'imalison:disable-linum-mode)
-    (add-hook 'org-agenda-mode-hook 'imalison:set-display-custom-times)
-    (add-hook 'org-agenda-mode-hook 'imalison:disable-linum-mode)
-
-    (defmacro imalison:def-agenda-pred (&rest forms)
-      `(lambda ()
-         (unless ,@forms
-           (or (outline-next-heading)
-               (point-max)))))
-
-    (defun imalison:org-known-assignees ()
-      imalison:org-people)
-
-    (cl-defun imalison:set-assignee (&key assignee (override t))
-      (interactive)
-      (let ((chosen-assignee (if (called-interactively-p 'interactive)
-                                 (completing-read "Choose assignee: "
-                                                  (imalison:org-known-assignees)
-                                                  nil t)
-                               (or assignee imalison:org-whoami))))
-        (when (or override (not (org-entry-get nil "ASSIGNEE")))
-          (org-set-property "ASSIGNEE" chosen-assignee))))
-
-    (defun imalison:assign-to-self-if-unassigned ()
-      (interactive)
-      (imalison:set-assignee :assignee imalison:org-whoami :override nil))
-
-    (defun imalison:shared-org-file-p ()
-      (string-prefix-p (file-truename imalison:shared-org-dir)
-                       (file-truename default-directory)))
-
-    (require 'org-habit)
-    (when (not (fboundp 'org-is-habit-p))
-      (defun org-is-habit-p ()
-        (string-equal (org-entry-get nil "STYLE") "habit")))
-
-    (defun imalison:habit-or-repeating-heading ()
-      (org-is-habit-p))
-
-    (defun imalison:shared-non-habit-p ()
-      (and (not (imalison:habit-or-repeating-heading))
-           (imalison:shared-org-file-p)))
-
-    (defvar imalison:auto-assign-to-self-predicates
-      (list 'imalison:shared-non-habit-p))
-
-    (defun imalison:auto-assign-to-self-when ()
-      (cl-loop for pred in imalison:auto-assign-to-self-predicates
-               when (funcall pred)
-               return t
-               finally return nil))
-
-    (defun imalison:maybe-auto-assign-to-self (&rest args)
-      (when (imalison:auto-assign-to-self-when)
-        (imalison:assign-to-self-if-unassigned)))
-
-    (advice-add 'org-schedule :after 'imalison:maybe-auto-assign-to-self)
-
-    (cl-defun imalison:assigned-to-me (&key (include-unassigned t))
-      (let ((assignee (org-entry-get nil "ASSIGNEE")))
-        (or (string-equal assignee imalison:org-whoami)
-            (and include-unassigned (null assignee)))))
-
-    (defalias 'imalison:assigned-to-me-agenda-pred
-      (imalison:def-agenda-pred
-       (imalison:assigned-to-me)))
-
-    (cl-defun imalison:org-time-condition-met-p (&key (property "CREATED") (days 30) (future nil))
-      (let* ((property-value (org-entry-get (point) property))
-             (comparison-time
-              (if future
-                  (time-add (current-time) (days-to-time days))
-                (time-subtract (current-time) (days-to-time days))))
-             (formatted-time-string (format-time-string "<%Y-%m-%d %H:%M>" comparison-time))
-             (compare-time (org-time-string-to-time formatted-time-string))
-             (node-time (when property-value (org-time-string-to-time property-value))))
-        (when node-time
-          (if future
-              (time-less-p node-time compare-time)
-            (time-less-p compare-time node-time)))))
-
-    (defun org-archive-if (condition-function)
-      (if (funcall condition-function)
-          (let ((next-point-marker
-                 (save-excursion (org-forward-heading-same-level 1) (point-marker))))
-            (org-archive-subtree)
-            (setq org-map-continue-from (marker-position next-point-marker)))))
-
-    (defun org-archive-if-completed ()
-      (interactive)
-      (org-archive-if 'org-entry-is-done-p))
-
-    (defun org-archive-completed-in-buffer ()
-      (interactive)
-      (org-map-entries 'org-archive-if-completed))
-
-    (defun org-archive-all-in-buffer ()
-      (interactive)
-      (org-map-entries 'org-archive-subtree))
-
-    (cl-defun imalison:make-org-template (&key (content "%?"))
-      (with-temp-buffer
-        (org-mode)
-        (insert content)
-        (org-set-property "CREATED"
-                          (with-temp-buffer
-                            (org-insert-time-stamp
-                             (org-current-effective-time) t t)))
-        (buffer-substring-no-properties (point-min) (point-max))))
-
-    (defun imalison:make-org-template-from-file (filename)
-      (imalison:make-org-template (imalison:get-string-from-file filename)))
-
-    (cl-defun imalison:make-org-todo-template
-        (&key (content "%?") (creation-state imalison:org-default-initial-state))
-      (with-temp-buffer
-        (org-mode)
-        (org-insert-heading)
-        (insert content)
-        (org-todo creation-state)
-        (org-set-property "CREATED"
-                          (with-temp-buffer
-                            (org-insert-time-stamp
-                             (org-current-effective-time) t t)))
-        (remove-hook 'post-command-hook 'org-add-log-note)
-        (let ((org-log-note-purpose 'state)
-              (org-log-note-return-to (point-marker))
-              (org-log-note-marker (progn (goto-char (org-log-beginning t))
-                                          (point-marker)))
-              (org-log-note-state creation-state))
-          (org-add-log-note))
-        (buffer-substring-no-properties (point-min) (point-max))))
-
-    (defun org-todo-force-notes ()
-      (interactive)
-      (let ((org-todo-log-states
-             (mapcar (lambda (state)
-                       (list state 'note 'time))
-                     (apply 'append org-todo-sets))))
-        (cond ((eq major-mode 'org-mode)  (org-todo))
-              ((eq major-mode 'org-agenda-mode) (org-agenda-todo)))))
-
-    (defun org-make-habit ()
-      (interactive)
-      (org-set-property "STYLE" "habit"))
-
-    (defun org-insert-habit ()
-      (interactive)
-      (org-insert-todo-heading nil)
-      (org-make-habit))
-
-    (defun org-todo-at-date (date)
-      (interactive (list (org-time-string-to-time (org-read-date))))
-      (cl-flet ((org-current-effective-time (&rest r) date)
-                (org-today (&rest r) (time-to-days date)))
-        (cond ((eq major-mode 'org-mode) (org-todo))
-              ((eq major-mode 'org-agenda-mode) (org-agenda-todo)))))
-
-    (defun imalison:make-org-linked-todo-template ()
-      (imalison:make-org-todo-template "[#C] %? %A"))
-
-    (defun org-cmp-creation-times (a b)
-      (let ((a-created (get-date-created-from-agenda-entry a))
-            (b-created (get-date-created-from-agenda-entry b)))
-        (imalison:compare-int-list a-created b-created)))
-
-    (defun org-agenda-done (&optional arg)
-      "Mark current TODO as done.
-  This changes the line at point, all other lines in the agenda referring to
-  the same tree node, and the headline of the tree node in the Org-mode file."
-      (interactive "P")
-      (org-agenda-todo "DONE")))
-  :config
-  (progn
-    (setq org-global-properties
-          '(quote (("Effort_ALL" . "0:15 0:30 0:45 1:00 2:00 3:00 4:00 5:00 6:00 0:00")
-                   ("STYLE_ALL" . "habit"))))
-    ;; Record changes to todo states
-    (setq org-todo-keywords
-          '((sequence "INBOX(i!)" "TODO(t!)" "NEXT(n!)" "STARTED(s!)" "WAIT(w!)"
-                      "BACKLOG(b!)" "|" "DONE(d!)" "HANDLED(h!)" "EXPIRED(e!)"
-                      "CANCELED(c!)")))
-
-    (setq org-columns-default-format
-          "%80ITEM(Task) %10Effort(Effort){:} %10CLOCKSUM")
-
-    (add-to-list 'org-show-context-detail '(org-goto . lineage))
-
-    (add-to-list
-     'org-src-lang-modes '("plantuml" . plantuml))
-
-    (add-hook 'org-mode-hook 'imalison:load-babel-languages)
-    (defun imalison:load-babel-languages ()
-      (let* ((loaded-ob (or (require 'ob-sh nil t) (require 'ob-shell nil t)))
-             (ob-shell-name
-              (when loaded-ob
-                (intern (substring-no-properties (imalison:maybe-symbol-name loaded-ob) 3))))
-             (added-modes (when ob-shell-name `((,ob-shell-name . t)))))
-        (org-babel-do-load-languages
-         'org-babel-load-languages
-         `((python . t)
-           (ruby . t)
-           (octave . t)
-           (plantuml . t)
-           (js . t)
-           ,@added-modes))))
-
-    (use-package ob-typescript
-      :config
-      (progn
-        (org-babel-do-load-languages
-         'org-babel-load-languages '((typescript . t)))))
-
-    (use-package ob-mermaid
-      :config
-      (org-babel-do-load-languages
-       'org-babel-load-languages '((mermaid . t))))
-
-    (when nil
-      ;; Enable appointment notifications.
-      (defadvice org-agenda-to-appt (before wickedcool activate)
-        "Clear the appt-time-msg-list."
-        (setq appt-time-msg-list nil))
-      (appt-activate)
-      (defun org-agenda-to-appt-no-message ()
-        (shut-up (org-agenda-to-appt)))
-      (run-at-time "00:00" 60 'org-agenda-to-appt-no-message))
-
-
-    ;; Override the key definition for org-exit
-    ;; TODO why does this cause an error
-    ;; (define-key org-agenda-mode-map "x" #'org-agenda-done)
-
-    ;; org-mode add-ons
-    (use-package org-present
-      :commands org-present)
-
-    (use-package org-pomodoro
-      :disabled t)
-
-    ;; variable configuration
-    (add-to-list 'org-modules 'org-habit)
-    (add-to-list 'org-modules 'org-expiry)
-
-    (setq org-src-fontify-natively t)
-    (setq org-habit-graph-column 50)
-    (setq org-habit-show-habits-only-for-today t)
-
-    ;; My priority system:
-
-    ;; A - Absolutely MUST, at all costs, be completed by the provided
-    ;;     due date. TODO: implement some type of extreme nagging
-    ;;     system that alerts in an intrusive way for overdue A
-    ;;     priority tasks.
-
-    ;; B - Should be given immediate attention if the due date is any
-    ;;     time in the next two days. Failure to meet due date would
-    ;;     be bad but not catastrophic.
-
-    ;; C - The highest priority to which tasks for which failure to
-    ;;     complete on time would not have considerable significant
-    ;;     consequences. There is still significant reason to prefer
-    ;;     the completion of these tasks sooner rather than later.
-
-    ;; D - Failure to complete within a few days (or ever) of any
-    ;;     deadline would be completely okay. As such, any deadline
-    ;;     present on such a task is necessarily self imposed. Still
-    ;;     probably worth doing
-
-    ;; E - Potentially not even worth doing at all, but worth taking a
-    ;;     note about in case it comes up again, or becomes more
-    ;;     interesting later.
-
-    ;; F - Almost certainly not worth attempting in the immediate future.
-    ;;     Just brain dump.
-
-    ;; Priorities are somewhat contextual within each category. Things
-    ;; in the gtd or work categories are generally regarded as much
-    ;; more important than things with the same priority from the
-    ;; dotfiles category.
-
-    ;; Items without deadlines or scheduled times of a given priority
-    ;; can be regarded as less important than items that DO have
-    ;; deadlines of that same priority.
-
-
-    (define-key mode-specific-map [?a] 'org-agenda)
-    (unbind-key "C-j" org-mode-map)
-
-    (use-package org-bullets
-      :commands org-bullets-mode
-      :preface
-      (add-hook 'org-mode-hook
-                (lambda () (org-bullets-mode 1))))
-
-    (use-package org-ehtml
-      :disabled t
-      :config
-      (progn
-        (setq org-ehtml-allow-agenda t)
-        (setq org-ehtml-editable-headlines t)
-        (setq org-ehtml-everything-editable t)))
-
-    ;; Agenda setup.
-    (defvar imalison:org-gtd-file
-      (imalison:join-paths imalison:org-dir "gtd.org"))
-    (defvar imalison:org-habits-file
-      (imalison:join-paths imalison:org-dir "habits.org"))
-    (defvar imalison:org-calendar-file
-      (imalison:join-paths imalison:org-dir "calendar.org"))
-    (defvar imalison:org-inbox-file
-      (imalison:join-paths imalison:org-dir "inbox.org"))
-    (defvar imalison:shared-org-gtd-file
-      (imalison:join-paths imalison:shared-org-dir "shared_gtd.org"))
-    (defvar imalison:shared-habits-file
-      (imalison:join-paths imalison:shared-org-dir "shared_habits.org"))
-    (defvar imalison:shared-calendar-file
-      (imalison:join-paths imalison:shared-org-dir "shared_calendar.org"))
-    (defvar imalison:shared-shopping-file
-      (imalison:join-paths imalison:shared-org-dir "shared_shopping.org"))
-
-
-    (defvar imalison:orgzly-files
-      (list (imalison:join-paths imalison:shared-org-dir "kat_orgzly.org")
-            (imalison:join-paths imalison:shared-org-dir "ivan_orgzly.org")
-            (imalison:join-paths imalison:org-dir "orgzly.org")))
-
-    (unless (boundp 'org-capture-templates)
-      (defvar org-capture-templates nil))
-
-    (defvar imalison:created-property-string "
-:PROPERTIES:
-:CREATED: %U
-:END:")
-
-    (imalison:add-to-org-agenda-files
-     (nconc (list imalison:org-gtd-file imalison:org-habits-file
-                  imalison:org-calendar-file imalison:org-inbox-file
-                  imalison:shared-org-gtd-file imalison:shared-habits-file
-                  imalison:shared-calendar-file imalison:shared-shopping-file)
-            imalison:orgzly-files))
-
-    (add-to-list 'org-capture-templates
-                 `("t" "GTD Todo (Linked)" entry (file ,imalison:org-gtd-file)
-                   (function imalison:make-org-linked-todo-template)))
-
-    (add-to-list 'org-capture-templates
-                 `("g" "GTD Todo" entry (file ,imalison:org-gtd-file)
-                   (function imalison:make-org-todo-template)))
-
-    (add-to-list 'org-capture-templates
-                 `("s" "Shared GTD Todo" entry (file ,imalison:shared-org-gtd-file)
-                   (function imalison:make-org-todo-template)))
-
-    (add-to-list 'org-capture-templates
-                 `("y" "Calendar entry (Linked)" entry
-                   (file ,imalison:org-calendar-file)
-                   ,(format "%s%s\n%s" "* %? %A" imalison:created-property-string "%^T")))
-
-    (add-to-list 'org-capture-templates
-                 `("c" "Calendar entry" entry
-                   (file ,imalison:org-calendar-file)
-                   ,(format "%s\n%s\n%s" "* %?" imalison:created-property-string "%^T")))
-
-    (add-to-list 'org-capture-templates
-                 `("z" "Shopping Todo" entry (file ,imalison:shared-shopping-file)
-                   (function (lambda (&rest args) (imalison:make-org-todo-template :creation-state "TODO")))))
-
-    (add-to-list 'org-capture-templates
-                 `("h" "Habit" entry (file ,imalison:org-habits-file)
-                   "* TODO
-SCHEDULED: %^t
-:PROPERTIES:
-:CREATED: %U
-:STYLE: habit
-:END:"))
-
-
-    (defun org-get-priority-at-point ()
-      (save-excursion
-        (beginning-of-line)
-        (org-back-to-heading t)
-        (when (looking-at org-priority-regexp)
-	      (let ((ms (match-string 2)))
-	        (org-priority-to-value ms)))))
-
-    (defmacro imalison:def-agenda-priority-pred (priority)
-      `(imalison:def-agenda-pred
-        (>= (org-get-priority-at-point) ,priority)))
-
-    (require 'org-agenda)
-    (when (fboundp 'org-agenda-transient)
-      (bind-key "C-c a" 'org-agenda-transient))
-
-    (let ((this-week-high-priority
-           ;; The < in the following line has behavior that is opposite
-           ;; to what one might expect.
-           `(tags-todo
-             "+PRIORITY<\"C\""
-             ((org-agenda-overriding-header "Upcoming high priority tasks:")
-              (org-agenda-skip-function
-               ,(imalison:def-agenda-pred
-                 (or
-                  (imalison:org-time-condition-met-p
-                   :property "DEADLINE" :days 7 :future t)
-                  (imalison:org-time-condition-met-p
-                   :property "SCHEDULED" :days 7 :future t)))))))
-          (due-today
-           `(alltodo
-             ""
-             ((org-agenda-overriding-header "Due today:")
-              (org-agenda-skip-function
-               ,(imalison:def-agenda-pred
-                 (or
-                  (imalison:org-time-condition-met-p
-                   :property "DEADLINE" :days 0 :future t)
-                  (imalison:org-time-condition-met-p
-                   :property "SCHEDULED" :days 0 :future t)))))))
-          (recently-created
-           `(alltodo
-             ""
-             ((org-agenda-overriding-header "Recently Created:")
-              (org-agenda-skip-function
-               ,(imalison:def-agenda-pred
-                 (imalison:org-time-condition-met-p :days 10)))
-              (org-agenda-cmp-user-defined 'org-cmp-creation-times)
-              (org-agenda-sorting-strategy '(user-defined-down)))))
-          (next '(todo "NEXT"))
-          (started '(todo "STARTED"))
-          (inbox '(todo "INBOX"))
-          (missing-deadline
-           '(tags-todo "-DEADLINE={.}/!"
-                       ((org-agenda-overriding-header
-                         "These don't have deadlines:"))))
-          (missing-priority
-           '(tags-todo "-PRIORITY={.}/!"
-                       ((org-agenda-overriding-header
-                         "These don't have priorities:")))))
-
-      (setq org-agenda-custom-commands
-            `(("M" "Main agenda view"
-               ((agenda ""
-                        ((org-agenda-overriding-header "Agenda:")
-                         (org-agenda-ndays 5)
-                         (org-deadline-warning-days 0)
-                         (org-agenda-skip-function 'imalison:assigned-to-me-agenda-pred)))
-                ,due-today
-                ,next
-                ,inbox
-                ,this-week-high-priority
-                ,recently-created)
-               nil nil)
-              ,(cons "A" (cons "High priority upcoming" this-week-high-priority))
-              ,(cons "d" (cons "Overdue tasks and due today" due-today))
-              ,(cons "r" (cons "Recently created" recently-created))
-              ("h" "A, B priority:" tags-todo "+PRIORITY<\"C\""
-               ((org-agenda-overriding-header
-                 "High Priority:")))
-              ("c" "At least priority C:" tags-todo "+PRIORITY<\"D\""
-               ((org-agenda-overriding-header
-                 "At least priority C:"))))))
-
-    (require 'org-agenda)
-    (when (fboundp 'org-agenda-transient)
-      (bind-key "C-c a" 'org-agenda-transient))
-
-    ;; What follows is a description of the significance of each of
-    ;; the values available in `org-todo-keywords'. All headings with
-    ;; one of these keywords deal with the concept of the completion
-    ;; of some task or collection of tasks to bring about a particular
-    ;; state of affairs. In some cases, the actual tasks involved may
-    ;; not be known at the time of task creation.
-
-    ;; Incomplete States:
-
-    ;; IDEA - This TODO exists in only the most abstract sense: it is
-    ;; an imagined state of affairs that requires tasks that are
-    ;; either not yet known, or have not thoroughly been considered.
-
-    ;; RESEARCH - This TODO needs to be investigated further before
-    ;; action can be taken to achieve the desired outcome. It is not
-    ;; known how much time and effort will be consumed in the actual
-    ;; completion of the task.
-
-    ;; TODO - The scope and work involved in this TODO are well
-    ;; understood, but for some reason or another, it is not something
-    ;; that should be attempted in the immediate future. Typically
-    ;; this is because the task is not considered a top priority, but
-    ;; it may also be for some other reason.
-
-    ;; NEXT - This TODO is immediately actionable and should be
-    ;; started in the immediate future.
-
-    ;; STARTED - Work on this TODO has already started, further work
-    ;; is immediately actionable.
-
-    ;; WAIT - The work involved in this TODO is well understood, but
-    ;; it is blocked for the time being.
-
-    ;; BACKLOG - While technically actionable, this task is not only
-    ;; not worth pursuing in the immediate future, but the foreseable
-    ;; future. It exists as a task mostly as a note/reminder, in case
-    ;; it becomes higher priority in the future.
-
-    ;; Complete States:
-
-    ;; DONE - This TODO has been completed exactly as imagined.
-
-    ;; HANDLED - This TODO was completed in spirit, though not by the
-    ;; means that were originally imagined/outlined in the TODO.
-
-    ;; EXPIRED - The owner of this TODO failed to take action on it
-    ;; within the appropriate time period, and there is now no point in
-    ;; attempting it.
-
-    ;; CANCELED - For whatever reason, this TODO should no longer be
-    ;; attempted. This TODO is typically used in contrast to the
-    ;; EXPIRED TODO to indicate that the owner is not necessarily to
-    ;; blame.
-    ))
-#+END_SRC
-**** Load org-config.el
-I put some org-mode specific configs in a separate file so that they can be used
-separately. This means that I need to load this file in init.el.
+My org-mode configuration now lives in its own file org-config.org.
 #+BEGIN_SRC emacs-lisp
-(load-file (concat (file-name-directory load-file-name) "org-config.el"))
+(org-babel-load-file
+ (concat (file-name-directory load-file-name) "org-config.org"))
 #+END_SRC
-**** Use frames
-#+BEGIN_SRC emacs-lisp
-(use-package org
-  :config
-  (progn
-  (setq org-src-window-setup 'current-window)
-    (when frame-mode
-      (progn
-        (setcdr (assoc 'file org-link-frame-setup) 'find-file-other-frame)))))
-#+END_SRC
-**** Disable yasnippet in org-mode
-#+BEGIN_SRC emacs-lisp
-(use-package org
-  :straight nil
-  :config
-  (progn
-    (defun imalison:disable-yas ()
-      (yas-minor-mode -1))
-    (add-hook 'org-mode-hook 'imalison:disable-yas)))
-#+END_SRC
-**** Set Background Color of Source Blocks for Export
-This was taken from [[http://emacs.stackexchange.com/questions/3374/set-the-background-of-org-exported-code-blocks-according-to-theme][here]].
-#+BEGIN_SRC emacs-lisp :tangle org-config.el
-(use-package org
-  :config
-  (progn
-    (defun imalison:org-inline-css-hook (exporter)
-      "Insert custom inline css to automatically set the
-background of code to whatever theme I'm using's background"
-      (when (eq exporter 'html)
-        (let* ((my-pre-bg (face-background 'default))
-               (my-pre-fg (face-foreground 'default)))
-          (setq
-           org-html-head-extra
-           (concat
-            org-html-head-extra
-            (format "<style type=\"text/css\">\n pre.src {background-color: %s; color: %s;}</style>\n"
-                    my-pre-bg my-pre-fg))))))
-
-    (add-hook 'org-export-before-processing-hook 'imalison:org-inline-css-hook)))
-#+END_SRC
-**** Use my own default naming scheme for org-headings
-First we define a function that will generate a sanitized version of the heading
-as its link target.
-#+BEGIN_SRC emacs-lisp :tangle org-config.el
-(defun imalison:org-get-raw-value (item)
-  (when (listp item)
-    (let* ((property-list (cadr item)))
-      (when property-list (plist-get property-list :raw-value)))))
-
-(defun imalison:sanitize-name (name)
-  (replace-regexp-in-string "[^[:alpha:]]" "" (s-downcase name)))
-
-(defun imalison:generate-name (datum cache)
-  (let ((raw-value (imalison:org-get-raw-value datum)))
-    (if raw-value
-        (imalison:sanitize-name raw-value)
-      ;; This is the default implementation from org
-      (let ((type (org-element-type datum)))
-        (format "org%s%d"
-                (if type
-                    (replace-regexp-in-string "-" "" (symbol-name type))
-                    "secondarystring")
-                (incf (gethash type cache 0)))))))
-#+END_SRC
-
-This function replaces the default naming scheme with a call to
-~imalison:generate-name~, and uses a slightly different uniquify approach.
-#+BEGIN_SRC emacs-lisp :tangle org-config.el
-(use-package ox
-  :defer t
-  :straight nil
-  :config
-  (defun org-export-get-reference (datum info)
-    "Return a unique reference for DATUM, as a string.
-DATUM is either an element or an object.  INFO is the current
-export state, as a plist.  Returned reference consists of
-alphanumeric characters only."
-    (let ((type (org-element-type datum))
-          (cache (or (plist-get info :internal-references)
-                     (let ((h (make-hash-table :test #'eq)))
-                       (plist-put info :internal-references h)
-                       h)))
-          (reverse-cache (or (plist-get info :taken-internal-references)
-                             (let ((h (make-hash-table :test 'equal)))
-                               (plist-put info :taken-internal-references h)
-                               h))))
-      (or (gethash datum cache)
-          (let* ((name (imalison:generate-name datum cache))
-                 (number (+ 1 (gethash name reverse-cache -1)))
-                 (new-name (format "%s%s" name (if (< 0 number) number ""))))
-            (puthash name number reverse-cache)
-            (puthash datum new-name cache)
-            new-name)))))
-#+END_SRC
-**** Add link icons in headings that lead to themselves
-#+BEGIN_SRC emacs-lisp :tangle org-config.el
-(use-package ox-html
-  :commands (org-html-export-as-html org-html-export-as-html)
-  :straight nil
-  :preface
-  (progn
-    (defvar imalison:link-svg-html
-      "<svg aria-hidden=\"true\" class=\"octicon octicon-link\" height=\"16\" version=\"1.1\" viewBox=\"0 0 16 16\" width=\"16\"><path fill-rule=\"evenodd\" d=\"M4 9h1v1H4c-1.5 0-3-1.69-3-3.5S2.55 3 4 3h4c1.45 0 3 1.69 3 3.5 0 1.41-.91 2.72-2 3.25V8.59c.58-.45 1-1.27 1-2.09C10 5.22 8.98 4 8 4H4c-.98 0-2 1.22-2 2.5S3 9 4 9zm9-3h-1v1h1c1 0 2 1.22 2 2.5S13.98 12 13 12H9c-.98 0-2-1.22-2-2.5 0-.83.42-1.64 1-2.09V6.25c-1.09.53-2 1.84-2 3.25C6 11.31 7.55 13 9 13h4c1.45 0 3-1.69 3-3.5S14.5 6 13 6z\"></path></svg>")
-    (defvar imalison:current-html-headline)
-    (defun imalison:set-current-html-headline (headline &rest args)
-      (setq imalison:current-html-headline headline))
-    (defun imalison:clear-current-html-headline (&rest args)
-      (setq imalison:current-html-headline nil))
-    (defun imalison:org-html-format-heading-function (todo todo-type priority text tags info)
-      (let* ((reference (when imalison:current-html-headline
-                          (org-export-get-reference imalison:current-html-headline info)))
-             ;; Don't do anything special if the current headline is not set
-             (new-text (if reference
-                           (format "%s <a href=\"#%s\">%s</a>" text reference imalison:link-svg-html)
-                         text)))
-        (org-html-format-headline-default-function
-         todo todo-type priority new-text tags info))))
-  :config
-  (progn
-    ;; This is set before and cleared afterwards, so that we know when we are
-    ;; generating the text for the headline itself and when we are not.
-    (advice-add 'org-html-headline :before 'imalison:set-current-html-headline)
-    (advice-add 'org-html-headline :after 'imalison:clear-current-html-headline)
-    (setq org-html-format-headline-function
-          'imalison:org-html-format-heading-function)))
-#+END_SRC
-**** Allow with query params in image extentions
-#+BEGIN_SRC emacs-lisp :tangle org-config.el
-(use-package ox-html
-  :defer t
-  :straight nil
-  :config
-  (setq org-html-inline-image-rules
-        '(("file" . "\\.\\(jpeg\\|jpg\\|png\\|gif\\|svg\\)\\(\\?.*?\\)?\\'")
-
-          ("http" . "\\.\\(jpeg\\|jpg\\|png\\|gif\\|svg\\)\\(\\?.*?\\)?\\'")
-          ("https" . "\\.\\(jpeg\\|jpg\\|png\\|gif\\|svg\\)\\(\\?.*?\\)?\\'"))))
-#+END_SRC
-**** Use org-tempo to allow inserting templates using e.g. <s
-#+begin_src emacs-lisp
-(use-package org-tempo
-  :straight nil
-  :after org)
-#+end_src
-**** org-modern
-#+begin_src emacs-lisp
-(use-package org-modern
-  :disabled t
-  :after org
-  :hook (org-mode . org-modern-mode))
-#+end_src
-**** org-project-capture
-#+BEGIN_SRC emacs-lisp
-;; TODO: remove once melpa recipe fixed to point to right repo
-(use-package org-category-capture
-  :straight
-  (org-category-capture
-   :type git :flavor melpa
-   :files ("org-category-capture*.el" "org-category-capture-pkg.el")
-   :host github :repo "colonelpanic8/org-project-capture"))
-
-(use-package org-project-capture
-  :bind ("C-c o p" . org-project-capture-project-todo-completing-read)
-  ;; We want this to load somewhat quickly because we need to update the list of agenda files
-  :defer 2
-  :config
-  (progn
-    (use-package org-projectile
-      :demand t
-      :config
-      (setq org-project-capture-default-backend
-            (make-instance 'org-project-capture-projectile-backend)))
-    (setq org-project-capture-strategy
-          (make-instance 'org-project-capture-combine-strategies
-                         :strategies (list (make-instance 'org-project-capture-single-file-strategy)
-                                           (make-instance 'org-project-capture-per-project-strategy))))
-    (setq org-project-capture-projects-file
-          (imalison:join-paths imalison:org-dir "projects.org")
-          org-project-capture-capture-template
-          (format "%s%s" "* TODO %?" imalison:created-property-string))
-    (add-to-list 'org-capture-templates
-                 (org-project-capture-project-todo-entry
-                  :capture-character "l"
-                  :capture-heading "Linked Project TODO"))
-    (add-to-list 'org-capture-templates
-                 (org-project-capture-project-todo-entry
-                  :capture-character "p"))
-    (setq org-confirm-elisp-link-function nil)
-    (imalison:add-to-org-agenda-files (org-project-capture-todo-files))))
-#+END_SRC
-**** org-pomodoro
-#+BEGIN_SRC emacs-lisp
-(use-package org-pomodoro
-  :after org)
-#+END_SRC
-**** org-roam
-#+begin_src emacs-lisp
-(use-package org-roam
-  :defer 1
-  :bind
-  (:map org-mode-map
-        ("C-c r f" . org-roam-node-find)
-        ("C-c r i" . org-roam-node-insert)
-        ("C-c r b" . imalison:org-roam-browse-backlink)
-        ("C-c r t" . org-roam-buffer-toggle))
-  :config
-  (progn
-    (when (version<= "29.0" emacs-version)
-      (use-package emacsql-sqlite-builtin
-        :demand t)
-      (setq org-roam-database-connector 'sqlite-builtin))
-    (org-roam-db-autosync-mode +1)
-
-    (defun imalison:frames-displaying-buffer (buf)
-      "Return a list of frames in which BUF is displayed."
-      (let ((target-buffer (if (bufferp buf) buf (get-buffer buf))))
-        (if target-buffer
-            (delq nil
-                  (mapcar (lambda (frame)
-                            (if (get-buffer-window target-buffer frame)
-                                frame))
-                          (frame-list)))
-          nil)))
-
-    (defun imalison:org-roam-browse-backlink ()
-      (interactive)
-      (let* ((node-alist
-              (cl-loop for backlink in (org-roam-backlinks-get (org-roam-node-at-point))
-                       for node = (org-roam-backlink-source-node backlink)
-                       collect `(,(org-roam-node-title node) . ,node)))
-             (selected-name (completing-read "Select a backlink to visit: " node-alist))
-             (selected-node (alist-get selected-name node-alist nil nil 'string-equal)))
-        (org-roam-node-visit selected-node)))
-
-    (defun imalison:org-roam-frame-based-buffer-visibility-fn ()
-      (cond
-       ((--any (funcall frame-mode-is-frame-viewable-fn it)
-               (imalison:frames-displaying-buffer org-roam-buffer)) 'visible)
-       ((get-buffer org-roam-buffer) 'exists)
-       (t 'none)))
-
-    (use-package frame-mode
-      :if imalison:use-frame-mode
-      :demand t
-      :config
-      (progn
-        (emit-variable-set-mode
-         imalison:org-roam-set-frame-visibility-mode
-         org-roam-buffer-visibility-fn 'imalison:org-roam-frame-based-buffer-visibility-fn)
-        (emit-make-mode-dependent imalison:org-roam-set-frame-visibility-mode frame-mode))))
-  :custom
-  (org-roam-directory (file-truename "~/org/roam/")))
-#+end_src
-***** ui
-#+begin_src emacs-lisp
-(use-package org-roam-ui
-  :after org-roam
-  :custom
-  (org-roam-ui-sync-theme t)
-  (org-roam-ui-follow t)
-  (org-roam-ui-update-on-save t)
-  (org-roam-ui-open-on-start nil))
-#+end_src
-**** org-notify
- #+BEGIN_SRC emacs-lisp
-(use-package org-notify
-  :disabled t
-  :after org
-  :config
-  (progn
-    (defun imalison:org-notify-notification-handler (plist)
-      (sauron-add-event 'org-notify 4 (format "%s, %s.\n" (plist-get plist :heading)
-                                              (org-notify-body-text plist))))
-
-    (setq org-show-notification-handler 'imalison:org-notify-notification-handler)
-
-    (org-notify-add 'default '(:time "1h" :actions imalison:org-notify-notification-handler
-                                     :period "2m" :duration 60))
-    (org-notify-add 'default '(:time "100m" :actions imalison:org-notify-notification-handler
-                                     :period "2m" :duration 60))
-    (org-notify-add 'urgent-second '(:time "3m" :actions (-notify/window -ding)
-                                           :period "15s" :duration 10))
-    (org-notify-add 'minute '(:time "5m" :actions -notify/window
-                                    :period "100s" :duration 70))
-    (org-notify-add '12hours
-                    '(:time "3m" :actions (-notify/window -ding)
-                            :period "15s" :duration 10)
-                    '(:time "100m" :actions -notify/window
-                            :period "2m" :duration 60)
-                    '(:time "12h" :actions -notify/window :audible nil
-                            :period "10m" :duration 200))
-    (org-notify-add '5days
-                    '(:time "100m" :actions -notify/window
-                            :period "2m" :duration 60)
-                    '(:time "2d" :actions -notify/window
-                            :period "15m" :duration 100)
-                    '(:time "5d" :actions -notify/window
-                            :period "2h" :duration 200))
-    (org-notify-add 'long-20days
-                    '(:time "2d" :actions -notify/window
-                            :period "15m" :duration 60)
-                    '(:time "5d" :actions -notify/window
-                            :period "2h" :duration 60)
-                    '(:time "20d" :actions -email :period "2d" :audible nil))
-    (org-notify-add 'long-50days
-                    '(:time "4d" :actions -notify/window
-                            :period "30m" :duration 100)
-                    '(:time "10d" :actions -notify/window
-                            :period "4h" :duration 200)
-                    '(:time "50d" :actions -email :period "3d" :audible nil))
-    (org-notify-add 'long-100days
-                    '(:time "2d" :actions -notify/window
-                            :period "1h" :duration 200)
-                    '(:time "10d" :actions -notify/window
-                            :period "10h" :duration 300)
-                    '(:time "50d" :actions -email :period "3d" :audible nil)
-                    '(:time "100d" :actions -email :period "5d" :audible nil))
-    (org-notify-start 10)))
- #+END_SRC
-**** org-reveal
-#+BEGIN_SRC emacs-lisp
-(use-package ox-reveal
-  :defer t
-  :commands org-reveal
-  :config
-  (setq org-reveal-root
-      (imalison:join-paths "file://" imalison:projects-directory "reveal.js")))
-#+END_SRC
-**** org-fc
-#+begin_src emacs-lisp
-(use-package org-fc
-  :bind ("C-c 9" . org-fc-hydra/body)
-  :config
-  (progn
-    (require 'org-fc-hydra))
-  :straight (org-fc :type git :host github :repo "l3kn/org-fc"
-                    :files ("*.el" "awk" "demo.org")))
-#+end_src
-**** org-ql
-#+begin_src emacs-lisp
-(use-package org-ql
-  :bind ("C-c o s" . org-ql-find-in-agenda)
-  :commands org-ql-find-in-agenda)
-#+end_src
 *** TeX
 #+BEGIN_SRC emacs-lisp
 (use-package tex
diff --git a/dotfiles/emacs.d/org-config.org b/dotfiles/emacs.d/org-config.org
new file mode 100644
index 00000000..86ba2a2e
--- /dev/null
+++ b/dotfiles/emacs.d/org-config.org
@@ -0,0 +1,871 @@
+* include-file-as-forms
+We're going to use this to write separate parts of our config to different sections that will then be provided to our use package statment
+#+begin_src emacs-lisp
+(defun imalison:include-file-as-forms (filename)
+  "Include the contents of FILENAME into the source as s-expressions."
+  (with-temp-buffer
+    (insert-file-contents-literally filename)
+    (goto-char (point-min))
+    (let (forms form)
+      (condition-case nil
+          (while t
+            (setq form (read (current-buffer)))
+            (push form forms))
+        (end-of-file nil))
+      `,@(nreverse forms))))
+#+end_src
+* use-package
+#+begin_src emacs-lisp
+  (defmacro imalison:org-config ()
+    `(use-package org
+       :commands (org-mode org org-mobile-push org-mobile-pull org-agenda)
+       :mode ("\\.org\\'" . org-mode)
+       :preface (progn ,@(imalison:include-file-as-forms (imalison:join-paths user-emacs-directory "org-config-preface.el")))
+       :custom ,(imalison:include-file-as-forms (imalison:join-paths user-emacs-directory "org-config-custom.el"))
+       :config (progn ,@(imalison:include-file-as-forms (imalison:join-paths user-emacs-directory "org-config-config.el")))
+       :bind ,(imalison:include-file-as-forms (imalison:join-paths user-emacs-directory "org-config-bind.el"))))
+
+  (imalison:org-config)
+#+end_src
+* My Customization Variables
+#+begin_src emacs-lisp :tangle org-config-preface.el
+(defvar imalison:org-dir "~/org")
+(defvar imalison:shared-org-dir "~/katnivan")
+(defvar imalison:org-whoami "Ivan Malison")
+(defvar imalison:org-people (list "Ivan Malison" "Kat Huang"))
+(defvar imalison:org-default-initial-state "TODO")
+
+(defvar imalison:org-gtd-file
+  (imalison:join-paths imalison:org-dir "gtd.org"))
+(defvar imalison:org-habits-file
+  (imalison:join-paths imalison:org-dir "habits.org"))
+(defvar imalison:org-calendar-file
+  (imalison:join-paths imalison:org-dir "calendar.org"))
+(defvar imalison:org-inbox-file
+  (imalison:join-paths imalison:org-dir "inbox.org"))
+(defvar imalison:shared-org-gtd-file
+  (imalison:join-paths imalison:shared-org-dir "shared_gtd.org"))
+(defvar imalison:shared-habits-file
+  (imalison:join-paths imalison:shared-org-dir "shared_habits.org"))
+(defvar imalison:shared-calendar-file
+  (imalison:join-paths imalison:shared-org-dir "shared_calendar.org"))
+(defvar imalison:shared-shopping-file
+  (imalison:join-paths imalison:shared-org-dir "shared_shopping.org"))
+
+(defvar imalison:orgzly-files
+  (list (imalison:join-paths imalison:shared-org-dir "kat_orgzly.org")
+        (imalison:join-paths imalison:shared-org-dir "ivan_orgzly.org")
+        (imalison:join-paths imalison:org-dir "orgzly.org")))
+
+(defun imalison:add-to-org-agenda-files (incoming-files)
+  (setq org-agenda-files
+        (delete-dups
+         (cl-loop for filepath in (append org-agenda-files incoming-files)
+                  when (and filepath (file-exists-p (file-truename filepath)))
+                  collect (file-truename filepath)))))
+
+(defvar imalison:created-property-string "
+:PROPERTIES:
+:CREATED: %U
+:END:")
+#+end_src
+* Bindings
+#+begin_src emacs-lisp :tangle org-config-bind.el
+(("C-c c" . org-capture)
+ :map org-mode-map
+ (("C-e" . end-of-visual-line)
+  ("C-c n t" . org-insert-todo-heading)
+  ("C-c n s" . org-insert-todo-subheading)
+  ("C-c n h" . org-insert-habit)
+  ("C-c n m" . org-make-habit)
+  ("C-c n l" . org-store-link)
+  ("C-c n i" . org-insert-link)
+  ("C-c C-t" . org-todo)
+  ("C-c C-S-t" . org-todo-force-notes)
+  ("M-." . elisp-slime-nav-find-elisp-thing-at-point)))
+#+end_src
+* Org Variable Customization
+#+begin_src emacs-lisp :tangle org-config-custom.el
+(org-agenda-skip-deadline-if-done nil)
+(org-agenda-skip-scheduled-if-done nil)
+(org-agenda-span 10)
+(org-agenda-start-day "-0d")
+(org-agenda-timegrid-use-ampm 1)
+(org-agenda-window-setup 'other-window)
+(org-columns-default-format "%80ITEM(Task) %10Effort(Effort){:} %10CLOCKSUM")
+(org-deadline-warning-days 0)
+(org-default-priority ?C)
+(org-edit-src-content-indentation 0)
+(org-enforce-todo-dependencies t)
+(org-export-headline-levels 3)
+(org-fold-catch-invisible-edits 'show)
+(org-goto-interface 'outline-path-completion)
+(org-goto-max-level 10)
+(org-habit-graph-column 50)
+(org-habit-show-all-today t)
+(org-imenu-depth 10)
+(org-log-into-drawer t)
+(org-log-redeadline t)
+(org-log-reschedule t)
+(org-lowest-priority 69) ;; The character E
+(org-outline-path-complete-in-steps nil)
+(org-refile-allow-creating-parent-nodes t)
+(org-refile-use-outline-path 'file)
+(org-src-fontify-natively t)
+(org-src-preserve-indentation t)
+(org-startup-folded t)
+(org-startup-indented nil)
+(org-todo-repeat-to-state "TODO")
+(org-treat-insert-todo-heading-as-state-change t)
+(org-habit-show-habits-only-for-today t)
+(org-refile-targets '((org-agenda-files . (:maxlevel . 2))
+                      (org-agenda-files . (:level . 0))))
+(org-global-properties
+ '(quote (("Effort_ALL" . "0:15 0:30 0:45 1:00 2:00 3:00 4:00 5:00 6:00 0:00")
+          ("STYLE_ALL" . "habit"))))
+(org-todo-keywords
+ '((sequence "INBOX(i!)" "TODO(t!)" "NEXT(n!)" "STARTED(s!)" "WAIT(w!)"
+             "BACKLOG(b!)" "|" "DONE(d!)" "HANDLED(h!)" "EXPIRED(e!)"
+             "CANCELED(c!)")))
+#+end_src
+* Config
+** Miscellaneous Functions
+#+begin_src emacs-lisp :tangle org-config-config.el
+(require 'cl-lib)
+(require 'org-habit)
+
+(defun imalison:maybe-symbol-name (arg)
+  (if (symbolp arg)
+      (symbol-name arg)
+    arg))
+
+(defun imalison:set-display-custom-times ()
+  (setq org-display-custom-times nil))
+
+(when (not (fboundp 'org-is-habit-p))
+  (defun org-is-habit-p ()
+    (string-equal (org-entry-get nil "STYLE") "habit")))
+
+(defun org-todo-force-notes ()
+  (interactive)
+  (let ((org-todo-log-states
+         (mapcar (lambda (state)
+                   (list state 'note 'time))
+                 (apply 'append org-todo-sets))))
+    (cond ((eq major-mode 'org-mode)  (org-todo))
+          ((eq major-mode 'org-agenda-mode) (org-agenda-todo)))))
+
+(defun org-make-habit ()
+  (interactive)
+  (org-set-property "STYLE" "habit"))
+
+(defun org-insert-habit ()
+  (interactive)
+  (org-insert-todo-heading nil)
+  (org-make-habit))
+
+(defun org-todo-at-date (date)
+  (interactive (list (org-time-string-to-time (org-read-date))))
+  (cl-flet ((org-current-effective-time (&rest r) date)
+            (org-today (&rest r) (time-to-days date)))
+    (cond ((eq major-mode 'org-mode) (org-todo))
+          ((eq major-mode 'org-agenda-mode) (org-agenda-todo)))))
+#+end_src
+** Miscellaneous
+#+begin_src emacs-lisp :tangle org-config-config.el
+(add-to-list 'org-show-context-detail '(org-goto . lineage))
+(add-to-list 'org-src-lang-modes '("plantuml" . plantuml))
+
+(define-key mode-specific-map [?a] 'org-agenda)
+(unbind-key "C-j" org-mode-map)
+#+end_src
+** Hooks
+#+begin_src emacs-lisp :tangle org-config-config.el
+(add-hook 'org-mode-hook 'imalison:disable-linum-mode)
+(add-hook 'org-mode-hook (lambda () (setq org-todo-key-trigger t)))
+(add-hook 'org-mode-hook 'imalison:set-display-custom-times)
+(add-hook 'org-agenda-mode-hook 'imalison:disable-linum-mode)
+(add-hook 'org-agenda-mode-hook 'imalison:set-display-custom-times)
+(add-hook 'org-agenda-mode-hook 'imalison:disable-linum-mode)
+#+end_src
+** Modules
+#+begin_src emacs-lisp :tangle org-config-config.el
+(add-to-list 'org-modules 'org-habit)
+(add-to-list 'org-modules 'org-expiry)
+#+end_src
+** Assignee
+#+begin_src emacs-lisp :tangle org-config-config.el
+(defmacro imalison:def-agenda-pred (&rest forms)
+  `(lambda ()
+     (unless ,@forms
+       (or (outline-next-heading)
+           (point-max)))))
+
+(defun imalison:org-known-assignees ()
+  imalison:org-people)
+
+(cl-defun imalison:set-assignee (&key assignee (override t))
+  (interactive)
+  (let ((chosen-assignee (if (called-interactively-p 'interactive)
+                             (completing-read "Choose assignee: "
+                                              (imalison:org-known-assignees)
+                                              nil t)
+                           (or assignee imalison:org-whoami))))
+    (when (or override (not (org-entry-get nil "ASSIGNEE")))
+      (org-set-property "ASSIGNEE" chosen-assignee))))
+
+(defun imalison:assign-to-self-if-unassigned ()
+  (interactive)
+  (imalison:set-assignee :assignee imalison:org-whoami :override nil))
+
+(defun imalison:shared-org-file-p ()
+  (string-prefix-p (file-truename imalison:shared-org-dir)
+                   (file-truename default-directory)))
+
+(defun imalison:habit-or-repeating-heading ()
+  (org-is-habit-p))
+
+(defun imalison:shared-non-habit-p ()
+  (and (not (imalison:habit-or-repeating-heading))
+       (imalison:shared-org-file-p)))
+
+(defvar imalison:auto-assign-to-self-predicates
+  (list 'imalison:shared-non-habit-p))
+
+(defun imalison:auto-assign-to-self-when ()
+  (cl-loop for pred in imalison:auto-assign-to-self-predicates
+           when (funcall pred)
+           return t
+           finally return nil))
+
+(defun imalison:maybe-auto-assign-to-self (&rest args)
+  (when (imalison:auto-assign-to-self-when)
+    (imalison:assign-to-self-if-unassigned)))
+
+(advice-add 'org-schedule :after 'imalison:maybe-auto-assign-to-self)
+
+(cl-defun imalison:assigned-to-me (&key (include-unassigned t))
+  (let ((assignee (org-entry-get nil "ASSIGNEE")))
+    (or (string-equal assignee imalison:org-whoami)
+        (and include-unassigned (null assignee)))))
+
+(defalias 'imalison:assigned-to-me-agenda-pred
+  (imalison:def-agenda-pred
+   (imalison:assigned-to-me)))
+#+end_src
+** Agenda
+#+begin_src emacs-lisp :tangle org-config-config.el
+(require 'org-agenda)
+#+end_src
+*** Agenda Files
+#+begin_src emacs-lisp :tangle org-config-config.el
+(imalison:add-to-org-agenda-files
+ (nconc (list imalison:org-gtd-file imalison:org-habits-file
+              imalison:org-calendar-file imalison:org-inbox-file
+              imalison:shared-org-gtd-file imalison:shared-habits-file
+              imalison:shared-calendar-file imalison:shared-shopping-file)
+        imalison:orgzly-files))
+#+end_src
+*** Predicates
+#+begin_src emacs-lisp :tangle org-config-config.el
+(defun org-get-priority-at-point ()
+  (save-excursion
+    (beginning-of-line)
+    (org-back-to-heading t)
+    (when (looking-at org-priority-regexp)
+	  (let ((ms (match-string 2)))
+	    (org-priority-to-value ms)))))
+
+(defmacro imalison:def-agenda-priority-pred (priority)
+  `(imalison:def-agenda-pred
+    (>= (org-get-priority-at-point) ,priority)))
+
+(cl-defun imalison:org-time-condition-met-p (&key (property "CREATED") (days 30) (future nil))
+  (let* ((property-value (org-entry-get (point) property))
+         (comparison-time
+          (if future
+              (time-add (current-time) (days-to-time days))
+            (time-subtract (current-time) (days-to-time days))))
+         (formatted-time-string (format-time-string "<%Y-%m-%d %H:%M>" comparison-time))
+         (compare-time (org-time-string-to-time formatted-time-string))
+         (node-time (when property-value (org-time-string-to-time property-value))))
+    (when node-time
+      (if future
+          (time-less-p node-time compare-time)
+        (time-less-p compare-time node-time)))))
+
+(defun org-cmp-creation-times (a b)
+  (let ((a-created (get-date-created-from-agenda-entry a))
+        (b-created (get-date-created-from-agenda-entry b)))
+    (imalison:compare-int-list a-created b-created)))
+#+end_src
+*** Transient support
+#+begin_src emacs-lisp :tangle org-config-config.el
+(when (fboundp 'org-agenda-transient)
+  (bind-key "C-c a" 'org-agenda-transient))
+#+end_src
+*** Agenda Commands (Views)
+#+begin_src emacs-lisp :tangle org-config-config.el
+(let ((this-week-high-priority
+       ;; The < in the following line has behavior that is opposite
+       ;; to what one might expect.
+       `(tags-todo
+         "+PRIORITY<\"C\""
+         ((org-agenda-overriding-header "Upcoming high priority tasks:")
+          (org-agenda-skip-function
+           ,(imalison:def-agenda-pred
+             (or
+              (imalison:org-time-condition-met-p
+               :property "DEADLINE" :days 7 :future t)
+              (imalison:org-time-condition-met-p
+               :property "SCHEDULED" :days 7 :future t)))))))
+      (due-today
+       `(alltodo
+         ""
+         ((org-agenda-overriding-header "Due today:")
+          (org-agenda-skip-function
+           ,(imalison:def-agenda-pred
+             (or
+              (imalison:org-time-condition-met-p
+               :property "DEADLINE" :days 0 :future t)
+              (imalison:org-time-condition-met-p
+               :property "SCHEDULED" :days 0 :future t)))))))
+      (recently-created
+       `(alltodo
+         ""
+         ((org-agenda-overriding-header "Recently Created:")
+          (org-agenda-skip-function
+           ,(imalison:def-agenda-pred
+             (imalison:org-time-condition-met-p :days 10)))
+          (org-agenda-cmp-user-defined 'org-cmp-creation-times)
+          (org-agenda-sorting-strategy '(user-defined-down)))))
+      (next '(todo "NEXT"))
+      (started '(todo "STARTED"))
+      (inbox '(todo "INBOX"))
+      (missing-deadline
+       '(tags-todo "-DEADLINE={.}/!"
+                   ((org-agenda-overriding-header
+                     "These don't have deadlines:"))))
+      (missing-priority
+       '(tags-todo "-PRIORITY={.}/!"
+                   ((org-agenda-overriding-header
+                     "These don't have priorities:")))))
+
+  (setq org-agenda-custom-commands
+        `(("M" "Main agenda view"
+           ((agenda ""
+                    ((org-agenda-overriding-header "Agenda:")
+                     (org-agenda-ndays 5)
+                     (org-deadline-warning-days 0)
+                     (org-agenda-skip-function 'imalison:assigned-to-me-agenda-pred)))
+            ,due-today
+            ,next
+            ,inbox
+            ,this-week-high-priority
+            ,recently-created)
+           nil nil)
+          ,(cons "A" (cons "High priority upcoming" this-week-high-priority))
+          ,(cons "d" (cons "Overdue tasks and due today" due-today))
+          ,(cons "r" (cons "Recently created" recently-created))
+          ("h" "A, B priority:" tags-todo "+PRIORITY<\"C\""
+           ((org-agenda-overriding-header
+             "High Priority:")))
+          ("c" "At least priority C:" tags-todo "+PRIORITY<\"D\""
+           ((org-agenda-overriding-header
+             "At least priority C:"))))))
+#+end_src
+** Archive
+#+begin_src emacs-lisp :tangle org-config-config.el
+(defun org-archive-if (condition-function)
+  (if (funcall condition-function)
+      (let ((next-point-marker
+             (save-excursion (org-forward-heading-same-level 1) (point-marker))))
+        (org-archive-subtree)
+        (setq org-map-continue-from (marker-position next-point-marker)))))
+
+(defun org-archive-if-completed ()
+  (interactive)
+  (org-archive-if 'org-entry-is-done-p))
+
+(defun org-archive-completed-in-buffer ()
+  (interactive)
+  (org-map-entries 'org-archive-if-completed))
+
+(defun org-archive-all-in-buffer ()
+  (interactive)
+  (org-map-entries 'org-archive-subtree))
+#+end_src
+** Capture
+*** Helper Functions
+#+begin_src emacs-lisp :tangle org-config-config.el
+(cl-defun imalison:make-org-template (&key (content "%?"))
+  (with-temp-buffer
+    (org-mode)
+    (insert content)
+    (org-set-property "CREATED"
+                      (with-temp-buffer
+                        (org-insert-time-stamp
+                         (org-current-effective-time) t t)))
+    (buffer-substring-no-properties (point-min) (point-max))))
+
+(defun imalison:make-org-template-from-file (filename)
+  (imalison:make-org-template (imalison:get-string-from-file filename)))
+
+(cl-defun imalison:make-org-todo-template
+    (&key (content "%?") (creation-state imalison:org-default-initial-state))
+  (with-temp-buffer
+    (org-mode)
+    (org-insert-heading)
+    (insert content)
+    (org-todo creation-state)
+    (org-set-property "CREATED"
+                      (with-temp-buffer
+                        (org-insert-time-stamp
+                         (org-current-effective-time) t t)))
+    (remove-hook 'post-command-hook 'org-add-log-note)
+    (let ((org-log-note-purpose 'state)
+          (org-log-note-return-to (point-marker))
+          (org-log-note-marker (progn (goto-char (org-log-beginning t))
+                                      (point-marker)))
+          (org-log-note-state creation-state))
+      (org-add-log-note))
+    (buffer-substring-no-properties (point-min) (point-max))))
+
+(defun imalison:make-org-linked-todo-template ()
+  (imalison:make-org-todo-template "[#C] %? %A"))
+#+end_src
+*** Templates
+#+begin_src emacs-lisp :tangle org-config-config.el
+(use-package org-capture
+  :straight nil
+  :config
+  (add-to-list 'org-capture-templates
+               `("t" "GTD Todo (Linked)" entry (file ,imalison:org-gtd-file)
+                 (function imalison:make-org-linked-todo-template)))
+
+  (add-to-list 'org-capture-templates
+               `("g" "GTD Todo" entry (file ,imalison:org-gtd-file)
+                 (function imalison:make-org-todo-template)))
+
+  (add-to-list 'org-capture-templates
+               `("s" "Shared GTD Todo" entry (file ,imalison:shared-org-gtd-file)
+                 (function imalison:make-org-todo-template)))
+
+  (add-to-list 'org-capture-templates
+               `("y" "Calendar entry (Linked)" entry
+                 (file ,imalison:org-calendar-file)
+                 ,(format "%s%s\n%s" "* %? %A" imalison:created-property-string "%^T")))
+
+  (add-to-list 'org-capture-templates
+               `("c" "Calendar entry" entry
+                 (file ,imalison:org-calendar-file)
+                 ,(format "%s\n%s\n%s" "* %?" imalison:created-property-string "%^T")))
+
+  (add-to-list 'org-capture-templates
+               `("z" "Shopping Todo" entry (file ,imalison:shared-shopping-file)
+                 (function (lambda (&rest args) (imalison:make-org-todo-template :creation-state "TODO")))))
+
+  (add-to-list 'org-capture-templates
+               `("h" "Habit" entry (file ,imalison:org-habits-file)
+                 "* TODO
+SCHEDULED: %^t
+:PROPERTIES:
+:CREATED: %U
+:STYLE: habit
+:END:")))
+#+end_src
+** Babel
+#+begin_src emacs-lisp :tangle org-config-config.el
+(add-hook 'org-mode-hook 'imalison:load-babel-languages)
+(defun imalison:load-babel-languages ()
+  (let* ((loaded-ob (or (require 'ob-sh nil t) (require 'ob-shell nil t)))
+         (ob-shell-name
+          (when loaded-ob
+            (intern (substring-no-properties (imalison:maybe-symbol-name loaded-ob) 3))))
+         (added-modes (when ob-shell-name `((,ob-shell-name . t)))))
+    (org-babel-do-load-languages
+     'org-babel-load-languages
+     `((python . t)
+       (ruby . t)
+       (octave . t)
+       (plantuml . t)
+       (js . t)
+       ,@added-modes))))
+
+(use-package ob-typescript
+  :config
+  (progn
+    (org-babel-do-load-languages
+     'org-babel-load-languages '((typescript . t)))))
+
+(use-package ob-mermaid
+  :config
+  (org-babel-do-load-languages
+   'org-babel-load-languages '((mermaid . t))))
+#+end_src
+** frame-mode handling
+Note that this does not go into org-config-config.el. This is on purpose
+#+begin_src emacs-lisp
+(use-package org
+  :after frame-mode
+  :config
+  (progn
+    (defun imalison:org-frame-mode-hook ()
+      (setq org-src-window-setup 'current-window)
+      (when frame-mode
+        (progn
+          (setcdr (assoc 'file org-link-frame-setup) 'find-file-other-frame))))
+    (add-hook 'frame-mode-hook 'imalison:org-frame-mode-hook)))
+#+end_src
+** Disable yasnippet in org-mode
+#+BEGIN_SRC emacs-lisp
+(use-package org
+  :straight nil
+  :config
+  (progn
+    (defun imalison:disable-yas ()
+      (yas-minor-mode -1))
+    (add-hook 'org-mode-hook 'imalison:disable-yas)))
+#+END_SRC
+** Set Background Color of Source Blocks for Export
+This was taken from [[http://emacs.stackexchange.com/questions/3374/set-the-background-of-org-exported-code-blocks-according-to-theme][here]].
+#+BEGIN_SRC emacs-lisp
+(use-package org
+  :config
+  (progn
+    (defun imalison:org-inline-css-hook (exporter)
+      "Insert custom inline css to automatically set the
+background of code to whatever theme I'm using's background"
+      (when (eq exporter 'html)
+        (let* ((my-pre-bg (face-background 'default))
+               (my-pre-fg (face-foreground 'default)))
+          (setq
+           org-html-head-extra
+           (concat
+            org-html-head-extra
+            (format "<style type=\"text/css\">\n pre.src {background-color: %s; color: %s;}</style>\n"
+                    my-pre-bg my-pre-fg))))))
+
+    (add-hook 'org-export-before-processing-hook 'imalison:org-inline-css-hook)))
+#+END_SRC
+** Use my own default naming scheme for org-headings
+First we define a function that will generate a sanitized version of the heading
+as its link target.
+#+BEGIN_SRC emacs-lisp
+(defun imalison:org-get-raw-value (item)
+  (when (listp item)
+    (let* ((property-list (cadr item)))
+      (when property-list (plist-get property-list :raw-value)))))
+
+(defun imalison:sanitize-name (name)
+  (replace-regexp-in-string "[^[:alpha:]]" "" (s-downcase name)))
+
+(defun imalison:generate-name (datum cache)
+  (let ((raw-value (imalison:org-get-raw-value datum)))
+    (if raw-value
+        (imalison:sanitize-name raw-value)
+      ;; This is the default implementation from org
+      (let ((type (org-element-type datum)))
+        (format "org%s%d"
+                (if type
+                    (replace-regexp-in-string "-" "" (symbol-name type))
+                    "secondarystring")
+                (incf (gethash type cache 0)))))))
+#+END_SRC
+
+This function replaces the default naming scheme with a call to
+~imalison:generate-name~, and uses a slightly different uniquify approach.
+#+BEGIN_SRC emacs-lisp
+(use-package ox
+  :defer t
+  :straight nil
+  :config
+  (defun org-export-get-reference (datum info)
+    "Return a unique reference for DATUM, as a string.
+DATUM is either an element or an object.  INFO is the current
+export state, as a plist.  Returned reference consists of
+alphanumeric characters only."
+    (let ((type (org-element-type datum))
+          (cache (or (plist-get info :internal-references)
+                     (let ((h (make-hash-table :test #'eq)))
+                       (plist-put info :internal-references h)
+                       h)))
+          (reverse-cache (or (plist-get info :taken-internal-references)
+                             (let ((h (make-hash-table :test 'equal)))
+                               (plist-put info :taken-internal-references h)
+                               h))))
+      (or (gethash datum cache)
+          (let* ((name (imalison:generate-name datum cache))
+                 (number (+ 1 (gethash name reverse-cache -1)))
+                 (new-name (format "%s%s" name (if (< 0 number) number ""))))
+            (puthash name number reverse-cache)
+            (puthash datum new-name cache)
+            new-name)))))
+#+END_SRC
+** Add link icons in headings that lead to themselves
+#+BEGIN_SRC emacs-lisp
+(use-package ox-html
+  :commands (org-html-export-as-html org-html-export-as-html)
+  :straight nil
+  :preface
+  (progn
+    (defvar imalison:link-svg-html
+      "<svg aria-hidden=\"true\" class=\"octicon octicon-link\" height=\"16\" version=\"1.1\" viewBox=\"0 0 16 16\" width=\"16\"><path fill-rule=\"evenodd\" d=\"M4 9h1v1H4c-1.5 0-3-1.69-3-3.5S2.55 3 4 3h4c1.45 0 3 1.69 3 3.5 0 1.41-.91 2.72-2 3.25V8.59c.58-.45 1-1.27 1-2.09C10 5.22 8.98 4 8 4H4c-.98 0-2 1.22-2 2.5S3 9 4 9zm9-3h-1v1h1c1 0 2 1.22 2 2.5S13.98 12 13 12H9c-.98 0-2-1.22-2-2.5 0-.83.42-1.64 1-2.09V6.25c-1.09.53-2 1.84-2 3.25C6 11.31 7.55 13 9 13h4c1.45 0 3-1.69 3-3.5S14.5 6 13 6z\"></path></svg>")
+    (defvar imalison:current-html-headline)
+    (defun imalison:set-current-html-headline (headline &rest args)
+      (setq imalison:current-html-headline headline))
+    (defun imalison:clear-current-html-headline (&rest args)
+      (setq imalison:current-html-headline nil))
+    (defun imalison:org-html-format-heading-function (todo todo-type priority text tags info)
+      (let* ((reference (when imalison:current-html-headline
+                          (org-export-get-reference imalison:current-html-headline info)))
+             ;; Don't do anything special if the current headline is not set
+             (new-text (if reference
+                           (format "%s <a href=\"#%s\">%s</a>" text reference imalison:link-svg-html)
+                         text)))
+        (org-html-format-headline-default-function
+         todo todo-type priority new-text tags info))))
+  :config
+  (progn
+    ;; This is set before and cleared afterwards, so that we know when we are
+    ;; generating the text for the headline itself and when we are not.
+    (advice-add 'org-html-headline :before 'imalison:set-current-html-headline)
+    (advice-add 'org-html-headline :after 'imalison:clear-current-html-headline)
+    (setq org-html-format-headline-function
+          'imalison:org-html-format-heading-function)))
+#+END_SRC
+** Allow with query params in image extentions
+#+BEGIN_SRC emacs-lisp
+(use-package ox-html
+  :defer t
+  :straight nil
+  :config
+  (setq org-html-inline-image-rules
+        '(("file" . "\\.\\(jpeg\\|jpg\\|png\\|gif\\|svg\\)\\(\\?.*?\\)?\\'")
+
+          ("http" . "\\.\\(jpeg\\|jpg\\|png\\|gif\\|svg\\)\\(\\?.*?\\)?\\'")
+          ("https" . "\\.\\(jpeg\\|jpg\\|png\\|gif\\|svg\\)\\(\\?.*?\\)?\\'"))))
+#+END_SRC
+** Use org-tempo to allow inserting templates using e.g. <s
+#+begin_src emacs-lisp
+(use-package org-tempo
+  :straight nil
+  :after org)
+#+end_src
+* Packages
+** org-present :tangle org-config-config.el
+#+begin_src emacs-lisp
+(use-package org-present
+  :after org
+  :commands org-present)
+#+end_src
+** org-bullets
+#+begin_src emacs-lisp :tangle org-config-config.el
+(use-package org-bullets
+  :commands org-bullets-mode
+  :after org
+  :preface
+  (add-hook 'org-mode-hook (lambda () (org-bullets-mode 1))))
+#+end_src
+** org-ehtml
+#+begin_src emacs-lisp
+(use-package org-ehtml
+  :disabled t
+  :config
+  (progn
+    (setq org-ehtml-allow-agenda t)
+    (setq org-ehtml-editable-headlines t)
+    (setq org-ehtml-everything-editable t)))
+#+end_src
+** org-modern
+#+begin_src emacs-lisp
+(use-package org-modern
+  :disabled t
+  :after org
+  :hook (org-mode . org-modern-mode))
+#+end_src
+** org-project-capture
+#+BEGIN_SRC emacs-lisp
+(use-package org-project-capture
+  :bind ("C-c o p" . org-project-capture-project-todo-completing-read)
+  ;; We want this to load somewhat quickly because we need to update the list of agenda files
+  :defer 2
+  :config
+  (progn
+    (use-package org-projectile
+      :demand t
+      :config
+      (setq org-project-capture-default-backend
+            (make-instance 'org-project-capture-projectile-backend)))
+    (setq org-project-capture-strategy
+          (make-instance 'org-project-capture-combine-strategies
+                         :strategies (list (make-instance 'org-project-capture-single-file-strategy)
+                                           (make-instance 'org-project-capture-per-project-strategy))))
+    (setq org-project-capture-projects-file
+          (imalison:join-paths imalison:org-dir "projects.org")
+          org-project-capture-capture-template
+          (format "%s%s" "* TODO %?" imalison:created-property-string))
+    (add-to-list 'org-capture-templates
+                 (org-project-capture-project-todo-entry
+                  :capture-character "l"
+                  :capture-heading "Linked Project TODO"))
+    (add-to-list 'org-capture-templates
+                 (org-project-capture-project-todo-entry
+                  :capture-character "p"))
+    (setq org-confirm-elisp-link-function nil)
+    (imalison:add-to-org-agenda-files (org-project-capture-todo-files))))
+#+END_SRC
+** org-pomodoro
+#+BEGIN_SRC emacs-lisp
+(use-package org-pomodoro
+  :after org)
+#+END_SRC
+** org-roam
+#+begin_src emacs-lisp
+(use-package org-roam
+  :defer 1
+  :bind
+  (:map org-mode-map
+        ("C-c r f" . org-roam-node-find)
+        ("C-c r i" . org-roam-node-insert)
+        ("C-c r b" . imalison:org-roam-browse-backlink)
+        ("C-c r t" . org-roam-buffer-toggle))
+  :config
+  (progn
+    (when (version<= "29.0" emacs-version)
+      (use-package emacsql-sqlite-builtin
+        :demand t)
+      (setq org-roam-database-connector 'sqlite-builtin))
+    (org-roam-db-autosync-mode +1)
+
+    (defun imalison:frames-displaying-buffer (buf)
+      "Return a list of frames in which BUF is displayed."
+      (let ((target-buffer (if (bufferp buf) buf (get-buffer buf))))
+        (if target-buffer
+            (delq nil
+                  (mapcar (lambda (frame)
+                            (if (get-buffer-window target-buffer frame)
+                                frame))
+                          (frame-list)))
+          nil)))
+
+    (defun imalison:org-roam-browse-backlink ()
+      (interactive)
+      (let* ((node-alist
+              (cl-loop for backlink in (org-roam-backlinks-get (org-roam-node-at-point))
+                       for node = (org-roam-backlink-source-node backlink)
+                       collect `(,(org-roam-node-title node) . ,node)))
+             (selected-name (completing-read "Select a backlink to visit: " node-alist))
+             (selected-node (alist-get selected-name node-alist nil nil 'string-equal)))
+        (org-roam-node-visit selected-node)))
+
+    (defun imalison:org-roam-frame-based-buffer-visibility-fn ()
+      (cond
+       ((--any (funcall frame-mode-is-frame-viewable-fn it)
+               (imalison:frames-displaying-buffer org-roam-buffer)) 'visible)
+       ((get-buffer org-roam-buffer) 'exists)
+       (t 'none)))
+
+    (use-package frame-mode
+      :if imalison:use-frame-mode
+      :demand t
+      :config
+      (progn
+        (emit-variable-set-mode
+         imalison:org-roam-set-frame-visibility-mode
+         org-roam-buffer-visibility-fn 'imalison:org-roam-frame-based-buffer-visibility-fn)
+        (emit-make-mode-dependent imalison:org-roam-set-frame-visibility-mode frame-mode))))
+  :custom
+  (org-roam-directory (file-truename "~/org/roam/")))
+#+end_src
+***** ui
+#+begin_src emacs-lisp
+(use-package org-roam-ui
+  :after org-roam
+  :custom
+  (org-roam-ui-sync-theme t)
+  (org-roam-ui-follow t)
+  (org-roam-ui-update-on-save t)
+  (org-roam-ui-open-on-start nil))
+#+end_src
+** org-notify
+ #+BEGIN_SRC emacs-lisp
+(use-package org-notify
+  :disabled t
+  :after org
+  :config
+  (progn
+    (defun imalison:org-notify-notification-handler (plist)
+      (sauron-add-event 'org-notify 4 (format "%s, %s.\n" (plist-get plist :heading)
+                                              (org-notify-body-text plist))))
+
+    (setq org-show-notification-handler 'imalison:org-notify-notification-handler)
+
+    (org-notify-add 'default '(:time "1h" :actions imalison:org-notify-notification-handler
+                                     :period "2m" :duration 60))
+    (org-notify-add 'default '(:time "100m" :actions imalison:org-notify-notification-handler
+                                     :period "2m" :duration 60))
+    (org-notify-add 'urgent-second '(:time "3m" :actions (-notify/window -ding)
+                                           :period "15s" :duration 10))
+    (org-notify-add 'minute '(:time "5m" :actions -notify/window
+                                    :period "100s" :duration 70))
+    (org-notify-add '12hours
+                    '(:time "3m" :actions (-notify/window -ding)
+                            :period "15s" :duration 10)
+                    '(:time "100m" :actions -notify/window
+                            :period "2m" :duration 60)
+                    '(:time "12h" :actions -notify/window :audible nil
+                            :period "10m" :duration 200))
+    (org-notify-add '5days
+                    '(:time "100m" :actions -notify/window
+                            :period "2m" :duration 60)
+                    '(:time "2d" :actions -notify/window
+                            :period "15m" :duration 100)
+                    '(:time "5d" :actions -notify/window
+                            :period "2h" :duration 200))
+    (org-notify-add 'long-20days
+                    '(:time "2d" :actions -notify/window
+                            :period "15m" :duration 60)
+                    '(:time "5d" :actions -notify/window
+                            :period "2h" :duration 60)
+                    '(:time "20d" :actions -email :period "2d" :audible nil))
+    (org-notify-add 'long-50days
+                    '(:time "4d" :actions -notify/window
+                            :period "30m" :duration 100)
+                    '(:time "10d" :actions -notify/window
+                            :period "4h" :duration 200)
+                    '(:time "50d" :actions -email :period "3d" :audible nil))
+    (org-notify-add 'long-100days
+                    '(:time "2d" :actions -notify/window
+                            :period "1h" :duration 200)
+                    '(:time "10d" :actions -notify/window
+                            :period "10h" :duration 300)
+                    '(:time "50d" :actions -email :period "3d" :audible nil)
+                    '(:time "100d" :actions -email :period "5d" :audible nil))
+    (org-notify-start 10)))
+ #+END_SRC
+** org-reveal
+#+BEGIN_SRC emacs-lisp
+(use-package ox-reveal
+  :defer t
+  :commands org-reveal
+  :config
+  (setq org-reveal-root
+      (imalison:join-paths "file://" imalison:projects-directory "reveal.js")))
+#+END_SRC
+** org-fc
+#+begin_src emacs-lisp
+(use-package org-fc
+  :bind ("C-c 9" . org-fc-hydra/body)
+  :config
+  (progn
+    (require 'org-fc-hydra))
+  :straight (org-fc :type git :host github :repo "l3kn/org-fc"
+                    :files ("*.el" "awk" "demo.org")))
+#+end_src
+** org-ql
+#+begin_src emacs-lisp
+(use-package org-ql
+  :bind ("C-c o s" . org-ql-find-in-agenda)
+  :commands org-ql-find-in-agenda)
+#+end_src