summaryrefslogtreecommitdiff
path: root/vim/bundle/slimv/ftplugin/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'vim/bundle/slimv/ftplugin/lisp')
-rw-r--r--vim/bundle/slimv/ftplugin/lisp/slimv-lisp.vim199
1 files changed, 199 insertions, 0 deletions
diff --git a/vim/bundle/slimv/ftplugin/lisp/slimv-lisp.vim b/vim/bundle/slimv/ftplugin/lisp/slimv-lisp.vim
new file mode 100644
index 0000000..139d28b
--- /dev/null
+++ b/vim/bundle/slimv/ftplugin/lisp/slimv-lisp.vim
@@ -0,0 +1,199 @@
+" slimv-lisp.vim:
+" Lisp filetype plugin for Slimv
+" Version: 0.9.13
+" Last Change: 04 May 2014
+" Maintainer: Tamas Kovacs <kovisoft at gmail dot com>
+" License: This file is placed in the public domain.
+" No warranty, express or implied.
+" *** *** Use At-Your-Own-Risk! *** ***
+"
+" =====================================================================
+"
+" Load Once:
+if exists("b:did_ftplugin") || exists("g:slimv_disable_lisp")
+ finish
+endif
+
+" Handle cases when lisp dialects explicitly use the lisp filetype plugins
+if &ft == "clojure" && exists("g:slimv_disable_clojure")
+ finish
+endif
+
+if &ft == "scheme" && exists("g:slimv_disable_scheme")
+ finish
+endif
+
+" ---------- Begin part loaded once ----------
+if !exists( 'g:slimv_lisp_loaded' )
+
+let g:slimv_lisp_loaded = 1
+
+" Descriptor array for various lisp implementations
+" The structure of an array element is:
+" [ executable, implementation, platform, search path]
+" where:
+" executable - may contain wildcards but only if a search path is present
+" platform - 'w' (Windows) or 'l' (Linux = non-Windows), '' for all
+" search path - commma separated list, may contain wildcard characters
+let s:lisp_desc = [
+\ [ 'sbcl', 'sbcl', '', '' ],
+\ [ 'clisp', 'clisp', '', '' ],
+\ [ 'gcl', 'clisp', '', '' ],
+\ [ 'cmucl', 'cmu', '', '' ],
+\ [ 'ecl', 'ecl', '', '' ],
+\ [ 'acl', 'allegro', '', '' ],
+\ [ 'mlisp', 'allegro', '', '' ],
+\ [ 'mlisp8', 'allegro', '', '' ],
+\ [ 'alisp', 'allegro', '', '' ],
+\ [ 'alisp8', 'allegro', '', '' ],
+\ [ 'lwl', 'lispworks', '', '' ],
+\ [ 'ccl', 'clozure', '', '' ],
+\ [ 'wx86cl64', 'clozure', 'w64', '' ],
+\ [ 'wx86cl', 'clozure', 'w', '' ],
+\ [ 'lx86cl', 'clozure', 'l', '' ],
+\ [ '*lisp.exe', 'clisp', 'w',
+\ 'c:/*lisp*,c:/*lisp*/*,c:/*lisp*/bin/*,c:/Program Files/*lisp*,c:/Program Files/*lisp*/*,c:/Program Files/*lisp*/bin/*' ],
+\ [ 'gcl.exe', 'clisp', 'w', 'c:/gcl*,c:/Program Files/gcl*' ],
+\ [ 'cmucl.exe', 'cmu', 'w', 'c:/cmucl*,c:/Program Files/cmucl*' ],
+\ [ '*lisp*.exe', 'allegro', 'w', 'c:/acl*,c:/Program Files/acl*,c:/Program Files/*lisp*/bin/acl*' ],
+\ [ 'ecl.exe', 'ecl', 'w', 'c:/ecl*,c:/Program Files/ecl*' ],
+\ [ 'wx86cl64.exe', 'clozure', 'w64', 'c:/ccl*,c:/Program Files/ccl*,c:/Program Files/*lisp*/bin/ccl*' ],
+\ [ 'wx86cl.exe', 'clozure', 'w', 'c:/ccl*,c:/Program Files/ccl*,c:/Program Files/*lisp*/bin/ccl*' ],
+\ [ 'sbcl.exe', 'sbcl', 'w', 'c:/sbcl*,c:/Program Files/sbcl*,c:/Program Files/*lisp*/bin/sbcl*'] ]
+
+" Try to autodetect Lisp executable
+" Returns list [Lisp executable, Lisp implementation]
+function! SlimvAutodetect( preferred )
+ for lisp in s:lisp_desc
+ if lisp[2] =~ 'w' && !g:slimv_windows
+ " Valid only on Windows
+ elseif lisp[2] == 'w64' && $ProgramW6432 == ''
+ " Valid only on 64 bit Windows
+ elseif lisp[2] == 'l' && g:slimv_windows
+ " Valid only on Linux
+ elseif a:preferred != '' && a:preferred != lisp[1]
+ " Not the preferred implementation
+ elseif lisp[3] != ''
+ " A search path is given
+ let lisps = split( globpath( lisp[3], lisp[0] ), '\n' )
+ if len( lisps ) > 0
+ return [lisps[0], lisp[1]]
+ endif
+ else
+ " Single executable is given without path
+ if executable( lisp[0] )
+ return lisp[0:1]
+ endif
+ endif
+ endfor
+ return ['', '']
+endfunction
+
+" Try to find out the Lisp implementation
+function! SlimvImplementation()
+ if exists( 'g:slimv_impl' ) && g:slimv_impl != ''
+ " Return Lisp implementation if defined
+ return tolower( g:slimv_impl )
+ endif
+
+ let lisp = tolower( g:slimv_lisp )
+ if match( lisp, 'sbcl' ) >= 0
+ return 'sbcl'
+ endif
+ if match( lisp, 'cmu' ) >= 0
+ return 'cmu'
+ endif
+ if match( lisp, 'acl' ) >= 0 || match( lisp, 'alisp' ) >= 0 || match( lisp, 'mlisp' ) >= 0
+ return 'allegro'
+ endif
+ if match( lisp, 'ecl' ) >= 0
+ return 'ecl'
+ endif
+ if match( lisp, 'x86cl' ) >= 0
+ return 'clozure'
+ endif
+ if match( lisp, 'lwl' ) >= 0
+ return 'lispworks'
+ endif
+
+ return 'clisp'
+endfunction
+
+" Try to autodetect SWANK and build the command to load the SWANK server
+function! SlimvSwankLoader()
+ " First check if SWANK is bundled with Slimv
+ let swanks = split( globpath( &runtimepath, 'slime/start-swank.lisp'), '\n' )
+ if len( swanks ) == 0
+ " Try to find SWANK in the standard SLIME installation locations
+ if g:slimv_windows || g:slimv_cygwin
+ let swanks = split( globpath( 'c:/slime/,c:/*lisp*/slime/,c:/*lisp*/site/lisp/slime/,c:/Program Files/*lisp*/site/lisp/slime/', 'start-swank.lisp' ), '\n' )
+ else
+ let swanks = split( globpath( '/usr/share/common-lisp/source/slime/', 'start-swank.lisp' ), '\n' )
+ endif
+ endif
+ if len( swanks ) == 0
+ return ''
+ endif
+
+ " Build proper SWANK loader command for the Lisp implementation used
+ if g:slimv_impl == 'sbcl'
+ return '"' . g:slimv_lisp . '" --load "' . swanks[0] . '"'
+ elseif g:slimv_impl == 'clisp'
+ return '"' . g:slimv_lisp . '" -i "' . swanks[0] . '"'
+ elseif g:slimv_impl == 'allegro'
+ return '"' . g:slimv_lisp . '" -L "' . swanks[0] . '"'
+ elseif g:slimv_impl == 'cmu'
+ return '"' . g:slimv_lisp . '" -load "' . swanks[0] . '"'
+ else
+ return '"' . g:slimv_lisp . '" -l "' . swanks[0] . '"'
+ endif
+endfunction
+
+" Filetype specific initialization for the REPL buffer
+function! SlimvInitRepl()
+ set filetype=lisp
+endfunction
+
+" Lookup symbol in the list of Lisp Hyperspec symbol databases
+function! SlimvHyperspecLookup( word, exact, all )
+ if !exists( 'g:slimv_clhs_loaded' )
+ runtime ftplugin/**/slimv-clhs.vim
+ endif
+
+ let symbol = []
+ if exists( 'g:slimv_clhs_loaded' )
+ let symbol = SlimvFindSymbol( a:word, a:exact, a:all, g:slimv_clhs_clhs, g:slimv_clhs_root, symbol )
+ let symbol = SlimvFindSymbol( a:word, a:exact, a:all, g:slimv_clhs_issues, g:slimv_clhs_root, symbol )
+ let symbol = SlimvFindSymbol( a:word, a:exact, a:all, g:slimv_clhs_chapters, g:slimv_clhs_root, symbol )
+ let symbol = SlimvFindSymbol( a:word, a:exact, a:all, g:slimv_clhs_control_chars, g:slimv_clhs_root, symbol )
+ let symbol = SlimvFindSymbol( a:word, a:exact, a:all, g:slimv_clhs_macro_chars, g:slimv_clhs_root, symbol )
+ let symbol = SlimvFindSymbol( a:word, a:exact, a:all, g:slimv_clhs_loop, g:slimv_clhs_root, symbol )
+ let symbol = SlimvFindSymbol( a:word, a:exact, a:all, g:slimv_clhs_arguments, g:slimv_clhs_root, symbol )
+ let symbol = SlimvFindSymbol( a:word, a:exact, a:all, g:slimv_clhs_glossary, g:slimv_clhs_root, symbol )
+ endif
+ if exists( 'g:slimv_clhs_user_db' )
+ " Give a choice for the user to extend the symbol database
+ if exists( 'g:slimv_clhs_user_root' )
+ let user_root = g:slimv_clhs_user_root
+ else
+ let user_root = ''
+ endif
+ let symbol = SlimvFindSymbol( a:word, a:exact, a:all, g:slimv_clhs_user_db, user_root, symbol )
+ endif
+ return symbol
+endfunction
+
+" Source Slimv general part
+runtime ftplugin/**/slimv.vim
+
+endif "!exists( 'g:slimv_lisp_loaded' )
+" ---------- End of part loaded once ----------
+
+runtime ftplugin/**/lisp.vim
+
+" Must be called for each lisp buffer
+call SlimvInitBuffer()
+
+" Don't load another plugin for this buffer
+let b:did_ftplugin = 1
+