Add define-project-type macro

modules/module-ansible.el

@@ -1,11 +1,8 @@
 ;;; module-ansible.el
 
-(after! company-dict
-  (add-to-list 'company-dict-minor-mode-list 'ansible-mode))
-
-(define-minor-mode ansible-mode
-  :lighter " ans" :keymap (make-sparse-keymap))
-(associate! ansible-mode :in (yaml-mode) :files ("roles/"))
+(define-project-type! ansible-mode "ans"
+  :modes (yaml-mode)
+  :files ("roles/"))
 
 (use-package company-ansible
   :commands (company-ansible)

modules/module-apple.el

@@ -7,18 +7,11 @@
 ;; LaunchBar: https://www.obdev.at/products/launchbar
 ;;
 
-(define-minor-mode lb6-mode
-  "Launchbar development mode."
-  :init-value nil
-  :lighter    " lb6"
-  (add-yas-minor-mode! 'lb6-mode))
-(define-builder! lb6-mode narf-lb6-reload)
-(associate! lb6-mode :match "\\.lb\\(action\\|ext\\)/.+$")
-
-(defun narf-lb6-reload ()
-  (interactive)
-  (let ((dir (f-traverse-upwards (lambda (f) (string-suffix-p ".lbaction" f)))))
-    (shell-command (format "open '%s'" dir))))
+(define-project-type! lb6 "lb6"
+  :match "\\.lb\\(action\\|ext\\)/.+$"
+  :build (lambda ()
+           (awhen (f-traverse-upwards (lambda (f) (f-ext? f "lbaction")))
+             (shell-command (format "open '%s'" it)))))
 
 
 ;;

modules/module-js.el

@@ -4,10 +4,6 @@
   :mode "\\.js$"
   :interpreter "node"
   :init
-  (use-package nodejs-repl
-    :commands (nodejs-repl)
-    :config (evil-set-initial-state 'nodejs-repl-mode 'emacs))
-
   (define-repl! js2-mode nodejs-repl)
   (define-docset! js2-mode "js,javascript,nodejs,angularjs,express,jquery,mongoose")
 
@@ -87,17 +83,9 @@
             (forward-slurp              "forward slurp"              nil)
             (forward-barf               "forward barf"               nil)))))
 
-(define-minor-mode nodejs-mode
-  :lighter " node" :keymap (make-sparse-keymap)
-  (add-yas-minor-mode! 'nodejs-mode))
-(associate! nodejs-mode :files ("package.json") :in (js2-mode))
-
-(define-minor-mode electron-mode
-  :lighter " electron" :keymap (make-sparse-keymap)
-  (add-yas-minor-mode! 'electron-mode))
-(associate! electron-mode
-  :files ("package.json" "app/index.html" "app/main.js")
-  :in (web-mode js2-mode markdown-mode json-mode coffee-mode))
+(use-package nodejs-repl
+    :commands (nodejs-repl)
+    :config (evil-set-initial-state 'nodejs-repl-mode 'emacs))
 
 (use-package unityjs-mode
   :mode "/Assets/.*\\.js$"
@@ -107,5 +95,20 @@
   :mode "\\.coffee$"
   :config (setq-default coffee-indent-like-python-mode t))
 
+;;
+(define-project-type! nodejs "node"
+  :modes (js2-mode)
+  :files ("package.json"))
+
+
+(define-project-type! electron "electron"
+  :modes (web-mode js-mode js2-mode markdown-mode json-mode coffee-mode scss-mode sass-mode)
+  :files ("package.json" "app/index.html" "app/main.js"))
+;; TODO electron-compile support
+
+;; TODO angular
+;; TODO react
+;; TODO express
+
 (provide 'module-js)
 ;;; module-js.el ends here

modules/module-lisp.el

@@ -63,8 +63,9 @@
                                      "define-builder" "narf-space-setup"
                                      "define-env-command" "define-text-object"
                                      "add-yas-minor-mode" "define-docset"
-                                     "define-org-link!" "define-company-backend"
-                                     "define-org-section" "define-temp-ex-cmd"))
+                                     "define-org-link" "define-company-backend"
+                                     "define-org-section" "define-temp-ex-cmd"
+                                     "define-project-type"))
                        "!\\)")
                      (1 font-lock-keyword-face append))
                     ;; Ert
@@ -75,26 +76,19 @@
                      (1 font-lock-keyword-face)
                      (2 font-lock-function-name-face))))
 
