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

build-cmd: add support for function symbols

Browse source
This commit is contained in:
Henrik Lissner 2016-02-16 07:23:47 -05:00
parent 7236d623e5
commit 114afeb568
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -22,8 +22,10 @@ If ARG is nil this function calls `recompile', otherwise it calls
(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)))
(if (or (null build-file) (narf/project-has-files build-file)) (if (or (null build-file) (narf/project-has-files build-file))
(compile (format "cd '%s' && %s" (narf/project-root) (format build-cmd (or arg "")))) (if (symbolp build-cmd)
(error "Could not find Makefile")))) (call-interactively build-cmd)
(compile (format "cd '%s' && %s" (narf/project-root) (format build-cmd (or arg "")))))
(error "Could not build!"))))
;;;; Code running ;;;;;;;;;;;;;;;;;;;;;; ;;;; Code running ;;;;;;;;;;;;;;;;;;;;;;
;;;###autoload (autoload 'narf:eval-buffer "defuns-quickrun" nil t) ;;;###autoload (autoload 'narf:eval-buffer "defuns-quickrun" nil t)