Add set-project-type! autodef

And use it for love2d projects in lang/lua module.
This commit is contained in:
Henrik Lissner 2019-06-27 17:16:40 +02:00
parent ba7c713bf6
commit 22cc519ac1
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
3 changed files with 28 additions and 4 deletions

View file

@ -11,10 +11,17 @@
(defun +lua/run-love-game ()
"Run the current project with Love2D."
(interactive)
(when-let (root (locate-dominating-file buffer-file-name "main.lua"))
(when-let (root (+lua-love-project-root))
(async-shell-command
(format "%s %s"
(or (executable-find "love")
(if IS-MAC "open -a love.app"))
(shell-quote-argument (file-name-directory root))))))
;;;###autoload
(defun +lua-love-project-root ()
"Returns the directory where a main.lua exists.
Returns nil if 'love' executable can't be found."
(and (executable-find "love")
(locate-dominating-file buffer-file-name "main.lua")))