user.vim

" Functions {{{1
" Add (push) spaces to make next word align with line above.
function! PushLine()
    let s:h=virtcol('.')
    normal w
    let s:clp=virtcol('.')
    execute "normal! " . s:h . "|"
    normal khw
    let s:plp=virtcol('.')

    if (s:plp - s:clp) > 0
        execute "normal! " . s:clp . "|"
        normal j
        execute "normal! " . (s:plp - s:clp) . "i "
    else
        execute "normal! " . s:plp . "|"
        normal j
        execute "normal! dw"
    endif

    execute "normal! " . s:h . "|"
    normal j
endfunction

function! ShowColours()
    :e new.txt
    set spell!
    call termopen("showcolors")
endfunction

function! ShowChars()
    :e new.txt
    set spell!
    call termopen("showchars")
endfunction

function! SnippetList()
    let cmd="snippetsList " . &ft
    :e new.txt
    set spell!
    call termopen(cmd)
endfunction

function! SnippetEdit()
    let fname = $HOME . "/.config/lvim/snippets/" . &ft . ".json"
    silent exec ":e " . fname
endfunction

function! SnippetSave()
    let fname = $HOME . "/.config/lvim/snippets/" . &ft . ".json"
    let keyName = input("Snippet keys: ")
    let desc = input("Snippet description: ")
    echo "."
    echo "Saving snippet: " . keyName . "\"" . desc . "\" to " . fname
    let alist = []

    for line in readfile(fname)
        call add(alist, line)
    endfor

    let newlist = alist[0:len(alist)-3]

    call add(newlist, "  },")
    call add(newlist, "  \"" . keyName  ."\": {")
    call add(newlist, "    \"body\": [")
    let txt = split(getreg('"'), '\n')

    for line in txt
        let line = substitute(line, '\','\\\\', "g")
        let line = substitute(line, '"','\\\"', "g")
        let line = substitute(line, '\$','\\\\$', "g")
        call add(newlist, "      \"" . line . "\",")
    endfor

    call add(newlist, "      \"$0\"")
    call add(newlist, "    ],")
    call add(newlist, "    \"description\": \"" . desc . "\",")
    call add(newlist, "    \"prefix\": \"" . keyName . "\"")
    call add(newlist, "  }")
    call add(newlist, "}")

    call writefile(newlist, fname)
    silent exec ":e " . fname
endfunction

function! OpenHelpAndCheatSheets()
    let folder = "/home/jim/Nextcloud/CheatSheets/"
    let number = 2 " The number to display to the user.
    let cheattext = [] " The text to display to the user.
    let cheaturis = [] " The files/URL's to open.

    " Header and blank line.
    call add(cheattext, " ﯭ Help and Cheat Sheets for ".&filetype)
    call add(cheattext, "")

    if filereadable(folder.&filetype.'.md')
        call add(cheattext, '   1  Edit פֿ '.&filetype.'.md')
        call add(cheaturis, folder.&filetype.'.md')
        call add(cheattext, "")
    endif

    " Get list of PDF's.
    " Note java and javascript are treated as different languages.
    " java_script is treated as part of java's help....
    let files = readdir(folder, {n -> n =~ &filetype.'.pdf$'})
    let files += readdir(folder, {n -> n =~ &filetype.'_.*.pdf$'})

    for file in files
        let text = substitute(file, '.pdf$', '', '')
        let text = substitute(text, '^'.&filetype.'_', '', '')
        let text = substitute(text, '_', ' ', 'g')
        let text = substitute(text, '^'.&filetype.'$', 'Main Help Document', '')
        let text=printf("%-40s", text)
        let numberstr=printf("%2d", number)
        call add(cheattext, '  '.numberstr.'  '.text.'      '.file)
        call add(cheaturis, folder.file)
        let number += 1
    endfor

    if number > 2
        call add(cheattext, "")
    endif

    " Get list of URL's from Markdown files.
    let files = readdir(folder, {n -> n =~ &filetype.'.*.md$'})
    call add(files, 'universal.md')

    for file in files
        let lines = readfile(folder.file)

        for line in lines
            let p = stridx(line, "](")
            let text = printf("%-40s", strpart(line, 1, p-1))
            let url = strpart(line, p+2, strlen(line)-p-3)
            let numberstr=printf("%2d", number)
            call add(cheattext, '  '.numberstr.'  '.text.'     爵'.url)
            let url = substitute(url, '#', '\\#', 'g')
            call add(cheaturis, url)
            let number += 1
        endfor

        " Add a blank line.
        call add(cheattext, "")
    endfor

    " Add a blank line.
    " call add(cheattext, "")

    " Ask user:
    let answer = inputlist(cheattext)
    let fname = folder.&filetype.'.md'

    if answer == 1 && filereadable(fname)
        silent execute "e " . fnameescape(fname)
    elseif answer > 0 && answer <= len(cheaturis)
        silent exec ':!openf "'.cheaturis[answer-1].'"'
    endif
endfunction

function! UpdateChangeHistory()
    silent exec ":!$HOME/bin/updateChangeHistory " . expand('%:p')
endfunction
function! ExecuteCurrentLine()
    let line=getline('.')
    if line != ""
        let $CURCMD=line
        term bash -c $CURCMD
        echo "Running : ".line
    else
        echo "No Text under cursor."
    endif
endfunction

function! FigletCurrentLine()
    let line=getline('.')
    echo 'Bannerizing "'.line.'"'
    normal ddk

    let comment=split(&commentstring, '%s')
    let cs=comment[0]
    let ce=""

    if len(comment)==2
        let ce=comment[1]
    endif

    silent exec ':read !/home/jim/bin/dotfiles/bin/ban "'.cs.'" "'.ce.'" "'.line.'"'
endfunction

function! PrettyPrintFile()
    silent write
    silent exec ':!prettyPrint "'.expand("%:p").'"'
    echo "Code not formatted"
endfunction

function! SqlFlip()
    silent exec ':!$HOME/bin/sak sqlflip'
endfunction

" Jump, looks under the cursor for a URL, Hex Code, GithubProject, Word...!
function! JumpToSelection()
    silent exec ":!$HOME/bin/vimgj " . expand('%:p') . " " . line('.') . " " . col('.')
endfunction

" Use Jira command line tool to show info for current ticket (if under cursor)
" or branch for current project file is in.
function! ShowJira()
    let wordUnderCursor = expand("<cWORD>")
    let jiraTicket = matchstr(wordUnderCursor, '[a-zA-Z]\{2,4}-[0-9]\{1,7}')

    if jiraTicket != ""
        let $TICKET=jiraTicket
        term $HOME/bin/Jira show $TICKET
    else
        term $HOME/bin/Jira show
    endif
endfunction

function! OpenHelpPage()
    let s:help_word = expand('<cword>')
    :exe ":help " . s:help_word
endfunction

function! ToggleColourCursorLine()
    if &cursorline
        set nocursorline
    else
        set cursorline
        highlight CursorLine                        guibg=#605555
    endif
endfunction

function! ToggleColourCursorColumn()
    if &cursorcolumn
        set nocursorcolumn
    else
        set cursorcolumn
        highlight CursorColumn    guifg=#ffffff     guibg=#483d8b
    endif
endfunction

function! ToggleColourLineTooLong()
    if &colorcolumn == 0
        set colorcolumn=80,120,200
        highlight longLine                          guibg=#5F3F3F
    else
        set colorcolumn=0
        highlight longLine        NONE
    endif
endfunction

function! ToggleColourWhiteSpaceAtEndOfLine()
    if synIDattr(hlID("extraWhitespace"), "bg", "gui") == "Red"
        highlight extraWhitespace NONE
    else
        highlight extraWhitespace                   guibg=Red
    endif
endfunction

let s:blameline=1
function! ToggleColourGitBlame()
    if s:blameline
        let s:blameline=0
    else
        let s:blameline=1
    endif
    Gitsigns toggle_current_line_blame
endfunction

function! ToggleColourSyntax()
    if exists("g:syntax_on")
        syntax off
    else
        syntax enable
    endif
endfunction

function! ToggleColourIncSearch()
    if synIDattr(hlID("IncSearch"), "bg", "gui") == "#3f1f1f"
        highlight IncSearch NONE
    else
        highlight IncSearch      gui=bold              guibg=#3f1f1f
    endif
endfunction

function! ToggleGutter()
    if &foldcolumn == 1
        set foldcolumn=0
        set nonumber
        set norelativenumber
        Gitsigns detach
    else
        set foldcolumn=1
        set number
        highlight LineNr          guifg=RoyalBlue1  guibg=Gray19
        set relativenumber
        highlight CursorLineNr    guifg=Yellow      guibg=Gray19
        Gitsigns attach
    endif
endfunction

let s:markerline=1
function! ToggleMarkerLines()
    if s:markerline
        let s:markerline=0
        highlight markerLineCommentAmber        NONE
        highlight markerLineCommentGreen        NONE
        highlight markerLineCommentRed          NONE
        highlight markerLineCommentBrightRed    NONE
    else
        let s:markerline=1
        highlight markerLineCommentAmber               guifg=#000000     guibg=#999900
        highlight markerLineCommentGreen               guifg=#000000     guibg=#009900
        highlight markerLineCommentRed                 guifg=#000000     guibg=#990000
        highlight markerLineCommentBrightRed           guifg=#000000     guibg=#FF0000
    endif
endfunction

function ToggleAll()
    call ToggleColourCursorColumn()
    call ToggleColourLineTooLong()
    call ToggleColourWhiteSpaceAtEndOfLine()
    call ToggleColourGitBlame()
    call ToggleColourIncSearch()
    call ToggleMarkerLines()
    set spell!
    set list!
    set foldenable!
    highlight markerStart NONE
    highlight markerEnd NONE
endfunction

" Delete whitespace at end of lines, and put cursor back to where it started.
function! DeleteEndingWhiteSpace()
    let current_position=getpos(".")
    let reg=@/
    %s/\s*$//
    let @/=reg
    unlet reg
    call setpos('.', current_position)
    unlet current_position
endfunction

" Highlight a column in CSV text.
" See: https://vim.fandom.com/wiki/Working_with_CSV_files
" :Csv 1    " highlight first column
" :Csv 12   " highlight twelfth column
" :Csv 0    " switch off highlight
highlight CsvColHeading guifg=Yellow guibg=Black
function! CSVH(colnr)
    if a:colnr > 1
        let n = a:colnr - 1

        execute 'match CsvColHeading /^\([^,]*,\)\{'.n.'}\zs[^,]*/'
        " execute 'match CsvColHighlight /^\([^,|\t]*[,|\t]\)\{'.n.'}\zs[^,|\t]*/'
        execute 'normal! 0'.n.'f,'
        execute 'syntax match csvHeading /\%1l\%(\%("\zs\%([^"]\|""\)*\ze"\)\|\%(\zs[^,"]*\ze\)\)/'
        execute 'highlight csvHeading guifg=Yellow guibg=Black gui=bold'
    elseif a:colnr == 1
        match CsvColHighlight /^[^,|\t]*/
        normal! 0
    else
        match
    endif
endfunction

function FoldingToggle()
    if &foldmethod == 'diff'
        if &foldenable == 1
            set foldenable!
            echo "Folding switched off"
            highlight markerStart              NONE
            highlight markerEnd                NONE
        else
            highlight markerStart              guifg=#777777     guibg=#000000
            highlight markerEnd                guifg=#777777     guibg=#000000
            set foldenable
            set foldmethod=manual
            echo "Folding method set to Manual"
        endif
    elseif &foldmethod == 'manual'
        set foldenable
        set foldmethod=indent
        echo "Folding method set to Indent"
    elseif &foldmethod == 'indent'
        set foldenable
        set foldmethod=marker
        echo "Folding method set to Marker"
    elseif &foldmethod == 'marker'
        set foldenable
        set foldmethod=syntax
        echo "Folding method set to Syntax"
    elseif &foldmethod == 'syntax'
        set foldenable
        set foldmethod=diff
        echo "Folding method set to Diff"
    endif
endfunction

function FullScreenToggle()
    let g:neovide_fullscreen=!g:neovide_fullscreen
endfunction

" function! s:SilentSudoCmd(editor) abort
"   let cmd = 'env SUDO_EDITOR=' . a:editor . ' VISUAL=' . a:editor . ' sudo -e'
"   let local_nvim = has('nvim') && len($DISPLAY . $SECURITYSESSIONID . $TERM_PROGRAM)
"   if !has('gui_running') && !local_nvim
"     return ['silent', cmd]
"   elseif !empty($SUDO_ASKPASS) ||
"         \ filereadable('/etc/sudo.conf') &&
"         \ len(filter(readfile('/etc/sudo.conf', '', 50), 'v:val =~# "^Path askpass "'))
"     return ['silent', cmd . ' -A']
"   else
"     return [local_nvim ? 'silent' : '', cmd]
"   endif
" endfunction
"
" function! s:SudoSetup(file) abort
"   if !filereadable(a:file) && !exists('#BufReadCmd#'.fnameescape(a:file))
"     execute 'autocmd BufReadCmd ' fnameescape(a:file) 'exe s:SudoReadCmd()'
"   endif
"   if !filewritable(a:file) && !exists('#BufWriteCmd#'.fnameescape(a:file))
"     execute 'autocmd BufReadPost ' fnameescape(a:file) 'set noreadonly'
"     execute 'autocmd BufWriteCmd ' fnameescape(a:file) 'exe s:SudoWriteCmd()'
"   endif
" endfunction
"
" let s:error_file = tempname()
"
" function! s:SudoError() abort
"   let error = join(readfile(s:error_file), " | ")
"   if error =~# '^sudo' || v:shell_error
"     return len(error) ? error : 'Error invoking sudo'
"   else
"     return error
"   endif
" endfunction
"
" function! s:SudoReadCmd() abort
"   if &shellpipe =~ '|&'
"     return 'echoerr ' . string('eunuch.vim: no sudo read support for csh')
"   endif
"   silent %delete_
"   silent doautocmd <nomodeline> BufReadPre
"   let [silent, cmd] = s:SilentSudoCmd('cat')
"   execute silent 'read !' . cmd . ' "%" 2> ' . s:error_file
"   let exit_status = v:shell_error
"   silent 1delete_
"   setlocal nomodified
"   if exit_status
"     return 'echoerr ' . string(s:SudoError())
"   else
"     return 'silent doautocmd BufReadPost'
"   endif
" endfunction
"
" function! s:SudoWriteCmd() abort
"   silent doautocmd <nomodeline> BufWritePre
"   let [silent, cmd] = s:SilentSudoCmd('tee')
"   let cmd .= ' "%" >/dev/null'
"   if &shellpipe =~ '|&'
"     let cmd = '(' . cmd . ')>& ' . s:error_file
"   else
"     let cmd .= ' 2> ' . s:error_file
"   endif
"   execute silent 'write !'.cmd
"   let error = s:SudoError()
"   if !empty(error)
"     return 'echoerr ' . string(error)
"   else
"     setlocal nomodified
"     return 'silent doautocmd <nomodeline> BufWritePost'
"   endif
" endfunction
"
" command! -bar -bang -complete=file -nargs=? SudoEdit
"       \ call s:SudoSetup(fnamemodify(empty(<q-args>) ? expand('%') : <q-args>, ':p')) |
"       \ if !&modified || !empty(<q-args>) |
"       \   edit<bang> <args> |
"       \ endif |
"       \ if empty(<q-args>) || expand('%:p') ==# fnamemodify(<q-args>, ':p') |
"       \   set noreadonly |
"       \ endif
"
" if exists(':SudoWrite') != 2
" command! -bar SudoWrite
"       \ call s:SudoSetup(expand('%:p')) |
"       \ write!
" endif

" vnoremap <buffer> <C-x> I123<Esc>

" Increment block {{{2
" Adapted from https://github.com/triglav/vim-visual-increment/blob/master/plugin/visual-increment.vim
function! s:dosequence(initial, step)
    " visual block start
    let start_column = col("'<")
    let start_row = line("'<")
    " visual block end, as well as the cursor position
    let end_row = line("'>")
    " when 2nd parameter is passed, we are decrementing the numbers instead
    " let incrementer = (a:0 > 0 ? '' : '
')
    let incrementer = '
'

    if start_row == end_row
        " just increment/decrement the value if only one line is selected
        exe "normal! ".a:initial.incrementer
    else
        exe "normal! i".a:initial
        " each next line is increased by <a>, from the previous one
        let i = a:initial - 1

        while line('.') != end_row
            " move to the next line
            call setpos('.', [0, line('.')+1, start_column, 0])

            " if the current line is shorter, skip it
            if start_column < col("$")
                let i += a:step
                " increment the current line by <i>
                exe "normal! i".i
                exe "normal! ".incrementer
            endif
        endwhile
    endif
endfunction

vnoremap <silent> <C-H> :<C-U>call <SID>dosequence(v:count1, 1)<CR>
" }}}2

" }}}1

" Settings {{{1

" For Ranger, for some reason does not work in the lua config.
let g:rnvimr_enable_ex = 1
let g:rnvimr_enable_picker = 1
let g:rnvimr_draw_border = 1
let g:rnvimr_hide_gitignore = 1
let g:rnvimr_border_attr = {'fg': 7, 'bg': -1}
let g:rnvimr_enable_bw = 1

let bufferline = get(g:, 'bufferline', {})
let bufferline.icons="both"
let bufferline.icon_close_tab_modified=''
let bufferline.icon_custom_colors="false"

let g:github_enterprise_urls = ['https://bitbucket.org']
let g:startify_session_dir=['~/.config/lvim/sessions']
let g:neovide_cursor_animation_length=0
let g:neovide_fullscreen=v:true

" If running diff two or more files then....
" See: https://neovim.io/doc/user/options.html
if &diff
    set diffopt+=algorithm:patience
    set diffopt+=indent-heuristic
    let g:diff_translations=0 " Speed up syntax
    set syntax=diff
    set wrap               " Lines wrap to following lines"
    set nolist             " Do not display whitespace
else
    set nowrap             " Display long lines as just one line
    set list               " Do not display whitespace
endif

syntax enable              " Enables syntax highlighting
set iskeyword+=-           " Treat dash separated words as a word text object"
set formatoptions-=cro     " Stop newline continuation of comments
set hidden                 " Required to keep multiple buffers open multiple buffers
set encoding=utf-8         " The encoding displayed
set pumheight=10           " Makes pop-up menu smaller
set fileencoding=utf-8     " The encoding written to file
set ruler                  " Show the cursor position all the time
set cmdheight=2            " More space for displaying messages
set mouse=a                " Enable the mouse
set splitbelow             " Horizontal splits will automatically be below
set splitright             " Vertical splits will automatically be to the right
set t_Co=256               " Support 256 colors
set conceallevel=0         " So that I can see `` in markdown files
set tabstop=4              " Insert 4 spaces for a tab
set softtabstop=0          " Disable soft tabs
set shiftwidth=4           " Change the number of space chars inserted for indentation
set smarttab               " Makes tabbing smarter will realize you have 2 vs 4
set expandtab              " Converts tabs to spaces
set smartindent            " Makes indenting smart
set autoindent             " Good auto indent
set laststatus=2           " Always display the status line
set number relativenumber  " Line numbers and relative numbers
set cursorline             " Enable highlighting of the current line
set background=dark        " tell Vim what the background colour looks like
set showtabline=2          " Always show tabs
set noshowmode             " We don't need to see things like -- INSERT -- anymore
set nobackup               " This is recommended by various posts
set nowritebackup          " This is recommended by various posts
set shortmess+=c           " Don't pass messages to |ins-completion-menu|.
set signcolumn=yes         " Always show, otherwise it would shift the text each time
set updatetime=300         " Faster completion
set timeoutlen=750         " By default this is 1000 ms
set incsearch              " Highlight all matches
set clipboard=unnamedplus  " Copy paste between Vim and everything else
set guifont=SauceCodePro\ Nerd\ Font\ Mono:h15
set ignorecase             " When searching ignore case of words
set scrolloff=3            " Keep 3 line buffer at top and bottom of the screen

" Setup spelling
set spell
setlocal spell spelllang=en_gb
set spellfile=~/bin/dictionaries/dictionary.add

" Setup folding
set foldenable             " Folding enabled
set foldmethod=marker      " Folding method, based on { { {1
set foldopen=block,hor,insert,jump,mark,percent,quickfix,search,tag,undo
set fillchars=stl:\ ,foldclose:,foldopen:,foldsep:┃,fold:\ ,eob:~,msgsep:‾,vert:\│

" }}}

" Syntax files {{{1

"  Auddis!
" au! Syntax auddis source ~/.config/lvim/syntax/auddis.vim
" au BufRead,BufNewFile *.aud set filetype=auddis
" au BufRead,BufNewFile AUDDIS*.ASC set filetype=auddis

" Franchise DAT files.
" au! Syntax franchisefile source ~/.config/lvim/syntax/franchisefile.vim
" au BufRead,BufNewFile *.dat set filetype=franchisefile

" TTT text files.
" au! Syntax cooptttfile source ~/.config/lvim/syntax/cooptttfile.vim
" au BufRead,BufNewFile tau.cc.* set filetype=cooptttfile

"  Celestia!
au! Syntax cel source ~/.config/lvim/syntax/cel.vim
au BufRead,BufNewFile *.cel set filetype=cel

"  Siril
au! Syntax siril source ~/.config/lvim/syntax/siril.vim
au BufRead,BufNewFile *.ssf set filetype=siril

" CSV files.
au! Syntax csvfile source ~/.config/lvim/syntax/csv.vim
au BufRead,BufNewFile *.csv set filetype=csvfile
au BufRead,BufNewFile *.tsv set filetype=csvfile
au BufRead,BufNewFile sct2*.txt set filetype=csvfile
au BufRead,BufNewFile der2*.txt set filetype=csvfile

" ECL files.
au! Syntax eclfile source ~/.config/lvim/syntax/ecl.vim
au BufRead,BufNewFile *.ecl set filetype=eclfile

" EDI files.
au! Syntax edifile source $HOME/.config/lvim/syntax/edifile.vim
au BufRead,BufNewFile *.edi set filetype=edifile
au BufRead,BufNewFile *.mdf set filetype=edifile
au BufRead,BufNewFile *.hse set filetype=edifile

" Log4j files.
au! Syntax log4j source ~/.config/lvim/syntax/log4j.vim
au BufRead,BufNewFile *.log set filetype=log4j

" Rundeck log files.
au! Syntax runlog source ~/.config/lvim/syntax/runlog.vim
au BufRead,BufNewFile ALLREAD*.txt set filetype=runlog
au BufRead,BufNewFile ALLKewill*.txt set filetype=runlog

" Freemarker
au! Syntax runlog source ~/.config/lvim/syntax/ftl.vim
au BufRead,BufNewFile *.ftl set filetype=ftl
" }}}

" Abbreviations {{{1

" Misc
iab waht what
iab Vari Variables
iab teh the
iab tehn then
iab Req Request
iab fb foobar
iab Attr Attributes
iab Appl Application
iab adn and

" Symbols
iab GBP £
iab EUR €
iab MAC 
" }}}

" Auto Commands, e.g. source init.vim {{{1
" https://vimhelp.org/autocmd.txt.html#autocmd-events
" Auto reload my init.vim file.
" autocmd! bufwritepost ~/.config/lvim/init.vim source ~/.config/lvim/init.vim | echo "Reloaded my init.vim"

" Disable some things on the dashboard.
" autocmd! Filetype * if &ft=="alpha"| highlight longLine NONE |endif | autocmd WinLeave <buffer> highlight longLine guibg=#5F3F3F
autocmd! BufEnter,BufLeave,Filetype * if &ft=="alpha"| highlight extraWhitespace NONE |endif | autocmd WinLeave <buffer> highlight extraWhitespace guibg=Red

" Highlight matching words in buffer.
autocmd CursorMoved * exe printf('match IncSearch /\V\<%s\>/', escape(expand('<cword>'), '/\'))

" Remove white space on save for certain file types.
autocmd BufWrite *.py :call DeleteEndingWhiteSpace()
" autocmd BufWrite *.java :call DeleteEndingWhiteSpace()
" autocmd BufWrite * if &ft=="sh" | :call DeleteEndingWhiteSpace() | endif
" autocmd BufWrite * if &ft=="vim" | :call DeleteEndingWhiteSpace() | endif

" I prefer -- for comments in SQL
autocmd FileType sql set commentstring=--\ %s

" Ignore CamelCase words when spell checking
fun! IgnoreCamelCaseSpell()
    syn match CamelCase /\<[A-Z][a-z]\+[A-Z].\{-}\>/ contains=@NoSpell transparent
    syn cluster Spell add=CamelCase
endfun
autocmd BufRead,BufNewFile * :call IgnoreCamelCaseSpell()

" augroup lsp
" au!
" au FileType java lua require('jdtls').start_or_attach({cmd = {'java-linux-ls'}})
" augroup end

" Return to last edit position when opening files.
autocmd BufReadPost *
            \ if line("'\"") > 0 && line("'\"") <= line("$") |
            \   exe "normal! g`\"" |
            \ endif

" }}}