mirror of
https://github.com/vim/vim.git
synced 2025-07-24 10:45:12 -04:00
updated for version 7.0157
This commit is contained in:
parent
a5fac54aea
commit
af289d333a
@ -1,4 +1,4 @@
|
|||||||
*todo.txt* For Vim version 7.0aa. Last change: 2005 Oct 11
|
*todo.txt* For Vim version 7.0aa. Last change: 2005 Oct 12
|
||||||
|
|
||||||
|
|
||||||
VIM REFERENCE MANUAL by Bram Moolenaar
|
VIM REFERENCE MANUAL by Bram Moolenaar
|
||||||
@ -47,6 +47,8 @@ Mac unicode patch (Da Woon Jung):
|
|||||||
- selecting proportional font breaks display
|
- selecting proportional font breaks display
|
||||||
- UTF-8 text causes display problems. Font replacement causes this.
|
- UTF-8 text causes display problems. Font replacement causes this.
|
||||||
- Command-key mappings do not work. (Alan Schmitt)
|
- Command-key mappings do not work. (Alan Schmitt)
|
||||||
|
- Add default key mappings for the command key (Alan Schmitt)
|
||||||
|
use http://macvim.org/OSX/files/gvimrc
|
||||||
- With 'nopaste' pasting is wrong, with 'paste' Command-V doesn't work.
|
- With 'nopaste' pasting is wrong, with 'paste' Command-V doesn't work.
|
||||||
(Alan Schmitt)
|
(Alan Schmitt)
|
||||||
|
|
||||||
|
@ -1,161 +0,0 @@
|
|||||||
" NetrwSettings.vim: makes netrw settings simpler
|
|
||||||
" Date: Sep 19, 2005
|
|
||||||
" Maintainer: Charles E Campbell, Jr <drchipNOSPAM at campbellfamily dot biz>
|
|
||||||
" Version: 4a NOT RELEASED
|
|
||||||
" Copyright: Copyright (C) 1999-2005 Charles E. Campbell, Jr. {{{1
|
|
||||||
" Permission is hereby granted to use and distribute this code,
|
|
||||||
" with or without modifications, provided that this copyright
|
|
||||||
" notice is copied with it. Like anything else that's free,
|
|
||||||
" netrwSettings.vim is provided *as is* and comes with no
|
|
||||||
" warranty of any kind, either expressed or implied. By using
|
|
||||||
" this plugin, you agree that in no event will the copyright
|
|
||||||
" holder be liable for any damages resulting from the use
|
|
||||||
" of this software.
|
|
||||||
"
|
|
||||||
" Mat 4:23 (WEB) Jesus went about in all Galilee, teaching in their {{{1
|
|
||||||
" synagogues, preaching the gospel of the kingdom, and healing
|
|
||||||
" every disease and every sickness among the people.
|
|
||||||
" Load Once: {{{1
|
|
||||||
if exists("g:loaded_netrwSettings") || &cp
|
|
||||||
finish
|
|
||||||
endif
|
|
||||||
let g:loaded_netrwSettings = "v4a"
|
|
||||||
|
|
||||||
" ---------------------------------------------------------------------
|
|
||||||
" NetrwSettings: {{{1
|
|
||||||
fun! netrwSettings#NetrwSettings()
|
|
||||||
" this call is here largely just to insure that netrw has been loaded
|
|
||||||
call netrw#NetSavePosn()
|
|
||||||
if !exists("g:loaded_netrw")
|
|
||||||
echohl WarningMsg | echomsg "***sorry*** netrw needs to be loaded prior to using NetrwSettings" | echohl None
|
|
||||||
return
|
|
||||||
endif
|
|
||||||
|
|
||||||
above wincmd s
|
|
||||||
enew
|
|
||||||
setlocal noswapfile bh=wipe
|
|
||||||
set ft=vim
|
|
||||||
file Netrw\ Settings
|
|
||||||
|
|
||||||
" these variables have the following default effects when they don't
|
|
||||||
" exist (ie. have not been set by the user in his/her .vimrc)
|
|
||||||
if !exists("g:netrw_longlist")
|
|
||||||
let g:netrw_longlist= 0
|
|
||||||
let g:netrw_list_cmd= "ssh HOSTNAME ls -FLa"
|
|
||||||
endif
|
|
||||||
if !exists("g:netrw_silent")
|
|
||||||
let g:netrw_silent= 0
|
|
||||||
endif
|
|
||||||
if !exists("g:netrw_use_nt_rcp")
|
|
||||||
let g:netrw_use_nt_rcp= 0
|
|
||||||
endif
|
|
||||||
if !exists("g:netrw_ftp")
|
|
||||||
let g:netrw_ftp= 0
|
|
||||||
endif
|
|
||||||
if !exists("g:netrw_ignorenetrc")
|
|
||||||
let g:netrw_ignorenetrc= 0
|
|
||||||
endif
|
|
||||||
|
|
||||||
put ='+ ---------------------------------------------'
|
|
||||||
put ='+ NetrwSettings: (by Charles E. Campbell, Jr.)'
|
|
||||||
put ='+ Press ? with cursor atop any line for help '
|
|
||||||
put ='+ ---------------------------------------------'
|
|
||||||
let s:netrw_settings_stop= line(".")
|
|
||||||
|
|
||||||
put =''
|
|
||||||
put ='+ Netrw Protocol Commands'
|
|
||||||
put = 'let g:netrw_dav_cmd = '.g:netrw_dav_cmd
|
|
||||||
put = 'let g:netrw_fetch_cmd = '.g:netrw_fetch_cmd
|
|
||||||
put = 'let g:netrw_ftp_cmd = '.g:netrw_ftp_cmd
|
|
||||||
put = 'let g:netrw_http_cmd = '.g:netrw_http_cmd
|
|
||||||
put = 'let g:netrw_rcp_cmd = '.g:netrw_rcp_cmd
|
|
||||||
put = 'let g:netrw_rsync_cmd = '.g:netrw_rsync_cmd
|
|
||||||
put = 'let g:netrw_scp_cmd = '.g:netrw_scp_cmd
|
|
||||||
put = 'let g:netrw_sftp_cmd = '.g:netrw_sftp_cmd
|
|
||||||
let s:netrw_protocol_stop= line(".")
|
|
||||||
put = ''
|
|
||||||
|
|
||||||
put ='+Netrw Transfer Control'
|
|
||||||
put = 'let g:netrw_cygwin = '.g:netrw_cygwin
|
|
||||||
put = 'let g:netrw_ftp = '.g:netrw_ftp
|
|
||||||
put = 'let g:netrw_ftpmode = '.g:netrw_ftpmode
|
|
||||||
put = 'let g:netrw_ignorenetrc = '.g:netrw_ignorenetrc
|
|
||||||
put = 'let g:netrw_use_nt_rcp = '.g:netrw_use_nt_rcp
|
|
||||||
put = 'let g:netrw_win95ftp = '.g:netrw_win95ftp
|
|
||||||
let s:netrw_xfer_stop= line(".")
|
|
||||||
|
|
||||||
put = ''
|
|
||||||
put ='+ Netrw Browser Control'
|
|
||||||
put = 'let g:netrw_alto = '.g:netrw_alto
|
|
||||||
put = 'let g:netrw_altv = '.g:netrw_altv
|
|
||||||
put = 'let g:netrw_dirhistmax = '.g:netrw_dirhistmax
|
|
||||||
put = 'let g:netrw_ftp_browse_reject = '.g:netrw_ftp_browse_reject
|
|
||||||
put = 'let g:netrw_ftp_list_cmd = '.g:netrw_ftp_list_cmd
|
|
||||||
put = 'let g:netrw_hide = '.g:netrw_hide
|
|
||||||
put = 'let g:netrw_keepdir = '.g:netrw_keepdir
|
|
||||||
put = 'let g:netrw_list_cmd = '.g:netrw_list_cmd
|
|
||||||
put = 'let g:netrw_list_cmd = '.g:netrw_list_cmd
|
|
||||||
put = 'let g:netrw_list_hide = '.g:netrw_list_hide
|
|
||||||
put = 'let g:netrw_local_mkdir = '.g:netrw_local_mkdir
|
|
||||||
put = 'let g:netrw_local_rmdir = '.g:netrw_local_rmdir
|
|
||||||
put = 'let g:netrw_longlist = '.g:netrw_longlist
|
|
||||||
put = 'let g:netrw_maxfilenamelen = '.g:netrw_maxfilenamelen
|
|
||||||
put = 'let g:netrw_mkdir_cmd = '.g:netrw_mkdir_cmd
|
|
||||||
put = 'let g:netrw_rename_cmd = '.g:netrw_rename_cmd
|
|
||||||
put = 'let g:netrw_rm_cmd = '.g:netrw_rm_cmd
|
|
||||||
put = 'let g:netrw_rmdir_cmd = '.g:netrw_rmdir_cmd
|
|
||||||
put = 'let g:netrw_rmf_cmd = '.g:netrw_rmf_cmd
|
|
||||||
put = 'let g:netrw_silent = '.g:netrw_silent
|
|
||||||
put = 'let g:netrw_sort_by = '.g:netrw_sort_by
|
|
||||||
put = 'let g:netrw_sort_direction = '.g:netrw_sort_direction
|
|
||||||
put = 'let g:netrw_sort_sequence = '.g:netrw_sort_sequence
|
|
||||||
put = 'let g:netrw_ssh_browse_reject = '.g:netrw_ssh_browse_reject
|
|
||||||
put = 'let g:netrw_timefmt = '.g:netrw_timefmt
|
|
||||||
put = 'let g:netrw_winsize = '.g:netrw_winsize
|
|
||||||
|
|
||||||
put =''
|
|
||||||
put ='+ For help, place cursor on line and press ?'
|
|
||||||
|
|
||||||
1d
|
|
||||||
silent %s/^+/"/e
|
|
||||||
res 99
|
|
||||||
silent %s/= \([^0-9].*\)$/= '\1'/e
|
|
||||||
silent %s/= $/= ''/e
|
|
||||||
1
|
|
||||||
|
|
||||||
set nomod
|
|
||||||
|
|
||||||
map <buffer> <silent> ? :call NetrwSettingHelp()<cr>
|
|
||||||
let tmpfile= tempname()
|
|
||||||
exe 'au BufWriteCmd Netrw\ Settings silent w! '.tmpfile.'|so '.tmpfile.'|call delete("'.tmpfile.'")|set nomod'
|
|
||||||
endfun
|
|
||||||
|
|
||||||
" ---------------------------------------------------------------------
|
|
||||||
" NetrwSettingHelp: {{{2
|
|
||||||
fun! NetrwSettingHelp()
|
|
||||||
" call Dfunc("NetrwSettingHelp()")
|
|
||||||
let curline = getline(".")
|
|
||||||
if curline =~ '='
|
|
||||||
let varhelp = substitute(curline,'^\s*let ','','e')
|
|
||||||
let varhelp = substitute(varhelp,'\s*=.*$','','e')
|
|
||||||
" call Decho("trying help ".varhelp)
|
|
||||||
try
|
|
||||||
exe "he ".varhelp
|
|
||||||
catch /^Vim\%((\a\+)\)\=:E149/
|
|
||||||
echo "***sorry*** no help available for <".varhelp.">"
|
|
||||||
endtry
|
|
||||||
elseif line(".") < s:netrw_settings_stop
|
|
||||||
he netrw-settings
|
|
||||||
elseif line(".") < s:netrw_protocol_stop
|
|
||||||
he netrw-externapp
|
|
||||||
elseif line(".") < s:netrw_xfer_stop
|
|
||||||
he netrw-variables
|
|
||||||
else
|
|
||||||
he netrw-browse-var
|
|
||||||
endif
|
|
||||||
" call Dret("NetrwSettingHelp")
|
|
||||||
endfun
|
|
||||||
|
|
||||||
" ---------------------------------------------------------------------
|
|
||||||
" Modelines: {{{1
|
|
||||||
" vim:ts=8 fdm=marker
|
|
@ -1,7 +1,7 @@
|
|||||||
" Vim support file to detect file types in scripts
|
" Vim support file to detect file types in scripts
|
||||||
"
|
"
|
||||||
" Maintainer: Bram Moolenaar <Bram@vim.org>
|
" Maintainer: Bram Moolenaar <Bram@vim.org>
|
||||||
" Last change: 2005 Sep 20
|
" Last change: 2005 Oct 12
|
||||||
|
|
||||||
" This file is called by an autocommand for every file that has just been
|
" This file is called by an autocommand for every file that has just been
|
||||||
" loaded into a buffer. It checks if the type of file can be recognized by
|
" loaded into a buffer. It checks if the type of file can be recognized by
|
||||||
@ -138,6 +138,10 @@ if s:line1 =~ "^#!"
|
|||||||
elseif s:name =~ 'scheme'
|
elseif s:name =~ 'scheme'
|
||||||
set ft=scheme
|
set ft=scheme
|
||||||
|
|
||||||
|
" CFEngine scripts
|
||||||
|
elseif s:name =~ 'cfengine'
|
||||||
|
set ft=cfengine
|
||||||
|
|
||||||
endif
|
endif
|
||||||
unlet s:name
|
unlet s:name
|
||||||
|
|
||||||
|
@ -1,21 +1,23 @@
|
|||||||
" Vim syntax file
|
" Vim syntax file
|
||||||
" Language: Lisp
|
" Language: Lisp
|
||||||
" Maintainer: Dr. Charles E. Campbell, Jr. <NdrOchipS@PcampbellAfamily.Mbiz>
|
" Maintainer: Dr. Charles E. Campbell, Jr. <NdrOchipS@PcampbellAfamily.Mbiz>
|
||||||
" Last Change: Sep 06, 2005
|
" Last Change: Oct 12, 2005
|
||||||
" Version: 15
|
" Version: 16
|
||||||
" URL: http://mysite.verizon.net/astronaut/vim/index.html#vimlinks_syntax
|
" URL: http://mysite.verizon.net/astronaut/vim/index.html#vimlinks_syntax
|
||||||
"
|
"
|
||||||
" Thanks to F Xavier Noria for a list of 978 Common Lisp symbols
|
" Thanks to F Xavier Noria for a list of 978 Common Lisp symbols
|
||||||
" taken from the HyperSpec
|
" taken from the HyperSpec
|
||||||
"
|
"
|
||||||
" Options:
|
" Options:
|
||||||
" lisp_instring : if it exists, then "(...") strings are highlighted
|
" g:lisp_instring : if it exists, then "(...") strings are highlighted
|
||||||
" as if the contents were lisp. Useful for AutoLisp.
|
" as if the contents were lisp. Useful for AutoLisp.
|
||||||
" Put let lisp_instring=1 into your <.vimrc> if
|
" Put
|
||||||
" you want this option.
|
" let g:lisp_instring=1
|
||||||
|
" into your <.vimrc> if you want this option.
|
||||||
|
|
||||||
" For version 5.x: Clear all syntax items
|
" Load Once: {{{1
|
||||||
" For version 6.x: Quit when a syntax file was already loaded
|
" For vim-version 5.x: Clear all syntax items
|
||||||
|
" For vim-version 6.x: Quit when a syntax file was already loaded
|
||||||
if version < 600
|
if version < 600
|
||||||
syntax clear
|
syntax clear
|
||||||
elseif exists("b:current_syntax")
|
elseif exists("b:current_syntax")
|
||||||
@ -28,21 +30,35 @@ else
|
|||||||
set iskeyword=42,43,45,47-58,60-62,64-90,97-122,_
|
set iskeyword=42,43,45,47-58,60-62,64-90,97-122,_
|
||||||
endif
|
endif
|
||||||
|
|
||||||
" Clusters
|
" Clusters: {{{1
|
||||||
syn cluster lispAtomCluster contains=lispAtomBarSymbol,lispAtomList,lispAtomNmbr0,lispComment,lispDecl,lispFunc,lispLeadWhite
|
syn cluster lispAtomCluster contains=lispAtomBarSymbol,lispAtomList,lispAtomNmbr0,lispComment,lispDecl,lispFunc,lispLeadWhite
|
||||||
syn cluster lispListCluster contains=lispAtom,lispAtomBarSymbol,lispAtomMark,lispBQList,lispBarSymbol,lispComment,lispConcat,lispDecl,lispFunc,lispKey,lispList,lispNumber,lispSpecial,lispSymbol,lispVar,lispLeadWhite
|
syn cluster lispBaseListCluster contains=lispAtom,lispAtomBarSymbol,lispAtomMark,lispBQList,lispBarSymbol,lispComment,lispConcat,lispDecl,lispFunc,lispKey,lispList,lispNumber,lispSpecial,lispSymbol,lispVar,lispLeadWhite
|
||||||
|
if exists("g:lisp_instring")
|
||||||
|
syn cluster lispListCluster contains=@lispBaseListCluster,lispString,lispInString,lispInStringString
|
||||||
|
else
|
||||||
|
syn cluster lispListCluster contains=@lispBaseListCluster,lispString
|
||||||
|
endif
|
||||||
|
|
||||||
" Lists
|
" Lists: {{{1
|
||||||
syn match lispSymbol contained ![^()'`,"; \t]\+!
|
syn match lispSymbol contained ![^()'`,"; \t]\+!
|
||||||
syn match lispBarSymbol contained !|..\{-}|!
|
syn match lispBarSymbol contained !|..\{-}|!
|
||||||
if exists("lisp_instring")
|
if exists("g:lisp_rainbow") && g:lisp_rainbow != 0
|
||||||
syn region lispList matchgroup=Delimiter start="(" skip="|.\{-}|" matchgroup=Delimiter end=")" contains=@lispListCluster,lispString,lispInString,lispInStringString
|
syn region lispParen0 matchgroup=hlLevel0 start="`\=(" end=")" skip="|.\{-}|" contains=@lispListCluster,lispParen1
|
||||||
syn region lispBQList matchgroup=PreProc start="`(" skip="|.\{-}|" matchgroup=PreProc end=")" contains=@lispListCluster,lispString,lispInString,lispInStringString
|
syn region lispParen1 contained matchgroup=hlLevel1 start="`\=(" end=")" skip="|.\{-}|" contains=@lispListCluster,lispParen2
|
||||||
|
syn region lispParen2 contained matchgroup=hlLevel2 start="`\=(" end=")" skip="|.\{-}|" contains=@lispListCluster,lispParen3
|
||||||
|
syn region lispParen3 contained matchgroup=hlLevel3 start="`\=(" end=")" skip="|.\{-}|" contains=@lispListCluster,lispParen4
|
||||||
|
syn region lispParen4 contained matchgroup=hlLevel4 start="`\=(" end=")" skip="|.\{-}|" contains=@lispListCluster,lispParen5
|
||||||
|
syn region lispParen5 contained matchgroup=hlLevel5 start="`\=(" end=")" skip="|.\{-}|" contains=@lispListCluster,lispParen6
|
||||||
|
syn region lispParen6 contained matchgroup=hlLevel6 start="`\=(" end=")" skip="|.\{-}|" contains=@lispListCluster,lispParen7
|
||||||
|
syn region lispParen7 contained matchgroup=hlLevel7 start="`\=(" end=")" skip="|.\{-}|" contains=@lispListCluster,lispParen8
|
||||||
|
syn region lispParen8 contained matchgroup=hlLevel8 start="`\=(" end=")" skip="|.\{-}|" contains=@lispListCluster,lispParen9
|
||||||
|
syn region lispParen9 contained matchgroup=hlLevel9 start="`\=(" end=")" skip="|.\{-}|" contains=@lispListCluster,lispParen0
|
||||||
else
|
else
|
||||||
syn region lispList matchgroup=Delimiter start="(" skip="|.\{-}|" matchgroup=Delimiter end=")" contains=@lispListCluster,lispString
|
syn region lispList matchgroup=Delimiter start="(" skip="|.\{-}|" matchgroup=Delimiter end=")" contains=@lispListCluster
|
||||||
syn region lispBQList matchgroup=PreProc start="`(" skip="|.\{-}|" matchgroup=PreProc end=")" contains=@lispListCluster,lispString
|
syn region lispBQList matchgroup=PreProc start="`(" skip="|.\{-}|" matchgroup=PreProc end=")" contains=@lispListCluster
|
||||||
endif
|
endif
|
||||||
" Atoms
|
|
||||||
|
" Atoms: {{{1
|
||||||
syn match lispAtomMark "'"
|
syn match lispAtomMark "'"
|
||||||
syn match lispAtom "'("me=e-1 contains=lispAtomMark nextgroup=lispAtomList
|
syn match lispAtom "'("me=e-1 contains=lispAtomMark nextgroup=lispAtomList
|
||||||
syn match lispAtom "'[^ \t()]\+" contains=lispAtomMark
|
syn match lispAtom "'[^ \t()]\+" contains=lispAtomMark
|
||||||
@ -52,7 +68,7 @@ syn region lispAtomList contained matchgroup=Special start="(" s
|
|||||||
syn match lispAtomNmbr contained "\<\d\+"
|
syn match lispAtomNmbr contained "\<\d\+"
|
||||||
syn match lispLeadWhite contained "^\s\+"
|
syn match lispLeadWhite contained "^\s\+"
|
||||||
|
|
||||||
" Standard Lisp Functions and Macros
|
" Standard Lisp Functions and Macros: {{{1
|
||||||
syn keyword lispFunc * find-method pprint-indent
|
syn keyword lispFunc * find-method pprint-indent
|
||||||
syn keyword lispFunc ** find-package pprint-linear
|
syn keyword lispFunc ** find-package pprint-linear
|
||||||
syn keyword lispFunc *** find-restart pprint-logical-block
|
syn keyword lispFunc *** find-restart pprint-logical-block
|
||||||
@ -370,8 +386,7 @@ syn keyword lispFunc find-if-not pprint-fill
|
|||||||
|
|
||||||
syn match lispFunc "\<c[ad]\+r\>"
|
syn match lispFunc "\<c[ad]\+r\>"
|
||||||
|
|
||||||
|
" Lisp Keywords (modifiers): {{{1
|
||||||
" Lisp Keywords (modifiers)
|
|
||||||
syn keyword lispKey :abort :from-end :overwrite
|
syn keyword lispKey :abort :from-end :overwrite
|
||||||
syn keyword lispKey :adjustable :gensym :predicate
|
syn keyword lispKey :adjustable :gensym :predicate
|
||||||
syn keyword lispKey :append :host :preserve-whitespace
|
syn keyword lispKey :append :host :preserve-whitespace
|
||||||
@ -399,7 +414,7 @@ syn keyword lispKey :error :output :verbose
|
|||||||
syn keyword lispKey :escape :output-file :version
|
syn keyword lispKey :escape :output-file :version
|
||||||
syn keyword lispKey :external
|
syn keyword lispKey :external
|
||||||
|
|
||||||
" Standard Lisp Variables
|
" Standard Lisp Variables: {{{1
|
||||||
syn keyword lispVar *applyhook* *load-pathname* *print-pprint-dispatch*
|
syn keyword lispVar *applyhook* *load-pathname* *print-pprint-dispatch*
|
||||||
syn keyword lispVar *break-on-signals* *load-print* *print-pprint-dispatch*
|
syn keyword lispVar *break-on-signals* *load-print* *print-pprint-dispatch*
|
||||||
syn keyword lispVar *break-on-signals* *load-truename* *print-pretty*
|
syn keyword lispVar *break-on-signals* *load-truename* *print-pretty*
|
||||||
@ -419,21 +434,21 @@ syn keyword lispVar *evalhook* *print-lines* *standard-output*
|
|||||||
syn keyword lispVar *features* *print-miser-width* *terminal-io*
|
syn keyword lispVar *features* *print-miser-width* *terminal-io*
|
||||||
syn keyword lispVar *gensym-counter* *print-miser-width* *trace-output*
|
syn keyword lispVar *gensym-counter* *print-miser-width* *trace-output*
|
||||||
|
|
||||||
" Strings
|
" Strings: {{{1
|
||||||
syn region lispString start=+"+ skip=+\\\\\|\\"+ end=+"+
|
syn region lispString start=+"+ skip=+\\\\\|\\"+ end=+"+
|
||||||
if exists("lisp_instring")
|
if exists("g:lisp_instring")
|
||||||
syn region lispInString keepend matchgroup=Delimiter start=+"(+rs=s+1 skip=+|.\{-}|+ matchgroup=Delimiter end=+)"+ contains=@lispListCluster,lispInStringString
|
syn region lispInString keepend matchgroup=Delimiter start=+"(+rs=s+1 skip=+|.\{-}|+ matchgroup=Delimiter end=+)"+ contains=@lispBaseListCluster,lispInStringString
|
||||||
syn region lispInStringString start=+\\"+ skip=+\\\\+ end=+\\"+ contained
|
syn region lispInStringString start=+\\"+ skip=+\\\\+ end=+\\"+ contained
|
||||||
endif
|
endif
|
||||||
|
|
||||||
" Shared with Xlisp, Declarations, Macros, Functions
|
" Shared with Xlisp, Declarations, Macros, Functions: {{{1
|
||||||
syn keyword lispDecl defmacro do-all-symbols labels
|
syn keyword lispDecl defmacro do-all-symbols labels
|
||||||
syn keyword lispDecl defsetf do-external-symbols let
|
syn keyword lispDecl defsetf do-external-symbols let
|
||||||
syn keyword lispDecl deftype do-symbols locally
|
syn keyword lispDecl deftype do-symbols locally
|
||||||
syn keyword lispDecl defun dotimes macrolet
|
syn keyword lispDecl defun dotimes macrolet
|
||||||
syn keyword lispDecl do* flet multiple-value-bind
|
syn keyword lispDecl do* flet multiple-value-bind
|
||||||
|
|
||||||
" Numbers: supporting integers and floating point numbers
|
" Numbers: supporting integers and floating point numbers {{{1
|
||||||
syn match lispNumber "-\=\(\.\d\+\|\d\+\(\.\d*\)\=\)\(e[-+]\=\d\+\)\="
|
syn match lispNumber "-\=\(\.\d\+\|\d\+\(\.\d*\)\=\)\(e[-+]\=\d\+\)\="
|
||||||
|
|
||||||
syn match lispSpecial "\*[a-zA-Z_][a-zA-Z_0-9-]*\*"
|
syn match lispSpecial "\*[a-zA-Z_][a-zA-Z_0-9-]*\*"
|
||||||
@ -448,7 +463,7 @@ syn match lispSpecial !#([^()'`,"; \t]\+)!
|
|||||||
syn match lispConcat "\s\.\s"
|
syn match lispConcat "\s\.\s"
|
||||||
syn match lispParenError ")"
|
syn match lispParenError ")"
|
||||||
|
|
||||||
" Comments
|
" Comments: {{{1
|
||||||
syn cluster lispCommentGroup contains=lispTodo,@Spell
|
syn cluster lispCommentGroup contains=lispTodo,@Spell
|
||||||
syn match lispComment ";.*$" contains=@lispCommentGroup
|
syn match lispComment ";.*$" contains=@lispCommentGroup
|
||||||
syn region lispCommentRegion start="#|" end="|#" contains=lispCommentRegion,@lispCommentGroup
|
syn region lispCommentRegion start="#|" end="|#" contains=lispCommentRegion,@lispCommentGroup
|
||||||
@ -456,10 +471,10 @@ syn case ignore
|
|||||||
syn keyword lispTodo contained combak combak: todo todo:
|
syn keyword lispTodo contained combak combak: todo todo:
|
||||||
syn case match
|
syn case match
|
||||||
|
|
||||||
" synchronization
|
" Synchronization: {{{1
|
||||||
syn sync lines=100
|
syn sync lines=100
|
||||||
|
|
||||||
" Define the default highlighting.
|
" Define Highlighting: {{{1
|
||||||
" For version 5.7 and earlier: only when not done already
|
" For version 5.7 and earlier: only when not done already
|
||||||
" For version 5.8 and later: only when an item doesn't have highlighting yet
|
" For version 5.8 and later: only when an item doesn't have highlighting yet
|
||||||
if version >= 508 || !exists("did_lisp_syntax_inits")
|
if version >= 508 || !exists("did_lisp_syntax_inits")
|
||||||
@ -491,9 +506,35 @@ if version >= 508 || !exists("did_lisp_syntax_inits")
|
|||||||
HiLink lispTodo Todo
|
HiLink lispTodo Todo
|
||||||
HiLink lispVar Statement
|
HiLink lispVar Statement
|
||||||
|
|
||||||
|
if exists("g:lisp_rainbow") && g:lisp_rainbow != 0
|
||||||
|
if &bg == "dark"
|
||||||
|
hi hlLevel0 ctermfg=red guifg=red1
|
||||||
|
hi hlLevel1 ctermfg=yellow guifg=orange1
|
||||||
|
hi hlLevel2 ctermfg=green guifg=yellow1
|
||||||
|
hi hlLevel3 ctermfg=cyan guifg=greenyellow
|
||||||
|
hi hlLevel4 ctermfg=magenta guifg=green1
|
||||||
|
hi hlLevel5 ctermfg=red guifg=springgreen1
|
||||||
|
hi hlLevel6 ctermfg=yellow guifg=cyan1
|
||||||
|
hi hlLevel7 ctermfg=green guifg=slateblue1
|
||||||
|
hi hlLevel8 ctermfg=cyan guifg=magenta1
|
||||||
|
hi hlLevel9 ctermfg=magenta guifg=purple1
|
||||||
|
else
|
||||||
|
hi hlLevel0 ctermfg=red guifg=red3
|
||||||
|
hi hlLevel1 ctermfg=darkyellow guifg=orangered3
|
||||||
|
hi hlLevel2 ctermfg=darkgreen guifg=orange2
|
||||||
|
hi hlLevel3 ctermfg=blue guifg=yellow3
|
||||||
|
hi hlLevel4 ctermfg=darkmagenta guifg=olivedrab4
|
||||||
|
hi hlLevel5 ctermfg=red guifg=green4
|
||||||
|
hi hlLevel6 ctermfg=darkyellow guifg=paleturquoise3
|
||||||
|
hi hlLevel7 ctermfg=darkgreen guifg=deepskyblue4
|
||||||
|
hi hlLevel8 ctermfg=blue guifg=darkslateblue
|
||||||
|
hi hlLevel9 ctermfg=darkmagenta guifg=darkviolet
|
||||||
|
endif
|
||||||
|
endif
|
||||||
|
|
||||||
delcommand HiLink
|
delcommand HiLink
|
||||||
endif
|
endif
|
||||||
|
|
||||||
let b:current_syntax = "lisp"
|
let b:current_syntax = "lisp"
|
||||||
|
|
||||||
" vim: ts=8 nowrap
|
" vim: ts=8 nowrap fdm=marker
|
||||||
|
Loading…
x
Reference in New Issue
Block a user