Replace feature/eval build system with def-menu!

modules/lang/data/config.el

@@ -29,12 +29,7 @@
 
 
 (def-package! dockerfile-mode
-  :mode "/Dockerfile$"
-  :config
-  ;; TODO
-  ;; (set! :build 'build-image 'dockerfile-mode '+data/dockerfile-build
-  ;;   :when '+data-dockerfile-p)
-  )
+  :mode "/Dockerfile$")
 
 
 ;; For ROM hacking or debugging

modules/lang/go/autoload.el

@@ -1,9 +1,5 @@
 ;;; lang/go/autoload.el -*- lexical-binding: t; -*-
 
-;;;###autoload
-;; TODO (defun +go/build ())
-
-
 ;;
 ;; Tests
 ;;

modules/lang/javascript/config.el

@@ -184,17 +184,3 @@
   :modes (html-mode css-mode web-mode js2-mode markdown-mode)
   :files "package.json")
 
-(def-project-mode! +javascript-lb6-mode
-  :modes (web-mode js2-mode nxml-mode markdown-mode)
-  :match "\\.lb\\(action\\|ext\\)/"
-  :init
-  ;; TODO
-  ;; (when IS-MAC
-  ;;   (set! :build 'launchbar-action '+javascript-lb6-mode
-  ;;     (lambda ()
-  ;;       (when-let (dir (f-traverse-upwards (lambda (f) (f-ext? f "lbaction"))))
-  ;;         (shell-command (format "open '%s'" dir))))
-  ;;     :when
-  ;;     (lambda () (f-traverse-upwards (lambda (f) (f-ext? f "lbaction"))))))
-  )
-

modules/lang/lua/autoload.el

@@ -7,3 +7,13 @@
   (lua-start-process "lua" "lua")
   (pop-to-buffer lua-process-buffer))
 
+;;;###autoload
+(defun +lua/run-love-game ()
+  "Run the current project with Love2D."
+  (interactive)
+  (async-shell-command
+   (format "%s %s"
+           (or (executable-find "love")
+               (if IS-MAC "open -a love.app"))
+           (shell-quote-argument (doom-project-root)))))
+

modules/lang/lua/config.el

@@ -10,7 +10,16 @@
   (set! :repl 'lua-mode #'+lua/repl)
 
   ;; sp's lua-specific rules are obnoxious, so we disable them
-  (setq sp-pairs (delete (assq 'lua-mode sp-pairs) sp-pairs)))
+  (setq sp-pairs (delete (assq 'lua-mode sp-pairs) sp-pairs))
+
+  (def-menu! +lua/build-menu
+    "Build/compilation commands for `lua-mode' buffers."
+    '(("Run Love app" :exec +lua/run-love-game :when +lua-love-mode))
+    :prompt "Build tasks: ")
+
+  (map! :map lua-mode-map
+        :localleader
+        "b" #'+lua/build-menu))
 
 
 (def-package! company-lua
@@ -32,9 +41,5 @@
 
 (def-project-mode! +lua-love-mode
   :modes (lua-mode markdown-mode json-mode)
-  :files (and "main.lua" "conf.lua")
-  :init
-  (set! :build 'run-love-app '+lua-love-mode
-    (lambda ()
-      (async-shell-command (format "open -a love.app '%s'" (doom-project-root))))))
+  :files (and "main.lua" "conf.lua"))
 

modules/lang/rust/autoload.el

@@ -2,4 +2,7 @@
 
 ;; TODO (defun +rust/run-cargo () (interactive))
 
-;; TODO (defun +rust-cargo-project-p ())
+;;;###autoload
+(defun +rust-cargo-project-p ()
+  "Return t if this is a cargo project."
+  (doom-project-has! "Cargo.toml"))

modules/lang/rust/config.el

@@ -11,8 +11,11 @@
 (def-package! rust-mode
   :mode "\\.rs$"
   :config
-  (set! :build 'run-cargo '(rust-mode toml-mode) #'+rust/run-cargo
-    :when #'+rust-cargo-project-p))
+  (def-menu! +rust/build-menu
+    "TODO"
+    '(("run"   :exec "cargo run"   :cwd t :when (+rust-cargo-project-p))
+      ("build" :exec "cargo build" :cwd t :when (+rust-cargo-project-p)))
+    :prompt "Cargo: "))
 
 
 (def-package! racer

modules/lang/web/+css.el

@@ -36,15 +36,14 @@
   :mode ("\\.scss$" . scss-mode)
   :config
   (set! :company-backend '(css-mode scss-mode) '(company-css company-yasnippet))
-  (set! :build 'compile-to-css 'scss-mode #'+css/scss-build))
+  (map! :map scss-mode-map :localleader "b" #'+css/scss-build))
 
 
 (def-package! sass-mode
   :mode "\\.sass$"
   :config
-  (setq sass-command-options '("--style compressed"))
   (set! :company-backend 'sass-mode '(company-css company-yasnippet))
-  (set! :build 'compile-to-css 'sass-mode #'+css/sass-build))
+  (map! :map scss-mode-map :localleader "b" #'+css/sass-build))
 
 
 (def-package! less-css-mode