diff options
| author | Aryadev Chavali <aryadev@aryadevchavali.com> | 2024-06-13 14:16:05 +0100 |
|---|---|---|
| committer | Aryadev Chavali <aryadev@aryadevchavali.com> | 2024-06-13 14:16:05 +0100 |
| commit | 991104c9a35c9034a90e21b51302a1b8cff9793d (patch) | |
| tree | 73d0a765b6a8607b281cbbaf6c292f7f57329af9 | |
| parent | 868d0e65bbae6dd0ff371dac6660d5aed721b5a8 (diff) | |
| download | dotfiles-991104c9a35c9034a90e21b51302a1b8cff9793d.tar.gz dotfiles-991104c9a35c9034a90e21b51302a1b8cff9793d.tar.bz2 dotfiles-991104c9a35c9034a90e21b51302a1b8cff9793d.zip | |
(Emacs/elisp)~rework literate.el
| -rw-r--r-- | Emacs/.config/emacs/elisp/literate.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/Emacs/.config/emacs/elisp/literate.el b/Emacs/.config/emacs/elisp/literate.el index 43c39d8..f515f8c 100644 --- a/Emacs/.config/emacs/elisp/literate.el +++ b/Emacs/.config/emacs/elisp/literate.el @@ -48,10 +48,9 @@ (defun +literate/el-p (filename) (string= "el" (file-name-extension filename))) -(defun +literate/--reduce-bool (bools init) - (if (= (length bools) 0) - init - (+literate/--reduce-bool (cdr bools) (and (car bools) init)))) +(defun +literate/--reduce-bool (bools) + "Return T if all element of BOOLS are truthy i.e. not nil." + (cl-every #'identity bools)) ;; Files (defconst +literate/org-files @@ -112,7 +111,7 @@ (load-file (+literate/org-to-el org-file))) (defun +literate/load-config () - "Load the config.el." + "Load config.el" (interactive) (mapcar #'+literate/tangle-if-old +literate/org-files) (load-file (concat user-emacs-directory "config.el"))) |