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
|
%
% Query the little brother's database from within jed.
%
% activate this by adding the following line to your ~/.jedrc:
% autoload ("lbdbq", "/some/path/to/your/jedfiles/lbdb");
%
% Then you can use it by entering "M-x lbdbq" (or bind it on some key)
%
% Thomas Roessler <roessler@guug.de>
% Mon Jul 27 23:27:57 MEST 1998
%
variable lbdb_buf = "*lbdb*";
variable num_win;
variable buf;
variable old_buf;
!if (keymap_p(lbdb_buf)) make_keymap(lbdb_buf);
definekey ("lbdb_select", "\r", lbdb_buf);
definekey ("lbdb_quit", "q", lbdb_buf);
definekey ("next_line_cmd", "j", lbdb_buf);
definekey ("previous_line_cmd", "k", lbdb_buf);
define lbdb_select_str()
{
if(not(bolp()))
go_left_1();
while(1)
{
if(looking_at_char(',')) break;
if(looking_at_char(' ')) break;
if(looking_at_char('\t')) break;
if(bolp()) break;
go_left_1();
}
if(looking_at_char(',') or looking_at_char(' ') or looking_at_char('\t'))
go_right_1();
push_mark();
while(1)
{
if(looking_at_char(',')) break;
if(looking_at_char(' ')) break;
if(looking_at_char('\t')) break;
if(eolp()) break;
go_right_1();
}
}
define lbdb_quit()
{
sw2buf(old_buf);
pop2buf(buf);
if(num_win == 1) onewindow();
delbuf(lbdb_buf);
}
define lbdb_select()
{
variable addr;
bol();
push_mark_eol();
addr = bufsubstr();
lbdb_quit();
lbdb_select_str();
del_region();
insert(addr);
}
define lbdbq()
{
variable query;
variable file, flags;
buf = whatbuf();
push_spot();
lbdb_select_str();
query = bufsubstr();
pop_spot();
sw2buf(lbdb_buf);
(file,,flags) = getbuf_info();
setbuf_info(file, query, lbdb_buf, flags);
set_readonly(0);
erase_buffer();
use_keymap(lbdb_buf);
set_mode("lbdb", 0);
shell_cmd(Sprintf("lbdbq \"%s\" | awk -F ' ' '{printf(\"%%s <%%s>\\n\", $2, $1);}' 2> err",
query, 1));
bob();
push_mark_eol();
del_region(); del();
set_buffer_modified_flag(0);
set_readonly(1);
num_win = nwindows();
pop2buf(buf);
old_buf = pop2buf_whatbuf(lbdb_buf);
if(eobp())
{
message("No matches.");
lbdb_quit();
return;
}
eob(); go_up_1(); bol();
if(bobp())
{
lbdb_select();
return;
}
else
bob();
}
|