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, 10 insertions, 8 deletions

diff --git a/modules/ui-theme.el b/modules/ui-theme.el
index 64fa739b..8d83ac50 100644
--- a/modules/ui-theme.el
+++ b/modules/ui-theme.el
@@ -45,13 +45,15 @@ Unloads any other applied themes before applying the chosen theme."
 ;; persistence utility functions used by switch themes.
 
 (defvar theme-file (concat sync-dir "emacs-theme.persist")
-  "The location of the file to persist the theme name.")
+  "The location of the file to persist the theme name.
+If you want your theme change to persist across instances, put this in a
+directory that is sync'd across machines with this configuration.")
 
-(defvar fallback-theme-name "wombat"
+(defvar fallback-theme-name "modus-vivendi"
   "The name of the theme to fallback on.
 This is used then there's no file, or the theme name doesn't match
-any of the installed themes. If theme name is 'nil', there will be
-no theme.")
+any of the installed themes. This should be a built-in theme. If theme name is
+'nil', there will be no theme.")
 
 (defun cj/read-file-contents (filename)
   "Read FILENAME and return its content as a string.
@@ -97,14 +99,14 @@ loading the file name, the fallback-theme-name is applied and saved."
 	;; if theme-name is nil, unload all themes and load fallback theme
 	(if (or (string= theme-name "nil") (not theme-name))
 		(progn
-			(mapcar #'disable-theme custom-enabled-themes)
-			(cj/load-fallback-theme "Theme file not found or theme name in it is nil."))
+		  (mapcar #'disable-theme custom-enabled-themes)
+		  (cj/load-fallback-theme "Theme file not found or theme name in it is nil."))
 	  ;; apply theme name or if error, load fallback theme
 	  (condition-case err
 		  (load-theme (intern theme-name) t)
 		(error
-		   (cj/load-fallback-theme (concat "Error loading " theme-name
-										   ".")))))))
+		 (cj/load-fallback-theme (concat "Error loading " theme-name
+										 ".")))))))
 
 (cj/load-theme-from-file)