github-migration/vim-fireplace
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Apply fnameescape() to source location

Browse Source 
References #40.
This commit is contained in:
Tim Pope 2013-01-19 16:30:55 -05:00
parent da70e71023
commit 274c4da054
1 changed files with 17 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
plugin/foreplay.vim
View File

@ -451,7 +451,8 @@ function! foreplay#evalprint(expr) abort
return '' return ''
endfunction endfunction
function! foreplay#evalparse(expr) abort function! foreplay#evalparse(expr, ...) abort
let options = extend({'session': 0}, a:0 ? a:1 : {})
let response = s:eval( let response = s:eval(
\ '(symbol ((fn *vimify [x]' . \ '(symbol ((fn *vimify [x]' .
\ ' (cond' . \ ' (cond' .
@ -460,7 +461,7 @@ function! foreplay#evalparse(expr) abort
\ ' (number? x) (pr-str x)' . \ ' (number? x) (pr-str x)' .
\ ' (keyword? x) (pr-str (name x))' . \ ' (keyword? x) (pr-str (name x))' .
\ ' :else (pr-str (str x)))) '.a:expr.'))', \ ' :else (pr-str (str x)))) '.a:expr.'))',
\ {'session': 0}) \ options)
call s:output_response(response) call s:output_response(response)
if get(response, 'ex', '') !=# '' if get(response, 'ex', '') !=# ''
@ -727,17 +728,21 @@ augroup END
" Go to source {{{1 " Go to source {{{1
function! foreplay#source(symbol) abort function! foreplay#source(symbol) abort
let options = {'client': foreplay#local_client(), 'ns': foreplay#ns(), 'session': 0} let options = {'client': foreplay#local_client()}
let cmd = let cmd =
\ " (when-let [v (resolve " . s:qsym(a:symbol) .')]' . \ '(when-let [v (resolve ' . s:qsym(a:symbol) .')]' .
\ ' (when-let [filepath (:file (meta v))]' . \ ' (when-let [filepath (:file (meta v))]' .
\ ' (when-let [url (.getResource (clojure.lang.RT/baseLoader) filepath)]' . \ ' (when-let [url (.getResource (clojure.lang.RT/baseLoader) filepath)]' .
\ ' (symbol (str (str "+" (:line (meta v))) " "' . \ ' [(if (= "jar" (.getProtocol url))' .
\ ' (if (= "jar" (.getProtocol url))' .
\ ' (str "zip" (.replaceFirst (.getFile url) "!/" "::"))' . \ ' (str "zip" (.replaceFirst (.getFile url) "!/" "::"))' .
\ ' (.getFile url)))))))' \ ' (.getFile url))' .
let result = get(split(s:eval(cmd, options).value, "\n"), 0, '') \ ' (:line (meta v))])))'
return result ==# 'nil' ? '' : result let result = foreplay#evalparse(cmd, options)
if type(result) == type([])
return '+' . result[1] . ' ' . fnameescape(result[0])
else
return ''
endif
endfunction endfunction
function! s:Edit(cmd, keyword) abort function! s:Edit(cmd, keyword) abort