blob: 784049f8d4df21d9e4c6801683563f96bbca20ab (
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
|
;; [adj] movement and editing for lisp
(provide 'maze-lisp)
(defun maze--cur-end ()
(push-mark)
(thing-at-point--end-of-sexp)
(let ((cur (point)))
(goto-char (mark))
(pop-mark)
cur))
(defun maze--hl (beg end &optional buffer)
(let ((overlay (make-overlay beg end (or buffer (current-buffer)))))
(overlay-put overlay 'face 'highlight)
(setq maze-overlay overlay)
overlay))
(defun maze--unhl ()
(if maze-overlay
(delete-overlay maze-overlay)))
(defun maze--update-hl (beg end)
(if maze-overlay
(move-overlay maze-overlay beg end)
(maze--hl beg end)))
(defun maze-forward (n)
(interactive "p")
(goto-char (or (scan-sexps (point) 2) (buffer-end 1)))
(thing-at-point--beginning-of-sexp)
(maze--update-hl (point) (maze--cur-end)))
(defun maze-backward (n)
(interactive "p")
(let ((n (or n 1)))
(backward-sexp n))
(maze--update-hl (point) (maze--cur-end)))
(defun maze-inward (n)
(interactive "p")
(down-list n)
(maze--update-hl (point) (maze--cur-end)))
(defun maze-outward (n)
(interactive "p")
(backward-up-list n)
(maze--update-hl (point) (maze--cur-end)))
(defvar-keymap maze-mode-map
(kbd "j") 'maze-forward
(kbd "k") 'maze-backward
(kbd "l") 'maze-inward
(kbd "h") 'maze-outward)
(define-minor-mode maze-mode
"doc"
:keymap maze-mode-map
:init-value nil
:after-hook (progn
(setq-local parse-sexp-ignore-comments t)
(setq-local maze-overlay nil)
(font-lock-mode 1)))
|
