.----------------.----------------.------------------------------------------. 7 | | TAG NAME | SOURCE FILE | SOURCE LINE | 8 | |----------------|----------------|------------------------------------------| 9 | 10 | | (((strlen($1)<=15 ? $1 : $1<<15);"")<<19)|((" ";$2)>>15) | (htmlsafe($3)<<41)| 11 | 12 | ^----------------^----------------^------------------------------------------^ 13 |14 | 15 | -------------------------------------------------------------------------------- /data/elvis.bwf: -------------------------------------------------------------------------------- 1 | " Check for changed timestamp (unless it was never set, or forced write) 2 | if security != "restricted" 3 | then { 4 | if !bang && edited && timestamp != "" && time(filename) != timestamp 5 | then error file's timestamp has changed 6 | } 7 | " Maybe make a backup 8 | if backup && !newfile && security == "normal" 9 | then { 10 | switch os 11 | case unix eval ! cp (filename) (filename).bak 12 | default eval ! copy (filename) (dirname(filename) / basename(filename)).bak >NUL 13 | } 14 | -------------------------------------------------------------------------------- /data/elvis.clr: -------------------------------------------------------------------------------- 1 | switch gui 2 | case windows 3 | case x11 { 4 | color normal black on gray90 5 | color argument like keyword green or dark green 6 | color bottom like normal 7 | color comment italic dark green or light green 8 | color cursor blue on navyblue 9 | color fixed gray35 or gray80 10 | color function Red4 or pink 11 | color guide white 12 | color hexheading gray70 13 | color hlsearch boxed 14 | color keyword bold 15 | color libt like keyword italic 16 | color lnum gray 17 | color link like formatted underlined blue or light blue 18 | color number Blue4 or light blue 19 | color other like keyword 20 | color prep bold Blue4 or light blue 21 | color prepquote like string 22 | color scroll like tool 23 | color scrollbar like toolbar 24 | color selection on tan 25 | color spell on pink 26 | color status like tool 27 | color statusbar like toolbar 28 | color string tan4 or tan1 29 | color tool black on gray75 30 | color toolbar white on gray40 31 | color variable Gray15 or palegoldenrod 32 | } 33 | case vio 34 | case termcap { 35 | color normal yellow or black 36 | color char like string 37 | color comment italic light green or green 38 | color fixed white or gray 39 | color function light cyan or cyan 40 | color hexheading gray 41 | color hlsearch bold 42 | color keyword bold white or black 43 | color libt like keyword 44 | color lnum gray 45 | color link underlined blue or light cyan 46 | color number light cyan or blue 47 | color other like keyword 48 | color prep bold magenta or blue 49 | color prepquote like string 50 | color regexp like string 51 | color ruler blue or light cyan 52 | color showmode green boxed 53 | color spell red or light magenta 54 | color string white or brown 55 | color variable like normal 56 | } 57 | -------------------------------------------------------------------------------- /data/elvis.lat: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mbert/elvis/3684829e8596b9761c36629f20ff9d3262c10481/data/elvis.lat -------------------------------------------------------------------------------- /data/elvis.msg: -------------------------------------------------------------------------------- 1 | # This is a sample "elvis.msg" file, for translating messages. Each line 2 | # contains a terse message followed by a colon, some optional whitespace, and 3 | # whatever text you want to use as the verbose form of that message. Lines 4 | # that start with '#' are ignored simply because no terse messages happen to 5 | # start with '#'. Blank lines are also allowed. The terse forms of most 6 | # messages are listed in the "elvistrs.msg" file. 7 | #------------------------------------------------------------------------------ 8 | no match above: Hit top of file without finding a match 9 | no match below: Hit bottom of file without finding a match 10 | $1 is a boolean option: Use "set $1" or "set no$1" to enable or disable $1 11 | termcap needs $1: This termcap entry lacks the :$1: capability 12 | read $1, $2 lines, $3 chars: Read $1(readonly?" [READONLY]"), $2 lines, $3 chars 13 | nothing to fold there: To create a new folded region, you must give a name 14 | 15 | # Some words that are stored as options: True False Submit Cancel Help 16 | Submit:Okay 17 | 18 | # This demonstrates how to cause specific messages to beep, regardless of the 19 | # settings of the "errorbells" and "warningbells" options. This example is 20 | # commented out; delete the initial '#' to activate it. 21 | #------------------------------------------------------------------------------ 22 | #wrapped: Wrapped 23 | 24 | # The following shows how to silence a typical error message -- just don't 25 | # have any text after the colon character. 26 | #------------------------------------------------------------------------------ 27 | not while in open mode: 28 | 29 | # The following line is used to control the output of the :file command and 30 | # visual ^G command. This is by far the most complex message used by elvis. 31 | #------------------------------------------------------------------------------ 32 | (filename)(readonly?" [READONLY]")(modified?" [MODIFIED]")(!edited?" [NOT EDITED]")(newfile?" [NEW FILE]") ($1 * 100 / $2)%:(filename)(readonly?" [READONLY]")(modified?" [MODIFIED]")(!edited?" [NOT EDITED]")(newfile?" [NEW FILE]") line $1 of $2 \(($1*100 / $2)%\) 33 | -------------------------------------------------------------------------------- /data/elvis.pc8: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mbert/elvis/3684829e8596b9761c36629f20ff9d3262c10481/data/elvis.pc8 -------------------------------------------------------------------------------- /data/elvis.rc: -------------------------------------------------------------------------------- 1 | " Here are some typical settings that you might want to try. The simplest 2 | " way to use this file is to :source this file, and then run ":mkexrc" to 3 | " save the settings where they can be automatically loaded. 4 | set undolevels=12 5 | set autoindent 6 | try set spell 7 | try set smartargs 8 | set taglibrary 9 | set wrapscan 10 | set incsearch 11 | set spellautoload 12 | map gw lbygS:word
93 | if "!2" != "left"
94 | then warning Elvis doesn't display text aligned to the !2
95 | }
96 | case list {
97 | !% s/^//
98 | !> a
99 | !< i
100 | }
101 | }
102 | map select mode=html noremap [Bold] c> >
103 | map select mode=html noremap [Italic] c> >
104 | map select mode=html noremap [Code] c> >
105 | }
106 |
--------------------------------------------------------------------------------
/data/scripts/info.ex:
--------------------------------------------------------------------------------
1 | " This file tries to implement an "info:" protocol, for viewing info pages
2 | " inside elvis. It doesn't quite succeed, but it comes close.
3 | "
4 | " This assumes your info pages are stored in /usr/share/info. If they're
5 | " stored someplace else, then you'll need to edit the "local d=..." line below.
6 |
7 | alias readINFO {
8 | local d=/usr/share/info
9 | local report=0
10 | local magic magicchar=^$.[* noignorecase
11 | local m
12 | let m=display
13 | display normal
14 | if "!(/)2" == "/"
15 | then {
16 | eval r !!cd (d); ls *.info.gz
17 | try {
18 | %s/\(.*\)\.info\.gz/\1<\/a>/
19 | se bufdisplay=html noinitialsyntax
20 | }
21 | se nomod
22 | }
23 | else {
24 | eval r !!gzip -d -c (d)/!2.info.gz (d)/!2.info-*.gz
25 | try {
26 | 1,/^File: .* Node: !(Top)3,/-1 d
27 | try %s/&/\&/g
28 | try %s//\>/g
30 | %s/^ $/
/ 31 | %s/^\(File: .* Node: \)\([^:,]*\)/+2s,.*,\&<\/a>,/x 32 | g/^File: /s/\(Prev\|Next\|Up\): \([^:,]*\)/\1: \2<\/a>/g 33 | try %s///g 34 | %s/^\* \(.*\)::/* \1<\/a>::/ 35 | 1i
/ 31 | try %s/^\(File: .* Node: \)\([^:,]*\)/+2s,.*,\&<\/a>,/x 32 | try g/^File: /s/\(Prev\|Next\|Up\): \([^:,]*\)/\1: \2<\/a>/g 33 | try %s///g 34 | try %s/^\* \(.*\)::/* \1<\/a>::/ 35 | 1i&<\/h1>/
20 | then set n=text
21 | "
22 | " Convert horizontal lines into
/ 31 | %s/^\(File: .* Node: \)\([^:,]*\)/+2s,.*,\&<\/a>,/x 32 | g/^File: /s/\(Prev\|Next\|Up\): \([^:,]*\)/\1: \2<\/a>/g 33 | try %s///g 34 | %s/^\* \(.*\)::/* \1<\/a>::/ 35 | 1i
36 | $a37 | se bufdisplay=html noinitialsyntax 38 | } 39 | se nomod 40 | } 41 | eval display (m) 42 | } 43 | 44 | alias info sp info:!1 45 | -------------------------------------------------------------------------------- /data/scripts/info2.ex: -------------------------------------------------------------------------------- 1 | " This file tries to implement an "info:" protocol, for viewing info pages 2 | " inside elvis. It doesn't quite succeed, but it comes close. 3 | " 4 | " This assumes your info pages are stored in /usr/share/info. If they're 5 | " stored someplace else, then you'll need to edit the "local d=..." line below. 6 | 7 | alias readINFO { 8 | local d=/usr/share/info 9 | local report=0 10 | local magic magicchar=^$.[* noignorecase 11 | local m 12 | if "!(/)2" == "/" 13 | then { 14 | r (d/"dir") 15 | try %s/&/\&/g 16 | try %s//\>/g 18 | try %s/^\* \([^:]*\): (\([^)]*\))\(.*\)\.$/* \1<\/a>: (\2)\3/ 19 | try %s/^\* \([^:]*\): (\([^)]*\))\(.*\)/* \1<\/a>: (\2)\3/ 20 | } 21 | else { 22 | if exists(d/"!2.info") 23 | then r !!cat (d)/!2.info (d)/!2.info-* 2>/dev/null 24 | eval r !!gzip -d -c (d)/!2.info*.gz (d)/!2.info-*.gz 2>/dev/null 25 | try 1,/^File: .* Node: !(Top)3,/-1 d 26 | try %s/&/\&/g 27 | try %s//\>/g 29 | } 30 | try %s/^ $/
/ 31 | try %s/^\(File: .* Node: \)\([^:,]*\)/+2s,.*,\&<\/a>,/x 32 | try g/^File: /s/\(Prev\|Next\|Up\): \([^:,]*\)/\1: \2<\/a>/g 33 | try %s///g 34 | try %s/^\* \(.*\)::/* \1<\/a>::/ 35 | 1i
36 | $a37 | se bufdisplay=html noinitialsyntax nomod 38 | } 39 | 40 | alias info sp info:!1 41 | -------------------------------------------------------------------------------- /data/scripts/inregion.ex: -------------------------------------------------------------------------------- 1 | "defines a :inregion alias 2 | alias inregion { 3 | " execute a command for each line that happens to be in a given region 4 | if "!1" == "" 5 | then error usage: inregion facename excmdline... 6 | normal mz 7 | !%g/^/ { 8 | if current("region") == "!1" 9 | then !2* 10 | } 11 | normal `z 12 | } 13 | -------------------------------------------------------------------------------- /data/scripts/isearch.ex: -------------------------------------------------------------------------------- 1 | " This script defines :ilist and :isearch aliases, and some vim-compatible 2 | " maps that use them. They search for the first usage of an identifier name 3 | " in the current file. 4 | 5 | alias ilist { 6 | " list all lines containing a given word 7 | push 8 | !%g/\/ 9 | pop 10 | } 11 | 12 | alias isearch { 13 | " search for a word within a range (default whole file) 14 | local l="" 15 | push 16 | !%g/\/ { 17 | if l == "" 18 | then let l = current("line") 19 | } 20 | eval (l)p 21 | pop 22 | } 23 | 24 | map [i yiw:isearch 25 | map ]i yiw:+,$isearch 26 | map [I yiw:ilist 27 | map ]I yiw:+,$ilist 28 | -------------------------------------------------------------------------------- /data/scripts/likevim.ex: -------------------------------------------------------------------------------- 1 | " This file creates some aliases and maps that make elvis work more like vim 2 | 3 | " Some variations of the :map and :unmap commands 4 | alias nmap map command 5 | alias nm map command 6 | alias vmap map select 7 | alias vm map select 8 | alias omap map motion 9 | alias om map motion 10 | alias imap map input 11 | alias im map input 12 | alias cmap map history 13 | alias cm map history 14 | alias noremap map!? noremap 15 | alias nore map!? noremap 16 | alias nnoremap map noremap command 17 | alias nn map noremap command 18 | alias vnoremap map noremap select 19 | alias vn map noremap select 20 | alias inoremap map noremap input 21 | alias ino map noremap input 22 | alias cnoremap map noremap history 23 | alias cno map noremap history 24 | alias nunmap unmap command 25 | alias nun unmap command 26 | alias vunmap unmap select 27 | alias vu unmap select 28 | alias ounmap unmap motion 29 | alias ou unmap motion 30 | alias iunmap unmap input 31 | alias iu unmap unput 32 | alias cunmap unmap history 33 | alias cu unmap history 34 | 35 | " Some redundant commands that work on visibly selected text 36 | map noremap select r g= 37 | map noremap select x d 38 | map noremap select U noremap gU 39 | map noremap select u noremap gu 40 | map noremap select ~ noremap g~ 41 | map noremap select J :j 42 | map noremap select gJ :j! 43 | map noremap select y:ta 44 | map noremap select o g% 45 | map noremap select O g 46 | "map noremap select R S ... except that "vS" isn't implemented yet 47 | 48 | " Some 'g' commands that aren't built in to elvis 49 | map g# yiw??w 50 | map g* yiw//w 51 | map gf :eval find (current(/[^[:space:]<>"]*/)) 52 | map gm :eval normal (columns/2+1;char(124)) 53 | map go 54 | 55 | " Some '^W" commands that aren't built in to elvis 56 | map f :eval sfind (current(/[^[:space:]<>"]*/)) 57 | 58 | " A few miscellaneous vim commands 59 | alias find { 60 | " Locate a file in 'includepath', and then edit it 61 | local elvispath f 62 | if "!*" == "" 63 | then error cursor not on file name 64 | let elvispath=includepath 65 | let f=elvispath("!*") 66 | if f == "" 67 | then error "!*" not found in includepath 68 | else e!? (f) 69 | } 70 | alias fin find 71 | alias sfind { 72 | " Locate a file in 'includepath', and then split it 73 | local elvispath f 74 | if "!*" == "" 75 | then error cursor not on file name 76 | let elvispath=includepath 77 | let f=elvispath("!*") 78 | if f == "" 79 | then error "!*" not found in includepath 80 | else sp (f) 81 | } 82 | alias sf sfind 83 | alias sview split +"se ro" 84 | alias sv sview 85 | alias update { 86 | " Write a file, but only if modified 87 | if modified 88 | then !%write!? !* 89 | } 90 | alias up !%update!? 91 | -------------------------------------------------------------------------------- /data/scripts/mail.ex: -------------------------------------------------------------------------------- 1 | "This defines a :Mail alias. This is intended mostly to be used when elvis 2 | "is invoked as an external editor by a mail program such as Kmail or Sylpheed. 3 | "The idea is that you'd configure the mail editor to run "elvis -cMail" as the 4 | "external editor. To make that work, you'd need to run ":load mail" and 5 | " ":mkexrc" first though. 6 | alias Mail { 7 | set bufdisplay="syntax email" equalprg="elvfmt -M" 8 | display syntax email 9 | if color("signature") == "" 10 | then color signature italic red on gray 11 | try $;?^-- *$?,$ region signature 12 | } 13 | -------------------------------------------------------------------------------- /data/scripts/mailto.ex: -------------------------------------------------------------------------------- 1 | " This script attempts to define the mailto: protocol. This 2 | " feature of elvis is still changing rapidly, so this might not work. 3 | " Also, the mailto: alias only works on Unix-like systems. 4 | 5 | alias readMAILTO { 6 | "initialize a mailto: message 7 | se noro reol=text 8 | if exists($HOME/".signature") 9 | then { 10 | read ~/.signature 11 | 1 i -- 12 | } 13 | } 14 | alias writeMAILTO { 15 | "send a mailto: message 16 | 17 | " This is a lot more complex that one would think. The mail program forks 18 | " off a spooler, and the spooler inherits the stdout/stderr file descriptors. 19 | " This has the unfortunate side-effect of making elvis wait until the mail 20 | " queue is emptied, after this message and any other pending messages have 21 | " been uploaded to the mailserver. Yuck! To avoid that, we redirect the 22 | " mail program's stdout/stderr to /dev/null. 23 | w !!mail -s"!(no subject)subject=" !2 >/dev/null 2>&1 24 | se nomod 25 | } 26 | -------------------------------------------------------------------------------- /data/scripts/makehtml.ex: -------------------------------------------------------------------------------- 1 | " Defines makehtml alias to convert plain text to HTLM source 2 | 3 | alias makehtml { 4 | "Convert plain text to HTML source 5 | local report=0 m=text n=text b=false magic magicchar=^$.[* noignorecase 6 | " 7 | " m is current line mode -- one of "text", "pre", "ol", or "ul" 8 | " n is next line mode 9 | " b is a flag for detecting series of blank lines. 10 | " 11 | " For each line... 12 | !%g /^/ { 13 | " Protect characters which are special to HTML 14 | try s/&/\&/g 15 | try s//\>/g 17 | " 18 | " Convert uppercase lines into headings 19 | try s/^[A-Z0-9][A-Z0-9-.) ]*$/
&<\/h1>/
20 | then set n=text
21 | "
22 | " Convert horizontal lines into
tags
23 | try s/^\s*[-=]\{10,}\s*$/
/
24 | then set n=text
25 | "
26 | " Try to be clever about finding links
27 | try s/http:[^">, )]\+/&<\/a>/g
28 | try s/ftp:[^">, )]\+/&<\/a>/g
29 | try s/[a-zA-Z]\w*@[a-zA-Z][[:alnum:].-]\+/&<\/a>/g
30 | "
31 | " Convert asterisked lines into "ul" list items.
32 | try s/^\s*\* */
33 | then set n=ul
34 | else {
35 | if m=="ul"
36 | then try s/^[^* ]/set n=text/x
37 | }
38 | "
39 | " Convert numbered lines (other than headings) into "ol" list items.
40 | try s/^\s*\d\+[.)] */
41 | then set n=ol
42 | else {
43 | if m=="ol"
44 | then try s/^[^0-9 ]/set n=text/x
45 | }
46 | "
47 | " if in normal text, then assume indented text is preformatted.
48 | if n=="text"
49 | then try s/^\s/set n=pre/x
50 | "
51 | " if in preformatted mode, then unindented lines revert to text mode
52 | if m=="pre" && n=="pre"
53 | then try s/^\S/set n=text/x
54 | "
55 | " Any non-blank line turns off the "b" flag.
56 | try s/./set b=false/x
57 | "
58 | " if not in preformatted text, then blank lines are paragraph breaks.
59 | " Avoid consecutive tags, though.
60 | if m!="pre" && b=="false"
61 | then {
62 | try s/^$/
/
63 | then set b=true
64 | }
65 | "
66 | " if mode switched, then add tags for that.
67 | if m!=n
68 | then {
69 | if m!="text"
70 | then eval i
71 | if n!="text"
72 | then eval i <(n)>
73 | let m=n
74 | set b=false
75 | }
76 | }
77 | "
78 | " if not in text mode, then terminate the mode
79 | if m != "text"
80 | then eval !> a
81 | "
82 | " If converting the whole file, then add ...
83 | if "!%" == ""
84 | then {
85 | $a
tags, though. 60 | if m!="pre" && b=="false" 61 | then { 62 | try s/^$/
/ 63 | then set b=true 64 | } 65 | " 66 | " if mode switched, then add tags for that. 67 | if m!=n 68 | then { 69 | if m!="text" 70 | then eval i 71 | if n!="text" 72 | then eval i <(n)> 73 | let m=n 74 | set b=false 75 | } 76 | } 77 | " 78 | " if not in text mode, then terminate the mode 79 | if m != "text" 80 | then eval !> a 81 | " 82 | " If converting the whole file, then add ... 83 | if "!%" == "" 84 | then { 85 | $a