steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Revert "ui.gadgets.editors: make Ctrl-A select-all if at column 0." 

This reverts commit 9287b05d57.
master
John Benediktsson 2020-06-06 16:19:50 -07:00
parent 43c2ffead2
commit 5c04baf757
1 changed files with 4 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
basis/ui/gadgets/editors/editors.factor
View File

@ -434,8 +434,6 @@ editor "editing" f {
{ T{ key-down f { C+ } "BACKSPACE" } delete-previous-word }
{ T{ key-down f { A+ } "DELETE" } delete-to-end-of-line }
{ T{ key-down f { A+ } "BACKSPACE" } delete-to-start-of-line }
{ T{ key-down f { C+ } "u" } delete-to-start-of-line }
{ T{ key-down f { C+ } "k" } delete-to-end-of-line }
} define-command-map
: com-paste ( editor -- ) clipboard get paste-clipboard ;
@ -474,12 +472,6 @@ editor "clipboard" f {
: start-of-line ( editor -- ) one-line-elt editor-prev ;
DEFER: select-all
: start-of-line/select-all ( editor -- )
dup editor-caret second 0 =
[ select-all ] [ start-of-line ] if ;
: end-of-line ( editor -- ) one-line-elt editor-next ;
editor "caret-motion" f {
@ -492,8 +484,6 @@ editor "caret-motion" f {
{ T{ key-down f { C+ } "RIGHT" } next-word }
{ T{ key-down f f "HOME" } start-of-line }
{ T{ key-down f f "END" } end-of-line }
{ T{ key-down f { C+ } "a" } start-of-line/select-all }
{ T{ key-down f { C+ } "e" } end-of-line }
{ T{ key-down f { C+ } "HOME" } start-of-document }
{ T{ key-down f { C+ } "END" } end-of-document }
} define-command-map
@ -553,6 +543,10 @@ editor "selection" f {
{ T{ key-down f { S+ } "END" } select-end-of-line }
{ T{ key-down f { S+ C+ } "HOME" } select-start-of-document }
{ T{ key-down f { S+ C+ } "END" } select-end-of-document }
{ T{ key-down f { C+ } "u" } delete-to-start-of-line }
{ T{ key-down f { C+ } "k" } delete-to-end-of-line }
{ T{ key-down f { C+ } "a" } start-of-line }
{ T{ key-down f { C+ } "e" } end-of-line }
} define-command-map
: editor-menu ( editor -- )