colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix org-config-custom.el loading: convert customize format to setq

Browse Source 
Co-Authored-By: Claude Opus 4.5 <noreply@anthropic.com>
This commit is contained in:
Ivan Malison
2026-01-14 10:05:14 -08:00
parent 535a6c2521
commit 231f84364c
1 changed files with 10 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
nixos/flake.nix
View File

@@ -377,8 +377,17 @@
(let ((config-dir (file-name-directory load-file-name))) (let ((config-dir (file-name-directory load-file-name)))
(when (file-exists-p (expand-file-name "org-config-preface.el" config-dir)) (when (file-exists-p (expand-file-name "org-config-preface.el" config-dir))
(load (expand-file-name "org-config-preface.el" config-dir))) (load (expand-file-name "org-config-preface.el" config-dir)))
;; org-config-custom.el uses customize format (var value), convert to setq
(when (file-exists-p (expand-file-name "org-config-custom.el" config-dir)) (when (file-exists-p (expand-file-name "org-config-custom.el" config-dir))
(load (expand-file-name "org-config-custom.el" config-dir))) (with-temp-buffer
(insert-file-contents (expand-file-name "org-config-custom.el" config-dir))
(goto-char (point-min))
(condition-case nil
(while t
(let ((form (read (current-buffer))))
(when (and (listp form) (symbolp (car form)))
(set (car form) (eval (cadr form))))))
(end-of-file nil))))
(when (file-exists-p (expand-file-name "org-config-config.el" config-dir)) (when (file-exists-p (expand-file-name "org-config-config.el" config-dir))
(load (expand-file-name "org-config-config.el" config-dir)))) (load (expand-file-name "org-config-config.el" config-dir))))