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

(Emacs/elisp)~rework literate.el

Browse Source
This commit is contained in:
Aryadev Chavali
2024-06-13 14:16:05 +01:00
parent 868d0e65bb
commit 991104c9a3
1 changed files with 4 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Emacs/.config/emacs/elisp/literate.el
View File

@@ -48,10 +48,9 @@
(defun +literate/el-p (filename) (defun +literate/el-p (filename)
(string= "el" (file-name-extension filename))) (string= "el" (file-name-extension filename)))
(defun +literate/--reduce-bool (bools init) (defun +literate/--reduce-bool (bools)
(if (= (length bools) 0) "Return T if all element of BOOLS are truthy i.e. not nil."
init (cl-every #'identity bools))
(+literate/--reduce-bool (cdr bools) (and (car bools) init))))
;; Files ;; Files
(defconst +literate/org-files (defconst +literate/org-files
@@ -112,7 +111,7 @@
(load-file (+literate/org-to-el org-file))) (load-file (+literate/org-to-el org-file)))
(defun +literate/load-config () (defun +literate/load-config ()
"Load the config.el." "Load config.el"
(interactive) (interactive)
(mapcar #'+literate/tangle-if-old +literate/org-files) (mapcar #'+literate/tangle-if-old +literate/org-files)
(load-file (concat user-emacs-directory "config.el"))) (load-file (concat user-emacs-directory "config.el")))