/* view mode
   Sets up a buffer for browsing, but will not allow contents of buffer 
   to be changed. 
   View-Mode only allows the use of basic buffer movement and region copy
   commands.  The "named-command" escape is provided and may be used to
   bind further commands to keys, so if you feel I've slighted you by
   not including your favorite movement command just bind it to a key, keys
   bound in this way may be preserved by doing a "save-state".
	   
   View-mode was written after I'd accidentially munged a file I only
   intended to look at for about the 99th time in one evening.  I
   vowed this would never happen again.
History:
	15-Nov-91	MGiguere	Created.
*/

#include "eel.h"

keytable view_tab;
char view_mode_name[] = "View";

when_loading()
{
	short i;
	
	for(i=0; i<NUMKEYS; i++) 	view_tab[i] = -1;  /* lock out all keys */

/* put back a few precious keys */
	view_tab[27] = find_index("alt-prefix");
	view_tab[CTRL('A')] = find_index("beginning-of-line");
	view_tab[CTRL('B')] = find_index("backward-character");
	view_tab[CTRL('E')] = find_index("end-of-line");
	view_tab[CTRL('F')] = find_index("forward-character");
	view_tab[CTRL('N')] = find_index("down-line");
	view_tab[CTRL('P')] = find_index("up-line");
	view_tab[CTRL('R')] = find_index("reverse-incremental-search");
	view_tab[CTRL('S')] = find_index("incremental-search");
	view_tab[CTRL('V')] = find_index("next-page");
	view_tab[CTRL('X')] = find_index("cx-tab");
	view_tab[CTRL('Z')] = find_index("previous-page");
    view_tab[ALT(')')]  = find_index("find-delimiter");
	view_tab[ALT('[')]  = find_index("backward-paragraph");
	view_tab[ALT(']')]  = find_index("forward-paragraph");
	view_tab[ALT(' ')]  = find_index("set-mark");
	view_tab[ALT('e')]  = find_index("forward-sentence");
	view_tab[ALT('w')]  = find_index("copy-region");
	view_tab[ALT('x')]  = find_index("named-command");
	view_tab[FKEY(1)]   = find_index("help");

}
command view_mode()
{
	mode_keys = view_tab;
	major_mode = view_mode_name;
	make_mode();
}

command view_file() on cx_tab[CTRL('V')]
{
	char fname[FNAMELEN];

	iter = 0;
	get_file_dir(fname, "View file: ");
	if (*fname)
		do_find(fname, has_arg ? !strip_returns.default
					: strip_returns.default);
	else
		dired_one(fname);

	view_mode();
}