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

~clean up with documentation generally

Browse Source
This commit is contained in:
Aryadev Chavali
2020-08-14 23:40:38 +01:00
parent c97ffe9fde
commit 6bc4d5e271
1 changed files with 16 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
Emacs/.config/emacs/init.el
View File

@@ -29,19 +29,25 @@
"Load all files in +literate/output-files."
(mapc #'(lambda (x) (load-file x)) +literate/output-files))
(defun +literate/compile-config ()
(require 'ob-tangle)
(mapc #'org-babel-tangle-file +literate/files))
(defun +literate/files-exist ()
"Checks if output files exist, for compilation purposes. Don't use if only one file."
(defun +literate/org-files-exist ()
"Checks if output files exist, for compilation purposes."
(require 'cl-lib)
(cl-reduce #'(lambda (x y) (and x y)) (mapc #'file-exists-p +literate/output-files)
:initial-value t))
(if (< 1 (length +literate/output-files))
(cl-reduce #'(lambda (x y) (and x y)) (mapc #'file-exists-p +literate/output-files)
:initial-value t)
(file-exists-p (car +literate/output-files))))
(add-hook 'kill-emacs-hook #'+literate/compile-config)
(defun +literate/compile-config ()
"Compile all files in +literate/org-files via org-babel-tangle."
(mapc #'org-babel-tangle-file +literate/org-files))
(unless (file-exists-p "config.el") ; only one file
;; Killing Emacs hook
(add-hook
'kill-emacs-hook
#'+literate/compile-config)
;; When no output files exist, compile
(unless (+literate/org-files-exist)
(+literate/compile-config))
(+literate/load-config)