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

(Emacs/elisp)+bytecompile? option to literate

Browse Source 
So if you don't want to, say while debugging, it won't.
This commit is contained in:
Aryadev Chavali
2024-05-07 00:14:32 +05:30
parent d96d7c3215
commit 89cc78f476
1 changed files with 13 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -92,6 +92,9 @@
(defconst +literate/elc-org-files (defconst +literate/elc-org-files
(mapcar #'+literate/org-to-elc +literate/org-files)) (mapcar #'+literate/org-to-elc +literate/org-files))
(defvar +literate/bytecompile? t
"Bytecompile all files?")
;; Basic compilation and loading files ;; Basic compilation and loading files
(autoload #'org-babel-tangle-file "ob-tangle") (autoload #'org-babel-tangle-file "ob-tangle")
@@ -119,22 +122,25 @@
;; Compiling all files ;; Compiling all files
(defun +literate/compile-init-files () (defun +literate/compile-init-files ()
(message "[Literate/init]: Byte compiling init files...") (when +literate/bytecompile?
(mapc #'+literate/byte-compile-if-old +literate/el-init-files) (message "[Literate/init]: Byte compiling init files...")
(mapc #'+literate/byte-compile-if-old +literate/el-init-files))
(message "[Literate/init]: Init files compiled!")) (message "[Literate/init]: Init files compiled!"))
(defun +literate/compile-lib-files () (defun +literate/compile-lib-files ()
(message "[Literate/lib]: Byte compiling lib files...") (when +literate/bytecompile?
(mapc #'+literate/byte-compile-if-old +literate/el-lib-files) (message "[Literate/lib]: Byte compiling lib files...")
(mapc #'+literate/byte-compile-if-old +literate/el-lib-files))
(message "[Literate/lib]: Lib files compiled!")) (message "[Literate/lib]: Lib files compiled!"))
(defun +literate/compile-org-files () (defun +literate/compile-org-files ()
(message "[Literate/org]: Tangling org files...") (message "[Literate/org]: Tangling org files...")
(mapc #'+literate/tangle-if-old +literate/org-files) (mapc #'+literate/tangle-if-old +literate/org-files)
(message "[Literate/org]: Tangled org files!") (message "[Literate/org]: Tangled org files!")
(message "[Literate/org]: Byte compiling org files...") (when +literate/bytecompile?
(mapc #'+literate/byte-compile-if-old +literate/el-org-files) (message "[Literate/org]: Byte compiling org files...")
(message "[Literate/org]: Byte compiled org files!")) (mapc #'+literate/byte-compile-if-old +literate/el-org-files)
(message "[Literate/org]: Byte compiled org files!")))
(defun +literate/compile-config () (defun +literate/compile-config ()
"Compile all files in +literate/org-files via org-babel-tangle." "Compile all files in +literate/org-files via org-babel-tangle."