2018-02-10 02:11:42 -05:00
|
|
|
;;; lang/ess/config.el -*- lexical-binding: t; -*-
|
|
|
|
|
|
|
|
|
|
(def-package! ess-site
|
|
|
|
|
:init (load "ess-autoloads" nil t)
|
2018-02-06 02:18:49 +08:00
|
|
|
:mode (("\\.sp\\'" . S-mode)
|
|
|
|
|
("/R/.*\\.q\\'" . R-mode)
|
|
|
|
|
("\\.[qsS]\\'" . S-mode)
|
|
|
|
|
("\\.ssc\\'" . S-mode)
|
|
|
|
|
("\\.SSC\\'" . S-mode)
|
|
|
|
|
("\\.[rR]\\'" . R-mode)
|
|
|
|
|
("\\.[rR]nw\\'" . Rnw-mode)
|
|
|
|
|
("\\.[sS]nw\\'" . Snw-mode)
|
|
|
|
|
("\\.[rR]profile\\'" . R-mode)
|
|
|
|
|
("NAMESPACE\\'" . R-mode)
|
|
|
|
|
("CITATION\\'" . R-mode)
|
|
|
|
|
("\\.omg\\'" . omegahat-mode)
|
|
|
|
|
("\\.hat\\'" . omegahat-mode)
|
|
|
|
|
("\\.lsp\\'" . XLS-mode)
|
|
|
|
|
("\\.do\\'" . STA-mode)
|
|
|
|
|
("\\.ado\\'" . STA-mode)
|
|
|
|
|
("\\.[Ss][Aa][Ss]\\'" . SAS-mode)
|
|
|
|
|
("\\.[Ss]t\\'" . S-transcript-mode)
|
|
|
|
|
("\\.Sout" . S-transcript-mode)
|
|
|
|
|
("\\.[Rr]out" . R-transcript-mode)
|
|
|
|
|
("\\.Rd\\'" . Rd-mode)
|
|
|
|
|
("\\.[Bb][Uu][Gg]\\'" . ess-bugs-mode)
|
|
|
|
|
("\\.[Bb][Oo][Gg]\\'" . ess-bugs-mode)
|
|
|
|
|
("\\.[Bb][Mm][Dd]\\'" . ess-bugs-mode)
|
|
|
|
|
("\\.[Jj][Aa][Gg]\\'" . ess-jags-mode)
|
|
|
|
|
("\\.[Jj][Oo][Gg]\\'" . ess-jags-mode)
|
|
|
|
|
("\\.[Jj][Mm][Dd]\\'" . ess-jags-mode))
|
|
|
|
|
:commands (R stata julia SAS)
|
2018-02-10 02:11:42 -05:00
|
|
|
:init
|
|
|
|
|
(unless (featurep! :lang julia)
|
|
|
|
|
(push (cons "\\.jl\\'" 'ess-julia-mode) auto-mode-alist))
|
2018-02-06 02:18:49 +08:00
|
|
|
:config
|
2018-02-18 22:37:34 -05:00
|
|
|
(add-hook 'ess-mode-hook #'doom|enable-line-numbers)
|
2018-02-18 22:44:57 -05:00
|
|
|
(setq ess-offset-continued 'straight
|
2018-02-06 02:18:49 +08:00
|
|
|
ess-expression-offset 2
|
|
|
|
|
ess-nuke-trailing-whitespace-p t
|
|
|
|
|
ess-default-style 'DEFAULT)
|
|
|
|
|
(ess-toggle-underscore t)
|
|
|
|
|
(set! :repl 'ess-mode #'+r/repl)
|
2018-02-10 02:11:42 -05:00
|
|
|
(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)
|
|
|
|
|
(:map ess-mode-map
|
|
|
|
|
"<s-return>" #'ess-eval-line
|
|
|
|
|
"<up>" #'comint-next-input
|
|
|
|
|
"<down>" #'comint-previous-input
|
|
|
|
|
(:localleader
|
|
|
|
|
:nv "," #'ess-eval-region-or-function-or-paragraph-and-step
|
|
|
|
|
:n "'" #'R
|
|
|
|
|
:n "<tab>" #'ess-switch-to-inferior-or-script-buffer
|
|
|
|
|
:n "<backtab>" #'ess-switch-process
|
|
|
|
|
:n ;; REPL
|
|
|
|
|
:n "B" #'ess-eval-buffer-and-go
|
|
|
|
|
:n "b" #'ess-eval-buffer
|
|
|
|
|
:nv "d" #'ess-eval-region-or-line-and-step
|
|
|
|
|
:n "D" #'ess-eval-function-or-paragraph-and-step
|
|
|
|
|
:n "L" #'ess-eval-line-and-go
|
|
|
|
|
:n "l" #'ess-eval-line
|
|
|
|
|
:nv "R" #'ess-eval-region-and-go
|
|
|
|
|
:nv "r" #'ess-eval-region
|
|
|
|
|
:n "F" #'ess-eval-function-and-go
|
|
|
|
|
:n "f" #'ess-eval-function
|
|
|
|
|
;; predefined keymaps
|
|
|
|
|
:n "h" #'ess-doc-map
|
|
|
|
|
:n "x" #'ess-extra-map
|
|
|
|
|
:n "p" #'ess-r-package-dev-map
|
|
|
|
|
:n "v" #'ess-dev-map
|
|
|
|
|
;; noweb
|
|
|
|
|
:n "cC" #'ess-eval-chunk-and-go
|
|
|
|
|
:n "cc" #'ess-eval-chunk
|
|
|
|
|
:n "cd" #'ess-eval-chunk-and-step
|
|
|
|
|
:n "cm" #'ess-noweb-mark-chunk
|
|
|
|
|
:n "cp" #'ess-noweb-previous-chunk
|
|
|
|
|
:n "cn" #'ess-noweb-next-chunk))))
|
|
|
|
|
|
2018-02-06 02:18:49 +08:00
|
|
|
|
|
|
|
|
(def-package! ess-smart-equals
|
|
|
|
|
:hook ((ess-mode . ess-smart-equals-mode)
|
|
|
|
|
(inferior-ess-mode . ess-smart-equals-mode)))
|
