From d73cf14cfb7282d4cda15bcd92dc9a1ff6aeb839 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Thu, 7 Aug 2014 23:35:29 -0400 Subject: [PATCH] mod-love: better love2D support --- init/mod-love.el | 19 +++++++++---------- 1 file changed, 9 insertions(+), 10 deletions(-) diff --git a/init/mod-love.el b/init/mod-love.el index f51b81ae4..e2895379c 100644 --- a/init/mod-love.el +++ b/init/mod-love.el @@ -14,19 +14,18 @@ :group lua) (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 - (lambda() - (if (string-match "\\.love/.+\\.lua" default-directory) - (love-mode t)) + (lambda() + (if (string-match "\\.love/.+\\.lua\\'" (buffer-file-name)) + (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"))) - - )))) + (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)