一括表示

一見，一日遅れですが，うちの地域は旧暦七夕です．
短冊メーカー( http://tanzaku-maker.rhp.ninja-x.jp/ )を真似しました．

= tanzaku.def = by H_ear
#if 0
短冊メーカー( http://tanzaku-maker.rhp.ninja-x.jp/ )を真似する
短冊にしたい文字列をブロックして起動すると縦書き1行を罫線で囲む
#endif
* mad for vz!
1 ^\ "" ?. &s
        &>                              ;自前バッファを使う
        mp[, ps[=r, RX[-,               ;正規表現は明示的に使う
        (mb)??{                         ;非ブロックなら
                #> #b #<                ;カーソルのある行をブロック
        }
        #y                              ;cut(copyなら#kにする)
        #R "nul" #m (s)?'y'             ;作業ファイルを開く
        #i                              ;ins
        #56 "\n" #m "" #m "ay"          ;改行除去
        #56 "\x \(.\)" #m "│\1│" #m "ay"      ;文字単位を罫線で分ける
        #56 "││" #m "│\n│" #m "ay"  ;短冊body
        #^ #< #n "★┴┐"               ;短冊head
        #_ #> mi[-, Je[-, #m Je], mi],  ;最終行追加
        "└─★"                        ;短冊foot
        #56 "ー" #m "｜" #m "ay"        ;縦書き文字交換のサンプル
;       #56 "" #m "" #m "ay"            ;カスタマイズ
 :z     ; ---- exit ----
        RX], ps], mp],
        &d #] .
00:     ; ---- buffer ----
        (5+$)."$(A,0)$[10]"
*

★┴┐
│生│
│ま│
│れ│
│て│
│良│
│か│
│っ│
│た│
│と│
│思│
│え│
│る│
│社│
│会│
│に│
│な│
│り│
│ま│
│す│
│よ│
│う│
│に│
└─★