diff options
| author | Ravi R Kiran <aine.marina@gmail.com> | 2021-04-19 13:54:20 (GMT) |
|---|---|---|
| committer | Ravi R Kiran <aine.marina@gmail.com> | 2021-04-19 13:54:20 (GMT) |
| commit | 1fe8c5cf56a90025c891476a1d602e0c91847311 (patch) | |
| tree | 79ff235a708562ff4b6f68e76a5bb09bd72bdafe /lisp/ravi-init-repl.el | |
| parent | 017c0cdbffc760888b1a547c374b724e8289a0c7 (diff) | |
| download | dotemacs-1fe8c5cf56a90025c891476a1d602e0c91847311.zip dotemacs-1fe8c5cf56a90025c891476a1d602e0c91847311.tar.gz dotemacs-1fe8c5cf56a90025c891476a1d602e0c91847311.tar.bz2 | |
Another attempt at getting repl-toggle hooks right
Diffstat (limited to 'lisp/ravi-init-repl.el')
| -rw-r--r-- | lisp/ravi-init-repl.el | 35 |
1 files changed, 18 insertions, 17 deletions
diff --git a/lisp/ravi-init-repl.el b/lisp/ravi-init-repl.el index cd8ba0b..33d1cc8 100644 --- a/lisp/ravi-init-repl.el +++ b/lisp/ravi-init-repl.el @@ -45,26 +45,27 @@ :ensure nil) (use-package repl-toggle + :commands (rtog/activate ravi/repl-toggle-or-compile-dwim) + :bind (:map repl-toggle-mode-map + ("<f5>" . ravi/repl-toggle-or-compile-dwim)) :config - (progn - (setq rtog/mode-repl-alist '((python-mode . python-shell-switch-to-shell) - (octave-mode . ravi/octave-shell-switch-to-shell) - (emacs-lisp-mode . ielm))) - (setq rtog/goto-buffer-fun 'pop-to-buffer) - (add-hook 'python-mode-hook 'rtog/activate) - (add-hook 'octave-mode-hook 'rtog/activate) - (add-hook 'emacs-lisp-mode-hook 'rtog/activate) + (setq rtog/mode-repl-alist '((python-mode . python-shell-switch-to-shell) + (octave-mode . ravi/octave-shell-switch-to-shell) + (emacs-lisp-mode . ielm))) + (setq rtog/goto-buffer-fun 'pop-to-buffer) + (add-hook 'python-mode-hook #'rtog/activate) + (add-hook 'octave-mode-hook #'rtog/activate) + (add-hook 'emacs-lisp-mode-hook #'rtog/activate) + (add-hook 'c-mode-common-hook #'rtog/activate) - (defun ravi/repl-toggle-or-compile-dwim () - (interactive) - (if (or rtog/--last-buffer (assoc major-mode rtog/mode-repl-alist)) - (call-interactively 'rtog/toggle-repl) - (call-interactively 'compile-dwim))) + (defun ravi/repl-toggle-or-compile-dwim () + (interactive) + (if (or rtog/--last-buffer (assoc major-mode rtog/mode-repl-alist)) + (call-interactively 'rtog/toggle-repl) + (call-interactively 'compile-dwim))) - ; The default keybinding is not great - (unbind-key "C-c C-z" repl-toggle-mode-map) - (bind-key "<f5>" 'ravi/repl-toggle-or-compile-dwim repl-toggle-mode-map) - ) + ;; The default keybinding is not great + (unbind-key "C-c C-z" repl-toggle-mode-map) :diminish repl-toggle-mode) ;; Calc and friends |