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

~call-process -> async-shell-command

Browse Source 
Async shell command gives me a buffer for my output, is faster as it's
async rather than blocking my Emacs, and all around better to use.
This commit is contained in:
dx
2020-05-04 05:15:49 +01:00
parent cfc7859884
commit fbc6a4427c
1 changed files with 9 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
Doom/.doom.d/org/literate.org
View File

@@ -39,6 +39,7 @@ multiple /differing/ outputs easily if it isn't specified a destination.
(expand-file-name (concat dx:literate/bin-dir "\\1.el")) SRC)) (expand-file-name (concat dx:literate/bin-dir "\\1.el")) SRC))
#+END_SRC #+END_SRC
* Parser * Parser
** Tangle function
First we need to get some sort of parser which can, given a source org file and 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 a destination, parse and produce an Emacs lisp file. We'll copy this from the
literate module of doom. literate module of doom.
@@ -49,17 +50,14 @@ literate module of doom.
(when (file-newer-than-file-p SRC DEST) (when (file-newer-than-file-p SRC DEST)
(let ((output (get-buffer-create "*org-tangle*"))) (let ((output (get-buffer-create "*org-tangle*")))
(unwind-protect (unwind-protect
(or (and (zerop (call-process (async-shell-command
"emacs" nil output nil (concat "emacs "
"-q" "--batch" "-q " "--batch "
"-l" "ob-tangle" "-l " "ob-tangle "
"--eval" (format "(org-babel-tangle-file %S %S)" "--eval "
SRC DEST))) (format "'(org-babel-tangle-file %S %S)'" SRC DEST))
(with-current-buffer output "*org-tangle-messages*"
(message "%s" (buffer-string)) "*org-tangle-errors*"))))))
t))
(warn (format "Problem with tanging %S to %S" SRC DEST)))
(kill-buffer output))))))
#+END_SRC #+END_SRC
* Hook on save * Hook on save
Now we need to make a hook function that, when the current buffer is an org file Now we need to make a hook function that, when the current buffer is an org file