awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

mod-love: better love2D support

Browse Source
This commit is contained in:
Henrik Lissner
2014-08-07 23:35:29 -04:00
parent 3714e41b47
commit d73cf14cfb
1 changed files with 9 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
init/mod-love.el
View File

@ -14,19 +14,18 @@
:group lua) :group lua)
(define-key love-mode-map (kbd "s-b") (define-key love-mode-map (kbd "s-b")
(lambda() (shell-command (concat "love " default-directory)))) (lambda() (interactive) (shell-command (concat "open -a love.app " default-directory))))
(add-hook 'lua-mode-hook (add-hook 'lua-mode-hook
(lambda() (lambda()
(if (string-match "\\.love/.+\\.lua" default-directory) (if (string-match "\\.love/.+\\.lua\\'" (buffer-file-name))
(love-mode t)) (love-mode t))
(nmap lua-mode-map (kbd "s-r") (nmap lua-mode-map (kbd "s-r")
(lambda() (interactive) (shell-command-on-region (point-min) (point-max) "lua"))) (lambda() (interactive) (shell-command-on-region (point-min) (point-max) "lua")))
(vmap lua-mode-map (kbd "s-r") (vmap lua-mode-map (kbd "s-r")
(lambda() (interactive) (shell-command-on-region (region-beginning) (region-end) "lua"))) (lambda() (interactive) (shell-command-on-region (region-beginning) (region-end) "lua")))
))))
))))
;; ;;
(provide 'mod-love) (provide 'mod-love)