32 lines
949 B
EmacsLisp
32 lines
949 B
EmacsLisp
|
|
(mapc 'my/install-package '(lua-mode))
|
|
|
|
(use-package lua-mode
|
|
:mode "\\.lua\\'"
|
|
:interpreter "lua"
|
|
:init
|
|
(progn
|
|
(define-minor-mode love-mode
|
|
"Buffer local minor mode for evil-org"
|
|
:init-value nil
|
|
:lighter " <3"
|
|
:keymap (make-sparse-keymap) ; defines love-mode-map
|
|
:group lua)
|
|
|
|
(define-key love-mode-map (kbd "s-b")
|
|
(lambda() (shell-command (concat "love " default-directory))))
|
|
|
|
(add-hook 'lua-mode-hook
|
|
(lambda()
|
|
(if (string-match "\\.love/.+\\.lua" default-directory)
|
|
(love-mode t))
|
|
|
|
(nmap lua-mode-map (kbd "s-r")
|
|
(lambda() (interactive) (shell-command-on-region (point-min) (point-max) "lua")))
|
|
(vmap lua-mode-map (kbd "s-r")
|
|
(lambda() (interactive) (shell-command-on-region (region-beginning) (region-end) "lua")))
|
|
|
|
))))
|
|
|
|
;;
|
|
(provide 'mod-love)
|