awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-26 16:41:04 -05:00
Code Issues Packages Projects Releases Wiki Activity

Rewrote initfiles

Browse Source
This commit is contained in:
Henrik Lissner
2014-08-21 03:33:30 -04:00
parent a58f4246ba
commit e0c72477ae
16 changed files with 345 additions and 206 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
init/mod-love.el
View File

@@ -1,28 +1,27 @@
(use-package lua-mode :ensure t
:mode "\\.lua\\'"
:interpreter "lua"
:config
(my/setup-run-code lua-mode-map "lua")
:init
(progn
(define-minor-mode love-mode
"Buffer local minor mode for evil-org"
"Buffer local minor mode for Love2D"
:init-value nil
:lighter " <3"
:keymap (make-sparse-keymap) ; defines love-mode-map
:group lua)
(define-key love-mode-map (kbd "s-b")
(λ (shell-command (concat "open -a love.app " default-directory))))
(nmap love-mode-map (kbd ",b")
(λ (shell-command (concat "open -a love.app " (projectile-project-root)))))
(add-hook 'lua-mode-hook
(lambda()
(if (string-match "\\.love/.+\\.lua\\'" (buffer-file-name))
(love-mode t))
(add-hook 'lua-mode-hook 'love-mode-maybe)))
(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")))
))))
(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))))
;;
(provide 'mod-love)