% [defaults.sl] 09.02.1998 Rene' Scholz % % this file is a copy of the relevant parts from "jed.rc". % % place global changes for loading & setting the environtment for jed here. % every user can have his own .jedrc file in his home directory ! () = evalfile("emacs"); No_Backups = 0; % If non-zero, backup files will not be created. Startup_With_File = -1; % if greater then zero, force JED to prompt for a file % if none is specified on the command line. If % negative, inhibit startup message. DISPLAY_TIME = -1; % non-zero enables the time to be displayed on % status line, zero disables it. If this value % is -1, 24 hour time will be used. HIGHLIGHT = 1; % non-zero for region highlighting WANT_SYNTAX_HIGHLIGHT = 1; % Highlight syntax in C, Fortran, and TeX modes. % See section on colors % below for choosing how to highlight. On Unix and % VMS systems, USE_ANSI_COLORS must also be non-zero. HORIZONTAL_PAN = 20; % if zero, no automatic panning. If positive, only % the current line is panned. If negative, pan window. LINENUMBERS = 2; % the linenumber. A value greater than 1 will also BLINK = 1; % if non zero, blink matching parenthesis TAB_DEFAULT = 8; % Tab size (also try edit_tab_stops) WRAP = 78; % wrap column ADD_NEWLINE = 1; % add newline to file when writing if one not present IGNORE_BEEP = 2; % Beep terminal during error messages--- % 1 == sound only, 2 = visible bell only, 3 = both _traceback = 0; % Non zero means dump traceback on S-Lang errors WRAP_INDENTS = 0; % Non zero indents next line after wrapping current. % Make this a 1 if you want indented text mode. CASE_SEARCH = 0; % zero turns off case sensitivity for % search functions, non-zero turns it on KILL_LINE_FEATURE = 1; % If non-zero, kill line will kill through end of the % line if Point is at the beginning of the line. For % emacs-like behavior, set this to zero. REPLACE_PRESERVE_CASE = 1; % If non-zero, replace operations will attempt to % match the case of the replaced string. META_CHAR = -1; % All chars with hi bit set will self insert DISPLAY_EIGHT_BIT = 160; % Other systems assume ISO Latin 1 variable compile_parse_error_function = "gcc"; % GNU compiler %Info_Directory = ??? add_mode_for_extension("latex","tex"); add_mode_for_extension("perl","pl"); setkey("yp_bkill_word", "^[^H"); % Meta-Backspace % keys under rxvt: 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("help_prefix", "^[[28~"); % Hilfe-Taste setkey("save_buffer", "^[[12~"); % F2 = save setkey("find_file", "^[[13~"); % F3 = load setkey("exit_jed", "^[[21~"); % F10 = exit setkey(" \t", "^[[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 % under xterm: setkey("toggle_overwrite", "^[[2z"); % insert setkey("page_up", "^[[5z"); % setkey("page_down", "^[[6z"); setkey("delete_char_cmd", "^?"); % delete setkey("help_prefix", "^[[196z"); % Hilfe-Taste setkey("yp_copy_region_as_kill","^[[197z"); % Kopieren setkey("yp_yank", "^[[199z"); % Einsetzen $1 = getenv ("COLORTERM"); if ($1 != NULL) %if (strcmp($1,"rxvt") == 0) { USE_ANSI_COLORS = 1; % do not use in xterm ! setkey("backward_delete_char_untabify", "^?"); setkey("help_prefix", "^[[28~"); % Hilfe-Taste } #ifdef XWINDOWS % message("xwind."); % x_set_window_name("-- xjed --"); % set_color("mouse","red","blue"); % set_color("cursor","red","blue"); x_set_keysym (0xFFFF, 0, "\e[3~"); setkey ("delete_char_cmd", "\e[3~"); USE_ANSI_COLORS = 1; $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 % key's unter XJED: setkey("help_prefix", "^H"); setkey("backward_delete_char_untabify", "^?"); #endif