2014-08-09 19:25:06 -04:00
|
|
|
(use-package lua-mode :ensure t
|
2014-08-07 19:50:33 -04:00
|
|
|
:mode "\\.lua\\'"
|
|
|
|
:interpreter "lua"
|
2014-08-21 03:33:30 -04:00
|
|
|
:config
|
|
|
|
(my/setup-run-code lua-mode-map "lua")
|
2014-08-07 19:50:33 -04:00
|
|
|
:init
|
|
|
|
(progn
|
|
|
|
(define-minor-mode love-mode
|
2014-08-21 03:33:30 -04:00
|
|
|
"Buffer local minor mode for Love2D"
|
2014-08-07 19:50:33 -04:00
|
|
|
: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-07 19:50:33 -04:00
|
|
|
|
2014-08-21 03:33:30 -04:00
|
|
|
(add-hook 'lua-mode-hook 'love-mode-maybe)))
|
2014-08-07 19:50:33 -04:00
|
|
|
|
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))))
|
2014-08-07 19:50:33 -04:00
|
|
|
|
|
|
|
;;
|
|
|
|
(provide 'mod-love)
|