blob: bd3e7955fc29d11a13e37f5cc336085c87ef31f5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
;;; ravi-init-repl.el --- REPL utilities
;; Copyright (C) 2014
;; Author: <ravi@nero.lan>
;; Keywords:
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; Read-eval-print-loop support
;;; Code:
(use-package comint
:defer t
:config
(progn
(bind-key "<up>" 'comint-previous-matching-input-from-input comint-mode-map)
(bind-key "<down>" 'comint-next-matching-input-from-input comint-mode-map))
:ensure nil)
(use-package octave-mod
:mode ("\\.m\\'" . octave-mode)
:config
(progn
(defun ravi/octave-shell-switch-to-shell ()
"Make sure that `inferior-octave-buffer' exists and is displayed."
(interactive)
(if (get-buffer inferior-octave-buffer)
(pop-to-buffer (get-buffer inferior-octave-buffer))
(inferior-octave nil))) )
:ensure nil)
(use-package repl-toggle
:commands (rtog/activate rtog/toggle-repl)
:bind (:map repl-toggle-mode-map
("<f5>" . rtog/toggle-repl))
:hook ((python-mode-hook . rtog/activate)
(octave-mode-hook . rtog/activate)
(emacs-lisp-mode-hook . rtog/activate))
:config
(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)
;; The default keybinding is not great
(unbind-key "C-c C-z" repl-toggle-mode-map)
:diminish repl-toggle-mode)
;; Calc and friends
(use-package calc
:bind
(("H-c" . calc))
:config
;; whole-line-or-region messes up pasting into calc buffers
(defun ravi/disable-whole-line-or-region-local-mode ()
(when (fboundp 'whole-line-or-region-local-mode)
(whole-line-or-region-local-mode -1)))
(add-hook 'calc-mode-hook #'ravi/disable-whole-line-or-region-local-mode)
;; Prefer primary selection for pasting with mouse
(defun ravi/calc-yank-mouse (radix)
(interactive "P")
(let ((interprogram-paste-function 'gui-get-primary-selection))
(calc-yank radix)))
(bind-key "<mouse-2>" 'ravi/calc-yank-mouse calc-mode-map))
;; Pretty print evaluation results; perhaps use eros here?
(bind-key [remap eval-last-sexp] 'pp-eval-last-sexp)
(provide 'ravi-init-repl)
;;; ravi-init-repl.el ends here
|
