From e55fdee6404c2298a09185740aa73af7ef87bf85 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Mon, 27 Feb 2017 21:28:40 -0500 Subject: [PATCH] features/eval: fix #30 (part 2) --- modules/feature/eval/config.el | 11 ++--------- 1 file changed, 2 insertions(+), 9 deletions(-) diff --git a/modules/feature/eval/config.el b/modules/feature/eval/config.el index 06b0ec779..715a025a9 100644 --- a/modules/feature/eval/config.el +++ b/modules/feature/eval/config.el @@ -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