emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Refactor REPL config

Browse source
This commit is contained in:
Henrik Lissner 2016-02-20 15:32:19 -05:00
parent b2a3ab90b3
commit 7f2876d754
3 changed files with 12 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

7
core/core-eval.el
View file

@ -21,17 +21,16 @@
(defvar repl-p nil) (defvar repl-p nil)
(make-variable-buffer-local 'repl-p) (make-variable-buffer-local 'repl-p)
(defun narf|repl-init () (add-hook! repl-toggle-mode
(yascroll-bar-mode +1) (yascroll-bar-mode +1)
(evil-initialize-state 'emacs) (evil-initialize-state 'emacs)
(setq mode-line-format nil (setq mode-line-format nil
repl-p t)) repl-p t))
(add-hook! repl-toggle-mode 'narf|repl-init)
:config :config
(map! :map repl-toggle-mode-map (map! :map repl-toggle-mode-map
:i "C-n" 'comint-next-input :i "C-n" 'comint-next-input
:i "C-p" 'comint-previous-input) :i "C-p" 'comint-previous-input))
)
(provide 'core-eval) (provide 'core-eval)
;;; core-eval.el ends here ;;; core-eval.el ends here

3
core/core-popup.el
View file

@ -176,8 +176,7 @@
(cond ((and (derived-mode-p 'comint-mode) (cond ((and (derived-mode-p 'comint-mode)
(featurep 'repl-toggle) (featurep 'repl-toggle)
repl-toggle-mode) repl-toggle-mode)
(setq rtog/--last-buffer nil (setq rtog/--last-buffer nil))
narf-repl-buffer nil))
((eq major-mode 'messages-buffer-mode) ((eq major-mode 'messages-buffer-mode)
(bury-buffer) (bury-buffer)
(setq dont-kill t))) (setq dont-kill t)))

9
modules/module-lisp.el
View file

@ -1,9 +1,16 @@
;;; module-lisp --- all things lisp ;;; module-lisp --- all things lisp
;; see lib/elisp-defuns.el ;; see lib/elisp-defuns.el
(define-repl! emacs-lisp-mode ielm)
(add-hook! emacs-lisp-mode 'turn-on-eldoc-mode) (add-hook! emacs-lisp-mode 'turn-on-eldoc-mode)
;; Pop-up REPL
(defun narf-inf-ielm ()
(ielm)
(let ((buf (current-buffer)))
(bury-buffer)
(pop-to-buffer buf)))
(define-repl! emacs-lisp-mode narf-inf-ielm)
;; [pedantry intensifies] ;; [pedantry intensifies]
(defadvice emacs-lisp-mode (after emacs-lisp-mode-rename-modeline activate) (defadvice emacs-lisp-mode (after emacs-lisp-mode-rename-modeline activate)
(setq mode-name "Elisp")) (setq mode-name "Elisp"))