lang/ess: conform to code conventions; no-byte-compile packages.el

modules/lang/ess/config.el

@@ -1,6 +1,7 @@
-;; ** ESS
-(setq ess-path (car (file-expand-wildcards "~/.emacs.d/.local/packages/elpa/ess*/lisp")))
-(def-package! ess-site :load-path ess-path
+;;; lang/ess/config.el -*- lexical-binding: t; -*-
+
+(def-package! ess-site
+  :init (load "ess-autoloads" nil t)
   :mode (("\\.sp\\'"           . S-mode)
          ("/R/.*\\.q\\'"       . R-mode)
          ("\\.[qsS]\\'"        . S-mode)
@@ -18,7 +19,6 @@
          ("\\.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)
@@ -30,6 +30,9 @@
          ("\\.[Jj][Oo][Gg]\\'" . ess-jags-mode)
          ("\\.[Jj][Mm][Dd]\\'" . ess-jags-mode))
   :commands (R stata julia SAS)
+  :init
+  (unless (featurep! :lang julia)
+    (push (cons "\\.jl\\'" 'ess-julia-mode) auto-mode-alist))
   :config
   (setq ess-first-continued-statement-offset 2
         ess-continued-statement-offset 0
@@ -38,8 +41,8 @@
         ess-default-style 'DEFAULT)
   (ess-toggle-underscore t)
   (set! :repl 'ess-mode #'+r/repl)
-  (map!
-   (:map ess-doc-map
+  (set! :lookup 'ess-mode :documentation #'ess-display-help-on-object)
+  (map! (:map ess-doc-map
           "h"             #'ess-display-help-on-object
           "p"             #'ess-R-dv-pprint
           "t"             #'ess-R-dv-ctable)
@@ -76,6 +79,7 @@
             :n "cp"        #'ess-noweb-previous-chunk
             :n "cn"        #'ess-noweb-next-chunk))))
 
+
 (def-package! ess-smart-equals
   :hook ((ess-mode . ess-smart-equals-mode)
          (inferior-ess-mode . ess-smart-equals-mode)))

modules/lang/ess/packages.el

@@ -1,3 +1,6 @@
+;; -*- no-byte-compile: t; -*-
+;;; lang/ess/packages.el
+
 (package! ess)
 (package! ess-smart-equals)
 (package! ess-R-data-view)