% () = evalfile("emacs"); variable compile_parse_error_function = "gcc"; % GNU compiler add_mode_for_extension("perl","pl"); add_mode_for_extension("shmode","sh"); add_mode_for_extension("latex","tex"); C_INDENT = 3; % amount of space to indent within block. C_BRACE = 2; % amount of space to indent brace C_BRA_NEWLINE = 0; % If non-zero, insert a newline first before inserting % a '{'. Many C programmers like this to be 0. A zero % value will force '{' to be on same line as insertion. % The jed source code uses 1 for this variable. % Note that in C mode, the keys '{' and '}' are bound % to the commands 'brace_bra_cmd' and 'brace_ket_cmd' % respectively. C_Colon_Offset = 1; % Controls the indentation of case statements. C_CONTINUED_OFFSET = 2; % This variable controls the indentation of statements % that are continued onto the next line. set_color("preprocess", "blue", "yellow"); No_Backups = 1; USE_ANSI_COLORS = 1; LINENUMBERS = 2; Startup_With_File = 0; DISPLAY_TIME = -1; IGNORE_BEEP = 1; KILL_LINE_FEATURE = 1; REPLACE_PRESERVE_CASE = -1; DISPLAY_EIGHT_BIT = 160; setkey("backward_delete_char_untabify", "^H"); setkey("delete_char_cmd", "^?"); % del (shell) setkey("bol", "^[[1~"); % home setkey("bol", "^[[7~"); % home under rxvt setkey("toggle_overwrite", "^[[2~"); % insert setkey("delete_char_cmd", "^[[3~"); % delete setkey("yp_kill_word", "^[^[[3~"); % Meta-delete setkey("eol", "^[[4~"); % end setkey("eol", "^[[8~"); % end under rxvt setkey("page_up", "^[[5~"); % setkey("page_down", "^[[6~"); setkey("yp_copy_region_as_kill","^[[29~"); % Kopieren setkey("yp_yank", "^[[32~"); % Einsetzen setkey("yp_kill_region", "^[[34~"); % Kopieren setkey("bob", "^[[5^"); % Control-PgUp setkey("eob", "^[[6^"); % Control-PgDn setkey("edt_help", "^[[0~"); setkey("help_prefix", "^[[28~"); % Hilfe-Taste setkey("save_buffer", "^[[12~"); % F2 = save setkey("find_file", "^[[13~"); % F3 = load setkey("exit_jed", "^[[21~"); % F10 = exit setkey(" ", "^[[Z"); % Shift-Tab = Tab setkey("enlarge_window", "^[Oa"); % Control-UP setkey("bskip_word", "^[Od"); % Control-LEFT setkey("skip_word", "^[Oc"); % Control-RIGHT setkey("bskip_word", "^[[^D"); % Control-LEFT (xjed) setkey("skip_word", "^[[^C"); % Control-RIGHT (xjed) setkey("other_window", "^[^I"); % Meta-TAB setkey("goto_line_cmd", "^[G"); % Meta-G setkey("search_forward", "^[[33~"); % L9: Suchen setkey("rot13", "^[r"); % Markierten Text ROT13 $1 = "green"; $2 = "black"; set_color("normal", $1, $2); % default fg/bg set_color("menu", "magenta", "lightgray"); % menu bar set_color("status", "yellow", "blue"); % status or mode line set_color("region", "yellow", "brightmagenta"); % for marking regions set_color("operator", "red", $2); % +, -, etc.. set_color("number", "brightblue", $2); % 10, 2.71,... TeX formulas set_color("comment", "cyan", $2); % /* comment */ set_color("string", "brightblue", $2); % "string" or 'char' set_color("keyword", "brightred", $2); % if, while, unsigned, ... set_color("keyword1", "red", $2); % malloc, exit, etc... set_color("delimiter", "magenta", $2); % {}[](),.;... set_color("preprocess", "magenta", $2); % #ifdef .... set_color("message", "magenta", $2); % color for messages set_color("error", "brightred", $2); % color for errors set_color("dollar", "magenta", $2); % color dollar sign continuation set_color("...", "red", $2); % folding indicator #ifdef XWINDOWS $1 = "green"; $2 = "black"; set_color("menu", "white", "blue"); % menu bar set_color("normal", $1, $2); % default fg/bg set_color("status", "yellow", "blue"); % status or mode line set_color("region", "yellow", "brightmagenta"); % for marking regions set_color("operator", "dodgerblue", $2); % +, -, etc.. set_color("number", "coral", $2); % 10, 2.71,... TeX formulas set_color("comment", "lightseagreen", $2); % /* comment */ set_color("string", "yellow", $2); % "string" or 'char' set_color("keyword", "red", $2); % if, while, unsigned, ... set_color("keyword1", "deeppink", $2); % malloc, exit, etc... set_color("delimiter", "magenta", $2); % {}[](),.;... set_color("preprocess", "magenta2", $2); % #ifdef .... set_color("message", "magenta", $2); % color for messages set_color("error", "brightred", $2); % color for errors set_color("dollar", "magenta", $2); % color dollar sign continuation set_color("...", "red", $2); % folding indicator setkey("help_prefix", "^H"); setkey("backward_delete_char_untabify", "^?"); % BackSpace (X11) x_set_keysym (0xFFFF, 0, "\e[3~"); setkey ("delete_char_cmd", "\e[3~"); #endif % LaTeX define latex_mode_hook() { local_unsetkey ("\e"); local_setkey(" \\item ", "^[[2$"); % Shift-Einfügen local_setkey(" \\item ", "^[^M"); % Meta-Enter local_setkey(" \\p|", "^P"); % Control-P } % Perl define pl_insert_printf() { insert ("print \"\\n\";"); go_left(4); } define pl_insert_die() { insert ("die \"\\n\";"); go_left(4); } define pl_insert_foreach() { insert ("foreach "); } define pl_insert_local() { insert ("local "); } define pl_ini() { insert ("#!/usr/local/bin/perl\n#\n\n"); } define perl_mode_hook () { local_unsetkey ("^P"); local_setkey ("pl_insert_printf", "^Pp"); local_setkey ("pl_insert_foreach", "^Pf"); local_setkey ("pl_insert_die", "^Pd"); local_setkey ("pl_insert_local", "^Pl"); local_setkey ("pl_ini", "^Pi"); } % C define c_insert_printf() { insert ("printf(\"\\n\");"); go_left(5); } define c_insert_include() { insert ("#include \n"); } define c_insert_for() { indent_line(); insert ("for (;;)"); newline(); indent_line(); insert ("{"); indent_line(); newline(); newline(); indent_line(); insert ("}"); indent_line(); bskip_word(); skip_word(); go_right(2); } define c_insert_void_function() { indent_line(); insert ("void ()"); newline(); indent_line(); insert ("{"); indent_line(); newline(); newline(); indent_line(); insert ("}"); indent_line(); bskip_word(); skip_word(); go_right(1); } define c_insert_main_function() { indent_line(); insert ("void main(int argc, char *argv[])"); newline(); indent_line(); insert ("{"); indent_line(); newline(); newline(); indent_line(); insert ("}"); indent_line(); go_up(1); indent_line(); } define c_insert_define() { insert ("#define "); } define c_mode_hook () { local_unsetkey ("^P"); local_setkey ("c_insert_printf", "^Pp"); local_setkey ("c_insert_include", "^Pi"); local_setkey ("c_insert_for", "^Pf"); local_setkey ("c_insert_define", "^Pd"); local_setkey ("c_insert_void_function", "^Pv"); local_setkey ("c_insert_main_function", "^Pm"); } call("redraw");