blob: 3665d93d2f98d1888620f7b4a497d6b855aa3dab (
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
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
;;; 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)
;;;; nrepl client
;; (require 'nrepl-client)
;; (defun pit/repl/connect (&optional host port)
;; "Connect to pit nREPL server at HOST:PORT."
;; (let ((ret (get-buffer-create (generate-new-buffer-name " *pit-nrepl*") t)))
;; (nrepl-start-client-process (or host "localhost") (or port 7888) nil (lambda (_pl) ret))
;; ret))
(require 'cider)
(defun pit/repl/connect (&optional host port)
"Connect to pit nREPL server at HOST:PORT."
(let ( (dir (if-let* ((p (project-current))) (project-root p) default-directory))
(cider-repl-init-code nil))
(cider-nrepl-connect
(print
(thread-first `(:host ,host :port ,port :project-dir ,dir :repl-init-function nil :session-name nil :repl-type pit)
(cider--update-project-dir)
(cider--update-host-port)
(cider--check-existing-session))))))
(provide 'pit)
;;; pit.el ends here
|
