Simplify ESS layer autoloads and add keybindings for starting REPLs

layers/+lang/ess/README.org

@@ -16,14 +16,16 @@ To use this contribution add it to your =~/.spacemacs=
 (setq-default dotspacemacs-configuration-layers '(ess))
 #+END_SRC
 
-*Important:*
-In order to speed up the boot time of =Spacemacs=, =ESS= must be loaded
-manually via the key binding: ~SPC e s s~
-
 * Key Bindings
 
 ** Inferior REPL process
-Start an =R= inferior REPL process with ~SPC m s i~.
+Start an inferior REPL process with these commands:
+| Keybinding | Description         |
+|------------+---------------------|
+| ~SCP msir~ | start R process     |
+| ~SPC msis~ | start Stata process |
+| ~SPC msiS~ | start SAS process   |
+| ~SPC msij~ | start Julia process |
 
 Send code to inferior process commands:
 

layers/+lang/ess/packages.el

@@ -21,24 +21,8 @@
     ))
 
 (defun ess/init-ess ()
-  ;; ESS is not quick to load so we just load it when
+  (use-package ess-site
-  ;; we need it (see my-keybindings.el for the associated
+    :mode (("\\.sp\\'"           . S-mode)
-  ;; keybinding)
-  (defun load-ess-on-demand ()
-    (interactive)
-    (-all? '---truthy? (list
-                        (require 'ess-site)
-                        (require 'ess-R-object-popup)
-                        (require 'ess-R-data-view))))
-
-  (evil-leader/set-key "ess" 'load-ess-on-demand)
-
-  (use-package ess
-    :defer t
-    :init
-    (progn
-      (setq auto-mode-alist (append
-                             '(("\\.sp\\'"           . S-mode)
            ("/R/.*\\.q\\'"       . R-mode)
            ("\\.[qsS]\\'"        . S-mode)
            ("\\.ssc\\'"          . S-mode)
@@ -55,6 +39,7 @@
            ("\\.do\\'"           . STA-mode)
            ("\\.ado\\'"          . STA-mode)
            ("\\.[Ss][Aa][Ss]\\'" . SAS-mode)
+           ("\\.jl\\'"           . ess-julia-mode)
            ("\\.[Ss]t\\'"        . S-transcript-mode)
            ("\\.Sout"            . S-transcript-mode)
            ("\\.[Rr]out"         . R-transcript-mode)
@@ -65,28 +50,13 @@
            ("\\.[Jj][Aa][Gg]\\'" . ess-jags-mode)
            ("\\.[Jj][Oo][Gg]\\'" . ess-jags-mode)
            ("\\.[Jj][Mm][Dd]\\'" . ess-jags-mode))
-                             auto-mode-alist))
+    :commands (R stata julia SAS)
-
+    :init
-      (defun ess/auto-load-hack (mode-symbol)
+    (progn
-        (eval
-         `(defun ,mode-symbol ()
-            "This is a function that will hijack itself with its
-definition from ess. The reason this exists is that ess does
-not play nicely with autoloads"
-            (when (load-ess-on-demand)
-              (,mode-symbol)))))
-
-      (defvar ess/r-modes-list '(R-mode R-transcript-mode Rd-mode Rnw-mode S-mode S-transcript-mode
-                                        SAS-mode STA-mode Snw-mode XLS-mode ess-bugs-mode ess-jags-mode omegahat-mode)
-        "This is the list of modes defined by ess")
-
-      (mapc (lambda (sym) (ess/auto-load-hack sym)) ess/r-modes-list)
-
       (push '(company-R-args company-R-objects) company-backends-ess-mode)))
 
   ;; R --------------------------------------------------------------------------
   (with-eval-after-load 'ess-site
-    (add-to-list 'auto-mode-alist '("\\.R$" . R-mode))
     ;; Follow Hadley Wickham's R style guide
     (setq ess-first-continued-statement-offset 2
           ess-continued-statement-offset 0
@@ -94,7 +64,10 @@ not play nicely with autoloads"
           ess-nuke-trailing-whitespace-p t
           ess-default-style 'DEFAULT)
     (evil-leader/set-key-for-mode 'ess-mode
-      "msi" 'R
+      "msir" 'R
+      "msis" 'stata
+      "msiS" 'SAS
+      "msij" 'julia
       ;; noweb
       "mcC" 'ess-eval-chunk-and-go
       "mcc" 'ess-eval-chunk