-;; Real go-to-definition for elisp
-(map! :map emacs-lisp-mode-map
-      :m "gd" 'narf/elisp-find-function-at-pt
-      :m "gD" 'narf/elisp-find-function-at-pt-other-window)
-
-(define-minor-mode emacs-ert-mode
-  "Ert test file minor mode"
-  :lighter " Ert" :keymap (make-sparse-keymap)
-  (add-yas-minor-mode! 'emacs-ert-mode))
-(associate! emacs-ert-mode :match "/test/.+-test\\.el$")
-
-(map! :map emacs-lisp-mode-map
-      (:localleader
-        :n "tr" 'narf/ert-rerun-test
-        :n "ta" 'narf/ert-run-all-tests
-        :n "ts" 'narf/ert-run-test))
-
 (use-package slime :defer t
-  :config
-  (setq inferior-lisp-program "clisp"))
+  :config (setq inferior-lisp-program "clisp"))
+
+;; Real go-to-definition for elisp
+(map! :map emacs-lisp-mode-map :m "gd" 'narf/elisp-find-function-at-pt)
+
+(define-project-type! emacs-ert "ert"
+  :modes (emacs-lisp-mode)
+  :match "/test/.+-test\\.el$"
+  :bind (:localleader
+          :n "tr" 'narf/ert-rerun-test
+          :n "ta" 'narf/ert-run-all-tests
+          :n "ts" 'narf/ert-run-test))
 
 (provide 'module-lisp)
 ;;; module-elisp.el ends here

modules/module-lua.el

@@ -7,8 +7,6 @@
   (define-repl! lua-mode narf/inf-lua)
   (define-company-backend! lua-mode (yasnippet))
   (add-hook 'lua-mode-hook 'flycheck-mode)
-  (after! company-dict
-    (add-to-list 'company-dict-minor-mode-list 'love-mode))
   (add-hook! lua-mode
     (electric-indent-local-mode +1)
     (setq narf-electric-indent-words '("else" "end")))
@@ -29,26 +27,16 @@
     ;; inline functions
     (sp-local-pair "function " " end" :unless '(sp-point-after-bol-p))))
 
-(define-minor-mode love-mode
-  "Buffer local minor mode for Love2D"
-  :init-value nil
-  :lighter " ♥"
-  :keymap (make-sparse-keymap)
-  (add-yas-minor-mode! 'love-mode))
-(associate! love-mode
-  :in (lua-mode markdown-mode json-mode)
-  :files ("main.lua" "conf.lua"))
-(define-builder! love-mode "open -a love.app '%s'" "main.lua")
+;;
+(define-project-type! love "♥"
+  :modes (lua-mode markdown-mode json-mode)
+  :files ("main.lua" "conf.lua")
+  :build ("open -a love.app '%s'" "main.lua"))
 
-(define-minor-mode hammerspoon-mode
-  :init-value nil
-  :lighter " hammer"
-  :keymap (make-sparse-keymap)
-  (add-yas-minor-mode! 'hammerspoon-mode))
-(associate! hammerspoon-mode
-  :in (lua-mode markdown-mode)
-  :match "/\\.?hammerspoon/.+\\.lua$")
-(define-builder! hammerspoon-mode "open hammerspoon://reload")
+(define-project-type! hammerspoon "hammer"
+  :modes (lua-mode markdown-mode)
+  :match "/\\.?hammerspoon/.+\\.lua$"
+  :build "open hammerspoon://reload")
 
 (provide 'module-lua)
 ;;; module-lua.el ends here

modules/module-php.el

@@ -63,14 +63,9 @@
   :init (define-repl! php-mode php-boris)
   :config (evil-set-initial-state 'php-boris-mode 'emacs))
 
-(define-minor-mode php-laravel-mode
-  ""
-  :init-value nil
-  :lighter " Laravel"
-  :keymap (make-sparse-keymap)
-  (add-yas-minor-mode! 'php-laravel-mode))
-(associate! php-laravel-mode
-  :in (php-mode json-mode yaml-mode web-mode nxml-mode js2-mode scss-mode)
+;;
+(define-project-type! laravel "laravel"
+  :modes (php-mode json-mode yaml-mode web-mode nxml-mode js2-mode scss-mode)
   :files ("artisan" "server.php"))
 
 (provide 'module-php)

modules/module-web.el

@@ -100,31 +100,21 @@
         :i "M-e" 'emmet-expand-yas
         :i "M-E" 'emmet-expand-line))
 
-(define-minor-mode jekyll-mode
-  "Jekyll development mode."
-  :init-value nil
-  :lighter " :{"
-  :keymap (make-sparse-keymap)
-  (add-yas-minor-mode! 'jekyll-mode))
-(associate! jekyll-mode
+;;
+(define-project-type! jekyll ":{"
+  :modes (web-mode scss-mode html-mode markdown-mode yaml-mode)
   :match "/\\(\\(css\\|_\\(layouts\\|posts\\|sass\\)\\)/.+\\|.+.html\\)$"
   :files ("config.yml" "_layouts/")
-  :in (web-mode scss-mode html-mode markdown-mode yaml-mode))
-(add-hook! jekyll-mode
-  (when (eq major-mode 'web-mode)
-    (web-mode-set-engine "django")))
-(after! company-dict (add-to-list 'company-dict-minor-mode-list 'jekyll-mode))
+  (add-hook! it
+    (when (eq major-mode 'web-mode)
+      (web-mode-set-engine "django"))))
 
-(define-minor-mode wordpress-mode
-  "Wordpress development mode."
-  :init-value nil
-  :lighter " wp"
-  :keymap (make-sparse-keymap)
-  (add-yas-minor-mode! 'wordpress-mode))
-(associate! wordpress-mode
+(define-project-type! wordpress "wp"
+  :modes (php-mode web-mode css-mode scss-mode sass-mode)
   :match "/wp-\\(\\(content\\|admin\\|includes\\)/\\)?.+$"
   :files ("wp-config.php" "wp-content/"))
-(after! company-dict (add-to-list 'company-dict-minor-mode-list 'wordpress-mode))
+
+;; TODO Add stylus-mode
 
 (provide 'module-web)
 ;;; module-web.el ends here