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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
|
;;; Commands that are useful when bound to keys.
;;; /kb_backward_kill_line delete from cursor to beginning of line
;;; /kb_kill_word delete from cursor to end of punctuated word
;;; /kb_backward_kill_word delete from cursor to start of punctuated word
;;; /kb_capitalize_word capitialize current word
;;; /kb_downcase_word convert current word to lowercase
;;; /kb_upcase_word convert current word to uppercase
;;; /kb_transpose_chars swap current character with previous character
;;; /kb_last_argument insert last word of previous line
;;; /kb_expand_line /eval and replace current line
;;; /kb_goto_match move cursor to matching parenthesis or bracket
;;; /kb_up_or_recallb up within logical line or recallb to previous line
;;; /kb_down_or_recallf down within logical line or recallf to next line
/loaded __TFLIB__/kbfunc.tf
;;; Don't give the warning if this file is reloaded
/purge ~hook_redef_dokey
/def -i -ag -mregexp -h'NOMACRO ^key_' no_named_key_macro = \
/echo -p %% The key "@{B}%PR@{n}" is undefined; \
you may use "@{B}/def key_%PR = <commands>@{n}" to define it. \
See "@{B}/help keys@{n}".
;;; /dokey functions.
/def -i dokey_bspc = /@test kbdel(kbpoint() - (kbnum?:1))
/def -i dokey_bword = /@test regmatch("[^ ]* *$$", kbhead()), \
kbdel(kbpoint() - strlen({P0}))
/def -i dokey_dch = /@test kbdel(kbpoint() + (kbnum?:1))
/def -i dokey_deol = /@test kbdel(kblen())
/def -i dokey_dline = /@test kbgoto(0), kbdel(kblen())
/def -i dokey_down = /@test kbgoto(kbpoint() + wrapsize * (kbnum?:1))
/def -i dokey_dword = /kb_kill_word
/def -i dokey_end = /@test kbgoto(kblen())
/def -i dokey_home = /@test kbgoto(0)
/def -i dokey_left = /@test kbgoto(kbpoint() - (kbnum?:1))
/def -i dokey_lnext = /dokey lnext
/def -i dokey_newline = /dokey newline
/def -i dokey_pause = /dokey pause
/def -i dokey_recallb = /dokey recallb
/def -i dokey_recallbeg = /dokey recallbeg
/def -i dokey_recallend = /dokey recallend
/def -i dokey_recallf = /dokey recallf
/def -i dokey_redraw = /dokey redraw
/def -i dokey_right = /@test kbgoto(kbpoint() + (kbnum?:1))
/def -i dokey_searchb = /dokey searchb
/def -i dokey_searchf = /dokey searchf
/def -i dokey_socketb = /fg -c$[-kbnum?:-1]
/def -i dokey_socketf = /fg -c$[+kbnum?:1]
/def -i dokey_up = /@test kbgoto(kbpoint() - wrapsize * (kbnum?:1))
/def -i dokey_wleft = /test kbgoto(kb_nth_word(-(kbnum?:1)))
/def -i dokey_wright = /test kbgoto(kb_nth_word(kbnum?:1))
/def -i dokey_page = /test morescroll(winlines() * (kbnum?:1))
/def -i dokey_pageback = /test morescroll(-winlines() * (kbnum?:1))
/def -i dokey_hpage = /test morescroll(winlines() * (kbnum?:1) / 2)
/def -i dokey_hpageback = /test morescroll(-winlines() * (kbnum?:1) / 2)
/def -i dokey_line = /test morescroll(kbnum?:1)
/def -i dokey_lineback = /test morescroll(-(kbnum?:1))
/def -i dokey_flush = /dokey flush
/def -i dokey_selflush = /dokey selflush
/def -i dokey_pgup = /dokey_pageback
/def -i dokey_pgdn = /dokey_page
/def -i kb_backward_kill_line = /@test kbdel(0)
/def -i kb_nth_word = \
/let _i=%{1-1}%; \
/let point=$[kbpoint()]%; \
/while (_i<0) /@test point:=kbwordleft(point), ++_i%; /done%; \
/while (_i>0) /@test point:=kbwordright(point), --_i%; /done%; \
/return point
/def -i kb_kill_word = /@test kbdel(kb_nth_word(kbnum?:1))
/def -i kb_backward_kill_word = /@test kbdel(kb_nth_word(-(kbnum?:1)))
/def -i kb_capitalize_word = \
/let _old_insert=$[+insert]%;\
/set insert=0%;\
/repeat -S $[kbnum>0?+kbnum:1] \
/@test kbgoto(kbwordright()), kbgoto(kbwordleft()) %%;\
/let end=$$[kbwordright()]%%;\
/@test input(toupper(substr(kbtail(), 0, 1))) %%;\
/@test input(tolower(substr(kbtail(), 0, end - kbpoint()))) %;\
/set insert=%{_old_insert}
/def -i kb_downcase_word = \
/let _old_insert=$[+insert]%;\
/set insert=0%;\
/repeat -S $[kbnum>0?+kbnum:1] \
/@test input(tolower(substr(kbtail(), 0, kbwordright() - kbpoint()))) %;\
/set insert=%{_old_insert}
/def -i kb_upcase_word = \
/let _old_insert=$[+insert]%;\
/set insert=0%;\
/repeat -S $[kbnum>0?+kbnum:1] \
/@test input(toupper(substr(kbtail(), 0, kbwordright() - kbpoint()))) %;\
/set insert=%{_old_insert}
/def -i kb_transpose_chars = \
/if ( kbpoint() <= 0 ) /beep 1%; /return 0%; /endif%; \
/let _old_insert=$[+insert]%;\
/set insert=0%;\
; Can't use /dokey_left because it would use %kbnum.
/@test kbgoto(kbpoint() - (kbpoint()==kblen()) - 1)%; \
/@test input(strcat(substr(kbtail(),1,kbnum>0?kbnum:1), \
substr(kbtail(),0,1)))%; \
/set insert=%{_old_insert}
/def -i kb_last_argument = \
/input $(/last $(/recall -i - -$[1 + (kbnum>0?kbnum:1)]))
/def -i kb_expand_line = \
/eval /grab $(/recall -i 1)
/def -i kb_goto_match = \
/let _match=$[kbmatch()]%; \
/@test (_match < 0) ? beep() : kbgoto(_match)
/def -i kb_collapse_space = \
/if (regmatch("^ +", kbtail())) \
/@test kbdel(kbpoint() + strlen({P0}) - 1)%; \
/endif%; \
/if (kbtail() =/ " *" & regmatch(" +$", kbhead())) \
/@test kbdel(kbpoint() - strlen({P0}))%; \
/endif
/def -i kb_toggle_limit = \
/if /limit%; /then /unlimit%; /else /relimit%; /endif
/def -i kb_up_or_recallb = \
/if (kbpoint() < wrapsize) \
/dokey_recallb%; \
/else \
/dokey_up%; \
/endif
/def -i kb_down_or_recallf = \
/if (mod(kbpoint(), wrapsize) == mod(kblen(), wrapsize)) \
/dokey_recallf%; \
/else \
/dokey_down%; \
/endif
/eval /def -ip%maxpri -mregexp -h'REDEF macro (dokey|kb)_' ~hook_redef_dokey = \
/echo -e %%% Warning: redefining the %%2 macro is not recommended; \
instead, you should probably redefine the /key_* macro that calls it. \
See /help keys.
|
