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

(Emacs)~cleaned up literate.el

Browse Source 
Jesus, how could I have not noticed the spelling error in "Finishied
byte compiling"?!
This commit is contained in:
Aryadev Chavali
2023-07-14 19:51:32 +01:00
parent 2fd6fe4794
commit 020edafda5
1 changed files with 13 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -28,10 +28,10 @@
(if (null list) (if (null list)
nil nil
(let ((first (car list)) (let ((first (car list))
(tail (cdr list))) (rest (cdr list)))
(if (funcall predicate first) (if (funcall predicate first)
(cons first (+literate/filter predicate tail)) (cons first (+literate/filter predicate rest))
(+literate/filter predicate tail))))) (+literate/filter predicate rest)))))
(defconst +literate/org-files (list (concat user-emacs-directory "config.org"))) (defconst +literate/org-files (list (concat user-emacs-directory "config.org")))
@@ -41,11 +41,12 @@
(defconst +literate/elisp-files (defconst +literate/elisp-files
`(,(concat user-emacs-directory "early-init.el") `(,(concat user-emacs-directory "early-init.el")
,(concat user-emacs-directory "init.el") ,(concat user-emacs-directory "init.el")
,@(mapcar #'(lambda (name) (concat user-emacs-directory "elisp/" name)) ,@(mapcar
;; Only take .el files #'(lambda (name) (concat user-emacs-directory "elisp/" name))
(+literate/filter ;; Only take .el files
(lambda (name) (string= "el" (file-name-extension name))) (+literate/filter
(cddr (directory-files (concat user-emacs-directory "elisp/"))))))) (lambda (name) (string= "el" (file-name-extension name)))
(cddr (directory-files (concat user-emacs-directory "elisp/")))))))
(defconst +literate/elisp-byte-compiled (defconst +literate/elisp-byte-compiled
`(,@(mapcar #'(lambda (x) (replace-regexp-in-string ".el" ".elc" x)) +literate/output-files) `(,@(mapcar #'(lambda (x) (replace-regexp-in-string ".el" ".elc" x)) +literate/output-files)
@@ -75,15 +76,15 @@
"Compile all files in +literate/org-files via org-babel-tangle." "Compile all files in +literate/org-files via org-babel-tangle."
(interactive) (interactive)
(message "Compiling files...") (message "Compiling files...")
(mapc #'org-babel-tangle-file +literate/org-files) (mapcar #'org-babel-tangle-file +literate/org-files)
(message "Files compiled") (message "Files compiled")
(message "Byte-compiling literate files...") (message "Byte-compiling literate files...")
(mapc #'(lambda (file) (byte-compile-file file)) +literate/output-files) (mapcar #'(lambda (file) (byte-compile-file file)) +literate/output-files)
(message "Literate files byte-compiled") (message "Literate files byte-compiled")
(message "Byte compiling init.el, early-init.el, elisp/*") (message "Byte compiling init.el, early-init.el, elisp/*")
(mapc #'(lambda (file) (byte-compile-file file)) +literate/elisp-files) (mapcar #'(lambda (file) (byte-compile-file file)) +literate/elisp-files)
(message "Finishied byte-compiling")) (message "Finished byte-compiling"))
(provide 'literate) (provide 'literate)
;;; literate.el ends here ;;; literate.el ends here