JosephFerano/flan
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

TAB folds a frame, which is what the header always said it did

Browse Source
This commit is contained in:
Joseph Ferano 2026-09-12 12:31:16 +07:00
parent 3439dec5b1
commit 8d56bd0ced
2 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
emacs/MANUAL.md
View File

@ -362,7 +362,7 @@ answers; anything that needs to know what a form means asks.
longer empty. It lists the stopped program's frames, innermost first, each with longer empty. It lists the stopped program's frames, innermost first, each with
where it is and how many named slots it has. where it is and how many named slots it has.
`TAB` on a frame opens it and shows what its locals hold — name, type and `TAB` on a frame opens it (or `f`, which folds from anywhere on the frame) and shows what its locals hold — name, type and
value, rendered the same way the inspector renders anything else. They are value, rendered the same way the inspector renders anything else. They are
fetched the first time a frame is opened and then kept, because a stopped fetched the first time a frame is opened and then kept, because a stopped
program's locals cannot change underneath you and a round trip behind a key program's locals cannot change underneath you and a round trip behind a key

14
emacs/flan-cnr.el
View File

@ -383,11 +383,23 @@ list already says it."
(get-text-property pos 'flan-cnr-frame) (get-text-property pos 'flan-cnr-frame)
(get-text-property pos 'flan-cnr-inspect))) (get-text-property pos 'flan-cnr-inspect)))
(defun flan-cnr-tab ()
"Fold this frame, or move to the next actionable line.
TAB does two things because the buffer has two kinds of line and the section
header already promised the first one: on a frame, it opens or closes that
frame's locals; anywhere else, it moves. `f' still folds unconditionally, for
anyone who would rather TAB always moved."
(interactive)
(if (get-text-property (point) 'flan-cnr-frame)
(flan-cnr-toggle-frame)
(flan-cnr-next)))
(defvar flan-cnr-mode-map (defvar flan-cnr-mode-map
(let ((map (make-sparse-keymap))) (let ((map (make-sparse-keymap)))
(define-key map (kbd "RET") #'flan-cnr-take) (define-key map (kbd "RET") #'flan-cnr-take)
(define-key map [mouse-1] #'flan-cnr-take) (define-key map [mouse-1] #'flan-cnr-take)
(define-key map (kbd "TAB") #'flan-cnr-next) (define-key map (kbd "TAB") #'flan-cnr-tab)
(define-key map [backtab] #'flan-cnr-previous) (define-key map [backtab] #'flan-cnr-previous)
(define-key map "n" #'flan-cnr-next) (define-key map "n" #'flan-cnr-next)
(define-key map "p" #'flan-cnr-previous) (define-key map "p" #'flan-cnr-previous)