title
    index1
    text1
        index1-1
        text1-1

        index1-2
        text1-2

    index2
    text2

  1 title                   foldlevel=0
  2     index1              foldlevel=1
  3     text1               foldlevel=1
  4         index1-1        foldlevel=2
  5         text1-1         foldlevel=2
  6                         foldlevel=2 ←同一階層で見出しを分けたいが、分けられない。ここで畳むと「index1-1」で畳まれる
  7         index1-2        foldlevel=2
  8         text1-2         foldlevel=2
  9                         foldlevel=2
 10     index2              foldlevel=1 ←同上。ここで畳むと、「index1」で畳まれる
 11     text2               foldlevel=1

.見出し１
..見出し１－２
ほげほげ
..見出し１－３
ふがふが

.見出し１         foldlevel=1
..見出し１－２    foldlevel=2
ほげほげ          foldlevel=1 ←次行が行頭"."始まりなので、現在の折り畳みを終了させるため、折り畳みレベル-1
..見出し１－３    foldlevel=2
ふがふが          foldlevel=2

.見出し１         foldlevel=1
..見出し１－２    foldlevel=2
ほげほげ          foldlevel=2
                  foldlevel=1 ←上記の事象を回避するために、空行を挟む必要があります。
..見出し１－３    foldlevel=2
ふがふが          foldlevel=2

set foldtext=MyFoldText()
set fillchars-=fold:-

" vi: set fdm=marker noet tw=0 : "Vim global plugin for outline like WzMemo"Last Change:2020/10/09 22:00:17."Maintainer:azuwai"License:This file is placed in the public domain."二重ロード避けif exists("g:loaded_outline_like_wzmemo")finishendifletg:loaded_outline_like_wzmemo=1lets:save_cpo=&cpo
set cpo&vimlets:winid_ol=1  "とりあえず１に？
lets:flg_switch=0lets:flg_leave=0"デフォルトでWZ階層付きテキストを有効にすると、Netrwでディレクトリが折り畳まれ"てしまうので、txt、mdファイルを開いた時だけにしてあります。"（そもそもファイル名がないとアウトライン表示に使っているロケーションリストが正しく動かない）"【初期設定】以下を vimrc へ追加。"set foldtext=MyFoldText()"set fillchars-=fold:-              "折り畳み行に無駄な装飾が行われないようにlets:treeTitle='Outline'lets:treeIndent=2auBufNewFile,BufRead *.txt setl fdm=expr fde=WzLikeOutline(v:lnum,'.',1)auBufNewFile,BufRead *.md  setl fdm=expr fde=WzLikeOutline(v:lnum,'#',0)auBufNewFile,BufRead *.txt com! MOT call<SID>makeOutlineTree('.',1)auBufNewFile,BufRead *.md  com! MOT call<SID>makeOutlineTree('#',0)auBufNewFile,BufRead *.vimcom! MOT call<SID>makeOutlineTree('',0)        "fdm=marker想定
auBufNewFile,BufRead *.sql com! MOT call<SID>makeOutlineTree('',0)        "fdm=marker想定


