From 85c5e30142928308170bc98f996cf74be185974f Mon Sep 17 00:00:00 2001
From: AChavali <aryadevchavali1@gmail.com>
Date: Mon, 30 Dec 2019 20:57:25 +0000
Subject: +wrapped my own literate config setup!

+literate.org file that holds the config program
+bootstrap to config.org that loads the literate.el file, which in turn
parses all the other files and loads everything
-literate config module, I have my own now
---
 doom.d/config.org           |  5 +++
 doom.d/init.el              |  2 +-
 doom.d/modules/literate.org | 74 +++++++++++++++++++++++++++++++++++++++++++++
 3 files changed, 80 insertions(+), 1 deletion(-)
 create mode 100644 doom.d/modules/literate.org

(limited to 'doom.d')

diff --git a/doom.d/config.org b/doom.d/config.org
index db3c122..12813ca 100644
--- a/doom.d/config.org
+++ b/doom.d/config.org
@@ -6,6 +6,11 @@
 This is my [[https://github.com/hlissner/doom-emacs][Doom Emacs]] configuration, which I try to use for as many things as
 possible. It is currently my main editor overall, literally overtaking my life.
 * Variables
+Bootstrapping literate module and setting up basic variables.
+** Bootstrap literate
+#+BEGIN_SRC elisp
+(load! "modules/literate.el")
+#+END_SRC
 ** Doom Variables
 #+BEGIN_SRC elisp
 (after! core-keybinds
diff --git a/doom.d/init.el b/doom.d/init.el
index bbd9935..07250bd 100644
--- a/doom.d/init.el
+++ b/doom.d/init.el
@@ -174,7 +174,7 @@
        :config
        ;; For literate config users. This will tangle+compile a config.org
        ;; literate config in your `doom-private-dir' whenever it changes.
-       literate
+       ;; literate
 
        ;; The default module sets reasonable defaults for Emacs. It also
        ;; provides a Spacemacs-inspired keybinding scheme and a smartparens
diff --git a/doom.d/modules/literate.org b/doom.d/modules/literate.org
new file mode 100644
index 0000000..5b8a640
--- /dev/null
+++ b/doom.d/modules/literate.org
@@ -0,0 +1,74 @@
+#+TITLE: Literate config setup
+
+* Preclude
+My setup to produce a literate configuration. Allows me to write org files all
+around the /doom-private-dir/ and access them. Also shaved like 0.2s off my
+loading time.
+* Remove function
+When loading the lisp, we need to load everything excluding "config.el"
+(preloaded by doom) and "literate.el" (loaded by "config.el"). We'll make a very
+specific remove function that will remove entries from a given list and return
+the new list, given the fact that the files variable will be a list of fully
+expanded file names.
+#+BEGIN_SRC elisp
+(defun oreodave/literate/variadic-remove (remove-files files)
+  (let ((parsed-remove-files (map 'list #'(lambda (i) (expand-file-name (concat doom-private-dir i))) remove-files)))
+  (remove-if-not #'(lambda (l) (not (member l parsed-remove-files))) files)))
+#+END_SRC
+* Parser
+First we need to get some sort of parser which can, given a source org file and
+a destination, parse and produce an Emacs lisp file. We'll copy this from the
+literate module of doom.
+#+BEGIN_SRC elisp
+(defun oreodave/literate/tangle (SRC DEST)
+  (let ((default-directory doom-private-dir))
+    (when (file-newer-than-file-p SRC DEST)
+      (let ((output (get-buffer-create "*org-tangle*")))
+        (unwind-protect
+            (or (and (zerop (call-process
+                             "emacs" nil output nil
+                             "-q" "--batch"
+                             "-l" "ob-tangle"
+                             "--eval" (format "(org-babel-tangle-file %S %S)"
+                                              SRC DEST)))
+                     (with-current-buffer output
+                       (message "%s" (buffer-string))
+                       t))
+                (warn (format "Problem with tanging %S to %S" SRC DEST)))
+          (kill-buffer output))))))
+#+END_SRC
+* Procedure for all files
+We need a procedure that parses all the org files in the doom-private-dir and
+modules directory into Emacs lisp files, using the parser function we've made.
+Assume all org files in the private directory contribute to the config.
+#+BEGIN_SRC elisp
+(defun oreodave/literate/tangle-all ()
+  (interactive)
+  (message "Starting compilation process")
+  (let ((files (directory-files-recursively "~/.doom.d/" ".org")))
+    (dolist (file files)
+      (message "Compiling and parsing %s" file)
+      (oreodave/literate/tangle file (replace-regexp-in-string ".org" ".el" file)))))
+#+END_SRC
+* Hook on save
+Now we need to make a hook that, when the current buffer is an org file in the
+doom directory, will run the literate config procedure from above.
+#+BEGIN_SRC elisp
+(defun oreodave/literate/compile-hook ()
+  (when (and (eq major-mode 'org-mode)
+             (or (file-in-directory-p buffer-file-name doom-private-dir)))
+    (oreodave/literate/tangle-all)))
+#+END_SRC
+* Add hook to org-mode
+#+BEGIN_SRC elisp
+(after! org
+  (add-hook 'after-save-hook #'oreodave/literate/compile-hook))
+#+END_SRC
+* Config run
+Parse all Emacs lisp files. Then load them.
+#+BEGIN_SRC elisp
+(oreodave/literate/tangle-all) ; Parse
+(let ((files (directory-files-recursively "~/.doom.d/" ".org"))) ; Load
+    (dolist (file (oreodave/literate/variadic-remove (list "config.org" "modules/literate.org") files))
+      (load! (replace-regexp-in-string ".org" ".el" file))))
+#+END_SRC
-- 
cgit v1.2.3-13-gbd6f