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
|
%% -*- comment-column: 33 -*-
-ifndef(_EDIT_HRL).
-define(_EDIT_HRL, true).
-define(debug(F, A),
io:format("[~s:~p] " ++ F, [?MODULE, ?LINE | A])
).
%% To use the GTK terminal, use the following definition.
%% Requires that you have erlgtk and gterm in your path.
%%-define(EDIT_TERMINAL, edit_terminal_gterm).
-define(EDIT_TERMINAL, edit_terminal).
-record(state,
{curwin, % current window
windows=[], % other windows
buffers=[], % list of buffers, most recently used at head
lastcmd, % {M, F, A} of the last command executed
%% for edit_extended
pending_cmd,
pending_win
}).
%% Window: an area of the display used for viewing a particular
%% buffer, just like an emacs window.
-record(window,
{buffer, % buffer being viewed
y, % screen row that this window starts at
width, % width in characters
height, % height in characters
start_mark, % mark on start of display (unique to window)
goal_column=0,
active=true,
id, % ref() - unique id
minibuffer=false,
%% fields just for the minibuffer
status_text,
prefix=""
}).
-record(mode, {name, % string
id, % atom
keymaps}).
-define(EOL_CHAR, $$). % Character to indicate the line is chopped
-endif.
|
