Re: Saving signs

[Christian Brabandt]

Hi

On Mi, 24 Feb 2010, Christian Brabandt wrote:
> You probably have to do it manually by parsing the output of :sign list 
> and :sign place.

Try the attached plugin.

Mit freundlichen Grüßen
Christian
-- 
Die Geschichte der Wissenschaften ist eine große Fuge, in der die 
Stimmen der Völker nach und nach zum Vorschein kommen.
                -- Goethe, Maximen und Reflektionen, Nr. 95

-- 
You received this message from the "vim_use" maillist.
For more information, visit http://www.vim.org/maillist.php
fu! <sid>ParseSignsOutput(...)
    let s:signs=[]
    let s:signdict={}
    redir => a
        sil sign list
    redir end

    
    let s:signs=split(a, '\n')
    call insert(s:signs, '" Define Signs')
    call map(s:signs, 'substitute(v:val, "^sign", "& define", "")')
    let s:signs += [ '', '" Define Placement of Signs' ]

    redir => a
        sil sign place
    redir end

    let list=split(a, '\n')[1:]
    call filter(list, "!empty(v:val)")
    let fname=""
    let pat='^Signs for \zs.*\ze:'
    for val in list
        if match(val, pat) >= 0
            let fname=fnamemodify(matchstr(val, pat), ':p')
            let s:signdict[fname]=[]
        else
            let place=split(val, '\s\+')
            if place[2] =~ '\[Deleted\]'
                continue
            endif
            call add(s:signdict[fname], "\tsign place " . 
matchstr(place[1],'id=\zs.*')  . " " . place[0] . " " . place[2] . " 
file=".fname )
        endif
    endfor
    for file in keys(s:signdict)
        call insert(s:signdict[file], "if bufexists('" . file . "')")
        call add(s:signdict[file], "endif")
    endfor
    call <sid>CreateSignFiles(exists("a:1") ? a:1 : '', empty(a:2) ? 0 : 1)
endfu

fun! <sid>CreateSignFiles(fname, force)
    if !empty(s:signs) && !empty(keys(s:signdict))
        if !empty(a:fname) && !isdirectory(a:fname) && (a:force || 
!filereadable(a:fname))
            let filename=a:fname
        else
            if filereadable(a:fname)
                echohl WarningMsg
                echomsg "File " . a:fname . " exists! Creating new file"
                echomsg "Use ! to override"
                echohl Normal
            endif
            let filename=tempname()
        endif

        if bufloaded(filename)
            exe bufwinnr(filename) . "wincmd w"
        else
            exe ":sp" filename
        endif
        %d

        call append('.', [ '" Remove all previously placed signs' , 'sign 
unplace *', ''])
        $
        call append('.', [
                    \'" Undefine all previously defined signs' ,
                    \'redir => a | exe "sil sign list" | redir end',
                    \'let signlist=split(a, "\n")',
                    \"call map(signlist, '\"sign undefine \" . split(v:val, 
''\\s\\+'')[1]')",
                    \'for sign in signlist | exe sign | endfor ', 
                    \''])
        $
        call append('.',s:signs)
        for file in keys(s:signdict)
            call append('$', s:signdict[file])
        endfor
        setf vim
        "setl nomodified
    endif
endfun


com! -nargs=? -bang -complete=file Signs :call <sid>ParseSignsOutput(<q-args>, 
"<bang>")