From 991104c9a35c9034a90e21b51302a1b8cff9793d Mon Sep 17 00:00:00 2001 From: Aryadev Chavali Date: Thu, 13 Jun 2024 14:16:05 +0100 Subject: (Emacs/elisp)~rework literate.el --- Emacs/.config/emacs/elisp/literate.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'Emacs/.config/emacs/elisp') 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"))) -- cgit v1.2.3-13-gbd6f