1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
|
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
" SET SOME SYSTEM DEFAULTS
set! lptype=ps2 lplines=60 lpcolumns=80 lpwrap undolevels=10
set! autoindent showmatch ruler showmode showcmd autoselect
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
" DEFINE SOME DIGRAPHS
if os == "msdos" || os == "os2" || (os == "win32" && gui != "windows")
then source! (elvispath("elvis.pc8"))
else source! (elvispath("elvis.lat"))
"
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
" CHOOSE SOME DEFAULT OPTION VALUES BASED ON THE INVOCATION NAME
switch tolower(basename(program))
case ex
case edit set! initialstate=ex
case view set! defaultreadonly
case edit
case vedit set! novice
if home == ""
then let home=dirdir(program)
"
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
" IF ALIASES ARE SUPPORTED, THEN LOAD THE DEFAULT ALIASES
if feature("alias")
then source! (elvispath("elvis.ali"))
"
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
" SYSTEM TWEAKS GO HERE
"
" The Linux console can't handle colors and underlining. Neither can MS-DOS
" with any of the ANSI drivers.
if gui=="termcap"
then {
color normal white on black
color cursor green
color bold red
color emphasized cyan
color italic blue
color underlined green
color standout red
color fixed yellow
if term=="linux" || (os=="msdos" && (term>>4)=="ansi")
then set! nottyunderline
}
" fix keypad and delete bindings under xterms
"
if gui=="termcap"
then if term=="xterm"
then {
map! ESCOp 0
map! ESCOq 1
map! ESCOr 2
map! ESCOs 3
map! ESCOt 4
map! ESCOu 5
map! ESCOv 6
map! ESCOw 7
map! ESCOx 8
map! ESCOy 9
map! ESCOn .
map! ESCOk +
map! ESCOm- -
map! ESCOj *
map! ESCOo /
map! ESCOM
map! ^? visual x
map ^? x
map! ESCOH visual ^
map ESCOH ^
map! ESCOF visual $
map ESCOF $
}
if gui=="x11"
then {
map <KP_Left> h
map <KP_Right> l
map <KP_Up> k
map <KP_Down> j
map <KP_Home> ^
map <KP_End> $
map <KP_Page_Up> ^B
map <KP_Page_Down> ^F
map <KP_Insert> i
map <KP_Delete> x
map! <KP_Left> visual h
map! <KP_Right> visual l
map! <KP_Up> visual k
map! <KP_Down> visual j
map! <KP_Home> visual ^
map! <KP_End> visual $
map! <KP_Page_Up> visual ^B
map! <KP_Page_Down> visual ^F
map! <KP_Insert> visual i
map! <KP_Delete> visual x
}
"
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
" WINDOWS DEFAULT COLORS GO HERE (may be overridden in elvis.rc file)
if gui=="windows"
then {
color e green
color i magenta
color u blue
color f red
}
if os == "os2" && gui != "x11"
then {
if $TERM != "xterm"
then color n white
else color n black
color e green
color i magenta
color u blue
color f red
set ul=20
set ruler
set showmatch
set showmode
set autoindent
}
"
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
" X11 DEFAULT COLORS AND TOOLBAR GO HERE (may be overridden in .exrc file)
if gui=="x11"
then so! (elvispath("elvis.x11"))
"
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
" EXECUTE THE STANDARD CUSTOMIZATION SCRIPTS
let f=(os=="unix" ? ".elvisrc" : "elvis.rc")
if $EXINIT
then eval $EXINIT
else source! (exists(home/f)?home/f:home/".exrc")
source! ~/.elvislib/elvis.rc
if exrc && getcwd()!=home
then safer! (exists(f)?f:".exrc")
set f=""
"
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
" X11 INTERFACE DEFAULT FONTS GO HERE
if gui == "x11"
then {
if normalfont == "" && xrootwidth >= 1024
then {
set! normalfont="*-courier-medium-r-*-18-*"
set! boldfont="*-courier-bold-r-*-18-*"
set! italicfont="*-courier-medium-o-*-18-*"
}
if normalfont == "" && xrootwidth >= 800
then {
set! normalfont="*-courier-medium-r-*-14-*"
set! boldfont="*-courier-bold-r-*-14-*"
set! italicfont="*-courier-medium-o-*-14-*"
}
if normalfont == ""
then {
set! normalfont="*-courier-medium-r-*-12-*"
set! boldfont="*-courier-bold-r-*-12-*"
set! italicfont="*-courier-medium-o-*-12-*"
}
}
"
|
