Serene/serene
Serene
/
serene
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Activity

Add sync mode to the builder's elisp function

This commit is contained in:
Sameer Rahmani 2022-07-01 22:33:28 +01:00
parent 3d1353dee4
commit 489cb9610e
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
resources/emacs/serene-dev.el
View File

@ -35,18 +35,25 @@
(defvar serene/compile-buffer "*compile*")
(defmacro serene/builder (command &optional buf-name)
(defmacro serene/builder (command &optional buf-name sync)
"Run the given COMMAND via the builder script.
Use the optional BUF-NAME as the buffer."
Use the optional BUF-NAME as the buffer.
If SYNC is non-nil it will block."
(let ((buf (or buf-name (format "*%s*" command))))
`(projectile-run-async-shell-command-in-root (format "./builder %s" ,command) ,buf)))
(if (not sync)
`(projectile-run-async-shell-command-in-root
(format "./builder %s" ,command) ,buf)
`(projectile-run-shell-command-in-root
(format "./builder %s" ,command) ,buf))))
(defun serene/compile ()
(defun serene/compile (&optional sync)
"Compile the project.
It will run the `./builder compile' asynchronously."
It will run the `./builder compile' asynchronously or synchronously if
SYNC is non-nil."
(interactive)
(serene/builder "compile" serene/compile-buffer))
(serene/builder "compile" serene/compile-buffer sync))
(defun serene/build ()