emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

define-builder! now accepts functions/commands + better pwd handling

Browse source
This commit is contained in:
Henrik Lissner 2016-04-16 21:39:11 -04:00
parent 38df38f9b6
commit 64221e9450
1 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

13
core/defuns/defuns-quickrun.el
View file

@ -21,11 +21,14 @@ If ARG is nil this function calls `recompile', otherwise it calls
(user-error "No build command was set")) (user-error "No build command was set"))
(let ((build-file (cdr narf--build-command)) (let ((build-file (cdr narf--build-command))
(build-cmd (car narf--build-command)) (build-cmd (car narf--build-command))
(default-directory (narf/project-root))) (project-dir (narf/project-root)))
(if (or (null build-file) (file-exists-p build-file)) (if (or (null build-file) (f-exists? (f-expand build-file project-dir)))
(if (symbolp build-cmd) (if (or (symbolp build-cmd) (functionp build-cmd))
(call-interactively build-cmd) (if (commandp build-cmd)
(compile (format build-cmd (or arg "")))) (call-interactively build-cmd)
(funcall build-cmd))
(let ((default-directory project-dir))
(compile (format build-cmd (or arg "")))))
(error "Could not build!")))) (error "Could not build!"))))
;;;; Code running ;;;;;;;;;;;;;;;;;;;;;; ;;;; Code running ;;;;;;;;;;;;;;;;;;;;;;