New Custom Functions, Org Updates, Agenda Updates, &c.

=== Functions ===
- add function cj/dired-convert-image-to-jpeg
- add function cj/dired-copy-path-as-kill
- add function cj/export-org-to-md-on-save function
- add function cj/org-link-to-current-file

=== Agenda ===
- rework the f8 main agenda into custom agenda using Aaron Bieber's ideas
- agenda lists now use standard agenda functions
- updated packages to remove org-super-agenda and ts (a dependency)
- file commentary text  updated to reflect the change

=== Org ===
- add grocery and shopping list capture items
- add missing tests for org-skip-subtree-if-habit
- add support for org-habits, including checkboxes
- fix issue with org-auto-export-to-md
- modularize org-agenda
- move todo settings to org-config
- reformat org-roam-config

=== &c. ===
- add day to sortable date
- add disablefastrenderer to hugo server flags
- add fill column indicator when emacs lisping
- add gpt buffers to the bury-alive-list
- add keybinding for fixup-whitespace
- add magit cloning settings
- finish automatically on "Link" capture
- fix company complaints about shutting up function
- fix em, e, ff, and f eshell aliases
- make fallback theme modus-vivendi
- prune the compilation cache when applicable

1 files changed, 93 insertions, 81 deletions

diff --git a/modules/org-roam-config.el b/modules/org-roam-config.el
index c9a5bad1..d6c437b2 100644
--- a/modules/org-roam-config.el
+++ b/modules/org-roam-config.el
@@ -6,42 +6,48 @@
 
 ;;; Code:
 
