% idemark.sl
% jl 2002/08/12
% 

% Implements Windows style of marking for use with IDE emulation.

% Author: Jørgen Larsen (jl@dirac.ruc.dk),
% much inspired by Guenter Milde's cuamark.sl
%
%
% Holding down Shift key and using navigation keys defines a region
% Arrow keys without Shift undefine such a region
%
% Shift-<Del> cuts the region and copies it to *ide_clipboard* (as also ^KY in IDE)
% Shift-<Ins> inserts *ide_clipboard* (as also ^KC in IDE)
% Ctrl-<Ins> copies the region 
% Ctrl-<Del> deletes the region
%
% 
% 

require ("keydefs");

static variable IdeMark = 0;

define idemark_set_mark ()
{
   !if (markp ())
     {
        ide_begin_block ();
        IdeMark = 1;
     }
}


define idemark_unset_mark ()
{
   if (IdeMark)
     {
        if (markp ()) pop_mark_0 ();
        IdeMark = 0;
     }
}



setkey ("idemark_set_mark; ide_previous_line_cmd",  Key_Shift_Up);	
setkey ("idemark_set_mark; ide_next_line_cmd",      Key_Shift_Down);
setkey ("idemark_set_mark; ide_previous_char_cmd",  Key_Shift_Left);	
setkey ("idemark_set_mark; ide_next_char_cmd",      Key_Shift_Right);
setkey ("idemark_set_mark; ide_page_up",            Key_Shift_PgUp);
setkey ("idemark_set_mark; ide_page_down",          Key_Shift_PgDn);
setkey ("idemark_set_mark; ide_bol",                Key_Shift_Home);
setkey ("idemark_set_mark; ide_eol",                Key_Shift_End);

setkey ("idemark_unset_mark; ide_previous_line_cmd",Key_Up);	
setkey ("idemark_unset_mark; ide_next_line_cmd",    Key_Down);
setkey ("idemark_unset_mark; ide_previous_char_cmd",Key_Left);	
setkey ("idemark_unset_mark; ide_next_char_cmd",    Key_Right);
setkey ("idemark_unset_mark; ide_page_up",          Key_PgUp);
setkey ("idemark_unset_mark; ide_page_down",        Key_PgDn);
setkey ("idemark_unset_mark; ide_bol",              Key_Home);
setkey ("idemark_unset_mark; ide_eol",              Key_End);

setkey ("ide_copy_block",   Key_Shift_Ins); % same as ^KC
setkey ("ide_delete_block", Key_Shift_Del); % same as ^KY

setkey ("ide_clear_block",  Key_Ctrl_Ins);  % same as ^KH
setkey ("del_region",       Key_Ctrl_Del);