İşlev tamamlanıncaya kadar ekranın yenilenmesini önleyin


10

Ben mevcut vim tampon içine metin hareketli ve çıktı bir sürü yapar bir işlevi var ve ben çalıştırdığınızda, körleme hızında olan her şeyi görmek biraz rahatsız edici.

İşlev tamamlanana kadar ekranı nasıl dondurabilirim?

Söz konusu işlev şunlardır:

function! MakeChoices()
    :let save_view = winsaveview()
    let start = line('.')

    "Locate previous *choice. (b=backwards, W=nowrap, n=doNot move cursor)
    let choiceStartLine = search('^*choice', 'bW')

    if !choiceStartLine
        echo "No *choice found. (*choice must not be indented. This is to avoid finding *choice blocks nested in another *choice block.)"
        return -1
    endif
    "return getline(target_line_num, target_line_num+4)
    "Locate end of *choice block
    "echo getline(choiceStartLine, choiceStartLine+2)
    let choiceEndLine = search('^\S.*', 'W') "End is first line that starts with non-whitespace

    "If above search fails, might be at bottom of buffer
    if choiceEndLine == 0
        let choiceEndLine = search('^$', 'W') "End is first empty line
    endif

    "Now go back up to the last *goto
    let choiceEndLine = search('*goto', 'bW')

    "Get the entire *choice block and put it in gotoBlock
    let gotoBlock = getline(choiceStartLine, choiceEndLine)

    "Make labelArray (contains all labels to goto)
    let labelArray = []

    for cur in gotoBlock
        if match(cur, '*goto') != -1
            "echo 'cur: '.cur
            let curParsed = matchlist(cur, '*goto \(\S\+\)')
            "echo curParsed
            if len(curParsed) > 1
                let curLabel = curParsed[1]
            else
                echo 'ERROR: Bad *goto ('.cur.')'
                return -1
            endif
            call add(labelArray, curLabel)  
        endif
    endfor

    "Restore window to what it looked like (in case the searches scrolled
    "it)
    call winrestview(save_view)

    "Make newline after choice block if needed
    if strlen(getline(choiceEndLine+1)) > 0
        echo 'big line: '.getline(choiceEndLine+1)
        call cursor(choiceEndLine, 1)
        put=''
    endif

    call cursor(choiceEndLine+1, 1)

    "Put the new label blocks
    let skippedLabels = ''
    let numNewLabels = 0
    for cur in labelArray
        if !search('*label '.cur, 'wn')
            let numNewLabels += 1
            put='*label '.cur
            put='[This option is yet to be written.]'
            put=''
        else
            let skippedLabels .= cur.' '
        endif
    endfor

    "Remove trailing blank lines (Up to a point)
    let nextlines = getline(line('.')+1, line('.')+3)
    if len(nextlines) == 3
        if nextlines[0] == '' && nextlines[1] == '' && nextlines[2] == ''
            normal "_3dd
        elseif nextlines[0] == '' && nextlines[1] == ''
            normal "_2dd
        elseif nextlines[0] == ''
            normal "_dd
        endif
    endif

    "Move to first label's text (use ctrl-v ctrl-m to input the <CR> at
    "end)
    if numNewLabels != 0
        call cursor(choiceEndLine, 1)
        normal /\[This option is yet to be written.\]
        let @/='\[This option is yet to be written\.\]'
    endif

    "Print status message
    if len(skippedLabels) > 0
        echo 'Skipped: '.skippedLabels
    else
        echo 'New labels created: '.numNewLabels
    endif
endfunction

2
Yardımcı :set lazyredrawolur mu?
VanLaser

Üzgünüm hayır. Bu sadece makrolara yardımcı olur. Sadece denedim ve fonksiyonum için işe yaramadı.
Flurrywinde

2
Bunu (gVim için işe yaramaz) terminal penceresini dondurmak dışında, bunu yapmak için herhangi bir yol bilmiyorum. Ama belki de işlevinizi daha az ekran güncellemesiyle çalıştırmanın başka bir yolu var mı? Eğer fonksiyonunuzu yayınladıysanız yardımcı olur ;-)
Martin Tournoij

Siz istediniz, @Carpetsmoker. ;-) İşlev eklendi. (Oldukça uzun.)
Flurrywinde

Yanıtlar:


5

:lazyredrawBelgelerden anladığım gibi, işlevler için çalışması gereken sorun olmadığını düşünüyorum (bkz. :help :redraw"Ekranın yarısını bir komut dosyası veya işlev yürütürken güncellemek yararlıdır").

Sorun, normalarabelleği güncelleştirmek için kullandığınız ve aslında bir şey yazarsanız ve burada :lazyredrawbir etkisi yok gibi çalışır .

Bunun yerine normalmetin düzenleme işlevlerini (like setline()) ve ex komutlarını (like :delete) kullanmanız gerekir.

Bu iki işlevi karşılaştırın, birincisi, MakeChangesNorm()bazı çılgın ekran güncellemeleri yaparken, ikincisi MakeChangesFunctions()güncellemeyi anında yapacak:

function! MakeChangesNorm()
    let lastline = line('$')
    norm gg
    let linenum = line('.')
    let lastline = line('$')
    while linenum < lastline
        norm ^
        norm s/choice/test/
        norm j
        normal "_3dd
        let linenum = line('.')
        let lastline = line('$')
    endwhile
endfunction


function! MakeChangesFunctions()
    norm gg
    let linenum = line('.')
    let lastline = line('$')
    while linenum < lastline
        let line = getline(linenum)
        " Substitute using substitute() and setline()
        let line = substitute(line, 'choice', 'test', '')
        call setline(linenum, line)
        " Delete lines using :delete
        execute '.,.+2delete _'
        let linenum = line('.')
        let lastline = line('$')
    endwhile
endfunction

Test ettiğim dosya şöyle:

*choice test2 test3 super
*choice test2 test3 super
*choice test2 test3 super
*choice test2 test3 super
*choice test2 test3 super
*choice test2 test3 super
*choice test2 test3 super
*choice test2 test3 super
*choice test2 test3 super
*choice test2 test3 super
... 60 lines like this ...

Açık olmak gerekirse; birkaç normal komut vermenin ve sonraki bir "ekranı geri yükle" komutuna kadar ekranın güncellenmesini tamamen ertelemenin bir yolu yok mu? Anladığım winsaveviewve winrestviewimlecin konumunu ve çizginin göreli konumunu pencerede saklamak.
Luke Davis

Bunu başka bir soruda soracağım.
Luke Davis
Sitemizi kullandığınızda şunları okuyup anladığınızı kabul etmiş olursunuz: Çerez Politikası ve Gizlilik Politikası.
Licensed under cc by-sa 3.0 with attribution required.