"折り畳み見出し行function! MyFoldText() abort "{{{let line=getline(v:foldstart)                                       "現在行の内容を、そのまま見出し文字列に
    let line = substitute(line,'\t',printf('%'.&ts.'s',' '),'g')    "タブ文字をtabstop数分の空白に置換
    let tail ='[Lv:'.v:foldlevel .']'                                 "追加情報（階層）
    let tail = tail .'('. eval('v:foldend - v:foldstart+1').'行)'        "追加情報（折り畳み行数）

    let myWidth= winwidth(0)                                            "画面幅
    let myWidth -=&fdc                                                 "折り畳み表示幅を考慮
    if&nulet myWidth -=&nuw                                             "行番号表示時は、行番号の桁数を考慮
    enlet margin  = myWidth  - strlen(line)- strlen(tail)                "画面幅、文字列長、追加情報から、余白長を求める

    if(&tw !=0)&& (&tw <(margin + strlen(line)+ strlen(tail)))let margin -=(margin + strlen(line)+ strlen(tail))-&tw
    endiflet tail = printf('%'. margin .'s',' '). tail                     "追加情報を、画面の右端に追加
    return line.tail                                                    "(highlightのguibgをnormalと少し変えておくとわかりやすい)endfunction "}}}" WZ階層付きテキスト(WzMemo)風折り畳みfunction! WzLikeOutline(lineno,lv_mark,indentable) abort "{{{let line = getline(a:lineno)        "現在行を取得
    ifa:indentable==1                "行頭空白除去指定時
        let line= substitute(line,'^[[:blank:]]\+','','')enletlv=0leti=0whilei<=&fdc                     "行頭からfdcまで先頭から'.'の数を数える。
        if line[i]==a:lv_markletlv=lv+1elsebreakendifleti=i+1endwhileiflv==0                            "現在行が、見出し行ではない場合、
        let line = getline(a:lineno+1)  "次の行を取得
        ifa:indentable==1            "行頭空白除去指定時
            let line= substitute(line,'^[[:blank:]]\+','','')enletlv=0leti=0whilei<=&fdc                 "行頭からfdcまで先頭から'.'の数を数える。
            if line[i]==a:lv_markletlv=lv+1elsebreakendifleti=i+1endwhileiflv==0                "次の行も見出し行ではない場合。
            return"="          "上の階層を継続
        else                    "次の行が見出し行の場合、階層を区切るために、
            returnlv-1         "次の見出し行よりも1つ低い階層にする。
        endifelse                        "見出し行だった場合、自行の階層を返す。
        returnlvendifendfunction "}}}"アウトライン表示function!s:makeOutlineTree(lv_mark,indentable) abort "{{{ifs:isOutllineList()==1
        exec "normal \<CR>"endif"折り畳み方法の判定if(&fdm !='expr')&& (&fdm !='marker')
        echo 'ERROR : only - set ''foldmethod'' = "expr" or "marker"'returnendif"折り畳み方法に応じた検索パターンを編集。ついでに見出し行のハイライト設定もif(&fdm =='expr')let gptn='\M'.a:lv_markif(a:indentable==0)let gptn2 = gptn
            let gptn ='^'. gptn
        elselet gptn2 ='\m[[:blank:]]*'. gptn
            let gptn ='^\m[[:blank:]]*'. gptn
        enif&ft !="markdown"            "Markdownは標準のハイライトがあるのでそっちを優先
            exec 'syn match MyFoldSt "'. gptn .'\m.*"'hi link MyFoldSt FoldLabel
        endifelseif(&fdm =='marker')let fmrs = split(&fmr,',')let gptn ='\M'. fmrs[0]let gptn2 = gptn
        exec 'syn match MyFoldSt ".*'. gptn .'\m.*"'"FoldLabel は .gvimrc で好きに定義するようにhi link MyFoldSt FoldLabel
    endiflet cfdm=&fdm

    "ロケーションリストを初期化
    exec "lexpr('')""ロケーションリストに追加"exec 'g/' . gptn . '/lad expand("%") . ":" . line(".") . ":-" . getline(".") 'let codenotation=0foriin range(1,line("$"))let wkline= getline(i)if stridx(wkline,'```')==0let codenotation=(!codenotation)endifif!codenotation && match(wkline,gptn)!=-1
            exec 'lad expand("%") . ":" .'.i.' . ":-" . getline('.i.')'endifendfor"ロケーションリストを閉じて開き直す
    exec 'lclose'vertlwindowlets:prev_winnr=winnr('#')lets:winid_ol= win_getid()call setloclist(s:winid_ol,[],'a',{'title':s:treeTitle})"ロケーションリストをおめかしsetl fdc=0 nonu
    setlma
    exec '%s/^'. expand("#").'|//e'let lastline= getline('$')              "最終見出しの、
    let nucol = stridx(lastline,'|')+1      " |区切りが出る位置までをtabstopに設定
    exec 'se ts='. nucol
    %s/| -/|/e                             " |区切りの位置を揃える
    se et                                   "空白文字に変換
    %retab!
    %s/ |/|/e                               "余分な空白を削除
    %s/^\([0-9]\+\)\([^0-9]\+\)|/\2\1|/e    "桁位置揃え
    exec 'setl ts='.s:treeIndent"折り畳みマーカーを削除if(cfdm =='marker')
        exec '%s/\M'. fmrs[0].'//'elseif(cfdm =='expr')"exec '%s/|\M' . a:lv_mark . '/|/e'
        exec '%s/|'. gptn2 .'/|/e'
        exec '%s/\M'.a:lv_mark.'/   /eg'endif
    %retab!redraws     "TODO:「続けるにはENTERを押すか～」で止まりたくないが、描画は抑止したままにしたい。
    "message clearcalls:makeFoldOutline()setl noma
    setl nomod

    letl:MaxWidth =0foriin range(1,line("$"))let myWidth =  eval(strlen(getline(i)))ifl:MaxWidth < myWidth
            letl:MaxWidth = myWidth
        endifendfor
    exec 'setl winwidth='.l:MaxWidth
    exec 'setl winminwidth='.(&wiw <30 ? &wiw :"30")"ロケーションリスト移動のリマップを追加
    noremap <silent>[f:<C-u>lab<CR> \|zv \|z<CR>
    noremap <silent>]f:<C-u>lbel<CR> \|zv \|z<CR>
    noremap <silent>[F :<C-u>lfir<CR> \|zv \|z<CR>
    noremap <silent>]F :<C-u>llast<CR> \|zv \|z<CR>
    noremap <silent><Tab>:call<SID>switch_outline()<CR>if cfdm =='expr'
        exec 'noremap <silent> z< :call <SID>incFoldLevel(-1,'''.a:lv_mark.''','''. gptn .''','.a:indentable.')<CR>'
        exec 'noremap <silent> z> :call <SID>incFoldLevel(1,'''.a:lv_mark.''','''. gptn .''','.a:indentable.')<CR>'endif

    exec s:prev_winnr."wincmd w"endfunction "}}}function!s:makeFoldOutline() "{{{setl fdm=manual
    normal zE
    let lv_max=0foriin range(1,line('$'))let lv_mod =0let lv_now =s:getFoldLevelOutline(i)forjin range(i+1,line('$'))let lv_pos =s:getFoldLevelOutline(j)if lv_now==0&& lv_pos==0breakelseif lv_pos < lv_now
                breakendifif lv_now != lv_pos
                let lv_mod =1endifendfor"echom i . '(' .lv_now . ') - ' j . '(' . lv_pos . ')'if1<(j-i)&& lv_mod==1"echom 'folding! ' . i . ' - ' . (j -1)
            normal zR
            "exec i . ',' . eval(j-1) . 'fold'
            exec i
            normal V
            exec "normal ". eval(j-i-1)."j"
            normal zf
            if lv_max < foldlevel('.')let lv_max = foldlevel('.')endifendifendforlet lv_max +=1
    exec 'setl fdc='.(lv_max <=12 ? lv_max :12)
    normal zR
endfunction "}}}function!s:getFoldLevelOutline(lineno) abort "{{{"message clearlet line=getline(a:lineno)letstart=stridx(line,'|')+1        "見出し文字列の先頭から
    "echom 'start:' . startleti=startwhilei< strchars(line)            "文字数分　≠Byte数
        "echom i . ':' . strcharpart(line,i,1)if strcharpart(line,i,1)!=' ' "非空白を発見するまで
            breakendifleti+=s:treeIndentendwhile"echom 'return:' . (i-start) / s:treeIndentreturn(i-start) / s:treeIndentendfunction "}}}"折り畳みレベル一括変更　※今のところ、+1,-1のみfunction!s:incFoldLevel(delta,lv_mark,gptn,indentable) abort "{{{ifmatch(getline('.'),a:gptn)==-1     "現在行が見出し行ではない場合、
        labove                              "直前の見出し行へ移動
    endiflet save_line = line('.')               "見出し行の位置を保持

    "折り畳みをすべて開く(foldlevelを正しく取得するため)
    normal zR

    let save_foldlv = foldlevel(line('.'))  "現在行の折り畳みレベルを取得
    "echom getline('.') . '(' . save_line . ') Lv:' . save_foldlvifa:delta<0                          "階層を下げる場合は、予め引いておく。
        let save_foldlv-=1endifsetl lazyredraw
    foriin range(line('.'),line('$'))     "現在行から最終行へ向けて、
        "echo i . "行目(" . foldlevel(i) . '/' save_foldlvif  foldlevel(i)< save_foldlv      "現在のレベルよりも下がるまで続ける
            breakendififmatch(getline(i),a:gptn)!=-1   "現在行が見出し行の場合
            ifa:delta<0
                exec i.'s/\M'.a:lv_mark.'//e'else
                exec i.'s/\M'.a:lv_mark.'/'.a:lv_mark.a:lv_mark.'/e'endifendifendfor
    exec 'call s:makeOutlineTree('''.a:lv_mark.''','.a:indentable')'setl nolazyredraw

    exec save_line
    normal zM
    normal zO
    normal zt

endfunction "}}}"アウトラインウィンドウ切替function!s:switch_outline() abort "{{{let winid_text =  getloclist(s:winid_ol,{'filewinid':0}).filewinid

    "アウトライン表示の場合ifs:isOutllineList()==1let winnr_text = win_id2tabwin(winid_text)[1]
        exec winnr_text ."wincmd w""テキスト表示の場合elseif winid_text == win_getid()let winnr_ol = win_id2tabwin(s:winid_ol)[1]
        exec winnr_ol ."wincmd w"endifendfunction "}}}"ウィンドウに入った直後auWinEnter * calls:myWinEnter()function!s:myWinEnter() "{{{"アウトライン表示の場合。ifs:isOutllineList()==1"Ctrl-wやマウスクリックでアウトラインが選択された瞬間に、同期されるのを抑止lets:flg_switch=1ifs:flg_leave==1
            exec "quit"endif"アウトライン表示ではないelse"テキスト表示を閉じた後、他のウィンドウがアクティブになった場合ifs:flg_leave==1let winnr_ol = win_id2tabwin(s:winid_ol)[1]
            exec winnr_ol ."wincmd q"endifendifendfunction "}}}"アウトライン同期auCursorMoved * calls:outlineSync()function!s:outlineSync() abort "{{{ifs:flg_switch==1lets:flg_switch=0returnendifset lazyredraw

    "echom "outlineSync! filename:" . expand("%") . '(' .  line('.') . ')'"ロケーションリストの場合ifs:isOutllineList()==1letl:location = getloclist(s:winid_ol)[line('.')-1]"echom 'outlineSync!! outline  ' . expand("%") . getline('.') . '('. l:location.lnum . ')'"アウトラインに該当するテキストを先頭に表示してカーソルを移動させる。
        exec "normal \<CR>"
        normal zt

        "直前のウィンドウ（アウトライン）へ戻る。letl:prev_winnr=winnr('#')
        exec l:prev_winnr ."wincmd w""echom "outlineSync!!-!" . expand("%") . getline('.')"ロケーションリストではなく、かつ、アウトラインのロケーションリストが存在elseif win_id2tabwin(s:winid_ol)[1]!=0&& getloclist(s:winid_ol,{'title':0}).title ==s:treeTitle"echom "outlineSync!! text  outline_winid" . getloclist(s:winid_ol,{'filewinid' : 0}).filewinid . ' , text_winid:' .  win_getid()"ロケーションリストが表示しているファイルのウィンドウの場合のみif  getloclist(s:winid_ol,{'filewinid':0}).filewinid == win_getid()trylet save_wi = winsaveview()"見出し行上では、一つ上のアウトラインを指してしまうため、1行下へ移動して、上のリストへ移動。
                exec "normal \<CR>"
                exec ":labove"catch/^Vim\%((\a\+)\)\=:E553:/ "「要素がもうありません」 先頭で要素がもう無い場合
            catch/^Vim\%((\a\+)\)\=:E42:/  "「エラーはありません」  gf 等でウィンドウ内が別バッファになった時。
                set nolazyredraw
                returnfinallycall winrestview(save_wi)endtryendifendifset nolazyredraw

endfunction "}}}auBufWinLeave * calls:myBufWinLeave()function!s:myBufWinLeave() "{{{trylet winid_text =  getloclist(s:winid_ol,{'filewinid':0}).filewinid
    catch/^Vim\%((\a\+)\)\=:E716:/ "辞書型にキーが存在しません アウトラインが表示されていない場合。
        returnendtry"閉じられようとしているバッファと今いるバッファが一致していない場合if expand("%")!= expand('<afile>')     " :lclでテキスト側からアウトラインを閉じようとした場合等
        returnendif"アウトライン表示以外、かつ、アウトラインが示しているウィンドウの場合ifs:isOutllineList()==0&& winid_text == win_getid()"exec "lclose"  E855になるので無理。フラグを立てておいて、WinEnterで判定させる。lets:flg_leave=1endifendfunction "}}}"アウトライン表示のロケーションリストかどうか判定function!s:isOutllineList() "{{{if&buftype !='quickfix'                   "quixfix or location-list
        return0endiflet wi = getwininfo(win_getid())[0]if wi.loclist !=1                          "location list!return0endiftrylets:loctitle= getloclist(s:winid_ol,{'title':0}).title
    catch/^Vim\%((\a\+)\)\=:E716:/ "辞書型にキーが存在しません アウトラインが表示されていない場合。
        return0endtryifs:loctitle!=s:treeTitlereturn0endifreturn1endfunction "}}}let&cpo =s:save_cpo

"二重ロード避け
if exists("g:loaded_outline_like_wzmemo")
  finish
endif
let g:loaded_outline_like_wzmemo = 1

let s:save_cpo = &cpo
set cpo&vim

let s:winid_ol = 1  "とりあえず１に？
let s:flg_switch = 0
let s:flg_leave = 0

let s:treeTitle = 'Outline'
let s:treeIndent = 2

警告: 自動コマンドは大変強力であるので、思いも寄らない副作用をもたらすことがある。テキストを壊さないように注意しなければならない。

au BufNewFile,BufRead *.txt setl fdm=expr fde=WzLikeOutline(v:lnum,'.',1)
au BufNewFile,BufRead *.md  setl fdm=expr fde=WzLikeOutline(v:lnum,'#',0)

au BufNewFile,BufRead *.txt com! MOT call <SID>makeOutlineTree('.',1)
au BufNewFile,BufRead *.md  com! MOT call <SID>makeOutlineTree('#',0)
au BufNewFile,BufRead *.vim com! MOT call <SID>makeOutlineTree('',0)        "fdm=marker想定
au BufNewFile,BufRead *.sql com! MOT call <SID>makeOutlineTree('',0)        "fdm=marker想定