Split mod-gamedev into mod-love and mod-cpp

init.el

@@ -32,7 +32,7 @@
 (mapc 'require
   '(core                ; Just the... bear necessities...
 
-	;; Modules to improve on emacs' heresy
+    ;; Modules to improve on emacs' heresy
     init-project        ; Project navigation tools & settings
     init-ac             ; Auto-complete engine & settings
     init-snippets       ; Snippet engine
@@ -43,6 +43,8 @@
     mod-org             ; Org-mode: personal gtd/notes
     mod-dev             ; Generic environment for all programming
     mod-webdev          ; Environment for webdev (SCSS, PHP, Rails, Jekyll)
-    mod-gamedev         ; Environment for gamedev (C++, Lua, HTML5, etc)
-    mod-eclim           ; Integration into eclipse (for Java)
-	))
+    mod-love            ; Love.app gamedev
+    mod-cpp             ; C++ gamedev
+    ;; mod-eclim           ; Integration into eclipse (for Java)
+    ;; mod-csharp          ; Emacs as a Csharp IDE
+    ))

init/mod-cpp.el

@@ -0,0 +1,7 @@
+
+(use-package c++-mode :mode "\\.h\\'")
+
+;; TODO Better SFML & build settings
+
+;;
+(provide 'mod-cpp)

init/mod-gamedev.el

@@ -1,22 +0,0 @@
-
-(mapc 'my/install-package '(lua-mode))
-
-(use-package lua-mode
-    :mode "\\.lua\\'"
-    :interpreter "lua"
-    :init
-    (add-hook 'lua-mode-hook
-        (lambda()
-          (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")))
-
-          (define-key lua-mode-map (kbd "s-b")
-            (lambda() (shell-command (concat "love " default-directory)))
-            ))))
-
-(use-package c++-mode :mode "\\.h\\'")
-
-;;
-(provide 'mod-gamedev)

init/mod-love.el

@@ -0,0 +1,32 @@
+
+(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)