Better evil/REPL support

modules/module-js.el

@@ -3,6 +3,8 @@
 (use-package js2-mode
   :mode "\\.js$"
   :interpreter "node"
+  :init
+  (define-repl! js2-mode nodejs-repl)
   :config
   (setq-default
    js2-skip-preprocessor-directives t

modules/module-lisp.el

@@ -1,6 +1,7 @@
 ;;; module-lisp --- all things lisp
 ;; see lib/elisp-defuns.el
 
+(define-repl! emacs-lisp-mode ielm)
 (add-hook! emacs-lisp-mode 'turn-on-eldoc-mode)
 
 ;; [pedantry intensifies]

modules/module-lua.el

@@ -4,11 +4,16 @@
   :mode "\\.lua$"
   :interpreter "lua"
   :init
+  (define-repl! lua-mode narf-inf-lua)
   (setq-default lua-indent-level tab-width)
   ;; (after! company-dict
   ;;   (add-to-list 'company-dict-minor-mode-alist 'love-mode))
   (add-hook! lua-mode '(narf|enable-tab-width-2 flycheck-mode))
-  (add-hook! lua-mode (setq lua-indent-level 2)))
+  (add-hook! lua-mode (setq lua-indent-level 2))
+
+  (defun narf-inf-lua ()
+    (lua-start-process "lua" "lua")
+    (pop-to-buffer lua-process-buffer)))
 
 (define-minor-mode love-mode
   "Buffer local minor mode for Love2D"

modules/module-php.el

@@ -24,7 +24,12 @@
   (require 'php-refactor-mode)
   (add-hook! php-mode '(turn-on-eldoc-mode emr-initialize php-refactor-mode)))
 
-(use-package php-boris :defer t)
+(use-package php-boris :defer t
+  :init
+  (define-repl! php-mode php-boris)
+  :config
+  (evil-set-initial-state 'php-boris-mode 'emacs)
+  (setq php-boris-command "~/.dotfiles/scripts/run-boris"))
 
 (use-package hack-mode :mode "\\.hh$")
 

modules/module-python.el

@@ -12,6 +12,10 @@
    python-shell-interpreter "ipython")
   :config
   (define-env-command! python-mode "python --version | cut -d' ' -f2")
+  (define-repl! python-mode narf-inf-python)
+
+  (defun narf-inf-python ()
+    (run-python python-shell-interpreter t t))
 
   ;; interferes with smartparens
   (define-key python-mode-map (kbd "DEL") nil)

modules/module-sh.el

@@ -1,11 +1,19 @@
 ;;; module-sh.el --- description
 
-;; [pedantry intensifies]
 (after! sh-script
-  (defadvice sh-mode (after sh-mode-rename-modeline activate)
-    (setq mode-name "Sh"))
+  (define-repl! sh-mode narf-inf-shell)
+  (add-hook! sh-mode 'flycheck-mode)
 
-  (add-hook! sh-mode 'flycheck-mode))
+  ;; [pedantry intensifies]
+  (defadvice sh-mode (after sh-mode-rename-modeline activate)
+    (setq mode-name "sh"))
+
+  (defun narf-inf-shell ()
+    (let* ((dest-sh (symbol-name sh-shell))
+           (sh-shell-file dest-sh))
+      (sh-shell-process t)
+      (with-current-buffer "*shell*"
+        (rename-buffer (format "*shell [%s]*" dest-sh))))))
 
 (provide 'module-sh)
 ;;; module-sh.el ends here