: delete-to-end-of-line ( editor -- )
one-line-elt editor-backspace ;
-: delete-to-start-of-document ( editor -- )
- doc-elt editor-delete ;
-
-: delete-to-end-of-document ( editor -- )
- doc-elt editor-delete ;
-
: com-undo ( editor -- ) model>> undo ;
: com-redo ( editor -- ) model>> redo ;
{ T{ key-down f f "END" } end-of-line }
{ T{ key-down f { C+ } "HOME" } start-of-document }
{ T{ key-down f { C+ } "END" } end-of-document }
- { T{ key-down f { C+ } "k" } delete-to-start-of-line }
- { T{ key-down f { C+ } "a" } start-of-line }
- { T{ key-down f { C+ } "e" } end-of-line }
} define-command-map
: clear-editor ( editor -- )
interactor "interactor" f {
{ T{ key-down f f "RET" } evaluate-input }
+ { T{ key-down f { C+ } "k" } clear-editor }
} define-command-map
interactor "completion" f {
} define-operation
[ pathname? ] \ edit-file H{
- { +keyboard+ T{ key-down f { C+ } "b" } }
+ { +keyboard+ T{ key-down f { C+ } "e" } }
{ +primary+ t }
{ +secondary+ t }
{ +listener+ t }
} define-operation
[ definition? ] \ edit H{
- { +keyboard+ T{ key-down f { C+ } "b" } }
+ { +keyboard+ T{ key-down f { C+ } "e" } }
{ +listener+ t }
} define-operation