doomemacs/init/mod-love.el

28 lines
723 B
EmacsLisp
Raw Normal View History

2014-08-09 19:25:06 -04:00
(use-package lua-mode :ensure t
:mode "\\.lua\\'"
:interpreter "lua"
2014-08-21 03:33:30 -04:00
:config
(my/setup-run-code lua-mode-map "lua")
:init
(progn
(define-minor-mode love-mode
2014-08-21 03:33:30 -04:00
"Buffer local minor mode for Love2D"
:init-value nil
:lighter " <3"
:keymap (make-sparse-keymap) ; defines love-mode-map
:group lua)
2014-08-21 03:33:30 -04:00
(nmap love-mode-map (kbd ",b")
(λ (shell-command (concat "open -a love.app " (projectile-project-root)))))
2014-08-21 03:33:30 -04:00
(add-hook 'lua-mode-hook 'love-mode-maybe)))
2014-08-21 03:33:30 -04:00
(defun love-mode-maybe()
(let ((root (projectile-project-root)))
(if (or (string-match "[.-]love/" root)
(file-exists-p (concat root ".love-mode")))
(love-mode t))))
;;
(provide 'mod-love)