summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--init.org47
1 files changed, 47 insertions, 0 deletions
diff --git a/init.org b/init.org
index bc73a1d..81c652e 100644
--- a/init.org
+++ b/init.org
@@ -665,6 +665,48 @@ In short, my favourite way of life.
:after (:any org notmuch))
#+end_src
+**** asynchronous tangle
+
+=amin/async-babel-tangle= is a function closely inspired by [[https://github.com/dieggsy/dotfiles/tree/cc10edf7701958eff1cd94d4081da544d882a28c/emacs.d#dotfiles][dieggsy's
+d/async-babel-tangle]] which uses [[https://github.com/jwiegley/emacs-async][async]] to asynchronously tangle an org
+file.
+
+#+begin_src emacs-lisp
+(after! org
+ (defvar amin-show-async-tangle-results nil
+ "Keep *emacs* async buffers around for later inspection.")
+
+ (defvar amin-show-async-tangle-time nil
+ "Show the time spent tangling the file.")
+
+ (defun amin/async-babel-tangle ()
+ "Tangle org file asynchronously."
+ (interactive)
+ (let* ((file-tangle-start-time (current-time))
+ (file (buffer-file-name))
+ (file-nodir (file-name-nondirectory file))
+ (async-quiet-switch "-q"))
+ (async-start
+ `(lambda ()
+ (require 'org)
+ (org-babel-tangle-file ,file))
+ (unless amin-show-async-tangle-results
+ `(lambda (result)
+ (if result
+ (message "Tangled %s%s"
+ ,file-nodir
+ (if amin-show-async-tangle-time
+ (format " (%.3fs)"
+ (float-time (time-subtract (current-time)
+ ',file-tangle-start-time)))
+ ""))
+ (message "Tangling %s failed" ,file-nodir))))))))
+
+(add-to-list
+ 'safe-local-variable-values
+ '(eval add-hook 'after-save-hook #'amin/async-babel-tangle 'append 'local))
+#+end_src
+
*** [[https://magit.vc/][Magit]]
#+begin_quote
@@ -1477,3 +1519,8 @@ Display how long it took to load the init file.
#+begin_src emacs-lisp :comments none
;;; init.el ends here
#+end_src
+
+* COMMENT Local Variables :ARCHIVE:
+# Local Variables:
+# eval: (add-hook 'after-save-hook #'amin/async-babel-tangle 'append 'local)
+# End: