doomemacs/modules/lang/ess/config.el

;;; lang/ess/config.el -*- lexical-binding: t; -*-

(def-package! ess
  :commands (stata SAS)
  :init
  (setq ess-smart-S-assign-key nil)
  (unless (featurep! :lang julia)
    (add-to-list 'auto-mode-alist '("\\.jl\\'" . ess-julia-mode)))
  :config
  (setq ess-offset-continued 'straight
        ess-expression-offset 2
        ess-nuke-trailing-whitespace-p t
        ess-default-style 'DEFAULT)

  (add-hook 'ess-mode-hook #'display-line-numbers-mode)

  (set-repl-handler! 'ess-mode #'+ess/r-repl)
  (set-lookup-handlers! 'ess-mode :documentation #'ess-display-help-on-object)

  (after! ess-help
    (define-key! ess-doc-map
      "h" #'ess-display-help-on-object
      "p" #'ess-R-dv-pprint
      "t" #'ess-R-dv-ctable)
    (define-key! ess-doc-map
      [s-return] #'ess-eval-line
      [up]       #'comint-next-input
      [down]     #'comint-previous-input))
  (map! :map ess-mode-map
        :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))
lang/ess: conform to code conventions; no-byte-compile packages.el 2018-02-10 15:11:42 +08:00			`;;; lang/ess/config.el -- lexical-binding: t; --`

lang/ess: update to reflect changes upstream #880 2018-09-11 10:36:37 +08:00			`(def-package! ess`
			`:commands (stata SAS)`
lang/ess: conform to code conventions; no-byte-compile packages.el 2018-02-10 15:11:42 +08:00			`:init`
Removed broken package ess-smart-equals 2018-08-10 01:03:44 +08:00			`(setq ess-smart-S-assign-key nil)`
lang/ess: conform to code conventions; no-byte-compile packages.el 2018-02-10 15:11:42 +08:00			`(unless (featurep! :lang julia)`
Refactor out map.el usage After some profiling, it turns out map-put and map-delete are 5-7x slower (more on Emacs 25) than delq, setf/alist-get and add-to-list for small lists (under 250 items), which is exactly how I've been using them. The only caveat is alist-get's signature is different on Emacs 25, thus a polyfill is necessary in core-lib. 2018-06-23 22:48:58 +08:00			`(add-to-list 'auto-mode-alist '("\\.jl\\'" . ess-julia-mode)))`
Add: ESS module 2018-02-06 02:18:49 +08:00			`:config`
lang/ess: replace obsolete vars with ess-offset-continued 2018-02-19 11:44:57 +08:00			`(setq ess-offset-continued 'straight`
Add: ESS module 2018-02-06 02:18:49 +08:00			`ess-expression-offset 2`
			`ess-nuke-trailing-whitespace-p t`
			`ess-default-style 'DEFAULT)`
lang/ess: minor reformatting Make hooks stand out a little more. 2018-09-11 10:39:11 +08:00
			`(add-hook 'ess-mode-hook #'display-line-numbers-mode)`

Replace :eval/:repl with autodef functions + :eval => set-eval-handler! + :repl => set-repl-handler! + Updates all internal references. 2018-06-15 22:07:24 +08:00			`(set-repl-handler! 'ess-mode #'+ess/r-repl)`
Replace :lookup with set-lookup-handlers! autodef And update all internal references. 2018-06-15 23:27:48 +08:00			`(set-lookup-handlers! 'ess-mode :documentation #'ess-display-help-on-object)`
lang/ess: update to reflect changes upstream #880 2018-09-11 10:36:37 +08:00
			`(after! ess-help`
			`(define-key! ess-doc-map`
			`"h" #'ess-display-help-on-object`
			`"p" #'ess-R-dv-pprint`
			`"t" #'ess-R-dv-ctable)`
			`(define-key! ess-doc-map`
			`[s-return] #'ess-eval-line`
			`[up] #'comint-next-input`
			`[down] #'comint-previous-input))`
Minimize dependence on map! This is in preparation for general.el integration coming in 2.1.1. It is very likely that map! will change (and even more, be split into several macros). Not much, but change none-the-less. Specifically, the state keywords (e.g. :nvi, :n, :i) will be removed in favor of a :state property that takes a list, e.g. (normal visual insert). In any case, both map! and general are also relatively expensive compared to define-key and evil-define-key* (and the new define-key! macro), so use that when we can. This also means changes to either API won't affect Doom's modules in the long term. 2018-06-03 21:46:00 +08:00			`(map! :map ess-mode-map`
			`: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))`