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

Refactor narf:build & narf:switch-to-workgroup-at-index

Browse source
This commit is contained in:
Henrik Lissner 2016-02-26 09:40:49 -05:00
parent 7ea2d45f88
commit 665eec4aea
2 changed files with 11 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -20,11 +20,12 @@ If ARG is nil this function calls `recompile', otherwise it calls
(when (null narf--build-command)
(user-error "No build command was set"))
(let ((build-file (cdr narf--build-command))
(build-cmd (car narf--build-command)))
(if (or (null build-file) (narf/project-has-files build-file))
(build-cmd (car narf--build-command))
(default-directory (narf/project-root)))
(if (or (null build-file) (file-exists-p build-file))
(if (symbolp build-cmd)
(call-interactively build-cmd)
(compile (format "cd '%s' && %s" (narf/project-root) (format build-cmd (or arg "")))))
(compile (format build-cmd (or arg ""))))
(error "Could not build!"))))
;;;; Code running ;;;;;;;;;;;;;;;;;;;;;;