-
 ;; ---------------------------------- Org Roam ---------------------------------
 
 (use-package org-roam
   :after org
   :defer .5
   :custom
-  (org-roam-directory "~/sync/org/roam/")
+  (org-roam-directory roam-dir)
   (org-roam-dailies-directory "journal/")
   (org-roam-completion-everywhere t)
   (org-roam-dailies-capture-templates
    '(("d" "default" entry "* %<%I:%M:%S %p %Z> %?"
-      :if-new (file+head "%<%Y-%m-%d>.org" "#+FILETAGS: Journal\n#+TITLE: %<%Y-%m-%d>"))))
+      :if-new (file+head "%<%Y-%m-%d>.org" "#+FILETAGS: Journal
+#+TITLE: %<%Y-%m-%d>"))))
   (org-roam-capture-templates
-   '(("d" "default" plain
-      "%?"
+   '(("d" "default" plain "%?"
       :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+TITLE: ${title}\n")
       :unnarrowed t)
-     ("v" "v2mom" plain (file "~/sync/org/roam/templates/v2mom.org")
+     ("v" "v2mom" plain
+      (function (lambda () (concat roam-dir "templates/v2mom.org")))
       :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+TITLE: ${title}\n")
       :unnarrowed t)
-     ("r" "recipe" plain  (file "~/sync/org/roam/templates/recipe.org")
-      :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+TITLE: ${title}\n#+CATEGORY: ${title}\n#+FILETAGS: Recipe")
+     ("r" "recipe" plain
+      (function (lambda () (concat roam-dir "templates/recipe.org")))
+      :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+TITLE: ${title}
+      #+CATEGORY: ${title}\n#+FILETAGS: Recipe")
       :unnarrowed t)
-     ("p" "project" plain  (file "~/sync/org/roam/templates/project.org")
-      :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+TITLE: ${title}\n#+CATEGORY: ${title}\n#+FILETAGS: Project")
+     ("p" "project" plain
+      (function (lambda () (concat roam-dir "templates/project.org")))
+      :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+TITLE: ${title}
+      #+CATEGORY: ${title}\n#+FILETAGS: Project")
       :unnarrowed t)
-     ("t" "topic" plain  (file "~/sync/org/roam/templates/topic.org")
-      :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+TITLE: ${title}\n#+CATEGORY: ${title}\n#+FILETAGS: Topic")
+     ("t" "topic" plain
+      (function (lambda () (concat roam-dir "templates/topic.org")))
+      :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+TITLE: ${title}
+      #+CATEGORY: ${title}\n#+FILETAGS: Topic")
       :unnarrowed t)))
   :bind (("C-c n ?" . org-roam-hydra/body)
          ("C-c n l" . org-roam-buffer-toggle)
          ("C-c n f" . org-roam-node-find)
-         ("C-c n p" . cj/org-roam-find-project)
-         ("C-c n r" . cj/org-roam-find-recipe)
-         ("C-c n t" . cj/org-roam-find-topic)
+         ("C-c n p" . cj/org-roam-find-node-project)
+         ("C-c n r" . cj/org-roam-find-node-recipe)
+         ("C-c n t" . cj/org-roam-find-node-topic)
          ("C-c n i" . org-roam-node-insert)
          :map org-mode-map
          ("C-M-i" . completion-at-point)
@@ -59,9 +65,9 @@
 
   ;; move closed tasks to today's journal when marked done
   (add-to-list 'org-after-todo-state-change-hook
-			 (lambda ()
-			   (when (equal org-state "DONE")
-				 (cj/org-roam-copy-todo-to-today))))
+               (lambda ()
+                 (when (equal org-state "DONE")
+                   (cj/org-roam-copy-todo-to-today))))
 
   (require 'org-roam-dailies)      ;; Ensures the keymap is available
   (org-roam-db-autosync-mode))
@@ -70,34 +76,40 @@
 
 (defun cj/org-roam-node-insert-immediate (arg &rest args)
   "Create new node and insert its link immediately.
-The prefix ARG .
-ARGS represents the node name to link."
+This is mainly a wrapper around org-roam-node-insert to achieve immediate finish
+to the capture. The prefix ARG and ARGS are the filter function and the rest of
+the arguments that org-roam-node-insert expects."
   (interactive "P")
   (let ((args (cons arg args))
-		(org-roam-capture-templates (list (append (car org-roam-capture-templates)
-												  '(:immediate-finish t)))))
-	(apply #'org-roam-node-insert args)))
+        (org-roam-capture-templates (list (append (car org-roam-capture-templates)
+                                                  '(:immediate-finish t)))))
+    (apply #'org-roam-node-insert args)))
 (global-set-key (kbd "C-c n I") 'cj/org-roam-node-insert-immediate)
 
 ;; ------------------------- Tag Listing And Filtering -------------------------
 
 (defun cj/org-roam-filter-by-tag (tag-name)
   (lambda (node)
-	(member tag-name (org-roam-node-tags node))))
+    (member tag-name (org-roam-node-tags node))))
 
 (defun cj/org-roam-list-notes-by-tag (tag-name)
   (mapcar #'org-roam-node-file
-		  (seq-filter
-		   (cj/org-roam-filter-by-tag tag-name)
-		   (org-roam-node-list))))
+          (seq-filter
+           (cj/org-roam-filter-by-tag tag-name)
+           (org-roam-node-list))))
 
 ;; -------------------------- Org Roam Find Functions --------------------------
 
 (defun cj/org-roam-find-node (tag template-key template-file)
-  "List all node of type \='TAG\=' in completing read for selection or creation."
+  "List all nodes of type \='TAG\=' in completing read for selection or creation.
+Interactively find or create an Org-roam node with a given \='TAG\='. Newly
+created nodes are added to the agenda and follow a template defined by
+\='TEMPLATE-KEY\=' and \='TEMPLATE-FILE\='."
+
   (interactive)
   ;; Add the project file to the agenda after capture is finished
-  (add-hook 'org-capture-after-finalize-hook #'cj/org-roam-add-node-to-agenda-files-finalize-hook)
+  (add-hook 'org-capture-after-finalize-hook
+            #'cj/org-roam-add-node-to-agenda-files-finalize-hook)
 
   ;; Select a project file to open, creating it if necessary
   (org-roam-node-find
@@ -107,86 +119,86 @@ ARGS represents the node name to link."
    nil
    :templates
    `((,template-key ,tag plain  (file ,template-file)
-					:if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" ,(concat "#+TITLE: ${title}\n#+CATEGORY: ${title}\n#+FILETAGS: " tag))
-					:unnarrowed t))))
+                    :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org"
+                                       ,(concat "#+TITLE: ${title}
+#+CATEGORY: ${title}\n#+FILETAGS: " tag))
+                    :unnarrowed t))))
 
-(defun cj/org-roam-find-topic ()
-  "List all node of type \=`topic\=` in completing read for selection or creation."
+(defun cj/org-roam-find-node-topic ()
+  "List nodes of type \=`topic\=` in completing read for selection or creation."
   (interactive)
-  (cj/org-roam-find-node "Topic" "t" "~/sync/org/roam/templates/topic.org"))
+  (cj/org-roam-find-node "Topic" "t" (concat roam-dir "templates/topic.org")))
 
-(defun cj/org-roam-find-recipe ()
-  "List all node of type \=`recipe\=` in completing read for selection or creation."
+(defun cj/org-roam-find-node-recipe ()
+  "List nodes of type \=`recipe\=` in completing read for selection or creation."
   (interactive)
-  (cj/org-roam-find-node "Recipe" "r" "~/sync/org/roam/templates/recipe.org"))
+  (cj/org-roam-find-node "Recipe" "r" (concat roam-dir "templates/recipe.org")))
+
+(defun cj/org-roam-find-node-project ()
+  "List nodes of type \='project\=' in completing read for selection or creation."
 
-(defun cj/org-roam-find-project ()
-  "List all node of type \='project\=' in completing read for selection or creation."
   (interactive)
-  (cj/org-roam-find-node "Project" "p" "~/sync/org/roam/templates/project.org"))
+  (cj/org-roam-find-node "Project" "p" (concat roam-dir "templates/project.org")))
 
 ;; ---------------------- Org Capture After Finalize Hook ----------------------
 
 (defun cj/org-roam-add-node-to-agenda-files-finalize-hook ()
   "Add the captured project file to \='org-agenda-files\='."
   ;; Remove the hook since it was added temporarily
-  (remove-hook 'org-capture-after-finalize-hook #'cj/org-roam-add-node-to-agenda-files-finalize-hook)
+  (remove-hook 'org-capture-after-finalize-hook
+               #'cj/org-roam-add-node-to-agenda-files-finalize-hook)
+
 
   ;; Add project file to the agenda list if the capture was confirmed
   (unless org-note-abort
-	(with-current-buffer (org-capture-get :buffer)
-	  (add-to-list 'org-agenda-files (buffer-file-name)))))
-
-;; ------------------------------- Capture Inbox -------------------------------
-
-(defun cj/org-roam-capture-inbox ()
-  (interactive)
-  (org-roam-capture- :node (org-roam-node-create)
-					 :templates '(("i" "inbox" plain "** %?"
-								   :if-new (file+head+olp "~/sync/org/roam/inbox.org"
-														  "#+TITLE: Inbox\n#+CATEGORY: Inbox\n#+FILETAGS: Project"
-														  ("Inbox"))))))
-(global-set-key (kbd "C-t") #'cj/org-roam-capture-inbox)
+    (with-current-buffer (org-capture-get :buffer)
+      (add-to-list 'org-agenda-files (buffer-file-name)))))
 
 ;; -------------------------------- Capture Task -------------------------------
 
-(defun cj/org-roam-capture-task ()
+(defun cj/org-roam-capture-task-into-project ()
+  "Create a new project and add a task immediately to it."
   (interactive)
   ;; Add the project file to the agenda after capture is finished
-  (add-hook 'org-capture-after-finalize-hook #'cj/org-roam-add-node-to-agenda-files-finalize-hook)
+  (add-hook 'org-capture-after-finalize-hook
+            #'cj/org-roam-add-node-to-agenda-files-finalize-hook)
 
   ;; Capture the new task, creating the project file if necessary
-  (org-roam-capture- :node (org-roam-node-read
-							nil
-							(cj/org-roam-filter-by-tag "Project"))
-					 :templates '(("p" "project" plain "** TODO %?"
-								   :if-new (file+head+olp "%<%Y%m%d%H%M%S>-${slug}.org"
-														  "#+TITLE: ${title}\n#+CATEGORY: ${title}\n#+FILETAGS: Project"
-														  ("${title}"))))))
-(global-set-key (kbd "C-c n t") #'cj/org-roam-capture-task)
+  (org-roam-capture-
+   :node (org-roam-node-read
+          nil
+          (cj/org-roam-filter-by-tag "Project"))
+   :templates '(("p" "project" plain "** TODO %?"
+                 :if-new (file+head+olp "%<%Y%m%d%H%M%S>-${slug}.org"
+                                        "#+TITLE: ${title}
+#+CATEGORY: ${title}
+#+FILETAGS: Project"
+                                        ("${title}"))))))
+(global-set-key (kbd "C-c n t") #'cj/org-roam-capture-task-into-project)
 
 ;; ------------------------ Org Roam Copy Done To Daily ------------------------
 
 (defun cj/org-roam-copy-todo-to-today ()
+  "Copy completed tasks to today's daily org-roam node."
   (interactive)
   (let ((org-refile-keep t) ;; Set this to nil to delete the original!
-		(org-roam-dailies-capture-templates
-		 '(("t" "tasks" entry "%?"
-			:if-new (file+head+olp "%<%Y-%m-%d>.org" "#+FILETAGS: Journal\n#+TITLE: %<%Y-%m-%d>\n" ("Completed Tasks")))))
-		(org-after-refile-insert-hook #'save-buffer)
-		today-file
-		pos)
-	(save-window-excursion
-	  (org-roam-dailies--capture (current-time) t)
-	  (setq today-file (buffer-file-name))
-	  (setq pos (point)))
-
-	;; Only refile if the target file is different than the current file
-	(unless (equal (file-truename today-file)
-				   (file-truename (buffer-file-name)))
-	  (org-refile nil nil (list "Completed Tasks" today-file nil pos)))))
-
-
+        (org-roam-dailies-capture-templates
+         '(("t" "tasks" entry "%?"
+            :if-new (file+head+olp "%<%Y-%m-%d>.org"
+                                   "#+FILETAGS: Journal
+#+TITLE: %<%Y-%m-%d>\n" ("Completed Tasks")))))
+        (org-after-refile-insert-hook #'save-buffer)
+        today-file
+        pos)
+    (save-window-excursion
+      (org-roam-dailies--capture (current-time) t)
+      (setq today-file (buffer-file-name))
+      (setq pos (point)))
+
+    ;; Only refile if the target file is different than the current file
+    (unless (equal (file-truename today-file)
+                   (file-truename (buffer-file-name)))
+      (org-refile nil nil (list "Completed Tasks" today-file nil pos)))))
 
 (provide 'org-roam-config)
 ;;; org-roam-config.el ends here.