blob: cce26946b45c26d1739d79772582118e637e2d7a (
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
86
|
;;; pit --- support for pit -*- lexical-binding: t; -*-
;;; Commentary:
;;; Code:
(require 'dash)
(require 's)
(require 'cl-lib)
(require 'rx)
(require 'hydra)
(require 'comint)
(defcustom pit/repl-buffer-name "*pit-repl*"
"Name of the pit REPL buffer."
:type '(string)
:group 'pit)
(defcustom pit/interpreter-path "~/src/libcolonq/pit/pit"
"Path to the pit interpreter."
:type '(string)
:group 'pit)
(define-derived-mode pit/mode lisp-mode "pit"
"Major mode for pit source code."
)
(add-to-list 'auto-mode-alist `(,(rx ".pit" eos) . pit/mode))
(defun pit/repl-buffer ()
"Ensure the REPL is running and return its buffer."
(make-comint-in-buffer "pit" pit/repl-buffer-name pit/interpreter-path nil)
(get-buffer pit/repl-buffer-name))
(defun pit/repl-process ()
"Return the Comint process for the REPL."
(get-buffer-process (pit/repl-buffer)))
(defun pit/send-string (s)
"Send string S to the REPL."
(comint-send-string (pit/repl-process) (s-concat s "\n")))
(defun pit/eval-region (start end)
"Send the region from START to END to the REPL."
(interactive "r")
(comint-send-region (pit/repl-process) start end)
(comint-send-string (pit/repl-process) "\n"))
(defun pit/eval-defun ()
"Send the defun under point to the REPL."
(interactive)
(save-excursion
(end-of-defun)
(beginning-of-defun)
(let ((start (point)))
(forward-sexp)
(pit/eval-region start (point)))))
(defun pit/eval-buffer ()
"Send the current buffer to the REPL."
(interactive)
(pit/send-string (format "(progn %s 'done)" (buffer-string))))
(defun pit/restart ()
"Restart the pit REPL."
(interactive)
(kill-buffer pit/repl-buffer-name)
(pit/repl))
(defun pit/repl ()
"Launch the pit REPL."
(interactive)
(switch-to-buffer (pit/repl-buffer)))
;;;; configuration
(defhydra pit/ide (:color teal :hint nil)
"Dispatcher > pit IDE."
("<f12>" keyboard-escape-quit)
("S" pit/restart "start")
("e" pit/eval-defun "eval")
("i" pit/eval-buffer "buffer")
("r" pit/repl "repl"))
(defun pit/setup ()
"Configuration for `pit/mode'."
(setq-local c/contextual-ide 'pit/ide/body))
(add-hook 'pit/mode-hook #'pit/setup)
(provide 'pit)
;;; pit.el ends here
|
