From 2dd3aed6971fe74915c1fc09b4de20a6c64e817b Mon Sep 17 00:00:00 2001 From: Craig Jennings Date: Mon, 22 Apr 2024 12:23:13 -0500 Subject: 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 --- modules/ui-theme.el | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) (limited to 'modules/ui-theme.el') 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) -- cgit v1.2.3