awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

features/eval: fix #30 (part 2)

Browse Source
This commit is contained in:
Henrik Lissner
2017-02-27 21:28:40 -05:00
parent 6a8b6dd041
commit e55fdee640
1 changed files with 2 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
modules/feature/eval/config.el
View File

@ -10,18 +10,14 @@
"A hash-table of plists, containing functions for building source code. Used
by `+eval/build', and filled with the `:build' setting")
(defvar +eval--repls nil
"A list of `rtog/add-repl' arguments.")
;; remove ellipsis when printing sexp in message buffer
(setq eval-expression-print-length nil
eval-expression-print-level nil)
(def-setting! :repl (mode command)
"Define a REPL for a mode. Takes same arguements as `rtog/add-repl'."
(if (featurep 'repl-toggle)
(list 'rtog/add-repl mode command)
`(push ',(list mode command) +eval--repls)))
`(after! repl-toggle
(rtog/add-repl ',mode ',command)))
(def-setting! :build (name mode pred-fn &optional build-fn)
"Define a build command function (BUILD-FN) for major-mode MODE, called NAME
@ -106,9 +102,6 @@ suitability for the current buffer."
(buffer-local-value 'repl-toggle-mode b))))
:popup t :size 16)
(dolist (repl +eval--repls)
(apply 'rtog/add-repl repl))
(map! :map repl-toggle-mode-map
:ei "C-n" 'comint-next-input
:ei "C-p" 'comint-previous-input