2015-06-15 09:06:10 +02:00
|
|
|
;;; module-lua.el --- lua + Love2D
|
|
|
|
|
|
|
|
(use-package lua-mode
|
|
|
|
:mode "\\.lua$"
|
|
|
|
:interpreter "lua"
|
|
|
|
:init
|
2015-12-09 01:54:30 -05:00
|
|
|
(define-repl! lua-mode narf-inf-lua)
|
2016-01-01 16:19:44 -05:00
|
|
|
(add-hook! lua-mode 'flycheck-mode)
|
2015-06-15 09:06:10 +02:00
|
|
|
;; (after! company-dict
|
|
|
|
;; (add-to-list 'company-dict-minor-mode-alist 'love-mode))
|
2015-12-09 01:54:30 -05:00
|
|
|
|
|
|
|
(defun narf-inf-lua ()
|
|
|
|
(lua-start-process "lua" "lua")
|
|
|
|
(pop-to-buffer lua-process-buffer)))
|
2015-06-15 09:06:10 +02:00
|
|
|
|
|
|
|
(define-minor-mode love-mode
|
|
|
|
"Buffer local minor mode for Love2D"
|
|
|
|
:init-value nil
|
2015-07-17 12:08:21 +02:00
|
|
|
:lighter " ♥"
|
2015-08-13 12:14:41 -04:00
|
|
|
:keymap (make-sparse-keymap)
|
|
|
|
(add-yas-minor-mode! 'love-mode))
|
2016-01-29 07:04:14 -05:00
|
|
|
(associate! love-mode :files ("main.lua" "conf.lua"))
|
2015-10-01 03:40:09 -04:00
|
|
|
(define-builder! love-mode "open -a love.app '%s'" "main.lua")
|
2015-06-15 09:06:10 +02:00
|
|
|
|
2016-01-29 07:04:14 -05:00
|
|
|
(define-minor-mode hammerspoon-mode
|
|
|
|
:init-value nil
|
|
|
|
:lighter " hammer"
|
|
|
|
:keymap (let ((map ))
|
|
|
|
(map! :map map
|
|
|
|
(:localleader
|
|
|
|
:n "b" (λ! (shell-command (format "open hammerspoon://reload")))))
|
|
|
|
map)
|
|
|
|
(add-yas-minor-mode! 'hammerspoon-mode))
|
|
|
|
(associate! hammerspoon-mode :match "/\\.?hammerspoon/.+\\.lua$")
|
|
|
|
|
2015-06-15 09:06:10 +02:00
|
|
|
(provide 'module-lua)
|
|
|
|
;;; module-lua.el ends here
|