diff options
Diffstat (limited to 'src/edit_window.erl')
| -rw-r--r-- | src/edit_window.erl | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/src/edit_window.erl b/src/edit_window.erl new file mode 100644 index 0000000..a14c047 --- /dev/null +++ b/src/edit_window.erl @@ -0,0 +1,45 @@ +%%%---------------------------------------------------------------------- +%%% File : edit_window.erl +%%% Author : Luke Gorrie <luke@bluetail.com> +%%% Purpose : Window handling functions +%%% Created : 14 Oct 2000 by Luke Gorrie <luke@bluetail.com> +%%%---------------------------------------------------------------------- + +-module(edit_window). +-author('luke@bluetail.com'). + +-include_lib("ermacs/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}. + |