new: quickui#tools#preview_tag

Author: skywind3000

autoload/quickui/core.vim

@@ -213,7 +213,7 @@ endfunc
 
 
 "----------------------------------------------------------------------
-" object
+" tabpage instance
 "----------------------------------------------------------------------
 function! quickui#core#instance()
 	if exists('t:__quickui__')
@@ -224,6 +224,18 @@ function! quickui#core#instance()
 endfunc
 
 
+"----------------------------------------------------------------------
+" buffer instance
+"----------------------------------------------------------------------
+function! quickui#core#object()
+	if exists('b:__quickui__')
+		return b:__quickui__
+	endif
+	let b:__quickui__ = {}
+	return b:__quickui__
+endfunc
+
+
 "----------------------------------------------------------------------
 " object cache: acquire
 "----------------------------------------------------------------------

autoload/quickui/style.vim

@@ -14,7 +14,7 @@ let g:quickui#style#border = get(g:, 'quickui#style#border', 1)
 
 let g:quickui#style#tip_head = '[tip]'
 
-let g:quickui#style#preview_w = 90
+let g:quickui#style#preview_w = 85
 let g:quickui#style#preview_h = 10
 let g:quickui#style#preview_number = 1
 

autoload/quickui/tools.vim

@@ -269,6 +269,64 @@ function! quickui#tools#preview_quickfix(...)
 endfunc
 
 
+"----------------------------------------------------------------------
+" preview tag
+"----------------------------------------------------------------------
+function! quickui#tools#preview_tag(tagname)
+	let tagname = (a:tagname == '')? expand('<cword>') : a:tagname
+	if tagname == ''
+		call quickui#utils#errmsg('Error: empty tagname')
+		return 0
+	endif
+	let obj = quickui#core#object()
+	let reuse = 0
+	if has_key(obj, 'ptag')
+		let ptag = obj.ptag
+		if get(ptag, 'tagname', '') == tagname
+			let reuse = 1
+		endif
+	endif
+	if reuse == 0
+		let obj.ptag = {}
+		let ptag = obj.ptag
+		let ptag.taglist = quickui#tags#tagfind(tagname)
+		let ptag.tagname = tagname
+		let ptag.index = 0
+	else
+		let ptag = obj.ptag
+		let ptag.index += 1
+		if ptag.index >= len(ptag.taglist)
+			let ptag.index = 0
+		endif
+	endif
+	if len(ptag.taglist) == 0
+		call quickui#utils#errmsg('E257: preview: tag not find "' . a:tagname . '"')
+		return 1
+	endif
+	if ptag.index >= len(ptag.taglist) || ptag.index < 0
+		let ptag.index = 0
+	endif
+	let taginfo = ptag.taglist[ptag.index]
+	let filename = taginfo.filename
+	if !filereadable(filename)
+		call quickui#utils#errmsg('E484: Can not open file '.filename)
+		return 2
+	endif
+	if !has_key(taginfo, 'line')
+		call quickui#utils#errmsg('Error: no "line" information in your tags, regenerate with -n')
+		return 3
+	endif
+	call quickui#preview#open(filename, taginfo.line)
+	let text = taginfo.name
+	let text.= ' ('.(ptag.index + 1).'/'.len(ptag.taglist).') '
+	let text.= filename
+	if has_key(taginfo, 'line')
+		let text .= ':'.taginfo.line
+	endif
+	call quickui#utils#print(text, 1)
+	return 0
+endfunc
+
 
 "----------------------------------------------------------------------
 " display vim help in popup
@@ -316,3 +374,4 @@ function! quickui#tools#display_help(tag)
 endfunc
 
 
+

autoload/quickui/utils.vim

@@ -229,11 +229,45 @@ endfunc
 function! quickui#utils#errmsg(what)
 	redraw
 	echohl ErrorMsg
-	echo a:what
+	echom a:what
 	echohl None
 endfunc
 
 
+"----------------------------------------------------------------------
+" safe print
+"----------------------------------------------------------------------
+function! quickui#utils#print(content, highlight, ...)
+	let saveshow = &showmode
+	set noshowmode
+    let wincols = &columns
+    let statusline = (&laststatus==1 && winnr('$')>1) || (&laststatus==2)
+    let reqspaces_lastline = (statusline || !&ruler) ? 12 : 29
+    let width = len(a:content)
+    let limit = wincols - reqspaces_lastline
+	let l:content = a:content
+	if width + 1 > limit
+		let l:content = strpart(l:content, 0, limit - 1)
+		let width = len(l:content)
+	endif
+	" prevent scrolling caused by multiple echo
+	let needredraw = (a:0 >= 1)? a:1 : 1
+	if needredraw != 0
+		redraw 
+	endif
+	if a:highlight != 0
+		echohl Type
+		echo l:content
+		echohl NONE
+	else
+		echo l:content
+	endif
+	if saveshow != 0
+		set showmode
+	endif
+endfunc
+
+
 "----------------------------------------------------------------------
 " max height
 "----------------------------------------------------------------------