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
153
|
%--------------------------------*-SLang-*--------------------------------
% wmark.sl
% Implements Windows style of marking - for Windows users
% Author: Luchesar Ionkov
%
% Modified By JED
% modified by mj olesen
%
% Holding down Shift key and using arrow keys selects text
% Delete Key cuts the block of text.
% Inserting a character will replace the block with the character.
% Yanking will replace the block with the text in the yank buffer
%
% Note: If you are having problems with this under linux, then read the
% jed/doc/txt/linux-keys.txt file.
require ("keydefs");
static variable Wmark_Region_Funs = Assoc_Type[Ref_Type];
static define backward_delete_fun ()
{
call ("kill_region");
insert ("X");
}
static define forward_delete_fun ()
{
backward_delete_fun ();
go_left_1 ();
}
public define wmark_add_region_function (fun, region_fun)
{
Wmark_Region_Funs[fun] = region_fun;
}
wmark_add_region_function ("self_insert_cmd", &del_region);
wmark_add_region_function ("yank", &del_region);
wmark_add_region_function ("yp_yank", &del_region);
wmark_add_region_function ("backward_delete_char_untabify", &backward_delete_fun);
wmark_add_region_function ("backward_delete_char", &backward_delete_fun);
wmark_add_region_function ("delete_char_cmd", &forward_delete_fun);
static variable Wmark_Movement_Flag = 0;
static define before_key_hook ();
static define after_key_hook ();
static define end_wmark ()
{
if (is_visible_mark ())
pop_mark_0 ();
remove_from_hook ("_jed_before_key_hooks", &before_key_hook);
remove_from_hook ("_jed_after_key_hooks", &after_key_hook);
}
static define before_key_hook (fun)
{
if (0 == strncmp (fun, "wmark_", 6))
return;
Wmark_Movement_Flag = 0;
if (is_visible_mark ()
and assoc_key_exists (Wmark_Region_Funs, fun))
{
(@Wmark_Region_Funs[fun]) ();
end_wmark ();
return;
}
}
static define after_key_hook ()
{
if (Wmark_Movement_Flag == 0)
end_wmark ();
}
static define wmark_prefix ()
{
!if (is_visible_mark ()) push_visible_mark ();
if (Wmark_Movement_Flag == 0)
{
add_to_hook ("_jed_before_key_hooks", &before_key_hook);
add_to_hook ("_jed_after_key_hooks", &after_key_hook);
Wmark_Movement_Flag = 1;
}
}
static define wmark_eval (fun)
{
wmark_prefix ();
if (typeof (fun) == Ref_Type)
@fun ();
else
call (fun);
}
% the various functions
define wmark_up () { wmark_eval ("previous_line_cmd"); }
define wmark_down () { wmark_eval ("next_line_cmd"); }
define wmark_left () { wmark_eval ("previous_char_cmd"); }
define wmark_right () { wmark_eval ("next_char_cmd"); }
define wmark_page_up () { wmark_eval ("page_up"); }
define wmark_page_down () { wmark_eval ("page_down"); }
define wmark_bol () { wmark_eval (&bol); }
define wmark_eol () { wmark_eval (&eol); }
define wmark_bob () { wmark_eval (&bob); }
define wmark_eob () { wmark_eval (&eob); }
define wmark_skip_word () { wmark_eval (&skip_word); }
define wmark_bskip_word () { wmark_eval (&bskip_word); }
setkey ("wmark_up", Key_Shift_Up); % S-Up
setkey ("wmark_down", Key_Shift_Down); % S-Down
setkey ("wmark_left", Key_Shift_Left); % S-Left
setkey ("wmark_right", Key_Shift_Right); % S-Right
setkey ("wmark_page_up", Key_Shift_PgUp); % S-PageUp
setkey ("wmark_page_down",Key_Shift_PgDn); % S-PageDown
setkey ("wmark_bol", Key_Shift_Home); % S-Home
setkey ("wmark_eol", Key_Shift_End); % S-End
setkey ("yank", Key_Shift_Ins); % S-Insert
setkey ("kill_region", Key_Shift_Del); % S-Delete
setkey ("copy_region", Key_Ctrl_Ins); % C-Insert
setkey ("del_region", Key_Ctrl_Del); % C-Delete
#ifndef IBMPC_SYSTEM
static define wmark_reset_display_hook ()
{
tt_send("\e[?35h");
}
static define wmark_init_display_hook ()
{
tt_send("\e[?35l");
}
$1 = getenv ("TERM"); if ($1 == NULL) $1 = "";
if (string_match ($1, "^xterm.color", 1)
or string_match ($1, "^rxvt", 1))
{
% rxvt: bypass XTerm shift keys and allow S-Prior, S-Next, S-Insert
add_to_hook ("_jed_reset_display_hooks", &wmark_reset_display_hook);
add_to_hook ("_jed_init_display_hooks", &wmark_init_display_hook);
setkey ("wmark_bol", "\e[7$"); % S-Home
setkey ("wmark_eol", "\e[8$"); % S-End
}
#endif
provide ("wmark");
|
