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
|
-module(edit_window).
-include("edit.hrl").
-compile(export_all).
%%-export([Function/Arity, ...]).
%% NB: Height is the total height including modeline
make_window(Buffer, Y, Width, Height) ->
Id = make_ref(),
W = #window{start_mark={start, Id},
y=Y,
width=Width,
height=Height,
id=Id},
attach(W, Buffer).
%% Number of lines for viewing text - excludes modeline
text_lines(W) when W#window.minibuffer == true ->
physical_lines(W);
text_lines(W) ->
physical_lines(W) - 1.
physical_lines(W) ->
W#window.height.
width(W) ->
W#window.width.
%% "Attach" a window to a buffer. Puts a mark in the buffer so that
%% the window knows where it's up to.
attach(Window, Buffer) ->
attach(Window, Buffer, 1).
attach(Window, Buffer, _Start) ->
edit_buf:add_mark(Buffer, Window#window.start_mark, 1, backward),
Window#window{buffer=Buffer}.
|
