" slimv.vim: The Superior Lisp Interaction Mode for VIM
" Version: 0.9.14
" Last Change: 24 Aug 2021
" 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 &cp || exists( 'g:slimv_loaded' )
finish
endif
let g:slimv_loaded = 1
let g:slimv_windows = 0
let g:slimv_cygwin = 0
let g:slimv_osx = 0
if has( 'win32' ) || has( 'win95' ) || has( 'win64' ) || has( 'win16' )
let g:slimv_windows = 1
elseif has( 'win32unix' )
let g:slimv_cygwin = 1
elseif has( 'macunix' )
let g:slimv_osx = 1
endif
if ( !exists( 'g:slimv_python_version' ) && has( 'python3' ) ) ||
\ ( exists( 'g:slimv_python_version' ) && g:slimv_python_version == 3 )
let s:py_cmd = 'python3 ' "note space
let s:pyfile_cmd = 'py3file '
else
let s:py_cmd = 'python ' "note space
let s:pyfile_cmd = 'pyfile '
endif
" =====================================================================
" Functions used by global variable definitions
" =====================================================================
" Convert Cygwin path to Windows path, if needed
function! s:Cygpath( path )
let path = a:path
if g:slimv_cygwin
let path = system( 'cygpath -w ' . path )
let path = substitute( path, "\n", "", "g" )
let path = substitute( path, "\\", "/", "g" )
endif
return path
endfunction
" Find swank.py in the Vim ftplugin directory (if not given in vimrc)
if !exists( 'g:swank_path' )
let plugins = split( globpath( &runtimepath, 'ftplugin/**/swank.py'), '\n' )
if len( plugins ) > 0
let g:swank_path = s:Cygpath( plugins[0] )
else
let g:swank_path = 'swank.py'
endif
endif
" Get the filetype (Lisp dialect) used by Slimv
function! SlimvGetFiletype()
if &ft != ''
" Return Vim filetype if defined
return &ft
endif
if match( tolower( g:slimv_lisp ), 'clojure' ) >= 0 || match( tolower( g:slimv_lisp ), 'clj' ) >= 0
" Must be Clojure
return 'clojure'
endif
" We have no clue, guess its lisp
return 'lisp'
endfunction
" Try to autodetect SWANK and build the command to start the SWANK server
function! SlimvSwankCommand()
if exists( 'g:slimv_swank_clojure' ) && SlimvGetFiletype() =~ '.*clojure.*'
return g:slimv_swank_clojure
endif
if exists( 'g:slimv_swank_scheme' ) && SlimvGetFiletype() == 'scheme'
return g:slimv_swank_scheme
endif
if exists( 'g:slimv_swank_cmd' )
return g:slimv_swank_cmd
endif
if g:slimv_lisp == ''
let g:slimv_lisp = input( 'Enter Lisp path (or fill g:slimv_lisp in your vimrc): ', '', 'file' )
endif
let cmd = SlimvSwankLoader()
if cmd != ''
if g:slimv_windows || g:slimv_cygwin
return '!start /MIN ' . cmd
elseif $STY != ''
" GNU screen under Linux or macOS
return "! screen -X eval 'title swank' 'screen " . cmd . "' 'select swank'"
elseif $TMUX != ''
" tmux under Linux or macOS
return "! tmux new-window -d -n swank '" . cmd . "'"
elseif g:slimv_osx
let result = system('osascript -e "exists application \"iterm\""')
if result[:-2] == 'true'
let path2as = globpath( &runtimepath, 'ftplugin/**/iterm.applescript')
return '!' . path2as . ' ' . cmd
else
" doubles quotes within 'cmd' need to become '\\\"'
return '!osascript -e "tell application \"Terminal\" to do script \"' . escape(escape(cmd, '"'), '\"') . '\""'
endif
elseif $DISPLAY == ''
" No X, no terminal multiplexer. Cannot run swank server.
call SlimvErrorWait( 'No X server. Run Vim from screen/tmux or start SWANK server manually.' )
return ''
else
" Must be Linux
return '! SWANK_PORT=' . g:swank_port . ' xterm -iconic -e ' . cmd . ' &'
endif
endif
return ''
endfunction
" =====================================================================
" Global variable definitions
" =====================================================================
" Host name or IP address of the SWANK server
if !exists( 'g:swank_host' )
let g:swank_host = 'localhost'
endif
" TCP port number to use for the SWANK server
if !exists( 'g:swank_port' )
let g:swank_port = 4005
endif
" Find Lisp (if not given in vimrc)
if !exists( 'g:slimv_lisp' )
let lisp = ['', '']
if exists( 'g:slimv_preferred' )
let lisp = SlimvAutodetect( tolower(g:slimv_preferred) )
endif
if lisp[0] == ''
let lisp = SlimvAutodetect( '' )
endif
let g:slimv_lisp = lisp[0]
if !exists( 'g:slimv_impl' )
let g:slimv_impl = lisp[1]
endif
endif
" Try to find out the Lisp implementation
" if not autodetected and not given in vimrc
if !exists( 'g:slimv_impl' )
let g:slimv_impl = SlimvImplementation()
endif
" REPL buffer name
if !exists( 'g:slimv_repl_name' )
let g:slimv_repl_name = 'REPL'
endif
" SLDB buffer name
if !exists( 'g:slimv_sldb_name' )
let g:slimv_sldb_name = 'SLDB'
endif
" INSPECT buffer name
if !exists( 'g:slimv_inspect_name' )
let g:slimv_inspect_name = 'INSPECT'
endif
" THREADS buffer name
if !exists( 'g:slimv_threads_name' )
let g:slimv_threads_name = 'THREADS'
endif
" Shall we open REPL buffer in split window?
if !exists( 'g:slimv_repl_split' )
let g:slimv_repl_split = 1
endif
" Size of the split window
if !exists( 'g:slimv_repl_split_size' )
let g:slimv_repl_split_size = ''
endif
" Wrap long lines in REPL buffer
if !exists( 'g:slimv_repl_wrap' )
let g:slimv_repl_wrap = 1
endif
" Wrap long lines in SLDB buffer
if !exists( 'g:slimv_sldb_wrap' )
let g:slimv_sldb_wrap = 0
endif
" Maximum number of lines echoed from the evaluated form
if !exists( 'g:slimv_echolines' )
let g:slimv_echolines = 4
endif
" Syntax highlighting for the REPL buffer
if !exists( 'g:slimv_repl_syntax' )
let g:slimv_repl_syntax = 1
endif
" Specifies the behaviour of insert mode <CR>, <Up>, <Down> in the REPL buffer:
" 1: <CR> evaluates, <Up>/<Down> brings up command history
" 0: <C-CR> evaluates, <C-Up>/<C-Down> brings up command history,
" <CR> opens new line, <Up>/<Down> moves cursor up/down
if !exists( 'g:slimv_repl_simple_eval' )
let g:slimv_repl_simple_eval = 1
endif
" Alternative value (in msec) for 'updatetime' while the REPL buffer is changing
if !exists( 'g:slimv_updatetime' )
let g:slimv_updatetime = 500
endif
" Slimv keybinding set (0 = no keybindings)
if !exists( 'g:slimv_keybindings' )
let g:slimv_keybindings = 1
endif
" Append Slimv menu to the global menu (0 = no menu)
if !exists( 'g:slimv_menu' )
let g:slimv_menu = 1
endif
" Build the ctags command capable of generating lisp tags file
" The command can be run with execute 'silent !' . g:slimv_ctags
if !exists( 'g:slimv_ctags' )
let ctags = split( globpath( '$vim,$vimruntime', 'ctags.exe' ), '\n' )
if len( ctags ) > 0
" Remove -a option to regenerate every time
let g:slimv_ctags = '"' . ctags[0] . '" -a --language-force=lisp *.lisp *.clj'
endif
endif
" Name of tags file used by slimv for find-definitions
" If this is the empty string then no tags file is used
if !exists( 'g:slimv_tags_file' )
let g:slimv_tags_file = tempname()
endif
" Prepend tags file to the tags list
if g:slimv_tags_file != ''
if &tags == ''
let &tags=g:slimv_tags_file
else
let &tags=g:slimv_tags_file . ',' . &tags
endif
endif
" Package/namespace handling
if !exists( 'g:slimv_package' )
let g:slimv_package = 1
endif
" General timeout for various startup and connection events (seconds)
if !exists( 'g:slimv_timeout' )
let g:slimv_timeout = 20
endif
" Use balloonexpr to display symbol description
if !exists( 'g:slimv_balloon' )
let g:slimv_balloon = 1
endif
" Shall we use simple or fuzzy completion?
if !exists( 'g:slimv_simple_compl' )
let g:slimv_simple_compl = 0
endif
" Custom <Leader> for the Slimv plugin
if !exists( 'g:slimv_leader' )
if exists( 'mapleader' ) && mapleader != ' '
let g:slimv_leader = mapleader
else
let g:slimv_leader = ','
endif
endif
" Maximum number of lines searched backwards for indenting special forms
if !exists( 'g:slimv_indent_maxlines' )
let g:slimv_indent_maxlines = 50
endif
" Special indentation for keyword lists
if !exists( 'g:slimv_indent_keylists' )
let g:slimv_indent_keylists = 1
endif
" Maximum length of the REPL buffer
if !exists( 'g:slimv_repl_max_len' )
let g:slimv_repl_max_len = 0
endif
" Shall we strip ANSI escape sequences from the REPL output?
if !exists( 'g:slimv_strip_ansi' )
let g:slimv_strip_ansi = 0
endif
" =====================================================================
" Template definitions
" =====================================================================
if !exists( 'g:slimv_template_apropos' )
if SlimvGetFiletype() =~ '.*clojure.*'
let g:slimv_template_apropos = '(find-doc "%1")'
else
let g:slimv_template_apropos = '(apropos "%1")'
endif
endif
" =====================================================================
" Other non-global script variables
" =====================================================================
let s:indent = '' " Most recent indentation info
let s:last_update = 0 " The last update time for the REPL buffer
let s:save_updatetime = &updatetime " The original value for 'updatetime'
let s:save_showmode = &showmode " The original value for 'showmode'
let s:python_initialized = 0 " Is the embedded Python initialized?
let s:swank_version = '' " SWANK server version string
let s:swank_connected = 0 " Is the SWANK server connected?
let s:swank_package = '' " Package to use at the next SWANK eval
let s:swank_package_form = '' " The entire form that was used to set current package
let s:swank_form = '' " Form to send to SWANK
let s:refresh_disabled = 0 " Set this variable temporarily to avoid recursive REPL rehresh calls
let s:sldb_level = -1 " Are we in the SWANK debugger? -1 == no, else SLDB level
let s:break_on_exception = 0 " Enable debugger break on exceptions (for ritz-swank)
let s:compiled_file = '' " Name of the compiled file
let s:win_id = 0 " Counter for generating unique window id
let s:repl_buf = -1 " Buffer number for the REPL buffer
let s:current_buf = -1 " Swank action was requested from this buffer
let s:current_win = 0 " Swank action was requested from this window
let s:read_string_mode = 0 " Read string mode indicator
let s:arglist_line = 0 " Arglist was requested in this line ...
let s:arglist_col = 0 " ... and column
let s:inspect_path = [] " Inspection path of the current object
let s:skip_sc = 'synIDattr(synID(line("."), col("."), 0), "name") =~ "[Ss]tring\\|[Cc]omment"'
" Skip matches inside string or comment
let s:skip_q = 'getline(".")[col(".")-2] == "\\"' " Skip escaped double quote characters in matches
let s:frame_def = '^\s\{0,2}\d\{1,}:' " Regular expression to match SLDB restart or frame identifier
let s:spec_indent = 'flet\|labels\|macrolet\|symbol-macrolet'
" List of symbols need special indenting
let s:spec_param = 'defmacro' " List of symbols with special parameter list
let s:binding_form = 'let\|let\*' " List of symbols with binding list
" =====================================================================
" General utility functions
" =====================================================================
" Check that current SWANK version is same or newer than the given parameter
function! s:SinceVersion( ver )
" Before ver 2.18 SWANK version string was a date of form YYYY-MM-DD
if len( a:ver ) >= 8
" Checking for old style version string YYYY-MM-DD
if len( s:swank_version ) < 8
" Current version is new style -> must be newer than the one we are checking for
return 1
endif
else
" Checking for new style version string X.XX
if len( s:swank_version ) >= 8
" Current version is old style -> must be older than the one we are checking for
return 0
endif
endif
if s:swank_version >= a:ver
return 1
else
return 0
endif
endfunction
" Display an error message
function! SlimvError( msg )
echohl ErrorMsg
echo a:msg
echohl None
endfunction
" Display an error message and a question, return user response
function! SlimvErrorAsk( msg, question )
echohl ErrorMsg
let answer = input( a:msg . a:question )
echo ""
echohl None
return answer
endfunction
" Display an error message and wait for ENTER
function! SlimvErrorWait( msg )
call SlimvErrorAsk( a:msg, " Press ENTER to continue." )
endfunction
" Shorten long messages to fit status line
function! SlimvShortEcho( msg )
let saved=&shortmess
set shortmess+=T
exe "normal! :echomsg a:msg\n"
let &shortmess=saved
endfunction
" Go to the end of buffer, make sure the cursor is positioned
" after the last character of the buffer when in insert mode
function s:EndOfBuffer()
normal! G$
if &virtualedit != 'all'
call cursor( line('$'), 99999 )
endif
endfunction
" Position the cursor at the end of the REPL buffer
" Optionally mark this position in Vim mark 's'
function! SlimvEndOfReplBuffer( force )
if line( '.' ) >= b:repl_prompt_line - 1 || a:force
" Go to the end of file only if the user did not move up from here
call s:EndOfBuffer()
endif
endfunction
" Remember the end of the REPL buffer: user may enter commands here
" Also remember the prompt, because the user may overwrite it
function! SlimvMarkBufferEnd( force )
if exists( 'b:slimv_repl_buffer' )
setlocal nomodified
call SlimvEndOfReplBuffer( a:force )
let b:repl_prompt_line = line( '$' )
let b:repl_prompt_col = len( getline('$') ) + 1
let b:repl_prompt = getline( b:repl_prompt_line )
endif
endfunction
" Get REPL prompt line. Fix stored prompt position when corrupted
" (e.g. some lines were deleted from the REPL buffer)
function! s:GetPromptLine()
if b:repl_prompt_line > line( '$' )
" Stored prompt line is corrupt
let b:repl_prompt_line = line( '$' )
let b:repl_prompt_col = len( getline('$') ) + 1
let b:repl_prompt = getline( b:repl_prompt_line )
endif
return b:repl_prompt_line
endfunction
" Generate unique window id for the current window
function s:MakeWindowId()
if g:slimv_repl_split && !exists('w:id')
let s:win_id = s:win_id + 1
let w:id = s:win_id
endif
endfunction
" Find and switch to window with the specified window id
function s:SwitchToWindow( id )
for winnr in range( 1, winnr('$') )
if getwinvar( winnr, 'id' ) is a:id
execute winnr . "wincmd w"
endif
endfor
endfunction
" Save caller buffer identification
function! SlimvBeginUpdate()
call s:MakeWindowId()
let s:current_buf = bufnr( "%" )
let s:current_win = getwinvar( winnr(), 'id' )
endfunction
" Switch to the buffer/window that was active before a swank action
function! SlimvRestoreFocus( hide_current_buf )
if exists("b:previous_buf")
let new_buf = b:previous_buf
let new_win = b:previous_win
else
let new_buf = s:current_buf
let new_win = s:current_win
endif
let buf = bufnr( "%" )
let win = getwinvar( winnr(), 'id' )
if a:hide_current_buf
set nobuflisted
b #
endif
if winnr('$') > 1 && new_win != '' && new_win != win
" Switch to the caller window
call s:SwitchToWindow( new_win )
endif
if new_buf >= 0 && buf != new_buf
" Switch to the caller buffer
execute "buf " . new_buf
endif
endfunction
" Handle response coming from the SWANK listener
function! SlimvSwankResponse()
let s:swank_ok_result = ''
let s:refresh_disabled = 1
silent execute s:py_cmd . 'swank_output(1)'
let s:refresh_disabled = 0
let s:swank_action = ''
let s:swank_result = ''
silent execute s:py_cmd . 'swank_response("")'
if s:swank_action == ':describe-symbol' && s:swank_result != ''
echo substitute(s:swank_result,'^\n*','','')
elseif s:swank_ok_result != ''
" Display the :ok result also in status bar in case the REPL buffer is not shown
let s:swank_ok_result = substitute(s:swank_ok_result,"\<LF>",'','g')
if s:swank_ok_result == ''
call SlimvShortEcho( '=> OK' )
else
call SlimvShortEcho( '=> ' . s:swank_ok_result )
endif
endif
if s:swank_actions_pending
let s:last_update = -1
elseif s:last_update < 0
" Remember the time when all actions are processed
let s:last_update = localtime()
endif
if s:swank_actions_pending == 0 && s:last_update >= 0 && s:last_update < localtime() - 2
" All SWANK output handled long ago, restore original update frequency
if &updatetime == g:slimv_updatetime
let &updatetime = s:save_updatetime
endif
else
" SWANK output still pending, keep higher update frequency
if &updatetime != g:slimv_updatetime
let s:save_updatetime = &updatetime
endif
let &updatetime = g:slimv_updatetime
endif
endfunction
" Execute the given command and write its output at the end of the REPL buffer
function! SlimvCommand( cmd )
silent execute a:cmd
if &updatetime != g:slimv_updatetime
let s:save_updatetime = &updatetime
endif
" Update more frequently until all swank responses processed
let &updatetime = g:slimv_updatetime
let s:last_update = -1
endfunction
" Execute the given SWANK command, wait for and return the response
function! SlimvCommandGetResponse( name, cmd, timeout )
let s:refresh_disabled = 1
call SlimvCommand( a:cmd )
let s:swank_action = ''
let s:swank_result = ''
let starttime = localtime()
let cmd_timeout = a:timeout
if cmd_timeout == 0
let cmd_timeout = 3
endif
while s:swank_action == '' && localtime()-starttime < cmd_timeout
execute s:py_cmd . "swank_output( 0 )"
silent execute s:py_cmd . 'swank_response("' . a:name . '")'
endwhile
let s:refresh_disabled = 0
return s:swank_result
endfunction
" Reload the contents of the REPL buffer from the output file if changed
function! SlimvRefreshReplBuffer()
if s:refresh_disabled
" Refresh is unwanted at the moment, probably another refresh is going on
return
endif
if s:repl_buf == -1
" REPL buffer not loaded
return
endif
if s:swank_connected
call SlimvSwankResponse()
endif
if exists("s:input_prompt") && s:input_prompt != ''
let answer = input( s:input_prompt )
unlet s:input_prompt
echo ""
call SlimvCommand( s:py_cmd . 'swank_return("' . answer . '")' )
endif
endfunction
" This function re-triggers the CursorHold event
" after refreshing the REPL buffer
function! SlimvTimer()
if v:count > 0
" Skip refreshing if the user started a command prefixed with a count
return
endif
" We don't want autocommands trigger during the quick switch to/from the REPL buffer
noautocmd call SlimvRefreshReplBuffer()
if mode() == 'i' || mode() == 'I' || mode() == 'r' || mode() == 'R'
if bufname('%') != g:slimv_sldb_name && bufname('%') != g:slimv_inspect_name && bufname('%') != g:slimv_threads_name
" Put '<Insert>' twice into the typeahead buffer, which should not do anything
" just switch to replace/insert mode then back to insert/replace mode
" But don't do this for readonly buffers
call feedkeys("\<insert>\<insert>")
endif
else
" Put an incomplete 'f' command and an Esc into the typeahead buffer
call feedkeys("f\e", 'n')
endif
endfunction
" Switch refresh mode on:
" refresh REPL buffer on frequent Vim events
function! SlimvRefreshModeOn()
augroup SlimvCursorHold
au!
execute "au CursorHold * :call SlimvTimer()"
execute "au CursorHoldI * :call SlimvTimer()"
augroup END
endfunction
" Switch refresh mode off
function! SlimvRefreshModeOff()
augroup SlimvCursorHold
au!
augroup END
endfunction
" Called when entering REPL buffer
function! SlimvReplEnter()
call SlimvAddReplMenu()
augroup SlimvReplChanged
au!
execute "au FileChangedRO " . g:slimv_repl_name . " :call SlimvRefreshModeOff()"
augroup END
call SlimvRefreshModeOn()
endfunction
" Called when leaving REPL buffer
function! SlimvReplLeave()
try
" Check if REPL menu exists, then remove it
aunmenu REPL
execute ':unmap ' . g:slimv_leader . '\'
catch
" REPL menu not found, we cannot remove it
endtry
if g:slimv_repl_split
call SlimvRefreshModeOn()
else
call SlimvRefreshModeOff()
endif
endfunction
" Refresh cursor position in the REPL buffer after new lines appended
function! SlimvReplSetCursorPos( force )
" We do not want these autocommands to fire, the buffer switch will be temporary
let savemark = getpos("'`'")
let save_ei = &eventignore
set eventignore=BufEnter,BufLeave,BufWinEnter
let win = winnr()
windo call SlimvMarkBufferEnd( a:force )
execute win . "wincmd w"
let &eventignore = save_ei
call setpos("'`", savemark)
endfunction
" View the given file in a top/bottom/left/right split window
function! s:SplitView( filename )
" Check if we have at least two windows used by slimv (have a window id assigned)
let winnr1 = 0
let winnr2 = 0
for winnr in range( 1, winnr('$') )
if getwinvar( winnr, 'id' ) != ''
let winnr2 = winnr1
let winnr1 = winnr
endif
endfor
" create a unique buffer name that does not collide with any file or directory name
let bname = a:filename
let i = 0
while filereadable(bname) || isdirectory(bname)
let i = i+1
let bname = a:filename . i
endwhile
if winnr1 > 0 && winnr2 > 0
" We have already at least two windows used by slimv
let winid = getwinvar( winnr(), 'id' )
if bufnr("%") == s:current_buf && winid == s:current_win
" Keep the current window on screen, use the other window for the new buffer
if winnr1 != winnr()
execute winnr1 . "wincmd w"
else
execute winnr2 . "wincmd w"
endif
endif
execute "silent view! " . bname
else
" Generate unique window id for the old window if not yet done
call s:MakeWindowId()
" No windows yet, need to split
if g:slimv_repl_split == 1
execute "silent topleft " . g:slimv_repl_split_size . "sview! " . bname
elseif g:slimv_repl_split == 2
execute "silent botright " . g:slimv_repl_split_size . "sview! " . bname
elseif g:slimv_repl_split == 3
execute "silent topleft vertical " . g:slimv_repl_split_size . "sview! " . bname
elseif g:slimv_repl_split == 4
execute "silent botright vertical " . g:slimv_repl_split_size . "sview! " . bname
else
execute "silent view! " . bname
endif
" Generate unique window id for the new window as well
call s:MakeWindowId()
endif
stopinsert
endfunction
" Open a buffer with the given name if not yet open, and switch to it
function! SlimvOpenBuffer( name )
let buf = bufnr( '^' . a:name . '$' )
if buf == -1
" Create a new buffer
call s:SplitView( a:name )
else
if g:slimv_repl_split
" Buffer is already created. Check if it is open in a window
let win = bufwinnr( buf )
if win == -1
" Create windows
call s:SplitView( a:name )
else
" Switch to the buffer's window
if winnr() != win
execute win . "wincmd w"
endif
endif
else
execute "buffer " . buf
stopinsert
endif
endif
if s:current_buf != bufnr( "%" )
" Keep track of the previous buffer and window
let b:previous_buf = s:current_buf
let b:previous_win = s:current_win
endif
setlocal buftype=nofile
setlocal noswapfile
setlocal modifiable
endfunction
" Go to the end of the screen line
function s:EndOfScreenLine()
if len(getline('.')) < &columns
" g$ moves the cursor to the rightmost column if virtualedit=all
normal! $
else
normal! g$
endif
endfunction
" Set special syntax rules for the REPL buffer
function! SlimvSetSyntaxRepl()
if SlimvGetFiletype() == 'scheme'
syn cluster replListCluster contains=@schemeListCluster,lispList
else
syn cluster replListCluster contains=@lispListCluster
endif
if exists("g:lisp_rainbow") && g:lisp_rainbow != 0
if &bg == "dark"
hi def hlLevel0 ctermfg=red guifg=red1
hi def hlLevel1 ctermfg=yellow guifg=orange1
hi def hlLevel2 ctermfg=green guifg=yellow1
hi def hlLevel3 ctermfg=cyan guifg=greenyellow
hi def hlLevel4 ctermfg=magenta guifg=green1
hi def hlLevel5 ctermfg=red guifg=springgreen1
hi def hlLevel6 ctermfg=yellow guifg=cyan1
hi def hlLevel7 ctermfg=green guifg=slateblue1
hi def hlLevel8 ctermfg=cyan guifg=magenta1
hi def hlLevel9 ctermfg=magenta guifg=purple1
else
hi def hlLevel0 ctermfg=red guifg=red3
hi def hlLevel1 ctermfg=darkyellow guifg=orangered3
hi def hlLevel2 ctermfg=darkgreen guifg=orange2
hi def hlLevel3 ctermfg=blue guifg=yellow3
hi def hlLevel4 ctermfg=darkmagenta guifg=olivedrab4
hi def hlLevel5 ctermfg=red guifg=green4
hi def hlLevel6 ctermfg=darkyellow guifg=paleturquoise3
hi def hlLevel7 ctermfg=darkgreen guifg=deepskyblue4
hi def hlLevel8 ctermfg=blue guifg=darkslateblue
hi def hlLevel9 ctermfg=darkmagenta guifg=darkviolet
endif
if SlimvGetFiletype() =~ '.*\(clojure\|scheme\|racket\).*'
syn region lispParen9 matchgroup=hlLevel9 start="`\=(" matchgroup=hlLevel9 end=")" matchgroup=replPrompt end="^\S\+>" contains=TOP,@Spell
syn region lispParen0 matchgroup=hlLevel8 start="`\=(" end=")" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=TOP,lispParen0,lispParen1,lispParen2,lispParen3,lispParen4,lispParen5,lispParen6,lispParen7,lispParen8,NoInParens
syn region lispParen1 matchgroup=hlLevel7 start="`\=(" end=")" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=TOP,lispParen1,lispParen2,lispParen3,lispParen4,lispParen5,lispParen6,lispParen7,lispParen8,NoInParens
syn region lispParen2 matchgroup=hlLevel6 start="`\=(" end=")" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=TOP,lispParen2,lispParen3,lispParen4,lispParen5,lispParen6,lispParen7,lispParen8,NoInParens
syn region lispParen3 matchgroup=hlLevel5 start="`\=(" end=")" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=TOP,lispParen3,lispParen4,lispParen5,lispParen6,lispParen7,lispParen8,NoInParens
syn region lispParen4 matchgroup=hlLevel4 start="`\=(" end=")" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=TOP,lispParen4,lispParen5,lispParen6,lispParen7,lispParen8,NoInParens
syn region lispParen5 matchgroup=hlLevel3 start="`\=(" end=")" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=TOP,lispParen5,lispParen6,lispParen7,lispParen8,NoInParens
syn region lispParen6 matchgroup=hlLevel2 start="`\=(" end=")" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=TOP,lispParen6,lispParen7,lispParen8,NoInParens
syn region lispParen7 matchgroup=hlLevel1 start="`\=(" end=")" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=TOP,lispParen7,lispParen8,NoInParens
syn region lispParen8 matchgroup=hlLevel0 start="`\=(" end=")" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=TOP,lispParen8,NoInParens
syn region lispParen9 matchgroup=hlLevel9 start="`\=\[" matchgroup=hlLevel9 end="\]" matchgroup=replPrompt end="^\S\+>" contains=TOP,@Spell
syn region lispParen0 matchgroup=hlLevel8 start="`\=\[" end="\]" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=TOP,lispParen0,lispParen1,lispParen2,lispParen3,lispParen4,lispParen5,lispParen6,lispParen7,lispParen8,NoInParens
syn region lispParen1 matchgroup=hlLevel7 start="`\=\[" end="\]" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=TOP,lispParen1,lispParen2,lispParen3,lispParen4,lispParen5,lispParen6,lispParen7,lispParen8,NoInParens
syn region lispParen2 matchgroup=hlLevel6 start="`\=\[" end="\]" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=TOP,lispParen2,lispParen3,lispParen4,lispParen5,lispParen6,lispParen7,lispParen8,NoInParens
syn region lispParen3 matchgroup=hlLevel5 start="`\=\[" end="\]" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=TOP,lispParen3,lispParen4,lispParen5,lispParen6,lispParen7,lispParen8,NoInParens
syn region lispParen4 matchgroup=hlLevel4 start="`\=\[" end="\]" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=TOP,lispParen4,lispParen5,lispParen6,lispParen7,lispParen8,NoInParens
syn region lispParen5 matchgroup=hlLevel3 start="`\=\[" end="\]" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=TOP,lispParen5,lispParen6,lispParen7,lispParen8,NoInParens
syn region lispParen6 matchgroup=hlLevel2 start="`\=\[" end="\]" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=TOP,lispParen6,lispParen7,lispParen8,NoInParens
syn region lispParen7 matchgroup=hlLevel1 start="`\=\[" end="\]" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=TOP,lispParen7,lispParen8,NoInParens
syn region lispParen8 matchgroup=hlLevel0 start="`\=\[" end="\]" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=TOP,lispParen8,NoInParens
syn region lispParen9 matchgroup=hlLevel9 start="`\={" matchgroup=hlLevel9 end="}" matchgroup=replPrompt end="^\S\+>" contains=TOP,@Spell
syn region lispParen0 matchgroup=hlLevel8 start="`\={" end="}" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=TOP,lispParen0,lispParen1,lispParen2,lispParen3,lispParen4,lispParen5,lispParen6,lispParen7,lispParen8,NoInParens
syn region lispParen1 matchgroup=hlLevel7 start="`\={" end="}" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=TOP,lispParen1,lispParen2,lispParen3,lispParen4,lispParen5,lispParen6,lispParen7,lispParen8,NoInParens
syn region lispParen2 matchgroup=hlLevel6 start="`\={" end="}" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=TOP,lispParen2,lispParen3,lispParen4,lispParen5,lispParen6,lispParen7,lispParen8,NoInParens
syn region lispParen3 matchgroup=hlLevel5 start="`\={" end="}" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=TOP,lispParen3,lispParen4,lispParen5,lispParen6,lispParen7,lispParen8,NoInParens
syn region lispParen4 matchgroup=hlLevel4 start="`\={" end="}" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=TOP,lispParen4,lispParen5,lispParen6,lispParen7,lispParen8,NoInParens
syn region lispParen5 matchgroup=hlLevel3 start="`\={" end="}" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=TOP,lispParen5,lispParen6,lispParen7,lispParen8,NoInParens
syn region lispParen6 matchgroup=hlLevel2 start="`\={" end="}" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=TOP,lispParen6,lispParen7,lispParen8,NoInParens
syn region lispParen7 matchgroup=hlLevel1 start="`\={" end="}" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=TOP,lispParen7,lispParen8,NoInParens
syn region lispParen8 matchgroup=hlLevel0 start="`\={" end="}" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=TOP,lispParen8,NoInParens
else
syn region lispParen0 matchgroup=hlLevel0 start="`\=(" skip="|.\{-}|" end=")" matchgroup=replPrompt end="^\S\+>" contains=@replListCluster,lispParen1,replPrompt
syn region lispParen1 contained matchgroup=hlLevel1 start="`\=(" skip="|.\{-}|" end=")" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=@replListCluster,lispParen2
syn region lispParen2 contained matchgroup=hlLevel2 start="`\=(" skip="|.\{-}|" end=")" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=@replListCluster,lispParen3
syn region lispParen3 contained matchgroup=hlLevel3 start="`\=(" skip="|.\{-}|" end=")" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=@replListCluster,lispParen4
syn region lispParen4 contained matchgroup=hlLevel4 start="`\=(" skip="|.\{-}|" end=")" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=@replListCluster,lispParen5
syn region lispParen5 contained matchgroup=hlLevel5 start="`\=(" skip="|.\{-}|" end=")" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=@replListCluster,lispParen6
syn region lispParen6 contained matchgroup=hlLevel6 start="`\=(" skip="|.\{-}|" end=")" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=@replListCluster,lispParen7
syn region lispParen7 contained matchgroup=hlLevel7 start="`\=(" skip="|.\{-}|" end=")" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=@replListCluster,lispParen8
syn region lispParen8 contained matchgroup=hlLevel8 start="`\=(" skip="|.\{-}|" end=")" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=@replListCluster,lispParen9
syn region lispParen9 contained matchgroup=hlLevel9 start="`\=(" skip="|.\{-}|" end=")" matchgroup=replPrompt end="^\S\+>"me=s-1,re=s-1 contains=@replListCluster,lispParen0
endif
else
if SlimvGetFiletype() !~ '.*clojure.*'
syn region lispList matchgroup=Delimiter start="(" skip="|.\{-}|" end=")" matchgroup=replPrompt end="^\S\+>" contains=@replListCluster
syn region lispBQList matchgroup=PreProc start="`(" skip="|.\{-}|" end=")" matchgroup=replPrompt end="^\S\+>" contains=@replListCluster
endif
endif
syn match replPrompt /^[^(]\S\+>/
syn match replPrompt /^(\S\+)>/
hi def link replPrompt Type
endfunction
" Open a new REPL buffer
function! SlimvOpenReplBuffer()
call SlimvOpenBuffer( g:slimv_repl_name )
setlocal noreadonly
let s:repl_buf = bufnr( "%" )
let b:slimv_repl_buffer = 1
call SlimvInitRepl()
if g:slimv_repl_syntax
call SlimvSetSyntaxRepl()
else
set syntax=
endif
" Prompt and its line and column number in the REPL buffer
if !exists( 'b:repl_prompt' )
let b:repl_prompt = ''
let b:repl_prompt_line = 1
let b:repl_prompt_col = 1
endif
" Add keybindings valid only for the REPL buffer
inoremap <buffer> <silent> <C-CR> <End><C-O>:call SlimvSendCommand(1)<CR><End>
inoremap <buffer> <silent> <C-C> <C-O>:call SlimvInterrupt()<CR>
inoremap <buffer> <silent> <expr> <C-W> SlimvHandleCW()
if g:slimv_repl_simple_eval
inoremap <buffer> <silent> <CR> <C-R>=pumvisible() ? "\<lt>C-Y>" : "\<lt>End>\<lt>C-O>:call SlimvSendCommand(0)\<lt>CR>\<lt>End>"<CR>
inoremap <buffer> <silent> <Up> <C-R>=pumvisible() ? "\<lt>Up>" : SlimvHandleUp()<CR>
inoremap <buffer> <silent> <Down> <C-R>=pumvisible() ? "\<lt>Down>" : SlimvHandleDown()<CR>
else
inoremap <buffer> <silent> <CR> <C-R>=pumvisible() ? "\<lt>C-Y>" : SlimvHandleEnterRepl()<CR><C-R>=SlimvArglistOnEnter()<CR>
inoremap <buffer> <silent> <C-Up> <C-R>=pumvisible() ? "\<lt>Up>" : SlimvHandleUp()<CR>
inoremap <buffer> <silent> <C-Down> <C-R>=pumvisible() ? "\<lt>Down>" : SlimvHandleDown()<CR>
endif
if exists( 'g:paredit_loaded' )
inoremap <buffer> <silent> <expr> <BS> PareditBackspace(1)
else
inoremap <buffer> <silent> <expr> <BS> SlimvHandleBS()
endif
if g:slimv_keybindings == 1
execute 'noremap <buffer> <silent> ' . g:slimv_leader.'. :call SlimvSendCommand(0)<CR>'
execute 'noremap <buffer> <silent> ' . g:slimv_leader.'/ :call SlimvSendCommand(1)<CR>'
execute 'noremap <buffer> <silent> ' . g:slimv_leader.'<Up> :call SlimvPreviousCommand()<CR>'
execute 'noremap <buffer> <silent> ' . g:slimv_leader.'<Down> :call SlimvNextCommand()<CR>'
elseif g:slimv_keybindings == 2
execute 'noremap <buffer> <silent> ' . g:slimv_leader.'rs :call SlimvSendCommand(0)<CR>'
execute 'noremap <buffer> <silent> ' . g:slimv_leader.'ro :call SlimvSendCommand(1)<CR>'
execute 'noremap <buffer> <silent> ' . g:slimv_leader.'rp :call SlimvPreviousCommand()<CR>'
execute 'noremap <buffer> <silent> ' . g:slimv_leader.'rn :call SlimvNextCommand()<CR>'
endif
if g:slimv_repl_wrap
inoremap <buffer> <silent> <Home> <C-O>g<Home>
inoremap <buffer> <silent> <End> <C-O>:call <SID>EndOfScreenLine()<CR>
noremap <buffer> <silent> <Up> gk
noremap <buffer> <silent> <Down> gj
noremap <buffer> <silent> <Home> g<Home>
noremap <buffer> <silent> <End> :call <SID>EndOfScreenLine()<CR>
noremap <buffer> <silent> k gk
noremap <buffer> <silent> j gj
noremap <buffer> <silent> 0 g0
noremap <buffer> <silent> $ :call <SID>EndOfScreenLine()<CR>
setlocal wrap
endif
hi SlimvNormal term=none cterm=none gui=none
hi SlimvCursor term=reverse cterm=reverse gui=reverse
augroup SlimvReplAutoCmd
au!
" Add autocommands specific to the REPL buffer
execute "au FileChangedShell " . g:slimv_repl_name . " :call SlimvRefreshReplBuffer()"
execute "au FocusGained " . g:slimv_repl_name . " :call SlimvRefreshReplBuffer()"
execute "au BufEnter " . g:slimv_repl_name . " :call SlimvReplEnter()"
execute "au BufLeave " . g:slimv_repl_name . " :call SlimvReplLeave()"
execute "au BufWinEnter " . g:slimv_repl_name . " :call SlimvMarkBufferEnd(1)"
execute "au TabEnter *" . " :call SlimvReplSetCursorPos(1)"
augroup END
call SlimvRefreshReplBuffer()
endfunction
" Clear the contents of the REPL buffer, keeping the last prompt only
function! SlimvClearReplBuffer()
let this_buf = bufnr( "%" )
if s:repl_buf == -1
call SlimvError( "There is no REPL buffer." )
return
endif
if this_buf != s:repl_buf
let oldpos = winsaveview()
execute "buf " . s:repl_buf
endif
if b:repl_prompt_line > 1
execute "normal! gg0d" . (b:repl_prompt_line-1) . "GG$"
let b:repl_prompt_line = 1
endif
if this_buf != s:repl_buf
execute "buf " . this_buf
call winrestview( oldpos )
endif
endfunction
" Open a new Inspect buffer
function SlimvOpenInspectBuffer()
call SlimvOpenBuffer( g:slimv_inspect_name )
let b:range_start = 0
let b:range_end = 0
let b:help = SlimvHelpInspect()
" Add keybindings valid only for the Inspect buffer
noremap <buffer> <silent> <F1> :call SlimvToggleHelp()<CR>
noremap <buffer> <silent> <CR> :call SlimvHandleEnterInspect()<CR>
noremap <buffer> <silent> <Backspace> :call SlimvSendSilent(['[-1]'])<CR>
execute 'noremap <buffer> <silent> ' . g:slimv_leader.'q :call SlimvQuitInspect(1)<CR>'
if version < 703
" conceal mechanism is defined since Vim 7.3
syn region inspectItem matchgroup=Ignore start="{\[\d\+\]\s*" end="\[]}"
syn region inspectAction matchgroup=Ignore start="{<\d\+>\s*" end="<>}"
else
syn region inspectItem matchgroup=Ignore start="{\[\d\+\]\s*" end="\[]}" concealends
syn region inspectAction matchgroup=Ignore start="{<\d\+>\s*" end="<>}" concealends
setlocal conceallevel=3 concealcursor=nc
endif
hi def link inspectItem Special
hi def link inspectAction String
syn match Special /^\[<<\].*$/
syn match Special /^\[--....--\]$/
endfunction
" Open a new Threads buffer
function SlimvOpenThreadsBuffer()
call SlimvOpenBuffer( g:slimv_threads_name )
let b:help = SlimvHelpThreads()
" Add keybindings valid only for the Threads buffer
"noremap <buffer> <silent> <CR> :call SlimvHandleEnterThreads()<CR>
noremap <buffer> <silent> <F1> :call SlimvToggleHelp()<CR>
noremap <buffer> <silent> <Backspace> :call SlimvKillThread()<CR>
execute 'noremap <buffer> <silent> ' . g:slimv_leader.'r :call SlimvListThreads()<CR>'
execute 'noremap <buffer> <silent> ' . g:slimv_leader.'d :call SlimvDebugThread()<CR>'
execute 'noremap <buffer> <silent> ' . g:slimv_leader.'k :call SlimvKillThread()<CR>'
execute 'noremap <buffer> <silent> ' . g:slimv_leader.'q :call SlimvQuitThreads()<CR>'
endfunction
" Open a new SLDB buffer
function SlimvOpenSldbBuffer()
call SlimvOpenBuffer( g:slimv_sldb_name )
" Add keybindings valid only for the SLDB buffer
noremap <buffer> <silent> <CR> :call SlimvHandleEnterSldb()<CR>
if g:slimv_keybindings == 1
execute 'noremap <buffer> <silent> ' . g:slimv_leader.'a :call SlimvDebugAbort()<CR>'
execute 'noremap <buffer> <silent> ' . g:slimv_leader.'q :call SlimvDebugQuit()<CR>'
execute 'noremap <buffer> <silent> ' . g:slimv_leader.'n :call SlimvDebugContinue()<CR>'
execute 'noremap <buffer> <silent> ' . g:slimv_leader.'N :call SlimvDebugRestartFrame()<CR>'
execute 'noremap <buffer> <silent> ' . g:slimv_leader.'si :call SlimvDebugStepInto()<CR>'
execute 'noremap <buffer> <silent> ' . g:slimv_leader.'sn :call SlimvDebugStepNext()<CR>'
execute 'noremap <buffer> <silent> ' . g:slimv_leader.'so :call SlimvDebugStepOut()<CR>'
elseif g:slimv_keybindings == 2
execute 'noremap <buffer> <silent> ' . g:slimv_leader.'da :call SlimvDebugAbort()<CR>'
execute 'noremap <buffer> <silent> ' . g:slimv_leader.'dq :call SlimvDebugQuit()<CR>'
execute 'noremap <buffer> <silent> ' . g:slimv_leader.'dn :call SlimvDebugContinue()<CR>'
execute 'noremap <buffer> <silent> ' . g:slimv_leader.'dr :call SlimvDebugRestartFrame()<CR>'
execute 'noremap <buffer> <silent> ' . g:slimv_leader.'si :call SlimvDebugStepInto()<CR>'
execute 'noremap <buffer> <silent> ' . g:slimv_leader.'sn :call SlimvDebugStepNext()<CR>'
execute 'noremap <buffer> <silent> ' . g:slimv_leader.'so :call SlimvDebugStepOut()<CR>'
endif
" Set folding parameters
setlocal foldmethod=marker
setlocal foldmarker={{{,}}}
setlocal foldtext=substitute(getline(v:foldstart),'{{{','','')
call s:SetKeyword()
if g:slimv_sldb_wrap
setlocal wrap
endif
if version < 703
" conceal mechanism is defined since Vim 7.3
syn match Ignore /{{{/
syn match Ignore /}}}/
else
setlocal conceallevel=3 concealcursor=nc
syn match Comment /{{{/ conceal
syn match Comment /}}}/ conceal
endif
syn match Type /^\s\{0,2}\d\{1,3}:/
syn match Type /^\s\+in "\(.*\)" \(line\|byte\) \(\d\+\)$/
endfunction
" End updating an otherwise readonly buffer
function SlimvEndUpdate()
setlocal nomodifiable
setlocal nomodified
endfunction
" Quit Inspector
function SlimvQuitInspect( force )
" Clear the contents of the Inspect buffer
if exists( 'b:inspect_pos' )
unlet b:inspect_pos
endif
setlocal modifiable
silent! %d _
call SlimvEndUpdate()
if a:force
call SlimvCommand( s:py_cmd . 'swank_quit_inspector()' )
endif
call SlimvRestoreFocus(1)
endfunction
" Quit Threads
function SlimvQuitThreads()
" Clear the contents of the Threads buffer
setlocal modifiable
silent! %d _
call SlimvEndUpdate()
call SlimvRestoreFocus(1)
endfunction
" Quit Sldb
function SlimvQuitSldb()
" Clear the contents of the Sldb buffer
setlocal modifiable
silent! %d _
call SlimvEndUpdate()
call SlimvRestoreFocus(1)
endfunction
" Create help text for Inspect buffer
function SlimvHelpInspect()
let help = []
call add( help, '<F1> : toggle this help' )
call add( help, '<Enter> : open object or select action under cursor' )
call add( help, '<Backspace> : go back to previous object' )
call add( help, g:slimv_leader . 'q : quit' )
return help
endfunction
" Create help text for Threads buffer
function SlimvHelpThreads()
let help = []
call add( help, '<F1> : toggle this help' )
call add( help, '<Backspace> : kill thread' )
call add( help, g:slimv_leader . 'k : kill thread' )
call add( help, g:slimv_leader . 'd : debug thread' )
call add( help, g:slimv_leader . 'r : refresh' )
call add( help, g:slimv_leader . 'q : quit' )
return help
endfunction
" Write help text to current buffer at given line
function SlimvHelp( line )
setlocal modifiable
if exists( 'b:help_shown' )
let help = b:help
else
let help = ['Press <F1> for Help']
endif
let b:help_line = a:line
call append( b:help_line, help )
endfunction
" Toggle help
function SlimvToggleHelp()
if exists( 'b:help_shown' )
let lines = len( b:help )
unlet b:help_shown
else
let lines = 1
let b:help_shown = 1
endif
setlocal modifiable
execute ":" . (b:help_line+1) . "," . (b:help_line+lines) . "d"
call SlimvHelp( b:help_line )
call SlimvEndUpdate()
endfunction
" Open SLDB buffer and place cursor on the given frame
function SlimvGotoFrame( frame )
call SlimvOpenSldbBuffer()
let bcktrpos = search( '^Backtrace:', 'bcnw' )
let line = getline( '.' )
let item = matchstr( line, '^\s*' . a:frame . ':' )
if item != '' && line('.') > bcktrpos
" Already standing on the frame
return
endif
" Must locate the frame starting from the 'Backtrace:' string
call search( '^Backtrace:', 'bcw' )
call search( '^\s*' . a:frame . ':', 'w' )
endfunction
" Set 'iskeyword' option depending on file type
function! s:SetKeyword()
let old_value = &iskeyword
if match(old_value, '\^$') >= 0
" remove trailing ^ because it will be added as chr 94
setlocal iskeyword-=^
endif
if SlimvGetFiletype() =~ '.*\(clojure\|scheme\|racket\).*'
setlocal iskeyword+=+,-,*,/,%,<,=,>,:,$,?,!,@-@,94,~,#,\|,&
else
setlocal iskeyword+=+,-,*,/,%,<,=,>,:,$,?,!,@-@,94,~,#,\|,&,.,{,},[,]
endif
endfunction
" Select symbol under cursor and return it
function! SlimvSelectSymbol()
call s:SetKeyword()
let oldpos = winsaveview()
if col('.') > 1 && getline('.')[col('.')-1] =~ '\s'
normal! h
endif
let symbol = expand('<cword>')
call winrestview( oldpos )
return symbol
endfunction
" Select symbol with possible prefixes under cursor and return it
function! SlimvSelectSymbolExt()
let save_iskeyword = &iskeyword
call s:SetKeyword()
setlocal iskeyword+='
let symbol = expand('<cword>')
let &iskeyword = save_iskeyword
return symbol
endfunction
" Find the matching pair
function! SlimvFindMatchingPair()
let c = col( '.' ) - 1
let firstchar = getline( '.' )[c]
while c < len( getline( '.' ) ) && getline( '.' )[c] !~ '(\|)\|\[\|\]\|{\|}'
normal! l
let c = c + 1
endwhile
if getline( '.' )[c] =~ '(\|\[\|{'
call searchpair( '(', '', ')', 'W', s:skip_sc )
else
call searchpair( '(', '', ')', 'bW', s:skip_sc )
endif
endfunction
" Select bottom level form the cursor is inside and copy it to register 's'
function! SlimvSelectForm( extended )
if SlimvGetFiletype() == 'r'
silent! normal va(
silent! normal "sY
return 1
endif
" Search the opening '(' if we are standing on a special form prefix character
let c = col( '.' ) - 1
let firstchar = getline( '.' )[c]
while c < len( getline( '.' ) ) && match( "'`#", getline( '.' )[c] ) >= 0
normal! l
let c = c + 1
endwhile
" select the whole form
" if firstchar != '('
if getline( '.' )[c] != '('
call searchpair( '(', '', ')', 'bW', s:skip_sc )
endif
silent! normal v
call searchpair( '(', '', ')', 'W', s:skip_sc )
if &selection == 'exclusive'
silent! normal l
endif
let p1 = getpos('.')
normal! o
let p2 = getpos('.')
if firstchar != '(' && p1[1] == p2[1] && (p1[2] == p2[2] || p1[2] == p2[2]+1)
" Empty selection and no paren found, select current word instead
normal! vvaw
elseif a:extended || firstchar != '('
" Handle '() or #'() etc. type special syntax forms (but stop at prompt)
let c = col( '.' ) - 2
while c >= 0 && match( ' \t()>', getline( '.' )[c] ) < 0
normal! h
let c = c - 1
endwhile
endif
silent normal! "sy
let sel = SlimvGetSelection()
if sel == ''
call SlimvError( "Form is empty." )
return 0
elseif sel == '(' || sel == '[' || sel == '{'
call SlimvError( "Form is unbalanced." )
return 0
else
return 1
endif
endfunction
" Find starting '(' of a top level form
function! SlimvFindDefunStart()
let l = line( '.' )
let matchb = max( [l-200, 1] )
if SlimvGetFiletype() == 'r'
while searchpair( '(', '', ')', 'bW', s:skip_sc, matchb ) || searchpair( '{', '', '}', 'bW', s:skip_sc, matchb ) || searchpair( '\[', '', '\]', 'bW', s:skip_sc, matchb )
endwhile
else
while searchpair( '(', '', ')', 'bW', s:skip_sc, matchb )
endwhile
endif
endfunction
" Select top level form the cursor is inside and copy it to register 's'
function! SlimvSelectDefun()
call SlimvFindDefunStart()
if SlimvGetFiletype() == 'r'
" The cursor must be on the enclosing paren character
silent! normal v%"sY
return 1
else
return SlimvSelectForm( 1 )
endif
endfunction
" Return the contents of register 's'
function! SlimvGetSelection()
return getreg( 's' )
endfunction
" Find language specific package/namespace definition backwards
" Set it as the current package for the next swank action
function! SlimvFindPackage()
if !g:slimv_package || SlimvGetFiletype() == 'scheme'
return
endif
let oldpos = winsaveview()
let save_ic = &ignorecase
set ignorecase
if SlimvGetFiletype() =~ '.*clojure.*'
let string = '\(in-ns\|ns\)'
else
let string = '\(cl:\|common-lisp:\|\)in-package'
endif
let found = 0
let searching = search( '(\s*' . string . '\s', 'bcW' )
while searching
" Search for the previos occurrence
if synIDattr( synID( line('.'), col('.'), 0), 'name' ) !~ '[Ss]tring\|[Cc]omment'
" It is not inside a comment or string
let found = 1
break
endif
let searching = search( '(\s*' . string . '\s', 'bW' )
endwhile
if found
" Find the package name with all folds open
normal! zn
silent normal! w
let l:package_command = expand('<cword>')
silent normal! w
let l:packagename_tokens = split(expand('<cWORD>'),')\|\s')
normal! zN
if l:packagename_tokens != []
" Remove quote character from package name
let s:swank_package = substitute( l:packagename_tokens[0], "'", '', '' )
let s:swank_package_form = "(" . l:package_command . " " . l:packagename_tokens[0] . ")\n"
else
let s:swank_package = ''
let s:swank_package_form = ''
endif
endif
let &ignorecase = save_ic
call winrestview( oldpos )
endfunction
" Execute the given SWANK command with current package defined
function! SlimvCommandUsePackage( cmd )
call SlimvFindPackage()
let s:refresh_disabled = 1
call SlimvCommand( a:cmd )
let s:swank_package = ''
let s:swank_package_form = ''
let s:refresh_disabled = 0
call SlimvRefreshReplBuffer()
endfunction
" Initialize embedded Python and connect to SWANK server
function! SlimvConnectSwank()
if !s:python_initialized
if ( s:py_cmd == 'python3 ' && ! has('python3') ) ||
\ ( s:py_cmd == 'python ' && ! has('python' ) )
call SlimvErrorWait( 'Vim is compiled without the Python feature or Python is not installed. Unable to run SWANK client.' )
return 0
endif
execute s:py_cmd . 'import vim'
execute s:pyfile_cmd . g:swank_path
let s:python_initialized = 1
endif
if !s:swank_connected
let s:swank_version = ''
let s:lisp_version = ''
if g:swank_host == ''
let g:swank_host = input( 'Swank server host name: ', 'localhost' )
endif
execute s:py_cmd . 'swank_connect("' . g:swank_host . '", ' . g:swank_port . ', "result" )'
if result != '' && ( g:swank_host == 'localhost' || g:swank_host == '127.0.0.1' )
" SWANK server is not running, start server if possible
let swank = SlimvSwankCommand()
if swank != ''
redraw
echon "\rStarting SWANK server..."
silent execute swank
let starttime = localtime()
while result != '' && localtime()-starttime < g:slimv_timeout
sleep 500m
execute s:py_cmd . 'swank_connect("' . g:swank_host . '", ' . g:swank_port . ', "result" )'
endwhile
redraw!
endif
endif
if result != ''
" Display connection error message
call SlimvErrorWait( result )
return 0
endif
" Connected to SWANK server
redraw
echon "\rGetting SWANK connection info..."
let starttime = localtime()
while s:swank_version == '' && localtime()-starttime < g:slimv_timeout
call SlimvSwankResponse()
endwhile
" Require some contribs
let contribs = 'swank-presentations swank-fancy-inspector swank-c-p-c swank-arglists'
if SlimvGetFiletype() == 'lisp'
let contribs = 'swank-asdf swank-package-fu ' . contribs
endif
if g:slimv_simple_compl == 0
let contribs = contribs . ' swank-fuzzy'
endif
execute s:py_cmd . "swank_require('(" . contribs . ")')"
call SlimvSwankResponse()
if s:SinceVersion( '2011-12-04' )
execute s:py_cmd . "swank_require('swank-repl')"
call SlimvSwankResponse()
endif
if s:SinceVersion( '2008-12-23' )
call SlimvCommandGetResponse( ':create-repl', s:py_cmd . 'swank_create_repl()', g:slimv_timeout )
endif
let s:swank_connected = 1
redraw
echon "\rConnected to SWANK server on port " . g:swank_port . "."
if exists( "g:swank_block_size" ) && SlimvGetFiletype() == 'lisp'
" Override SWANK connection output buffer size
if s:SinceVersion( '2014-09-08' )
let cmd = "(progn (setf (slot-value (swank::connection.user-output swank::*emacs-connection*) 'swank/gray::buffer)"
else
let cmd = "(progn (setf (slot-value (swank::connection.user-output swank::*emacs-connection*) 'swank-backend::buffer)"
endif
let cmd = cmd . " (make-string " . g:swank_block_size . ")) nil)"
call SlimvSend( [cmd], 0, 1 )
endif
if exists( "*SlimvReplInit" )
" Perform implementation specific REPL initialization if supplied
call SlimvReplInit( s:lisp_version )
endif
endif
return s:swank_connected
endfunction
" Send argument to Lisp server for evaluation
function! SlimvSend( args, echoing, output )
if ! SlimvConnectSwank()
return
endif
" Send the lines to the client for evaluation
let text = join( a:args, "\n" ) . "\n"
let s:refresh_disabled = 1
let s:swank_form = text
if a:echoing && g:slimv_echolines != 0
if g:slimv_echolines > 0
let nlpos = match( s:swank_form, "\n", 0, g:slimv_echolines )
if nlpos > 0
" Echo only the first g:slimv_echolines number of lines
let trimmed = strpart( s:swank_form, nlpos )
let s:swank_form = strpart( s:swank_form, 0, nlpos )
let ending = s:CloseForm( s:swank_form )
if ending != 'ERROR'
if substitute( trimmed, '\s\|\n', '', 'g' ) == ''
" Only whitespaces are trimmed
let s:swank_form = s:swank_form . ending . "\n"
else
" Valuable characters trimmed, indicate it by printing "..."
let s:swank_form = s:swank_form . " ..." . ending . "\n"
endif
endif
endif
endif
if a:output
silent execute s:py_cmd . 'append_repl("s:swank_form", 1)'
endif
let s:swank_form = text
elseif a:output
" Open a new line for the output
silent execute s:py_cmd . " append_repl('\\n', 0)"
endif
call SlimvCommand( s:py_cmd . 'swank_input("s:swank_form")' )
let s:swank_package = ''
let s:swank_package_form = ''
let s:refresh_disabled = 0
call SlimvRefreshModeOn()
call SlimvRefreshReplBuffer()
endfunction
" Eval arguments in Lisp REPL
function! SlimvEval( args )
call SlimvSend( a:args, 1, 1 )
endfunction
" Send argument silently to SWANK
function! SlimvSendSilent( args )
call SlimvSend( a:args, 0, 0 )
endfunction
" Set command line after the prompt
function! SlimvSetCommandLine( cmd )
let line = getline( "." )
if line( "." ) == s:GetPromptLine()
" The prompt is in the line marked by b:repl_prompt_line
let promptlen = len( b:repl_prompt )
else
let promptlen = 0
endif
if len( line ) > promptlen
let line = strpart( line, 0, promptlen )
endif
if s:GetPromptLine() < line( '$' )
" Delete extra lines after the prompt
let c = col( '.' )
execute (s:GetPromptLine()+1) . ',' . (line('$')) . 'd_'
call cursor( line('.'), c )
endif
let lines = split( a:cmd, '\n' )
if len(lines) > 0
let line = line . lines[0]
endif
call setline( ".", line )
if len(lines) > 1
call append( s:GetPromptLine(), lines[1:] )
endif
set nomodified
endfunction
" Add command list to the command history
function! SlimvAddHistory( cmd )
if !exists( 'g:slimv_cmdhistory' )
let g:slimv_cmdhistory = []
endif
let i = 0
let form = join( a:cmd, "\n" )
" Trim leading and trailing whitespaces from the command
let form = substitute( form, '^\s*\(.*[^ ]\)\s*', '\1', 'g' )
if len( form ) > 1 || len( g:slimv_cmdhistory ) == 0 || form != g:slimv_cmdhistory[-1]
" Add command only if differs from the last one
call add( g:slimv_cmdhistory, form )
endif
let g:slimv_cmdhistorypos = len( g:slimv_cmdhistory )
endfunction
" Recall command from the command history at the marked position
function! SlimvRecallHistory( direction )
let searchtext = ''
let l = line( '.' )
let c = col( '.' )
let set_cursor_pos = 0
if line( '.' ) == s:GetPromptLine() && c > b:repl_prompt_col
" Search for lines beginning with the text up to the cursor position
let searchtext = strpart( getline('.'), b:repl_prompt_col-1, c-b:repl_prompt_col )
let searchtext = substitute( searchtext, '^\s*$', '', 'g' )
let searchtext = substitute( searchtext, '^\s*\(.*[^ ]\)', '\1', 'g' )
endif
let historypos = g:slimv_cmdhistorypos
let g:slimv_cmdhistorypos = g:slimv_cmdhistorypos + a:direction
while g:slimv_cmdhistorypos >= 0 && g:slimv_cmdhistorypos < len( g:slimv_cmdhistory )
let cmd = g:slimv_cmdhistory[g:slimv_cmdhistorypos]
if len(cmd) >= len(searchtext) && strpart(cmd, 0, len(searchtext)) == searchtext
call SlimvSetCommandLine( g:slimv_cmdhistory[g:slimv_cmdhistorypos] )
return
endif
let g:slimv_cmdhistorypos = g:slimv_cmdhistorypos + a:direction
endwhile
if searchtext == ''
call SlimvSetCommandLine( "" )
else
let g:slimv_cmdhistorypos = historypos
endif
endfunction
" Return missing parens, double quotes, etc to properly close form
function! s:CloseForm( form )
let end = ''
let i = 0
while i < len( a:form )
if a:form[i] == '"'
" Inside a string
let end = '"' . end
let i += 1
while i < len( a:form )
if a:form[i] == '\'
" Ignore next character
let i += 2
elseif a:form[i] == '"'
let end = end[1:]
break
else
let i += 1
endif
endwhile
elseif a:form[i] == ';'
" Inside a comment
let end = "\n" . end
let cend = match(a:form, "\n", i)
if cend == -1
break
endif
let i = cend
let end = end[1:]
else
" We are outside of strings and comments, now we shall count parens
if a:form[i] == '('
let end = ')' . end
elseif a:form[i] == '[' && SlimvGetFiletype() =~ '.*\(clojure\|scheme\|racket\).*'
let end = ']' . end
elseif a:form[i] == '{' && SlimvGetFiletype() =~ '.*\(clojure\|scheme\|racket\).*'
let end = '}' . end
elseif a:form[i] == ')' || ((a:form[i] == ']' || a:form[i] == '}') && SlimvGetFiletype() =~ '.*\(clojure\|scheme\|racket\).*')
if len( end ) == 0 || end[0] != a:form[i]
" Oops, too many closing parens or invalid closing paren
return 'ERROR'
endif
let end = end[1:]
endif
endif
let i += 1
endwhile
return end
endfunction
" Some multi-byte characters screw up the built-in lispindent()
" This function is a wrapper that tries to fix it
" TODO: implement custom indent procedure and omit lispindent()
function SlimvLispindent( lnum )
set lisp
if SlimvGetFiletype() =~ '.*clojure.*' && exists( '*GetClojureIndent' ) && line('.') == a:lnum
let li = GetClojureIndent()
else
let li = lispindent( a:lnum )
endif
set nolisp
let backline = max([a:lnum-g:slimv_indent_maxlines, 1])
let oldpos = getpos( '.' )
call cursor( oldpos[1], 1 )
" Find containing form
let [lhead, chead] = searchpairpos( '(', '', ')', 'bW', s:skip_sc, backline )
if lhead == 0
" No containing form, lispindent() is OK
call cursor( oldpos[1], oldpos[2] )
return li
endif
" Find outer form
let [lparent, cparent] = searchpairpos( '(', '', ')', 'bW', s:skip_sc, backline )
call cursor( oldpos[1], oldpos[2] )
if lparent == 0 || lhead != lparent
" No outer form or starting above inner form, lispindent() is OK
return li
endif
" Count extra bytes before the function header
let header = strpart( getline( lparent ), 0 )
let total_extra = 0
let extra = 0
let c = 0
while a:lnum > 0 && c < chead-1
let bytes = byteidx( header, c+1 ) - byteidx( header, c )
if bytes > 1
let total_extra = total_extra + bytes - 1
if c >= cparent && extra < 10
" Extra bytes in the outer function header
let extra = extra + bytes - 1
endif
endif
let c = c + 1
endwhile
if total_extra == 0
" No multi-byte character, lispindent() is OK
return li
endif
" In some cases ending spaces add up to lispindent() if there are multi-byte characters
let ending_sp = len( matchstr( getline( lparent ), ' *$' ) )
" Determine how wrong lispindent() is based on the number of extra bytes
" These values were determined empirically
if lparent == a:lnum - 1
" Function header is in the previous line
if extra == 0 && total_extra > 1
let ending_sp = ending_sp + 1
endif
return li + [0, 1, 0, -3, -3, -3, -5, -5, -7, -7, -8][extra] - ending_sp
else
" Function header is in an upper line
if extra == 0 || total_extra == extra
let ending_sp = 0
endif
return li + [0, 1, 0, -2, -2, -3, -3, -3, -3, -3, -3][extra] - ending_sp
endif
endfunction
" Return Lisp source code indentation at the given line
" Does not keep the cursor position
function! SlimvIndentUnsafe( lnum )
if &autoindent == 0 || a:lnum <= 1
" Start of the file
return 0
endif
let pnum = prevnonblank(a:lnum - 1)
if pnum == 0
" Hit the start of the file, use zero indent.
return 0
endif
let oldpos = getpos( '.' )
let linenum = a:lnum
" Handle multi-line string
let plen = len( getline( pnum ) )
if synIDattr( synID( pnum, plen, 0), 'name' ) =~ '[Ss]tring' && getline(pnum)[plen-1] != '"'
" Previous non-blank line ends with an unclosed string, so this is a multi-line string
let [l, c] = searchpairpos( '"', '', '"', 'bnW', s:skip_q )
if l == pnum && c > 0
" Indent to the opening double quote (if found)
return c
else
return SlimvLispindent( linenum )
endif
endif
if synIDattr( synID( pnum, 1, 0), 'name' ) =~ '[Ss]tring' && getline(pnum)[0] != '"'
" Previous non-blank line is the last line of a multi-line string
call cursor( pnum, 1 )
" First find the end of the multi-line string (omit \" characters)
let [lend, cend] = searchpos( '[^\\]"', 'nW' )
if lend > 0 && strpart(getline(lend), cend+1) =~ '(\|)\|\[\|\]\|{\|}'
" Structural change after the string, no special handling
else
" Find the start of the multi-line string (omit \" characters)
let [l, c] = searchpairpos( '"', '', '"', 'bnW', s:skip_q )
if l > 0 && strpart(getline(l), 0, c-1) =~ '^\s*$'
" Nothing else before the string: indent to the opening "
return c - 1
endif
if l > 0
" Pretend that we are really after the first line of the multi-line string
let pnum = l
let linenum = l + 1
endif
endif
call cursor( oldpos[1], oldpos[2] )
endif
" Handle special indentation style for flet, labels, etc.
" When searching for containing forms, don't go back
" more than g:slimv_indent_maxlines lines.
let backline = max([pnum-g:slimv_indent_maxlines, 1])
let indent_keylists = g:slimv_indent_keylists
" Check if the previous line actually ends with a multi-line subform
let parent = pnum
let [l, c] = searchpos( ')', 'bW' )
if l == pnum
let [l, c] = searchpairpos( '(', '', ')', 'bW', s:skip_sc, backline )
if l > 0
" Make sure it is not a top level form and the containing form starts in the same line
let [l2, c2] = searchpairpos( '(', '', ')', 'bW', s:skip_sc, backline )
if l2 == l
" Remember the first line of the multi-line form
let parent = l
endif
endif
endif
" Find beginning of the innermost containing form
call cursor( oldpos[1], 1 )
let [l, c] = searchpairpos( '(', '', ')', 'bW', s:skip_sc, backline )
if l > 0
if SlimvGetFiletype() =~ '.*\(clojure\|scheme\|racket\).*'
" Is this a clojure form with [] binding list?
call cursor( oldpos[1], oldpos[2] )
let [lb, cb] = searchpairpos( '\[', '', '\]', 'bW', s:skip_sc, backline )
if lb >= l && (lb > l || cb > c)
return cb
endif
" Is this a multi-arity function definition?
let line = strpart( getline(l), c-1 )
if match( line, '(\s*\[' ) >= 0
return c + 1
endif
endif
" Is this a form with special indentation?
let line = strpart( getline(l), c-1 )
if match( line, '\c^(\s*\('.s:spec_indent.'\)\>' ) >= 0
" Search for the binding list and jump to its end
if search( '(' ) > 0
call searchpair( '(', '', ')', '', s:skip_sc )
if line('.') == pnum
" We are indenting the first line after the end of the binding list
return c + 1
endif
endif
elseif l == pnum
" If the containing form starts above this line then find the
" second outer containing form (possible start of the binding list)
let [l2, c2] = searchpairpos( '(', '', ')', 'bW', s:skip_sc, backline )
if l2 > 0
let line2 = strpart( getline(l2), c2-1 )
if match( line2, '\c^(\s*\('.s:spec_param.'\)\>' ) >= 0
if search( '(' ) > 0
if line('.') == l && col('.') == c
" This is the parameter list of a special form
return c
endif
endif
endif
if SlimvGetFiletype() !~ '.*clojure.*'
if l2 == l && match( line2, '\c^(\s*\('.s:binding_form.'\)\>' ) >= 0
" Is this a lisp form with binding list?
return c
endif
if match( line2, '\c^(\s*cond\>' ) >= 0 && match( line, '\c^(\s*t\>' ) >= 0
" Is this the 't' case for a 'cond' form?
return c
endif
if match( line2, '\c^(\s*defpackage\>' ) >= 0
let indent_keylists = 0
endif
endif
" Go one level higher and check if we reached a special form
let [l3, c3] = searchpairpos( '(', '', ')', 'bW', s:skip_sc, backline )
if l3 > 0
" Is this a form with special indentation?
let line3 = strpart( getline(l3), c3-1 )
if match( line3, '\c^(\s*\('.s:spec_indent.'\)\>' ) >= 0
" This is the first body-line of a binding
return c + 1
endif
if match( line3, '\c^(\s*defsystem\>' ) >= 0
let indent_keylists = 0
endif
" Finally go to the topmost level to check for some forms with special keyword indenting
let [l4, c4] = searchpairpos( '(', '', ')', 'brW', s:skip_sc, backline )
if l4 > 0
let line4 = strpart( getline(l4), c4-1 )
if match( line4, '\c^(\s*defsystem\>' ) >= 0
let indent_keylists = 0
endif
endif
endif
endif
endif
endif
" Restore all cursor movements
call cursor( oldpos[1], oldpos[2] )
" Check if the current form started in the previous nonblank line
if l == parent
" Found opening paren in the previous line
let line = getline(l)
let form = strpart( line, c )
" Determine the length of the function part up to the 1st argument
let funclen = matchend( form, '\s*\S*\s*' ) + 1
" Contract strings, remove comments
let form = substitute( form, '".\{-}[^\\]"', '""', 'g' )
let form = substitute( form, ';.*$', '', 'g' )
" Contract subforms by replacing them with a single character
let f = ''
while form != f
let f = form
let form = substitute( form, '([^()]*)', '0', 'g' )
let form = substitute( form, '([^()]*$', '0', 'g' )
let form = substitute( form, '\[[^\[\]]*\]', '0', 'g' )
let form = substitute( form, '\[[^\[\]]*$', '0', 'g' )
let form = substitute( form, '{[^{}]*}', '0', 'g' )
let form = substitute( form, '{[^{}]*$', '0', 'g' )
endwhile
" Find out the function name
let func = matchstr( form, '\<\k*\>' )
" If it's a keyword, keep the indentation straight
if indent_keylists && strpart(func, 0, 1) == ':'
if form =~ '^:\S*\s\+\S'
" This keyword has an associated value in the same line
return c
else
" The keyword stands alone in its line with no associated value
return c + 1
endif
endif
" Fix indentation issues not handled by the default lisp.vim
if SlimvGetFiletype() =~ '.*clojure.*'
if match( func, 'defn$' ) >= 0
return c + 1
endif
elseif SlimvGetFiletype() =~ '.*\(scheme\|racket\).*'
if match( func, 'syntax-rules$' ) >= 0
return c + 1
endif
else
if match( func, 'defgeneric$' ) >= 0 || match( func, 'defsystem$' ) >= 0 || match( func, 'aif$' ) >= 0
return c + 1
endif
endif
if match( func, 'if$' ) >= 0 || match( func, 'do$' ) >= 0
return c + funclen - 1
endif
" Remove package specification
let func = substitute(func, '^.*:', '', '')
if func != '' && s:swank_connected
" Look how many arguments are on the same line
" If an argument is actually a multi-line subform, then replace it with a single character
let form = substitute( form, "([^()]*$", '0', 'g' )
let form = substitute( form, "[()\\[\\]{}#'`,]", '', 'g' )
let args_here = len( split( form ) ) - 1
" Get swank indent info
let s:indent = ''
silent execute s:py_cmd . 'get_indent_info("' . func . '")'
if s:indent != '' && s:indent == args_here
" The next one is an &body argument, so indent by 2 spaces from the opening '('
return c + 1
endif
let llen = len( line )
if synIDattr( synID( l, llen, 0), 'name' ) =~ '[Ss]tring' && line[llen-1] != '"'
" Parent line ends with a multi-line string
" lispindent() fails to handle it correctly
if s:indent == '' && args_here > 0
" No &body argument, ignore lispindent() and indent to the 1st argument
return c + funclen - 1
endif
endif
endif
endif
" Use default Lisp indenting
let li = SlimvLispindent(linenum)
let line = strpart( getline(linenum-1), li-1 )
let gap = matchend( line, '^(\s\+\S' )
if gap >= 0
" Align to the gap between the opening paren and the first atom
return li + gap - 2
endif
return li
endfunction
" Indentation routine, keeps original cursor position
function! SlimvIndent( lnum )
if exists("g:slimv_indent_disable") && g:slimv_indent_disable
let indent = lispindent( a:lnum )
else
let oldpos = getpos( '.' )
let indent = SlimvIndentUnsafe( a:lnum )
call cursor( oldpos[1], oldpos[2] )
endif
return indent
endfunction
" Convert indent value to spaces or a mix of tabs and spaces
" depending on the value of 'expandtab'
function! s:MakeIndent( indent )
if &expandtab
return repeat( ' ', a:indent )
else
return repeat( "\<Tab>", a:indent / &tabstop ) . repeat( ' ', a:indent % &tabstop )
endif
endfunction
" Send command line to REPL buffer
" Arguments: close = add missing closing parens
function! SlimvSendCommand( close )
call SlimvRefreshModeOn()
let lastline = s:GetPromptLine()
let lastcol = b:repl_prompt_col
if lastline > 0
if line( "." ) >= lastline
" Trim the prompt from the beginning of the command line
" The user might have overwritten some parts of the prompt
let cmdline = getline( lastline )
let c = 0
while c < lastcol - 1 && cmdline[c] == b:repl_prompt[c]
let c = c + 1
endwhile
let cmd = [ strpart( getline( lastline ), c ) ]
" Build a possible multi-line command
let l = lastline + 1
while l <= line("$")
call add( cmd, strpart( getline( l ), 0) )
let l = l + 1
endwhile
" Count the number of opening and closing braces
let end = s:CloseForm( join( cmd, "\n" ) )
if end == 'ERROR'
" Too many closing parens
call SlimvErrorWait( "Too many or invalid closing parens found." )
return
endif
let echoing = 0
if a:close && end != ''
" Close form if necessary and evaluate it
let cmd[len(cmd)-1] = cmd[len(cmd)-1] . end
let end = ''
let echoing = 1
endif
if end == ''
" Expression finished, let's evaluate it
" but first add it to the history
call SlimvAddHistory( cmd )
" Evaluate, but echo only when form is actually closed here
call SlimvSend( cmd, echoing, 1 )
else
" Expression is not finished yet, indent properly and wait for completion
" Indentation works only if lisp indentation is switched on
call SlimvArglist()
let l = line('.') + 1
call append( '.', '' )
call setline( l, s:MakeIndent( SlimvIndent(l) ) )
normal! j$
endif
endif
else
silent execute s:py_cmd . " append_repl('Slimv error: previous EOF mark not found, re-enter last form:\\n', 0)"
endif
endfunction
" Close current top level form by adding the missing parens
function! SlimvCloseForm()
let l2 = line( '.' )
call SlimvFindDefunStart()
let l1 = line( '.' )
let form = []
let l = l1
while l <= l2
call add( form, getline( l ) )
let l = l + 1
endwhile
let end = s:CloseForm( join( form, "\n" ) )
if end == 'ERROR'
" Too many closing parens
call SlimvErrorWait( "Too many or invalid closing parens found." )
elseif end != ''
" Add missing parens
if end[0] == "\n"
call append( l2, end[1:] )
else
call setline( l2, getline( l2 ) . end )
endif
endif
normal! %
endfunction
" Handle insert mode 'Enter' keypress
function! SlimvHandleEnter()
let s:arglist_line = line('.')
let s:arglist_col = col('.')
if pumvisible()
" Pressing <CR> in a pop up selects entry.
return "\<C-Y>"
else
if exists( 'g:paredit_mode' ) && g:paredit_mode && g:paredit_electric_return
" Apply electric return
return PareditEnter()
else
" No electric return handling, just enter a newline
return "\<CR>"
endif
endif
endfunction
" Display arglist after pressing Enter
function! SlimvArglistOnEnter()
let retval = ""
if s:arglist_line > 0
if col('.') > len(getline('.'))
" Stay at the end of line
let retval = "\<End>"
endif
let l = line('.')
if getline(l) == ''
" Add spaces to make the correct indentation
call setline( l, s:MakeIndent( SlimvIndent(l) ) )
normal! $
endif
call SlimvArglist( s:arglist_line, s:arglist_col )
endif
let s:arglist_line = 0
let s:arglist_col = 0
" This function is called from <C-R>= mappings, return additional keypress
return retval
endfunction
" Handle insert mode 'Tab' keypress by doing completion or indentation
function! SlimvHandleTab()
if pumvisible()
" Completions menu is active, go to next match
return "\<C-N>"
endif
let c = col('.')
if c > 1 && getline('.')[c-2] =~ '\k'
" At the end of a keyword, bring up completions
return "\<C-X>\<C-O>"
endif
let indent = SlimvIndent(line('.'))
if c-1 < indent && getline('.') !~ '\S\+'
" We are left from the autoindent position, do an autoindent
call setline( line('.'), s:MakeIndent( indent ) )
return "\<End>"
endif
" No keyword to complete, no need for autoindent, just enter a <Tab>
return "\<Tab>"
endfunction
" Handle insert mode 'Backspace' keypress in the REPL buffer
function! SlimvHandleBS()
if line( "." ) == s:GetPromptLine() && col( "." ) <= b:repl_prompt_col
if col( "." ) == b:repl_prompt_col
return "\<BS> "
else
" No BS allowed before the previous EOF mark
return ""
endif
else
return "\<BS>"
endif
endfunction
" Handle insert mode Ctrl-W keypress in the REPL buffer
function! SlimvHandleCW()
if line( "." ) == s:GetPromptLine()
let trim_prompt = substitute( b:repl_prompt, '\s\+$', '', 'g' )
let promptlen = len( trim_prompt )
if col( "." ) > promptlen
let after_prompt = strpart( getline("."), promptlen-1, col(".")-promptlen )
else
let after_prompt = ''
endif
let word = matchstr( after_prompt, '^.*\s\S' )
if len( word ) == 0
" No word found after prompt, C-W not allowed
return ""
endif
endif
return "\<C-W>"
endfunction
" Recall previous command from command history
function! s:PreviousCommand()
if exists( 'g:slimv_cmdhistory' ) && g:slimv_cmdhistorypos > 0
call SlimvRecallHistory( -1 )
endif
endfunction
" Recall next command from command history
function! s:NextCommand()
if exists( 'g:slimv_cmdhistory' ) && g:slimv_cmdhistorypos < len( g:slimv_cmdhistory )
call SlimvRecallHistory( 1 )
else
call SlimvSetCommandLine( "" )
endif
endfunction
" Handle insert mode 'Up' keypress in the REPL buffer
function! SlimvHandleUp()
let save_ve = &virtualedit
set virtualedit=onemore
if line( "." ) >= s:GetPromptLine()
call s:PreviousCommand()
else
normal! gk
endif
let &virtualedit=save_ve
return ''
endfunction
" Handle insert mode 'Down' keypress in the REPL buffer
function! SlimvHandleDown()
let save_ve = &virtualedit
set virtualedit=onemore
if line( "." ) >= s:GetPromptLine()
call s:NextCommand()
else
normal! gj
endif
let &virtualedit=save_ve
return ''
endfunction
" Make a fold at the cursor point in the current buffer
function SlimvMakeFold()
setlocal modifiable
normal! o }}}kA {{{0
setlocal nomodifiable
endfunction
" Handle insert mode 'Enter' keypress in the REPL buffer
function! SlimvHandleEnterRepl()
" Trim the prompt from the beginning of the command line
" The user might have overwritten some parts of the prompt
let lastline = s:GetPromptLine()
let lastcol = b:repl_prompt_col
let cmdline = getline( lastline )
let c = 0
while c < lastcol - 1 && cmdline[c] == b:repl_prompt[c]
let c = c + 1
endwhile
" Copy command line up to the cursor position
if line(".") == lastline
let cmd = [ strpart( cmdline, c, col(".") - c - 1 ) ]
else
let cmd = [ strpart( cmdline, c ) ]
endif
" Build a possible multi-line command up to the cursor line/position
let l = lastline + 1
while l <= line(".")
if line(".") == l
call add( cmd, strpart( getline( l ), 0, col(".") - 1) )
else
call add( cmd, strpart( getline( l ), 0) )
endif
let l = l + 1
endwhile
" Count the number of opening and closing braces in the command before the cursor
let end = s:CloseForm( join( cmd, "\n" ) )
if end != 'ERROR' && end != ''
" Command part before cursor is unbalanced, insert newline
let s:arglist_line = line('.')
let s:arglist_col = col('.')
if pumvisible()
" Pressing <CR> in a pop up selects entry.
return "\<C-Y>"
else
if exists( 'g:paredit_mode' ) && g:paredit_mode && g:paredit_electric_return && lastline > 0 && line( "." ) >= lastline
" Apply electric return
return PareditEnter()
else
" No electric return handling, just enter a newline
return "\<CR>"
endif
endif
else
" Send current command line for evaluation
if &virtualedit != 'all'
call cursor( 0, 99999 )
endif
call SlimvSendCommand(0)
endif
return ''
endfunction
" Handle normal mode 'Enter' keypress in the SLDB buffer
function! SlimvHandleEnterSldb()
let line = getline('.')
if s:sldb_level >= 0
" Check if Enter was pressed in a section printed by the SWANK debugger
" The source specification is within a fold, so it has to be tested first
let mlist = matchlist( line, '^\s\+in "\=\(.*\)"\= \(line\|byte\) \(\d\+\)$' )
if len(mlist)
if g:slimv_repl_split
" Switch back to other window
execute "wincmd p"
endif
" Jump to the file at the specified position
if mlist[2] == 'line'
exec ":edit +" . mlist[3] . " " . mlist[1]
else
exec ":edit +" . mlist[3] . "go " . mlist[1]
endif
return
endif
if foldlevel('.')
" With a fold just toggle visibility
normal za
return
endif
let item = matchstr( line, s:frame_def )
if item != ''
let item = substitute( item, '\s\|:', '', 'g' )
if search( '^Backtrace:', 'bnW' ) > 0
" Display item-th frame
call SlimvMakeFold()
silent execute s:py_cmd . 'swank_frame_locals("' . item . '")'
if SlimvGetFiletype() != 'scheme' && g:slimv_impl != 'clisp'
" Not implemented for CLISP or scheme
silent execute s:py_cmd . 'swank_frame_source_loc("' . item . '")'
endif
if SlimvGetFiletype() == 'lisp' && g:slimv_impl != 'clisp' && g:slimv_impl != 'allegro'
" Not implemented for CLISP or other lisp dialects
silent execute s:py_cmd . 'swank_frame_call("' . item . '")'
endif
call SlimvRefreshReplBuffer()
return
endif
if search( '^Restarts:', 'bnW' ) > 0
" Apply item-th restart
call SlimvQuitSldb()
silent execute s:py_cmd . 'swank_invoke_restart("' . s:sldb_level . '", "' . item . '")'
call SlimvRefreshReplBuffer()
return
endif
endif
endif
" No special treatment, perform the original function
execute "normal! \<CR>"
endfunction
" Restore Inspector cursor position if the referenced title has already been visited
function SlimvSetInspectPos( title )
if exists( 'b:inspect_pos' ) && has_key( b:inspect_pos, a:title )
call winrestview( b:inspect_pos[a:title] )
else
normal! gg0
endif
endfunction
" Handle normal mode 'Enter' keypress in the Inspector buffer
function! SlimvHandleEnterInspect()
let line = getline('.')
if line[0:9] == 'Inspecting'
" Reload inspected item
call SlimvSendSilent( ['[0]'] )
return
endif
" Find the closest [dd] or <dd> token to the left of the cursor
let [l, c] = searchpos( '{\[\d\+\]', 'bncW' )
let [l2, c2] = searchpos( '{<\d\+>', 'bncW' )
if l < line('.') || (l2 == line('.') && c2 > c)
let l = l2
let c = c2
endif
if l < line('.')
" No preceding token found, find the closest [dd] or <dd> to the right
let [l, c] = searchpos( '{\[\d\+\]', 'ncW' )
let [l2, c2] = searchpos( '{<\d\+>', 'ncW' )
if l == 0 || l > line('.') || (l2 == line('.') && c2 < c)
let l = l2
let c = c2
endif
endif
if l == line( '.' )
" Keep the relevant part of the line
let line = strpart( line, c )
endif
if exists( 'b:inspect_title' ) && b:inspect_title != ''
" Save cursor position in case we'll return to this page later on
if !exists( 'b:inspect_pos' )
let b:inspect_pos = {}
endif
let b:inspect_pos[b:inspect_title] = winsaveview()
endif
if line[0] == '['
if line =~ '^\[--more--\]$'
" More data follows, fetch next part
call SlimvCommand( s:py_cmd . 'swank_inspector_range()' )
call SlimvRefreshReplBuffer()
return
elseif line =~ '^\[--all---\]$'
" More data follows, fetch all parts
echon "\rFetching all entries, please wait..."
let b:inspect_more = -1
call SlimvCommand( s:py_cmd . 'swank_inspector_range()' )
call SlimvRefreshReplBuffer()
let starttime = localtime()
while b:inspect_more < 0 && localtime()-starttime < g:slimv_timeout
" Wait for the first swank_inspector_range() call to finish
call SlimvRefreshReplBuffer()
endwhile
let starttime = localtime()
while b:inspect_more > 0 && localtime()-starttime < g:slimv_timeout
" There are more parts to fetch (1 entry is usually 4 parts)
echon "\rFetching all entries, please wait [" . (b:inspect_more / 4) . "]"
call SlimvCommand( s:py_cmd . 'swank_inspector_range()' )
call SlimvRefreshReplBuffer()
if getchar(1)
" User is impatient, stop fetching
break
endif
endwhile
if b:inspect_more > 0
echon "\rFetch exhausted. Select [--all---] to resume."
else
echon "\rSuccessfully fetched all entries."
endif
return
elseif line[0:3] == '[<<]'
" Pop back up in the inspector
let item = '-1'
else
" Inspect n-th part
let item = matchstr( line, '\d\+' )
if item != ''
" Add item name to the object path
let entry = matchstr(line, '\[\d\+\]\s*\zs.\{-}\ze\s*\[\]}')
if entry == ''
let entry = matchstr(line, '\[\d\+\]\s*\zs.*')
endif
if entry == ''
let entry = 'Unknown object'
endif
if len( entry ) > 40
" Crop if too long
let entry = strpart( entry, 0, 37 ) . '...'
endif
let s:inspect_path = s:inspect_path + [entry]
endif
endif
if item != ''
call SlimvSendSilent( ['[' . item . ']'] )
return
endif
endif
if line[0] == '<'
" Inspector n-th action
let item = matchstr( line, '\d\+' )
if item != ''
call SlimvSendSilent( ['<' . item . '>'] )
return
endif
endif
" No special treatment, perform the original function
execute "normal! \<CR>"
endfunction
" Go to command line and recall previous command from command history
function! SlimvPreviousCommand()
let save_ve = &virtualedit
set virtualedit=onemore
call SlimvEndOfReplBuffer(0)
if line( "." ) >= s:GetPromptLine()
call s:PreviousCommand()
endif
let &virtualedit=save_ve
endfunction
" Go to command line and recall next command from command history
function! SlimvNextCommand()
let save_ve = &virtualedit
set virtualedit=onemore
call SlimvEndOfReplBuffer(0)
if line( "." ) >= s:GetPromptLine()
call s:NextCommand()
endif
let &virtualedit=save_ve
endfunction
" Handle interrupt (Ctrl-C) keypress in the REPL buffer
function! SlimvInterrupt()
call SlimvCommand( s:py_cmd . 'swank_interrupt()' )
call SlimvRefreshReplBuffer()
endfunction
" Select a specific restart in debugger
" Added in frame argument to support stepper
function! SlimvDebugCommand( name, cmd, frame )
if SlimvConnectSwank()
if s:sldb_level >= 0
if bufname('%') != g:slimv_sldb_name
call SlimvOpenSldbBuffer()
endif
if a:frame == ''
call SlimvCommand( s:py_cmd . '' . a:cmd . '()' )
else
call SlimvCommand( s:py_cmd . '' . a:cmd . '(' . string(a:frame) . ')' )
endif
call SlimvRefreshReplBuffer()
if s:sldb_level < 0
" Swank exited the debugger
if bufname('%') != g:slimv_sldb_name
call SlimvOpenSldbBuffer()
endif
call SlimvQuitSldb()
else
echomsg 'Debugger re-activated by the SWANK server.'
endif
else
call SlimvError( "Debugger is not activated." )
endif
endif
endfunction
" Various debugger restarts
function! SlimvDebugAbort()
call SlimvDebugCommand( ":sldb-abort", "swank_invoke_abort", '' )
endfunction
function! SlimvDebugQuit()
call SlimvDebugCommand( ":throw-to-toplevel", "swank_throw_toplevel", '' )
endfunction
function! SlimvDebugContinue()
let in_stepper = search ('STEP-CONTINUE', 'bcnw')
if in_stepper == 0
call SlimvDebugCommand( ":sldb-continue", "swank_invoke_continue", '' )
else
call SlimvQuitSldb()
silent execute s:py_cmd . 'swank_invoke_restart("' . s:sldb_level . '", "' . string(0) . '")'
call SlimvRefreshReplBuffer()
endif
endfunction
" Debugger stepper functions
function! SlimvDebugStepInto()
let frame = s:DebugFrame()
if frame != ''
call SlimvDebugCommand( ":sldb-step", "swank_step_into", frame )
endif
endfunction
function! SlimvDebugStepNext()
let frame = s:DebugFrame()
if frame != ''
call SlimvDebugCommand( ":sldb-next", "swank_step_next", frame )
endif
endfunction
function! SlimvDebugStepOut()
let frame = s:DebugFrame()
if frame != ''
call SlimvDebugCommand( ":sldb-out", "swank_step_out", frame )
endif
endfunction
" Restart execution of the frame with the same arguments
function! SlimvDebugRestartFrame()
let frame = s:DebugFrame()
if frame != ''
call SlimvCommand( s:py_cmd . 'swank_restart_frame("' . frame . '")' )
call SlimvRefreshReplBuffer()
endif
endfunction
" List current Lisp threads
function! SlimvListThreads()
if SlimvConnectSwank()
call SlimvCommand( s:py_cmd . 'swank_list_threads()' )
call SlimvRefreshReplBuffer()
endif
endfunction
" Kill thread(s) selected from the Thread List
function! SlimvKillThread() range
if SlimvConnectSwank()
if a:firstline == a:lastline
let line = getline('.')
let item = matchstr( line, '\d\+' )
if bufname('%') != g:slimv_threads_name
" We are not in the Threads buffer, not sure which thread to kill
let item = input( 'Thread to kill: ', item )
endif
if item != ''
call SlimvCommand( s:py_cmd . 'swank_kill_thread(' . item . ')' )
call SlimvRefreshReplBuffer()
endif
echomsg 'Thread ' . item . ' is killed.'
else
for line in getline(a:firstline, a:lastline)
let item = matchstr( line, '\d\+' )
if item != ''
call SlimvCommand( s:py_cmd . 'swank_kill_thread(' . item . ')' )
endif
endfor
call SlimvRefreshReplBuffer()
endif
call SlimvListThreads()
endif
endfunction
" Debug thread selected from the Thread List
function! SlimvDebugThread()
if SlimvConnectSwank()
let line = getline('.')
let item = matchstr( line, '\d\+' )
let item = input( 'Thread to debug: ', item )
if item != ''
call SlimvCommand( s:py_cmd . 'swank_debug_thread(' . item . ')' )
call SlimvRefreshReplBuffer()
endif
endif
endfunction
function! SlimvRFunction()
" search backwards for the alphanums before a '('
let l = line('.')
let c = col('.') - 1
let line = (getline('.'))[0:c]
let list = matchlist(line, '\([a-zA-Z0-9_.]\+\)\s*(')
if !len(list)
return ""
endif
let valid = filter(reverse(list), 'v:val != ""')
return valid[0]
endfunction
" Display function argument list
" Optional argument is the number of characters typed after the keyword
function! SlimvArglist( ... )
let retval = ''
let save_ve = &virtualedit
set virtualedit=all
if a:0
" Symbol position supplied
let l = a:1
let c = a:2 - 1
let line = getline(l)
else
" Check symbol at cursor position
let l = line('.')
let line = getline(l)
let c = col('.') - 1
if c >= len(line)
" Stay at the end of line
let c = len(line) - 1
let retval = "\<End>"
endif
if line[c-1] == ' '
" Is this the space we have just inserted in a mapping?
let c = c - 1
endif
endif
call s:SetKeyword()
if s:swank_connected && !s:read_string_mode && c > 0 && line[c-1] =~ '\k\|)\|\]\|}\|"'
" Display only if entering the first space after a keyword
let arg = ''
if SlimvGetFiletype() == 'r'
let arg = SlimvRFunction()
else
let matchb = max( [l-200, 1] )
let [l0, c0] = searchpairpos( '(', '', ')', 'nbW', s:skip_sc, matchb )
if l0 > 0
" Found opening paren, let's find out the function name
while arg == '' && l0 <= l
let funcline = substitute( getline(l0), ';.*$', '', 'g' )
let arg = matchstr( funcline, '\<\k*\>', c0 )
let l0 = l0 + 1
let c0 = 0
endwhile
endif
endif
if arg != ''
" Ask function argument list from SWANK
call SlimvFindPackage()
let msg = SlimvCommandGetResponse( ':operator-arglist', s:py_cmd . 'swank_op_arglist("' . arg . '")', 0 )
if msg != ''
" Print argument list in status line with newlines removed.
" Disable showmode until the next ESC to prevent
" immeditate overwriting by the "-- INSERT --" text.
set noshowmode
let msg = substitute( msg, "\n", "", "g" )
redraw
if SlimvGetFiletype() == 'r'
call SlimvShortEcho( arg . '(' . msg . ')' )
elseif match( msg, "\\V" . arg ) != 1 " Use \V ('very nomagic') for exact string match instead of regex
" Function name is not received from REPL
call SlimvShortEcho( "(" . arg . ' ' . msg[1:] )
else
call SlimvShortEcho( msg )
endif
endif
endif
endif
" This function is also called from <C-R>= mappings, return additional keypress
let &virtualedit=save_ve
return retval
endfunction
" Start and connect swank server
function! SlimvConnectServer()
if s:swank_connected
execute s:py_cmd . "swank_disconnect()"
let s:swank_connected = 0
" Give swank server some time for disconnecting
sleep 500m
endif
if SlimvConnectSwank()
let repl_win = bufwinnr( s:repl_buf )
if s:repl_buf == -1 || ( g:slimv_repl_split && repl_win == -1 )
call SlimvOpenReplBuffer()
endif
endif
endfunction
" Get the last region (visual block)
function! SlimvGetRegion(first, last)
let oldpos = winsaveview()
if a:first < a:last || ( a:first == line( "'<" ) && a:last == line( "'>" ) )
let lines = getline( a:first, a:last )
else
" No range was selected, select current paragraph
normal! vap
execute "normal! \<Esc>"
call winrestview( oldpos )
let lines = getline( "'<", "'>" )
if lines == [] || lines == ['']
call SlimvError( "No range selected." )
return []
endif
endif
let firstcol = col( "'<" ) - 1
let lastcol = col( "'>" ) - 2
if lastcol >= 0
let lines[len(lines)-1] = lines[len(lines)-1][ : lastcol]
else
let lines[len(lines)-1] = ''
endif
let lines[0] = lines[0][firstcol : ]
" Find and set package/namespace definition preceding the region
call SlimvFindPackage()
call winrestview( oldpos )
return lines
endfunction
" Eval buffer lines in the given range
function! SlimvEvalRegion() range
if v:register == '"' || v:register == '+'
let lines = SlimvGetRegion(a:firstline, a:lastline)
else
" Register was passed, so eval register contents instead
let reg = getreg( v:register )
let ending = ""
if SlimvGetFiletype() != 'r'
let ending = s:CloseForm( reg )
if ending == 'ERROR'
call SlimvError( 'Too many or invalid closing parens in register "' . v:register )
return
endif
endif
let lines = [reg . ending]
endif
if lines != []
if SlimvGetFiletype() == 'scheme'
" Swank-scheme requires us to pass a single s-expression
" so embed buffer lines in a (begin ...) block
let lines = ['(begin'] + lines + [')']
endif
call SlimvEval( lines )
endif
endfunction
" Eval contents of the 's' register, optionally store it in another register
" Also optionally append a test form for quick testing (not stored in 'outreg')
" If the test form contains '%1' then it 'wraps' the selection around the '%1'
function! SlimvEvalSelection( outreg, testform )
let sel = SlimvGetSelection()
if a:outreg != '"' && a:outreg != '+'
" Register was passed, so store current selection in register
call setreg( a:outreg, s:swank_package_form . sel)
endif
let lines = [sel]
if a:testform != ''
if match( a:testform, '%1' ) >= 0
" We need to wrap the selection in the testform
if match( sel, "\n" ) < 0
" The selection is a single line, keep the wrapped form in one line
let sel = substitute( a:testform, '%1', sel, 'g' )
let lines = [sel]
else
" The selection is multiple lines, wrap it by adding new lines
let lines = [strpart( a:testform, 0, match( a:testform, '%1' ) ),
\ sel,
\ strpart( a:testform, matchend( a:testform, '%1' ) )]
endif
else
" Append optional test form at the tail
let lines = lines + [a:testform]
endif
endif
if exists( 'b:slimv_repl_buffer' )
" If this is the REPL buffer then go to EOF
call s:EndOfBuffer()
endif
call SlimvEval( lines )
endfunction
" Eval Lisp form.
" Form given in the template is passed to Lisp without modification.
function! SlimvEvalForm( template )
let lines = [a:template]
call SlimvEval( lines )
endfunction
" Eval Lisp form, with the given parameter substituted in the template.
" %1 string is substituted with par1
function! SlimvEvalForm1( template, par1 )
let p1 = escape( a:par1, '&' )
let temp1 = substitute( a:template, '%1', p1, 'g' )
let lines = [temp1]
call SlimvEval( lines )
endfunction
" Eval Lisp form, with the given parameters substituted in the template.
" %1 string is substituted with par1
" %2 string is substituted with par2
function! SlimvEvalForm2( template, par1, par2 )
let p1 = escape( a:par1, '&' )
let p2 = escape( a:par2, '&' )
let temp1 = substitute( a:template, '%1', p1, 'g' )
let temp2 = substitute( temp1, '%2', p2, 'g' )
let lines = [temp2]
call SlimvEval( lines )
endfunction
" =====================================================================
" Special functions
" =====================================================================
" Evaluate and test top level form at the cursor pos
function! SlimvEvalTestDefun( testform )
let outreg = v:register
let oldpos = winsaveview()
if !SlimvSelectDefun()
return
endif
call SlimvFindPackage()
call winrestview( oldpos )
call SlimvEvalSelection( outreg, a:testform )
endfunction
" Evaluate top level form at the cursor pos
function! SlimvEvalDefun()
call SlimvEvalTestDefun( '' )
endfunction
" Evaluate the whole buffer
function! SlimvEvalBuffer()
if exists( 'b:slimv_repl_buffer' )
call SlimvError( "Cannot evaluate the REPL buffer." )
return
endif
let first_line = 1
if getline( first_line )[0] == '#'
" skip shebang line
let first_line += 1
endif
let lines = getline( first_line, '$' )
if SlimvGetFiletype() == 'scheme'
" Swank-scheme requires us to pass a single s-expression
" so embed buffer lines in a (begin ...) block
let lines = ['(begin'] + lines + [')']
endif
call SlimvEval( lines )
endfunction
" Return frame number if we are in the Backtrace section of the debugger
function! s:DebugFrame()
if s:swank_connected && s:sldb_level >= 0
" Check if we are in SLDB
let sldb_buf = bufnr( '^' . g:slimv_sldb_name . '$' )
if sldb_buf != -1 && sldb_buf == bufnr( "%" )
let bcktrpos = search( '^Backtrace:', 'bcnw' )
let framepos = line( '.' )
if matchstr( getline('.'), s:frame_def ) == ''
let framepos = search( s:frame_def, 'bcnw' )
endif
if framepos > 0 && bcktrpos > 0 && framepos > bcktrpos
let line = getline( framepos )
let item = matchstr( line, s:frame_def )
if item != ''
return substitute( item, '\s\|:', '', 'g' )
endif
endif
endif
endif
return ''
endfunction
" Evaluate and test current s-expression at the cursor pos
function! SlimvEvalTestExp( testform )
let outreg = v:register
let oldpos = winsaveview()
if !SlimvSelectForm( 1 )
return
endif
call SlimvFindPackage()
call winrestview( oldpos )
call SlimvEvalSelection( outreg, a:testform )
endfunction
" Evaluate current s-expression at the cursor pos
function! SlimvEvalExp()
call SlimvEvalTestExp( '' )
endfunction
" Evaluate expression entered interactively
function! SlimvInteractiveEval()
let frame = s:DebugFrame()
if frame != ''
" We are in the debugger, eval expression in the frame the cursor stands on
let e = input( 'Eval in frame ' . frame . ': ' )
if e != ''
let result = SlimvCommandGetResponse( ':eval-string-in-frame', s:py_cmd . 'swank_eval_in_frame("' . e . '", ' . frame . ')', 0 )
if result != ''
redraw
echo result
endif
endif
else
let e = input( 'Eval: ' )
if e != ''
call SlimvEval([e])
endif
endif
endfunction
" Undefine function
function! SlimvUndefineFunction()
if s:swank_connected
call SlimvCommand( s:py_cmd . 'swank_undefine_function("' . SlimvSelectSymbol() . '")' )
call SlimvRefreshReplBuffer()
endif
endfunction
" ---------------------------------------------------------------------
" Macroexpand-1 the current top level form
function! SlimvMacroexpand()
if SlimvConnectSwank()
if !SlimvSelectForm( 0 )
return
endif
let s:swank_form = SlimvGetSelection()
if exists( 'b:slimv_repl_buffer' )
" If this is the REPL buffer then go to EOF
call s:EndOfBuffer()
endif
call SlimvCommandUsePackage( s:py_cmd . 'swank_macroexpand("s:swank_form")' )
endif
endfunction
" Macroexpand the current top level form
function! SlimvMacroexpandAll()
if SlimvConnectSwank()
if !SlimvSelectForm( 0 )
return
endif
let s:swank_form = SlimvGetSelection()
if exists( 'b:slimv_repl_buffer' )
" If this is the REPL buffer then go to EOF
call s:EndOfBuffer()
endif
call SlimvCommandUsePackage( s:py_cmd . 'swank_macroexpand_all("s:swank_form")' )
endif
endfunction
" Toggle debugger break on exceptions
" Only for ritz-swank 0.4.0 and above
function! SlimvBreakOnException()
if SlimvGetFiletype() =~ '.*clojure.*' && s:SinceVersion( '2010-11-13' )
" swank-clojure is abandoned at protocol version 20100404, so it must be ritz-swank
if SlimvConnectSwank()
let s:break_on_exception = ! s:break_on_exception
call SlimvCommand( s:py_cmd . 'swank_break_on_exception(' . s:break_on_exception . ')' )
call SlimvRefreshReplBuffer()
echomsg 'Break On Exception ' . (s:break_on_exception ? 'enabled.' : 'disabled.')
endif
else
call SlimvError( "This function is implemented only for ritz-swank." )
endif
endfunction
" Set a breakpoint on the beginning of a function
function! SlimvBreak()
if SlimvConnectSwank()
let s = input( 'Set breakpoint: ', SlimvSelectSymbol() )
if s != ''
call SlimvCommandUsePackage( s:py_cmd . 'swank_set_break("' . s . '")' )
redraw!
endif
endif
endfunction
" Switch trace on for the selected function (toggle for swank)
function! SlimvTrace()
if SlimvGetFiletype() == 'scheme'
call SlimvError( "Tracing is not supported by swank-scheme." )
return
endif
if SlimvConnectSwank()
let s = input( '(Un)trace: ', SlimvSelectSymbol() )
if s != ''
call SlimvCommandUsePackage( s:py_cmd . 'swank_toggle_trace("' . s . '")' )
redraw!
endif
endif
endfunction
" Switch trace off for the selected function (or all functions for swank)
function! SlimvUntrace()
if SlimvGetFiletype() == 'scheme'
call SlimvError( "Tracing is not supported by swank-scheme." )
return
endif
if SlimvConnectSwank()
let s:refresh_disabled = 1
call SlimvCommand( s:py_cmd . 'swank_untrace_all()' )
let s:refresh_disabled = 0
call SlimvRefreshReplBuffer()
endif
endfunction
" Disassemble the selected function
function! SlimvDisassemble()
let symbol = SlimvSelectSymbol()
if SlimvConnectSwank()
let s = input( 'Disassemble: ', symbol )
if s != ''
call SlimvCommandUsePackage( s:py_cmd . 'swank_disassemble("' . s . '")' )
endif
endif
endfunction
" Inspect symbol under cursor
function! SlimvInspect()
if !SlimvConnectSwank()
return
endif
let s:inspect_path = []
let frame = s:DebugFrame()
if frame != ''
" Inspect selected for a frame in the debugger's Backtrace section
let line = getline( '.' )
if matchstr( line, s:frame_def ) != ''
" This is the base frame line in form ' 1: xxxxx'
let sym = ''
elseif matchstr( line, '^\s\+in "\(.*\)" \(line\|byte\)' ) != ''
" This is the source location line
let sym = ''
elseif matchstr( line, '^\s\+No source line information' ) != ''
" This is the no source location line
let sym = ''
elseif matchstr( line, '^\s\+Locals:' ) != ''
" This is the 'Locals' line
let sym = ''
else
let sym = SlimvSelectSymbolExt()
endif
let s = input( 'Inspect in frame ' . frame . ' (evaluated): ', sym )
if s != ''
let s:inspect_path = [s]
call SlimvCommand( s:py_cmd . 'swank_inspect_in_frame("' . s . '", ' . frame . ')' )
call SlimvRefreshReplBuffer()
endif
else
let s = input( 'Inspect: ', SlimvSelectSymbolExt() )
if s != ''
let s:inspect_path = [s]
call SlimvCommandUsePackage( s:py_cmd . 'swank_inspect("' . s . '")' )
endif
endif
endfunction
" Cross reference: who calls
function! SlimvXrefBase( text, cmd )
if SlimvConnectSwank()
let s = input( a:text, SlimvSelectSymbol() )
if s != ''
call SlimvCommandUsePackage( s:py_cmd . 'swank_xref("' . s . '", "' . a:cmd . '")' )
endif
endif
endfunction
" Cross reference: who calls
function! SlimvXrefCalls()
call SlimvXrefBase( 'Who calls: ', ':calls' )
endfunction
" Cross reference: who references
function! SlimvXrefReferences()
call SlimvXrefBase( 'Who references: ', ':references' )
endfunction
" Cross reference: who sets
function! SlimvXrefSets()
call SlimvXrefBase( 'Who sets: ', ':sets' )
endfunction
" Cross reference: who binds
function! SlimvXrefBinds()
call SlimvXrefBase( 'Who binds: ', ':binds' )
endfunction
" Cross reference: who macroexpands
function! SlimvXrefMacroexpands()
call SlimvXrefBase( 'Who macroexpands: ', ':macroexpands' )
endfunction
" Cross reference: who specializes
function! SlimvXrefSpecializes()
call SlimvXrefBase( 'Who specializes: ', ':specializes' )
endfunction
" Cross reference: list callers
function! SlimvXrefCallers()
call SlimvXrefBase( 'List callers: ', ':callers' )
endfunction
" Cross reference: list callees
function! SlimvXrefCallees()
call SlimvXrefBase( 'List callees: ', ':callees' )
endfunction
" ---------------------------------------------------------------------
" Switch or toggle profiling on for the selected function
function! SlimvProfile()
if SlimvConnectSwank()
let s = input( '(Un)profile: ', SlimvSelectSymbol() )
if s != ''
call SlimvCommandUsePackage( s:py_cmd . 'swank_toggle_profile("' . s . '")' )
redraw!
endif
endif
endfunction
" Switch profiling on based on substring
function! SlimvProfileSubstring()
if SlimvConnectSwank()
let s = input( 'Profile by matching substring: ', SlimvSelectSymbol() )
if s != ''
let p = input( 'Package (RET for all packages): ' )
call SlimvCommandUsePackage( s:py_cmd . 'swank_profile_substring("' . s . '","' . p . '")' )
redraw!
endif
endif
endfunction
" Switch profiling completely off
function! SlimvUnprofileAll()
if SlimvConnectSwank()
call SlimvCommandUsePackage( s:py_cmd . 'swank_unprofile_all()' )
endif
endfunction
" Display list of profiled functions
function! SlimvShowProfiled()
if SlimvConnectSwank()
call SlimvCommandUsePackage( s:py_cmd . 'swank_profiled_functions()' )
endif
endfunction
" Report profiling results
function! SlimvProfileReport()
if SlimvConnectSwank()
call SlimvCommandUsePackage( s:py_cmd . 'swank_profile_report()' )
endif
endfunction
" Reset profiling counters
function! SlimvProfileReset()
if SlimvConnectSwank()
call SlimvCommandUsePackage( s:py_cmd . 'swank_profile_reset()' )
endif
endfunction
" ---------------------------------------------------------------------
" Compile the current top-level form
function! SlimvCompileDefun()
let oldpos = winsaveview()
if !SlimvSelectDefun()
call winrestview( oldpos )
return
endif
if SlimvConnectSwank()
let s:swank_form = SlimvGetSelection()
call SlimvCommandUsePackage( s:py_cmd . 'swank_compile_string("s:swank_form")' )
endif
call winrestview( oldpos )
endfunction
" Compile and load whole file
function! SlimvCompileLoadFile()
if exists( 'b:slimv_repl_buffer' )
call SlimvError( "Cannot compile the REPL buffer." )
return
endif
let filename = fnamemodify( bufname(''), ':p' )
let filename = substitute( filename, '\\', '/', 'g' )
if &modified
let answer = SlimvErrorAsk( '', "Save file before compiling [Y/n]?" )
if answer[0] != 'n' && answer[0] != 'N'
write
endif
endif
if SlimvConnectSwank()
let s:compiled_file = ''
call SlimvCommandUsePackage( s:py_cmd . 'swank_compile_file("' . filename . '")' )
let starttime = localtime()
while s:compiled_file == '' && localtime()-starttime < g:slimv_timeout
call SlimvSwankResponse()
endwhile
if s:compiled_file != ''
let s:compiled_file = substitute( s:compiled_file, '\\', '/', 'g' )
call SlimvCommandUsePackage( s:py_cmd . 'swank_load_file("' . s:compiled_file . '")' )
let s:compiled_file = ''
endif
endif
endfunction
" Compile whole file
function! SlimvCompileFile()
if exists( 'b:slimv_repl_buffer' )
call SlimvError( "Cannot compile the REPL buffer." )
return
endif
let filename = fnamemodify( bufname(''), ':p' )
let filename = substitute( filename, '\\', '/', 'g' )
if &modified
let answer = SlimvErrorAsk( '', "Save file before compiling [Y/n]?" )
if answer[0] != 'n' && answer[0] != 'N'
write
endif
endif
if SlimvConnectSwank()
call SlimvCommandUsePackage( s:py_cmd . 'swank_compile_file("' . filename . '")' )
endif
endfunction
" Compile buffer lines in the given range
function! SlimvCompileRegion() range
if v:register == '"' || v:register == '+'
let lines = SlimvGetRegion(a:firstline, a:lastline)
else
" Register was passed, so compile register contents instead
let reg = getreg( v:register )
let ending = s:CloseForm( reg )
if ending == 'ERROR'
call SlimvError( 'Too many or invalid closing parens in register "' . v:register )
return
endif
let lines = [reg . ending]
endif
if lines == []
return
endif
let region = join( lines, "\n" )
if SlimvConnectSwank()
let s:swank_form = region
call SlimvCommandUsePackage( s:py_cmd . 'swank_compile_string("s:swank_form")' )
endif
endfunction
" ---------------------------------------------------------------------
" Describe the selected symbol
function! SlimvDescribeSymbol()
if SlimvConnectSwank()
let symbol = SlimvSelectSymbol()
if symbol == ''
call SlimvError( "No symbol under cursor." )
return
endif
call SlimvCommandUsePackage( s:py_cmd . 'swank_describe_symbol("' . symbol . '")' )
endif
endfunction
" Display symbol description in balloonexpr
function! SlimvDescribe(arg)
let arg=a:arg
if a:arg == ''
let arg = expand('<cword>')
endif
" We don't want to try connecting here ... the error message would just
" confuse the balloon logic
if !s:swank_connected || s:read_string_mode
return ''
endif
call SlimvFindPackage()
let arglist = SlimvCommandGetResponse( ':operator-arglist', s:py_cmd . 'swank_op_arglist("' . arg . '")', 0 )
if arglist == ''
" Not able to fetch arglist, assuming function is not defined
" Skip calling describe, otherwise SWANK goes into the debugger
return ''
endif
let msg = SlimvCommandGetResponse( ':describe-function', s:py_cmd . 'swank_describe_function("' . arg . '")', 0 )
if msg == ''
" No describe info, display arglist
if match( arglist, arg ) != 1
" Function name is not received from REPL
return "(" . arg . ' ' . arglist[1:]
else
return arglist
endif
else
return substitute(msg,'^\n*','','')
endif
endfunction
" Apropos of the selected symbol
function! SlimvApropos()
call SlimvEvalForm1( g:slimv_template_apropos, SlimvSelectSymbol() )
endfunction
" Generate tags file using ctags
function! SlimvGenerateTags()
if exists( 'g:slimv_ctags' ) && g:slimv_ctags != ''
execute 'silent !' . g:slimv_ctags
else
call SlimvError( "Copy ctags to the Vim path or define g:slimv_ctags." )
endif
endfunction
" ---------------------------------------------------------------------
" Find word in the CLHS symbol database, with exact or partial match.
" Return either the first symbol found with the associated URL,
" or the list of all symbols found without the associated URL.
function! SlimvFindSymbol( word, exact, all, db, root, init )
if a:word == ''
return []
endif
if !a:all && a:init != []
" Found something already at a previous db lookup, no need to search this db
return a:init
endif
let lst = a:init
let i = 0
let w = tolower( a:word )
if a:exact
while i < len( a:db )
" Try to find an exact match
if a:db[i][0] == w
" No reason to check a:all here
return [a:db[i][0], a:root . a:db[i][1]]
endif
let i = i + 1
endwhile
else
while i < len( a:db )
" Try to find the symbol starting with the given word
let w2 = escape( w, '~' )
if match( a:db[i][0], w2 ) == 0
if a:all
call add( lst, a:db[i][0] )
else
return [a:db[i][0], a:root . a:db[i][1]]
endif
endif
let i = i + 1
endwhile
endif
" Return whatever found so far
return lst
endfunction
" Lookup word in Common Lisp Hyperspec
function! SlimvLookup( word )
" First try an exact match
let w = a:word
let symbol = []
while symbol == []
let symbol = SlimvHyperspecLookup( w, 1, 0 )
if symbol == []
" Symbol not found, try a match on beginning of symbol name
let symbol = SlimvHyperspecLookup( w, 0, 0 )
if symbol == []
" We are out of luck, can't find anything
let msg = 'Symbol ' . w . ' not found. Hyperspec lookup word: '
let val = ''
else
let msg = 'Hyperspec lookup word: '
let val = symbol[0]
endif
" Ask user if this is that he/she meant
let w = input( msg, val )
if w == ''
" OK, user does not want to continue
return
endif
let symbol = []
endif
endwhile
if symbol != [] && len(symbol) > 1
" Symbol found, open HS page in browser
if match( symbol[1], ':' ) < 0 && exists( 'g:slimv_hs_root' )
let page = g:slimv_hs_root . symbol[1]
else
" URL is already a fully qualified address
let page = symbol[1]
endif
if exists( "g:slimv_browser_cmd" )
" We have a given shell command to start the browser
if !exists( "g:slimv_browser_cmd_suffix" )
" Fork the browser by default
let g:slimv_browser_cmd_suffix = '&'
endif
silent execute '! ' . g:slimv_browser_cmd . ' ' . page . ' ' . g:slimv_browser_cmd_suffix
elseif exists( "g:slimv_browser_cmd_ex" )
" We have a given Ex command to start the browser
silent execute g:slimv_browser_cmd_ex . ' ' . page
else
if g:slimv_windows
" Run the program associated with the .html extension
silent execute '! start ' . page
else
" On Linux it's not easy to determine the default browser
if executable( 'xdg-open' )
silent execute '! xdg-open ' . page . ' &'
else
" xdg-open not installed, ask help from Python webbrowser package
let pycmd = "import webbrowser; webbrowser.open('" . page . "')"
silent execute '! python -c "' . pycmd . '"'
endif
endif
endif
" This is needed especially when using text browsers
redraw!
endif
endfunction
" Lookup current symbol in the Common Lisp Hyperspec
function! SlimvHyperspec()
call SlimvLookup( SlimvSelectSymbol() )
endfunction
" Complete symbol name starting with 'base'
function! SlimvComplete( base )
" Find all symbols starting with "a:base"
if a:base == ''
return []
endif
if s:swank_connected && !s:read_string_mode
" Save current buffer and window in case a swank command causes a buffer change
let buf = bufnr( "%" )
if winnr('$') < 2
let win = 0
else
let win = winnr()
endif
call SlimvFindPackage()
if g:slimv_simple_compl
let msg = SlimvCommandGetResponse( ':simple-completions', s:py_cmd . 'swank_completions("' . a:base . '")', 0 )
else
let msg = SlimvCommandGetResponse( ':fuzzy-completions', s:py_cmd . 'swank_fuzzy_completions("' . a:base . '")', 0 )
endif
" Restore window and buffer, because it is not allowed to change buffer here
if win > 0 && winnr() != win
execute win . "wincmd w"
let msg = ''
endif
if bufnr( "%" ) != buf
execute "buf " . buf
let msg = ''
endif
if msg != ''
" We have a completion list from SWANK
let res = split( msg, '\n' )
return res
endif
endif
" No completion yet, try to fetch it from the Hyperspec database
let res = []
let symbol = SlimvHyperspecLookup( a:base, 0, 1 )
if symbol == []
return []
endif
call sort( symbol )
for m in symbol
if m =~ '^' . escape( a:base, '~' )
call add( res, m )
endif
endfor
return res
endfunction
" Complete function that uses the Hyperspec database
function! SlimvOmniComplete( findstart, base )
if a:findstart
" Locate the start of the symbol name
call s:SetKeyword()
let upto = strpart( getline( '.' ), 0, col( '.' ) - 1)
return match(upto, '\k\+$')
else
return SlimvComplete( a:base )
endif
endfunction
" Define complete function only if none is defined yet
if &omnifunc == ''
set omnifunc=SlimvOmniComplete
endif
" Complete function for user-defined commands
function! SlimvCommandComplete( arglead, cmdline, cursorpos )
" Locate the start of the symbol name
call s:SetKeyword()
let upto = strpart( a:cmdline, 0, a:cursorpos )
let base = matchstr(upto, '\k\+$')
let ext = matchstr(upto, '\S*\k\+$')
let compl = SlimvComplete( base )
if len(compl) > 0 && base != ext
" Command completion replaces whole word between spaces, so we
" need to add any prefix present in front of the keyword, like '('
let prefix = strpart( ext, 0, len(ext) - len(base) )
let i = 0
while i < len(compl)
let compl[i] = prefix . compl[i]
let i = i + 1
endwhile
endif
return compl
endfunction
" Create a tags file containing the definitions
" of the given symbol, then perform a tag lookup
function! SlimvFindDefinitionsForEmacs( symbol )
if g:slimv_tags_file == ''
let msg = ''
else
let msg = SlimvCommandGetResponse( ':find-definitions-for-emacs', s:py_cmd . 'swank_find_definitions_for_emacs("' . a:symbol . '")', 0 )
endif
try
if msg != ''
exec ":tjump " . msg
else
exec ":tjump " . a:symbol
endif
catch
call SlimvError( "\r" . v:exception )
endtry
endfunction
" Lookup definition(s) of the symbol under cursor
function! SlimvFindDefinitions()
if SlimvConnectSwank()
let symbol = SlimvSelectSymbol()
if symbol == ''
call SlimvError( "No symbol under cursor." )
return
endif
call SlimvFindPackage()
call SlimvFindDefinitionsForEmacs( symbol )
endif
endfunction
" Lookup definition(s) of symbol entered in prompt
function! SlimvFindDefinitionsPrompt()
if SlimvConnectSwank()
let symbol = input( 'Find Definitions For: ', SlimvSelectSymbol() )
echon "\r"
call SlimvFindDefinitionsForEmacs( symbol )
endif
endfunction
" Set current package
function! SlimvSetPackage()
if SlimvConnectSwank()
call SlimvFindPackage()
let pkg = input( 'Package: ', s:swank_package )
if pkg != ''
let s:refresh_disabled = 1
call SlimvCommand( s:py_cmd . 'swank_set_package("' . pkg . '")' )
let s:refresh_disabled = 0
call SlimvRefreshReplBuffer()
endif
endif
endfunction
" Close lisp process running the swank server
" and quit REPL buffer
function! SlimvQuitRepl()
if s:swank_connected
call SlimvCommand( s:py_cmd . 'swank_quit_lisp()' )
let s:swank_connected = 0
let buf = bufnr( '^' . g:slimv_repl_name . '$' )
if buf != -1
if g:slimv_repl_split
" REPL buffer exists, check if it is open in a window
let win = bufwinnr( buf )
if win != -1
" Switch to the REPL window and close it
if winnr() != win
execute win . "wincmd w"
endif
execute "wincmd c"
endif
endif
execute "bd " . buf
endif
endif
endfunction
" =====================================================================
" Slimv keybindings
" =====================================================================
" <Leader> timeouts in 1000 msec by default, if this is too short,
" then increase 'timeoutlen'
" Map keyboard keyset dependant shortcut to command and also add it to menu
function! s:MenuMap( name, shortcut1, shortcut2, command )
if g:slimv_keybindings == 1
" Short (one-key) keybinding set
let shortcut = a:shortcut1
elseif g:slimv_keybindings == 2
" Easy to remember (two-key) keybinding set
let shortcut = a:shortcut2
else
" No bindings
let shortcut = ''
endif
if shortcut != ''
execute "noremap <silent> " . shortcut . " " . a:command
if a:name != '' && g:slimv_menu == 1
silent execute "amenu " . a:name . "<Tab>" . shortcut . " " . a:command
endif
elseif a:name != '' && g:slimv_menu == 1
silent execute "amenu " . a:name . " " . a:command
endif
endfunction
" Initialize buffer by adding buffer specific mappings
function! SlimvInitBuffer()
" Map space to display function argument list in status line
if SlimvGetFiletype() == 'r'
inoremap <silent> <buffer> ( (<C-R>=SlimvArglist()<CR>
else
if !exists("g:slimv_unmap_space") || g:slimv_unmap_space == 0
inoremap <silent> <buffer> <Space> <Space><C-R>=SlimvArglist()<CR>
endif
if !exists("g:slimv_unmap_cr") || g:slimv_unmap_cr == 0
inoremap <silent> <buffer> <CR> <C-R>=pumvisible() ? "\<lt>C-Y>" : SlimvHandleEnter()<CR><C-R>=SlimvArglistOnEnter()<CR>
endif
endif
nnoremap <silent> <buffer> % :call SlimvFindMatchingPair()<CR>
"noremap <silent> <buffer> <C-C> :call SlimvInterrupt()<CR>
augroup SlimvInsertLeave
au!
au InsertEnter * :let s:save_showmode=&showmode
au InsertLeave * :let &showmode=s:save_showmode
augroup END
inoremap <silent> <buffer> <C-X>0 <C-O>:call SlimvCloseForm()<CR>
if !exists("g:slimv_unmap_tab") || g:slimv_unmap_tab == 0
inoremap <silent> <buffer> <Tab> <C-R>=SlimvHandleTab()<CR>
endif
inoremap <silent> <buffer> <S-Tab> <C-R>=pumvisible() ? "\<lt>C-P>" : "\<lt>S-Tab>"<CR>
if g:slimv_tags_file != ''
nnoremap <silent> <buffer> <C-]> :call SlimvFindDefinitions()<CR>
endif
" Setup balloonexp to display symbol description
if g:slimv_balloon && has( 'balloon_eval' )
"setlocal balloondelay=100
setlocal ballooneval
setlocal balloonexpr=SlimvDescribe(v:beval_text)
endif
" This is needed for safe switching of modified buffers
set hidden
call s:MakeWindowId()
endfunction
" Edit commands
call s:MenuMap( 'Slim&v.Edi&t.Close-&Form', g:slimv_leader.')', g:slimv_leader.'tc', ':<C-U>call SlimvCloseForm()<CR>' )
call s:MenuMap( 'Slim&v.Edi&t.&Complete-Symbol<Tab>Tab', '', '', '<Ins><C-X><C-O>' )
call s:MenuMap( 'Slim&v.Edi&t.Find-&Definitions\.\.\.', g:slimv_leader.'j', g:slimv_leader.'fd', ':call SlimvFindDefinitionsPrompt()<CR>' )
if exists( 'g:paredit_loaded' )
call s:MenuMap( 'Slim&v.Edi&t.&Paredit-Toggle', g:slimv_leader.'(', g:slimv_leader.'(t', ':<C-U>call PareditToggle()<CR>' )
call s:MenuMap( 'Slim&v.Edi&t.-PareditSep-', '', '', ':' )
if g:paredit_shortmaps
call s:MenuMap( 'Slim&v.Edi&t.Paredit-&Wrap<Tab>' .'W', '', '', ':<C-U>call PareditWrap("(",")")<CR>' )
call s:MenuMap( 'Slim&v.Edi&t.Paredit-Spli&ce<Tab>' .'S', '', '', ':<C-U>call PareditSplice()<CR>' )
call s:MenuMap( 'Slim&v.Edi&t.Paredit-&Split<Tab>' .'O', '', '', ':<C-U>call PareditSplit()<CR>' )
call s:MenuMap( 'Slim&v.Edi&t.Paredit-&Join<Tab>' .'J', '', '', ':<C-U>call PareditJoin()<CR>' )
call s:MenuMap( 'Slim&v.Edi&t.Paredit-Ra&ise<Tab>' .g:slimv_leader.'I', '', '', ':<C-U>call PareditRaise()<CR>' )
call s:MenuMap( 'Slim&v.Edi&t.Paredit-Move&Left<Tab>' .'<', '', '', ':<C-U>call PareditMoveLeft()<CR>' )
call s:MenuMap( 'Slim&v.Edi&t.Paredit-Move&Right<Tab>' .'>', '', '', ':<C-U>call PareditMoveRight()<CR>' )
else
call s:MenuMap( 'Slim&v.Edi&t.Paredit-&Wrap<Tab>' .g:slimv_leader.'W', '', '', ':<C-U>call PareditWrap("(",")")<CR>' )
call s:MenuMap( 'Slim&v.Edi&t.Paredit-Spli&ce<Tab>' .g:slimv_leader.'S', '', '', ':<C-U>call PareditSplice()<CR>' )
call s:MenuMap( 'Slim&v.Edi&t.Paredit-&Split<Tab>' .g:slimv_leader.'O', '', '', ':<C-U>call PareditSplit()<CR>' )
call s:MenuMap( 'Slim&v.Edi&t.Paredit-&Join<Tab>' .g:slimv_leader.'J', '', '', ':<C-U>call PareditJoin()<CR>' )
call s:MenuMap( 'Slim&v.Edi&t.Paredit-Ra&ise<Tab>' .g:slimv_leader.'I', '', '', ':<C-U>call PareditRaise()<CR>' )
call s:MenuMap( 'Slim&v.Edi&t.Paredit-Move&Left<Tab>' .g:slimv_leader.'<', '', '', ':<C-U>call PareditMoveLeft()<CR>' )
call s:MenuMap( 'Slim&v.Edi&t.Paredit-Move&Right<Tab>' .g:slimv_leader.'>', '', '', ':<C-U>call PareditMoveRight()<CR>' )
endif "g:paredit_shortmaps
endif "g:paredit_loaded
" Evaluation commands
call s:MenuMap( 'Slim&v.&Evaluation.Eval-&Defun', g:slimv_leader.'d', g:slimv_leader.'ed', ':<C-U>call SlimvEvalDefun()<CR>' )
call s:MenuMap( 'Slim&v.&Evaluation.Eval-Current-&Exp', g:slimv_leader.'e', g:slimv_leader.'ee', ':<C-U>call SlimvEvalExp()<CR>' )
call s:MenuMap( 'Slim&v.&Evaluation.Eval-&Region', g:slimv_leader.'r', g:slimv_leader.'er', ':call SlimvEvalRegion()<CR>' )
call s:MenuMap( 'Slim&v.&Evaluation.Eval-&Buffer', g:slimv_leader.'b', g:slimv_leader.'eb', ':<C-U>call SlimvEvalBuffer()<CR>' )
call s:MenuMap( 'Slim&v.&Evaluation.Interacti&ve-Eval\.\.\.', g:slimv_leader.'v', g:slimv_leader.'ei', ':call SlimvInteractiveEval()<CR>' )
call s:MenuMap( 'Slim&v.&Evaluation.&Undefine-Function', g:slimv_leader.'u', g:slimv_leader.'eu', ':call SlimvUndefineFunction()<CR>' )
" Debug commands
call s:MenuMap( 'Slim&v.De&bugging.Macroexpand-&1', g:slimv_leader.'1', g:slimv_leader.'m1', ':<C-U>call SlimvMacroexpand()<CR>' )
call s:MenuMap( 'Slim&v.De&bugging.&Macroexpand-All', g:slimv_leader.'m', g:slimv_leader.'ma', ':<C-U>call SlimvMacroexpandAll()<CR>' )
call s:MenuMap( 'Slim&v.De&bugging.Toggle-&Trace\.\.\.', g:slimv_leader.'t', g:slimv_leader.'dt', ':call SlimvTrace()<CR>' )
call s:MenuMap( 'Slim&v.De&bugging.U&ntrace-All', g:slimv_leader.'T', g:slimv_leader.'du', ':call SlimvUntrace()<CR>' )
call s:MenuMap( 'Slim&v.De&bugging.Set-&Breakpoint', g:slimv_leader.'B', g:slimv_leader.'db', ':call SlimvBreak()<CR>' )
call s:MenuMap( 'Slim&v.De&bugging.Break-on-&Exception', g:slimv_leader.'E', g:slimv_leader.'de', ':call SlimvBreakOnException()<CR>' )
call s:MenuMap( 'Slim&v.De&bugging.Disassemb&le\.\.\.', g:slimv_leader.'l', g:slimv_leader.'dd', ':call SlimvDisassemble()<CR>' )
call s:MenuMap( 'Slim&v.De&bugging.&Inspect\.\.\.', g:slimv_leader.'i', g:slimv_leader.'di', ':call SlimvInspect()<CR>' )
call s:MenuMap( 'Slim&v.De&bugging.-SldbSep-', '', '', ':' )
call s:MenuMap( 'Slim&v.De&bugging.&Abort', g:slimv_leader.'a', g:slimv_leader.'da', ':call SlimvDebugAbort()<CR>' )
call s:MenuMap( 'Slim&v.De&bugging.&Quit-to-Toplevel', g:slimv_leader.'q', g:slimv_leader.'dq', ':call SlimvDebugQuit()<CR>' )
call s:MenuMap( 'Slim&v.De&bugging.&Continue', g:slimv_leader.'n', g:slimv_leader.'dc', ':call SlimvDebugContinue()<CR>' )
call s:MenuMap( 'Slim&v.De&bugging.&Restart-Frame', g:slimv_leader.'N', g:slimv_leader.'dr', ':call SlimvDebugRestartFrame()<CR>' )
call s:MenuMap( 'Slim&v.De&bugging.&Step-Into', g:slimv_leader.'si', g:slimv_leader.'si', ':call SlimvDebugStepInto()<CR>' )
call s:MenuMap( 'Slim&v.De&bugging.&Step-Next', g:slimv_leader.'sn', g:slimv_leader.'sn', ':call SlimvDebugStepNext()<CR>' )
call s:MenuMap( 'Slim&v.De&bugging.&Step-Out', g:slimv_leader.'so', g:slimv_leader.'so', ':call SlimvDebugStepOut()<CR>' )
call s:MenuMap( 'Slim&v.De&bugging.-ThreadSep-', '', '', ':' )
call s:MenuMap( 'Slim&v.De&bugging.List-T&hreads', g:slimv_leader.'H', g:slimv_leader.'dl', ':call SlimvListThreads()<CR>' )
call s:MenuMap( 'Slim&v.De&bugging.&Kill-Thread\.\.\.', g:slimv_leader.'K', g:slimv_leader.'dk', ':call SlimvKillThread()<CR>' )
call s:MenuMap( 'Slim&v.De&bugging.&Debug-Thread\.\.\.', g:slimv_leader.'G', g:slimv_leader.'dT', ':call SlimvDebugThread()<CR>' )
" Compile commands
call s:MenuMap( 'Slim&v.&Compilation.Compile-&Defun', g:slimv_leader.'D', g:slimv_leader.'cd', ':<C-U>call SlimvCompileDefun()<CR>' )
call s:MenuMap( 'Slim&v.&Compilation.Compile-&Load-File', g:slimv_leader.'L', g:slimv_leader.'cl', ':<C-U>call SlimvCompileLoadFile()<CR>' )
call s:MenuMap( 'Slim&v.&Compilation.Compile-&File', g:slimv_leader.'F', g:slimv_leader.'cf', ':<C-U>call SlimvCompileFile()<CR>' )
call s:MenuMap( 'Slim&v.&Compilation.Compile-&Region', g:slimv_leader.'R', g:slimv_leader.'cr', ':call SlimvCompileRegion()<CR>' )
" Xref commands
call s:MenuMap( 'Slim&v.&Xref.Who-&Calls', g:slimv_leader.'xc', g:slimv_leader.'xc', ':call SlimvXrefCalls()<CR>' )
call s:MenuMap( 'Slim&v.&Xref.Who-&References', g:slimv_leader.'xr', g:slimv_leader.'xr', ':call SlimvXrefReferences()<CR>' )
call s:MenuMap( 'Slim&v.&Xref.Who-&Sets', g:slimv_leader.'xs', g:slimv_leader.'xs', ':call SlimvXrefSets()<CR>' )
call s:MenuMap( 'Slim&v.&Xref.Who-&Binds', g:slimv_leader.'xb', g:slimv_leader.'xb', ':call SlimvXrefBinds()<CR>' )
call s:MenuMap( 'Slim&v.&Xref.Who-&Macroexpands', g:slimv_leader.'xm', g:slimv_leader.'xm', ':call SlimvXrefMacroexpands()<CR>' )
call s:MenuMap( 'Slim&v.&Xref.Who-S&pecializes', g:slimv_leader.'xp', g:slimv_leader.'xp', ':call SlimvXrefSpecializes()<CR>' )
call s:MenuMap( 'Slim&v.&Xref.&List-Callers', g:slimv_leader.'xl', g:slimv_leader.'xl', ':call SlimvXrefCallers()<CR>' )
call s:MenuMap( 'Slim&v.&Xref.List-Call&ees', g:slimv_leader.'xe', g:slimv_leader.'xe', ':call SlimvXrefCallees()<CR>' )
" Profile commands
call s:MenuMap( 'Slim&v.&Profiling.Toggle-&Profile\.\.\.', g:slimv_leader.'p', g:slimv_leader.'pp', ':<C-U>call SlimvProfile()<CR>' )
call s:MenuMap( 'Slim&v.&Profiling.Profile-&By-Substring\.\.\.',g:slimv_leader.'P', g:slimv_leader.'pb', ':<C-U>call SlimvProfileSubstring()<CR>' )
call s:MenuMap( 'Slim&v.&Profiling.Unprofile-&All', g:slimv_leader.'U', g:slimv_leader.'pa', ':<C-U>call SlimvUnprofileAll()<CR>' )
call s:MenuMap( 'Slim&v.&Profiling.&Show-Profiled', g:slimv_leader.'?', g:slimv_leader.'ps', ':<C-U>call SlimvShowProfiled()<CR>' )
call s:MenuMap( 'Slim&v.&Profiling.-ProfilingSep-', '', '', ':' )
call s:MenuMap( 'Slim&v.&Profiling.Profile-Rep&ort', g:slimv_leader.'o', g:slimv_leader.'pr', ':<C-U>call SlimvProfileReport()<CR>' )
call s:MenuMap( 'Slim&v.&Profiling.Profile-&Reset', g:slimv_leader.'X', g:slimv_leader.'px', ':<C-U>call SlimvProfileReset()<CR>' )
" Documentation commands
call s:MenuMap( 'Slim&v.&Documentation.Describe-&Symbol', g:slimv_leader.'s', g:slimv_leader.'ds', ':call SlimvDescribeSymbol()<CR>' )
call s:MenuMap( 'Slim&v.&Documentation.&Apropos', g:slimv_leader.'A', g:slimv_leader.'dp', ':call SlimvApropos()<CR>' )
call s:MenuMap( 'Slim&v.&Documentation.&Hyperspec', g:slimv_leader.'h', g:slimv_leader.'dh', ':call SlimvHyperspec()<CR>' )
call s:MenuMap( 'Slim&v.&Documentation.Generate-&Tags', g:slimv_leader.']', g:slimv_leader.'dg', ':call SlimvGenerateTags()<CR>' )
" REPL commands
call s:MenuMap( 'Slim&v.&Repl.&Connect-Server', g:slimv_leader.'c', g:slimv_leader.'rc', ':call SlimvConnectServer()<CR>' )
call s:MenuMap( '', g:slimv_leader.'g', g:slimv_leader.'rp', ':call SlimvSetPackage()<CR>' )
call s:MenuMap( 'Slim&v.&Repl.Interrup&t-Lisp-Process', g:slimv_leader.'y', g:slimv_leader.'ri', ':call SlimvInterrupt()<CR>' )
call s:MenuMap( 'Slim&v.&Repl.Clear-&REPL', g:slimv_leader.'-', g:slimv_leader.'-', ':call SlimvClearReplBuffer()<CR>' )
call s:MenuMap( 'Slim&v.&Repl.&Quit-REPL', g:slimv_leader.'Q', g:slimv_leader.'rq', ':call SlimvQuitRepl()<CR>' )
" =====================================================================
" Slimv menu
" =====================================================================
if g:slimv_menu == 1
" Works only if 'wildcharm' is <Tab>
if &wildcharm == 0
set wildcharm=<Tab>
endif
if &wildcharm != 0
execute ':map ' . g:slimv_leader.', :emenu Slimv.' . nr2char( &wildcharm )
endif
endif
" Add REPL menu. This menu exist only for the REPL buffer.
function! SlimvAddReplMenu()
if &wildcharm != 0
execute ':map ' . g:slimv_leader.'\ :emenu REPL.' . nr2char( &wildcharm )
endif
amenu &REPL.Send-&Input :call SlimvSendCommand(0)<CR>
amenu &REPL.Cl&ose-Send-Input :call SlimvSendCommand(1)<CR>
amenu &REPL.Set-Packa&ge :call SlimvSetPackage()<CR>
amenu &REPL.Interrup&t-Lisp-Process <Esc>:<C-U>call SlimvInterrupt()<CR>
amenu &REPL.-REPLSep- :
amenu &REPL.&Previous-Input :call SlimvPreviousCommand()<CR>
amenu &REPL.&Next-Input :call SlimvNextCommand()<CR>
amenu &REPL.Clear-&REPL :call SlimvClearReplBuffer()<CR>
endfunction
" =====================================================================
" Slimv commands
" =====================================================================
command! -complete=customlist,SlimvCommandComplete -nargs=* Lisp call SlimvEval([<q-args>])
command! -complete=customlist,SlimvCommandComplete -nargs=* Eval call SlimvEval([<q-args>])
" Switch on syntax highlighting
if !exists("g:syntax_on")
syntax on
endif