Skip to content

Macrostep #892

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
cxxxr merged 19 commits into from
Aug 6, 2023
Merged

Macrostep #892

Changes from 1 commit
Commits
Show all changes
19 commits
Select commit Hold shift + click to select a range
22a8996
indent
cxxxr Aug 6, 2023
58be1fa
add macrostep
cxxxr Aug 6, 2023
978b6a9
extract method
cxxxr Aug 6, 2023
922edaa
fix
cxxxr Aug 6, 2023
55b0d58
add define-buffer-accessor
cxxxr Aug 6, 2023
f7afade
extract macro
cxxxr Aug 6, 2023
7ed2e28
move definitions
cxxxr Aug 6, 2023
ee87767
backward-up-list -> up-list
cxxxr Aug 6, 2023
c8bf3a0
add some move-form functions
cxxxr Aug 6, 2023
0d31663
fix
cxxxr Aug 6, 2023
a955674
tweak message
cxxxr Aug 6, 2023
4d82b91
fix
cxxxr Aug 6, 2023
84bcb40
fix searching subform-overlay
cxxxr Aug 6, 2023
9268bf5
cleanup buffer-modified-p
cxxxr Aug 6, 2023
77dae36
set underline-color
cxxxr Aug 6, 2023
accb0ee
fix the cursor position after undo
cxxxr Aug 6, 2023
f850605
add help message
cxxxr Aug 6, 2023
db80da2
fix
cxxxr Aug 6, 2023
e50c0d1
rename package
cxxxr Aug 6, 2023
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Prev Previous commit
Next Next commit
extract method
  • Loading branch information
@cxxxr
cxxxr committed Aug 6, 2023
commit 978b6a9010c103169fa69da2902e70a851c735ec
49 changes: 25 additions & 24 deletions extensions/lisp-mode/macrostep.lisp
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -186,30 +186,31 @@
((:error message)
(show-message (format nil "Error: ~A" message)))))))

(define-command lisp-macrostep-expand () ()
(macrostep-expand (current-point))
(macrostep-mode t))
(defclass macrostep-advice () ())

(defmethod execute :before (mode (command macrostep-advice) argument)
(unless (mode-active-p (current-buffer) 'macrostep-mode)
(editor-error "macrostep-mode is not activated.")))

(define-command (lisp-macrostep-quit (:advice-classes macrostep-advice)) () ()
(macrostep-mode nil))

(define-command (lisp-macrostep-next (:advice-classes macrostep-advice)) () ()
(when-let (overlay (search-next-subform-overlay (current-point)))
(move-point (current-point) (overlay-start overlay))))

(define-command lisp-macrostep-quit () ()
(when (mode-active-p (current-buffer) 'macrostep-mode)
(define-command (lisp-macrostep-previous (:advice-classes macrostep-advice)) () ()
(when-let (overlay (search-previous-subform-overlay (current-point)))
(move-point (current-point) (overlay-start overlay))))

(define-command (lisp-macrostep-expand-next (:advice-classes macrostep-advice)) () ()
(macrostep-expand (current-point)))

(define-command (lisp-macrostep-undo (:advice-classes macrostep-advice)) () ()
(pop-undo (current-buffer))
(when (empty-undo-stack-p (current-buffer))
(macrostep-mode nil)))

(define-command lisp-macrostep-next () ()
(when (mode-active-p (current-buffer) 'macrostep-mode)
(when-let (overlay (search-next-subform-overlay (current-point)))
(move-point (current-point) (overlay-start overlay)))))

(define-command lisp-macrostep-previous () ()
(when (mode-active-p (current-buffer) 'macrostep-mode)
(when-let (overlay (search-previous-subform-overlay (current-point)))
(move-point (current-point) (overlay-start overlay)))))

(define-command lisp-macrostep-expand-next () ()
(when (mode-active-p (current-buffer) 'macrostep-mode)
(macrostep-expand (current-point))))

(define-command lisp-macrostep-undo () ()
(when (mode-active-p (current-buffer) 'macrostep-mode)
(pop-undo (current-buffer))
(when (empty-undo-stack-p (current-buffer))
(macrostep-mode nil))))
(define-command lisp-macrostep-expand () ()
(macrostep-expand (current-point))
(macrostep-mode t))