記事閲覧

− 野ざらし言 −

4558 短冊メーカーの移植

めざら 2019/07/08(Mon) 11:00 http://mezala.la.coocan.jp/
一見,一日遅れですが,うちの地域は旧暦七夕です.
短冊メーカー( 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]"
*

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

関連記事一覧ツリー (▼ を押すとツリー全体を一括表示します)

- 4558.短冊メーカーの移植 - めざら 19/07/08-11:00

返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

おなまえ :
Eメール :
タイトル :
メッセージ: 通常モード(推奨)  整形モード(非推奨)  preモード(空白再現)
※ プログラムコード等を含まない場合は,できるだけ通常モードをご利用ください。

参照先 :
暗証キー: (英数字で8文字以内) プレビューなし


- 以下のフォームから自分の投稿記事を修正・削除することができます -

処理 記事No. 暗証キー