admin/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Config: replace smart-mode-line by simple-modeline, optimize org-ql config, add basic guile support

Browse Source
This commit is contained in:
andsy10
2026-04-15 03:11:12 +08:00
parent 1af78f99b7
commit a47205eef4
13 changed files with 163 additions and 80 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
lisp/fix-theme-colors.el
View File

@@ -127,7 +127,7 @@
(insert-file-contents filepath)
(buffer-string)))
(changes 0))
;; Fix space-separated colors
(dolist (fix theme-fixes-space)
(let ((old-color (car fix))
@@ -139,7 +139,7 @@
(format "\"%s\"" new-color)
content))
(setq changes (1+ changes)))))
;; Fix invalid colors
(dolist (fix theme-fixes-invalid)
(let ((old-color (car fix))
@@ -151,7 +151,7 @@
(format "\"%s\"" new-color)
content))
(setq changes (1+ changes)))))
;; Fix :box properties
(dolist (fix theme-fixes-box)
(let ((old-prop (car fix))
@@ -162,7 +162,7 @@
new-prop
content))
(setq changes (1+ changes)))))
;; Fix :family inside :box (invalid property)
(dolist (fix theme-fixes-box-family)
(let ((old-prop (car fix))
@@ -173,7 +173,7 @@
new-prop
content))
(setq changes (1+ changes)))))
(with-temp-file filepath
(insert content))
(message " Fixed %d issue(s)" changes)
@@ -203,18 +203,18 @@ This function can be called interactively or from Lisp."
(interactive)
(let* ((themes-dir (expand-file-name "~/.emacs.d/straight/repos/replace-colorthemes/"))
(build-dir (expand-file-name "~/.emacs.d/straight/build/color-theme-modern/")))
(message "=== Fixing theme files ===\n")
;; Fix source files
(if (file-directory-p themes-dir)
(progn
(message "Processing source files in: %s" themes-dir)
(fix-all-themes themes-dir))
(message "WARNING: Source themes directory not found: %s" themes-dir))
(message "\n")
;; Fix build files (these are what Emacs actually loads)
(if (file-directory-p build-dir)
(progn
@@ -222,7 +222,7 @@ This function can be called interactively or from Lisp."
(fix-all-themes build-dir)
(remove-compiled-themes build-dir))
(message "WARNING: Build themes directory not found: %s" build-dir))
(message "\n=== Done! ===")
(message "Restart Emacs to load fixed themes.")))