駄日記 (未完結間欠日記)

> xyzzy でカーソル位置に現在時刻を挿入する関数を作った。 今のところローカルな自分用雑記モード専用。 現在日時を挿入する機能は xyzzy に元々あった気もするんだけど、 .xyzzy にも reference.txt にも siteinit.l にもそれらしいのが見つからなかった…。 むかーし、設定でキーバインドをいじって別の機能へ変更した記憶があるんだけど。 もしかして Emacs の方の機能だったか、それとも特定のモードの機能だったか、思い出せない。 なんなら MicroEMACS の機能だったかもしれない… (それはないか)。 まあしかし、これくらいのコードなら reference.txt を見つつだがそんなに迷わずに書けるようにはなったか。なんとか。

;;; カーソル位置に現在の時:分を入れる
(defun insert-nowtime ()
  (interactive)
  (insert (format-date-string "(%H:%M)")))

;;; カーソル位置に現在の時:分を入れる 5分くらい単位にまるめ
(defun insert-nowtime-around ()
  (interactive)
  (multiple-value-bind
      (sec minute hour)		; sec は使わない dummy
      (get-decoded-time)
    (when (<= 60 (setq minute (* (floor (/ (+ minute (/ 5 2)) 5)) 5)))
      (setq minute (- minute 60))
      (setq hour (mod (1+ hour) 24)))
    (insert (format nil "(~2,'0d:~2,'0d)" hour minute)))) ; insert-nowtime とあわせる

…いや、全般には書けて当然くらいなレベルのシロモノだけど。 細かいところ、lisp (xyzzy lisp) の書き方とか機能とかがなんとなくでも頭に入ってないとむずかしいので、 つまりなんとなくでも頭に入ってきつつはある、ってあたりの話だな。

> common lisp って ,( 以外に ,@ なんて記法もあるのか。 中の要素が perl の配列みたいにフラットになるような感じなのかな…? apply っぽい? まだ知らん記法が山のようにありそう…。xyzzy lisp いじり始めて数年 (いじり頻度かなり低め) の初心者だからなー。
lisper の一部に、やたら perl を dis って、 perl のコードはなんかの暗号とかゴミだとかみたいな物言いをうれしそうに (なんなら当人は軽いユーモアのつもりで) してる奴がたまにいるけど、 common lisp 含めて lisp の文法 (記法) のカオスっぷりも相当なモンだと思うがな。 どっちも必要や利便のためだし、実際便利だし、でも知らん者が見るとなんだかワケわかんないってあたりも含めて共通な特徴に思えるんだが。

> bluesky のプロフィールのヘッダ画像をむかーし FZ1000 でたまたま綺麗に撮れた月の画像に差し替えた。 月を黄色に着色して…。 ついでに twitter のプロフィールの画像をグレートーンに、ヘッダ画像は真っ黒に差し替えた。 twitter はもう喪に服してるキブン。でもアカウントは (まだ) 消してない。

> 底がダメになっちゃった靴を、ぼちぼち入れ替えよう…と思って、 ヤツらがいそうな予感を感じつつ買い置きの靴の入っている押し入れを開けた。 ぱっと見、特になにもいないように見えたが、ふと目をやると、 襖戸が閉まった時の隙間(*2-1)、外付け HDD ケースの排気が吹きかかるくらいの高さのところに、 テントウムシの越冬みたいに 5～6匹かたまって休んでやがったんで、しぶしぶ薬剤噴霧。 きっと他にも潜んでるんだろうなー (チャバネ)。
とりあえず新しい靴は引っ張り出した。古い靴は…燃えるゴミ。 いままで履いてたのと違ってかかとの上のところにつまみがないのと、若干硬めで小さめなので、ちょっと履きにくい…。 スニーカーのくせに靴べら必須な感じ。 そういやあのかかとのつまみってついてない靴の方が多いよなあ。なんでつけないんだろな。

> また食料品とかが切れ始めてきたのでしぶしぶ買い物に。 時間帯的に惣菜類の値引きが始まってなかったんであまりいろいろ買わないようにして戻る。
あの値引きシール貼り中の店員の周囲にうろうろと群がってる貧しそうな客のかたまりをハタから見つつ、 あーハタから見てるとなんともやるせないなー、と思いつつ自分もボロいカッコウでうしろから参加するのもまた妙なり。
キャベツはまだ高いなあ。もう下がらないのかしらこれ。 卵も鳥インフルかなんかで品薄で高騰し始めてる上に安く売ってたところは品切れ気味だし。

> ワシの PC 上の cygwin (と ツール類) はもう何年もアップデートしないまま使っているが、 外の VPS やレンサバやスマホ (termux) のツール類は適宜または勝手にアップデートがかかっていて、 そのせいで開発者が後方互換性の重要性を理解できてないらしい ImageMagick あたりはヘンな具合にアップデートされてて挙動が変わっちゃって PC 上の (古い) ImageMagick と同じパラメータが使えなくなったりしていて、ほんと鬱陶しい。 パラメータ調整してなんとか以前と同じように動作させないといかん…。 ImageMagicK 開発のポリシーふらふらっぷりは昔の PHP みたいでヤだな…。 でも他に手頃なツールもないんで仕方なく使い続ける…。

> スマホで唯一サブスクで毎月料金 (月額 93円) を払っている「アルテ日本語入力」の引き落としに失敗したという通知が google から来ていて、 見てみると google と paypay との連携がなんか知らんがダメになってる。 google 側のせいか paypay 側のせいかワシの設定のせいかぜんぜんわからん。 まあ検索して情報を漁った限りでは google の不具合っぽいが (google のサイトに、一度解除して再設定したら直るかもみたいなことを堂々と書いてるし、 つまりその程度で復活できるようなカジュアルな (?) トラブルってことで、 そんな事象があちこちで報告され続けてるのに、症状がなくなってる気配がまったくないってことは、 google のギジュチュリョクがそれなりにアレなのが根本原因なんだろうな、という勝手な邪推)。 paypay 以外の支払い方法を登録するという選択肢も示されるが、google なんぞに paypay 以外使う気になれない…。 一旦連携解除して再登録してみようとしたら、 そもそも paypay を支払い方法から削除できなくなってる…。なんでじゃい。 他の支払い方法を追加で登録してからでないと解除できないらしい。 解除しないままで再度 (上書きで) 連携登録してみたが症状変わらず…。 他の支払い方法を追加で登録しないと元の連携が解除できないのは、 現在のサブスクがまだ有効なせいか?と思い至って、 一度アルテのサブスクを解約してみたところ、paypay の登録を削除できた。 めんどくせえ…。 改めて paypay を支払い方法に登録して (google wallet とかなんとかからはできず (カードしか登録できない)、 google play ストアからしか paypay 登録できない…このへんもワケわかんねえな)、 アルテをサブスク登録し直して、ひとまず次の 1ヶ月分の支払いは完了した…。 ほんとメンドくさい。さて来月どうなるか。

> 滝野川のコモディイイダの、平日限定 日がわり弁当 のメニューが入れ替わっていた。

曜日	旧	新
月	オムそば&海苔弁当	レバニラ餃子弁当
火	黒酢酢豚弁当	アジフライの南蛮弁当
水	チーズハンバーグの洋風弁当	豚ロースの生姜焼き&豚ヒレカツ弁当
木	柔らかチキンの油淋鶏弁当	オムそば&海苔弁当
金	豚ロースの生姜焼き&豚ヒレカツ弁当	タルタルチキン南蛮弁当

豚ロースの生姜焼き&豚ヒレカツ弁当が金→水に、 オムそば&海苔弁当が月→木に移動した。他のメニューは新しく入れ替わっておるな。 黒酢酢豚弁当、チーズハンバーグの洋風弁当、柔らかチキンの油淋鶏弁当、が消えて、 レバニラ餃子弁当、アジフライの南蛮弁当、タルタルチキン南蛮弁当、が新しく入った。 いやもう、ずーっと固定メニューなのかと思ってたんだけど。時々入れ替わるんだったんだなー。

> 相変わらずチャバネ天国。 卵くっつけたやつがうろうろしてるんで気が滅入る。

> bluesky に流れてきたデイリーポータルZ (dpz) の記事に、 「純米せんべい」がおいしい (米の味がちゃんとする)、とあったんで、探してこようかな…と検索。 立正堂の純米せんべい、で売ってるところはいろいろ…。 うちの近所で見つかる可能性のあるのは、 イオン、ウェルシア、おかしのまちおか、olympic、コープみらい、サミット、seineよしや、ピーコックストア、マルエツ、ヨークマート、 あたりか。 他にブルボンのプレッツェル・ショコラ (チョコがけのプレッツェル) も塩味がきいててうまいとかあったんで、 売ってたら買ってみようかな…。あんまし普段買おうと思って覗いてない売り場にありそうだが。 チョコがけのプレッツェルとか普段ぜんぜん食指が動かんあたりの菓子だからなあ。

> 自転車のクランクを逆回転させるとチェーンがたるむようになってきた…。 クランク (ペダル) を回さずに止めて慣性で走っていてもたるむ。 そこから正回転させるとたるんだチェーンが戻る分だけクランクがスカッと空回りする…。 逆回転でも正回転でも、こんな感じでチェーン外れそうであぶなっかしい。 どうも後ろ側のギア (スプロケット) 内部のラチェットになってる部分がうまく機能しなくなっとるっぽいんだが…。 これ、知識がないまま自分でバラしてもおそらくどうにもならんだろうなあ。 自転車屋に持って行って直してもらうしかないか。 ホントはもうぼちぼち本体ごと買い換えるべきなのかもしれんけど…。 さすがに半野ざらし駐輪状態で 10年以上だからなー。

> 純米せんべい、マルエツに売ってたので買ってきた。 プレッツェルは見当たらなかった。 まあ別に急ぎでもないんでそっちはまた後日。

> e-hon にユーザ登録してみた。 honto が電子書籍専門になっちゃって紙の本は e-hon で、になって以降、紙の本を新刊で買う機会がないままだったが、 ちょっとオンラインで新刊探そうかな、と思う機会があったので…。 送料がけっこうかかりそうだが、最寄りの書店で受け取るというサービスもあって、 その場合は送料は不要だが自分から書店に取りに行く。本の代金は本屋に払うっぽい…。 つまり、本屋の店頭からではなく Web から自分で直接、書籍の取り寄せを行なえるサービス、みたいな感じか。 なお、書店受け取りではなく通常の直接配送の場合は、 支払いに debit は使えないんだと。なんだ、ダメサービスだなおい… (運営はトーハン)。
買おうと思ったのは「GOAT」とかいう、“小説を紙で読みたい人向けの”雑誌というやつらしい。 bluesky で誰かが投稿してたのを見かけて、価格もタイトルにちなんで 510円とわりと手頃だったんで、 試しに取り寄せてみようと思って…。 といってもずいぶん人気らしく早々に店頭から消えていってるらしいんで、 まあ入手できない可能性の方が高いんだが。 e-hon の表示も“取り寄せ”になってたし。 でもなにがなんでも読みたいというほどでもないので、まあ入手できたらめっけもの、くらいな感じで。 書店経由での購入 (引き取り) って、在庫が確保できたとしても 2週間とか 1ヶ月とかくらいは平気でかかりそうなイメージだな…なんとなく。 その昔は書店の店頭からしか本を注文する術はなかったけど、 その頃は注文してもモノによってはヘタすると数週間やそこらは平気で待たされたような印象があるんで…。

> 昨日買った「純米せんべい」、デイリーポータルZ (dpz) の記事で絶賛 (?) していたほどには「米の味」とかは感じなかった…。 というか、いつも食ってるサラダせんべい類と比べて、ちょっと油分がもたれる感じ。 なんだろうなあ。油の (かすかな) ニオイなのか量なのか…。 油分が多いな…!と感じてしまう絶妙な油っこさというか。
考えてみると dpz の記事で知って買ってみた食品て、あくまで自分で実際に買ってみた範囲で言うと、 どれも「ふーん…なるほど」程度な感じなのが多い印象だな。 トキハソースも、まあおいしいソースだとは思うが…個人的にはオリバーソースの中濃と好き加減は同じくらいだし…。 サラダ柿の種も、まあおいしかったけど、絶賛するほどではない感じ。おいしかったけどね。 サラダ柿の種は記事を読み返してみたら“塩味大好きな人”が集中的に絶賛していたんでまあなるほどって感じだが。 過去に試して「失敗した!」みたいなのはなかったけど、 基本的に dpz の食い物記事はワシ的にはあまり真に受けない方がいいつもりで読んでちょうどいいんだなきっと。 試してみる分には問題ないけど、程度の。 あと純米せんべいはわりと高いので、個人的にはハマらないでよかったかもしれん。 サラダ柿の種はなんのかんのでずいぶん買っちゃったしな… (3回くらい)。

> その後、生協で買った小盛りの回鍋肉丼が油ぎっとぎとだったけど、 珍しく胸焼けせずに (というか、うぷっとならずに) 食い終えた。 その後しばらくして純米せんべいを食べたらやっぱりちょっとだけ“うぷっ”となった…。 やはりこのせんべい、油分が…。

> 1日半前の bluesky の TL を読んでるんだが (このところずーっとだいたい 1～2日遅れで追いかけて読んでる)、 隣国韓国で大統領がいきなり戒厳令出して、2時間半で議会による満場一致で阻止、というニュースが。 軍が議場に入り込んで、あわや血を見る寸前だったとか。 そして維新あたりのバカども (馬場とか音喜多あたり) が便乗して、 “やはり緊急事態条項は早急に必要だ”、とまったく逆張りのことを sns でホザいてるらしい…。害虫。 自民にもいたのかな? そして日本のマスコミはほとんど報じずに通常の番組流してたらしい (もうテレビ見てないんでそのへんは知らない)。 ネットには一部のメディアで現地の記者からの速報が流れてたらしいけど。朝日と毎日とかだったかな…? (うろ覚え)

> 相変わらず毎日チャバネ天国。
ちょうどいい位置と場所に一匹見つけたので、先日発掘したゴキパオを使ってみた。 泡で固めてつかまえるやつ。 ほぼ一撃で捕獲。 うーん、うまく命中すればかなり有効だなこれ。 なんで販売やめちゃったんだろうなあ…。 この缶が終わったらもう使えなくなるけど、あるからには最後まで使うか。 ちょうどこれを使うのに最適なシチュエーションもそうはないだろうけど…。 しかしまあ、あとからあとから出やがるなほんとに…。どっかにかたまって潜んでるんだろうな…。
なおゴキパオの缶の成分表示の隣に、「誤って口に入れた時は下記にご相談ください」と、 中毒110番の電話番号が表示されていた。 あったなそんなサービス。 この中毒110番、検索してみたらまだ存在はしているが、平成18年 (2006年) に新しい番号にかわって、 印刷してある電話番号はもう無効になっとった (大昔に買ったやつだからしょうがない)。 元は 0990 で始まる番号で、これダイヤル Q2 だ。Q2 は有料サービスだが、今の中毒110番の番号は無料になってる。
Wikipedia によるとダイヤル Q2 は 1989年 (平成元年) に始まり、2011年に新規受付終了、2014年 2月末にサービス終了らしい。 そもそも Q2 は NTT 固定回線以外からはつながらなかったんだな。 まあ料金回収のための仕様だったんだろうけど。

> クランク逆転でチェーンがたるんじゃう件、まだ自転車屋に行きそびれてる。 このところ夜型サイクルで昼間起きててもだるくてあとにしようとか思ってるうちに眠くなってきちゃうパターンでな…。 修理なりなんなりでどれくらい時間かかるのかわかんないんで、 あんまし閉店ギリギリじゃないくらいの時間には行きたいから…。 まずこぎ出す時にペダル位置を (クランク逆回しで) 調整するとたるんで、踏み込む段階でたるんだ分カクッと空回りするし、 こがずに慣性で走った後ペダルを踏もうとするとたるんでた分カクンと空回りするしで、 危なっかしくて自転車で買い物にも行きづらくなっててよくない…。

> 今日も自転車屋行きそびれた。現在の睡眠サイクルの関係もあって、 もたもたしているうちに閉店間際になっちゃうか、 あるいはすっかり忘れてて思い出した時には閉店間際になっちゃってるかで、 なかなか行けない…。 モノグサ化も年とともにちょっと進行してる気配もあるな。

> ひっさびさに流しの排水まわりをちょい掃除。だいぶ取れない…。もっと頻繁に掃除せねばいかん…。 久々すぎて小林製薬の「かんたん洗浄丸 キッチン用泡でまるごと洗浄中」くらいだと取れずに残っちゃって、 また下の方の菌のコロニー (バイオフィルム?) もひっついたままだし、 なんなら水の流れもちょっと悪くなってるようなので、 のちほど強力なパイプクリーナー類を投入して掃除しないとだめかも。

> xyzzy でテキスト中の年号 (元号) と西暦を相互変換する関数をでっちあげた。 1970 と書いてある箇所にカーソルを置いて関数を呼び出すと、S45 に置き換える。 逆変換も可 (S45 または 昭和45 または 昭45 を 1970 に変換)。 探せば既にありそうだけど…(*7-1)。 ホントは、たとえば 1989.1.7 は S64 で 1989.1.8 は H1 になるようにしたいが、 そもそもほとんどの場合年しか記述してないんでこれは不可能なので、 とりあえず年号が切り替わった年の場合は注釈として境界の月日を参考までに表示する、 …とかもつけたいけどそれは今後の課題っつうことで。 あとメンドくさいんで対応するのは明治以降に限る。 まあ江戸時代以前の年号西暦変換が必要な機会がまずないしな…。過去にあったかも思い出せないくらい。 あと西暦も途中でなんかメンドくさいことになってた気がするし (よく把握してない)。
あんまし賢いコードじゃねえんで公開するほどでもなあ…と思わなくもないが一応貼り付けておきましょう。 まあ自分用の覚えにもなることはなるし。

;;; 西暦と年号の年(文字列)相互変換を行なう(明治以降を想定)
;;; カーソルのある位置またはそのひとつ左の、年号または西暦とおぼしき範囲を、相互に変換する。
;;; 西暦年 … \d{4} (1868～)
;;;   → R6
;;; 年号   … ([MTSHRmtshr]|明治|大正|昭和|平成|令和)\d+
;;;   → 2024
;;; 年号最終年=次年号元年、なので元年の場合は前年号最終年、最終年の場合は次年号元年と、それぞれ区切りの日付も参考に表示する(予定)
;;; たとえば昭和100年なども許容するが注釈のポップアップは出す
(defun convert-year ()
  (interactive)
  ;(toggle-trace-on-error)
  (let ((nen-char "[MTSHR明治大正昭和平成令0-9]+")
        (nen-head-char "[MTSHR明治大正昭和平成令]")
        ; 開始年月日 最終年月日 最終年 … 月日はとりあえず変換には使ってないが一応
        (nen '(("R" 2019 5 1 9999 12 31 0)
               ("H" 1989 1 8 2019 4 30 31)
               ("S" 1926 12 25 1989 1 7 64)
               ("T" 1912 7 30 1926 12 24 15)
               ("M" 1868 1 25 1912 7 29 45)))
        (ad-min 1868)
        (nenkan '(("明治" . "M")
                  ("大正" . "T")
                  ("昭和" . "S")
                  ("平成" . "H")
                  ("令和" . "R")
                  ("明" . "M")
                  ("大" . "T")
                  ("昭" . "S")
                  ("平" . "H")
                  ("令" . "R")))
        (p0 (point))
        span-from
        span-to
        src
        nenset
        result
        )
    (labels ((abort ()
               (goto-char p0)
               (return-from convert-year))
             )
      ; 現在のカーソル位置(から1つ前)の文字を含んだ、西暦年または年号と思われる範囲の文字列を確定する (space含まない)
      ; 現在のカーソル位置が対象文字でない場合はひとつ前からチェック
      (unless (string-matchp nen-char (string (following-char)))
        (backward-char))
      (unless (string-matchp nen-char (string (following-char)))
        (abort))
      (while (string-matchp nen-char (string (preceding-char)))
        (backward-char))
      (setq span-from (point))
      (scan-buffer nen-char :regexp t :case-fold t :tail t)
      (setq span-to (point))
      (setq src (buffer-substring span-from span-to))
      (if (string-matchp nen-head-char (string (char src 0)))
          ; 年号→西暦
          (progn
            ; 年号のフォーマットになっているか (例えば S30 も s30 も許容)
            (unless (string-matchp "\\([MTSHR]\\|明治?\\|大正?\\|昭和?\\|平成?\\|令和?\\)\\([0-9]+\\)" src)
              (abort))
            ; 年の範囲が収まっているか…
            (let ((nengo (match-string 1))
                  (nennum  (read-from-string (match-string 2)))
                  lastnen)
              (setq nengo (string-upcase nengo) ; "r" → "R"
                    nengo (or
                           (cdr (assoc nengo nenkan :test #'string-equal)) ; "令和" → "R"、"令" → "R"
                           nengo)
                    nenset (assoc nengo nen :test #'string-equal)
                    lastnen (nth 7 nenset))
              (when (and (not (zerop lastnen)) (> nennum lastnen))
                (let ((nengokanji (car (rassoc nengo nenkan :test #'string-equal))))
                  (msgbox "~aの最終年は~d年です" nengokanji lastnen)))
              (setq result (+ (nth 1 nenset) nennum -1))
              ))
        ; 西暦→年号
        (progn
          ; 変換対象の西暦のフォーマットになっているか (数字4桁、明治1(1868)以上)
          (if (or (/= 4 (length src)) (string-matchp nen-head-char src))
              (abort))
          (when (> ad-min (read-from-string src))
            (message "対応西暦年は~a以降です" ad-min)
            (sit-for 1)
            (abort))
          (let ((ad (read-from-string src))
                nennum
                nengo)
            (loop for i in nen do
              (when (and (>= ad (nth 1 i)) (< ad (nth 4 i)))
                (setq nengo (nth 0 i))
                (setq nennum (1+ (- ad (nth 1 i))))
                (return)))
            (unless (and nengo nennum)
              (abort))
            (setq result (format nil "~a~d" nengo nennum))
            ))
        )
      (goto-char span-from)
      (narrow-to-region span-from span-to)
      (perform-replace ".+" (format nil "~a" result) nil t t t)
      (widen)
      )))
(global-set-key '(#\C-c #\C-y) 'convert-year)

> なんだか 30年ぶりに家賃が上がり傾向なんだと。 うちの大家も家賃上げたそうだがなあ…きっと上げたいとは思ってるだろうけど。 でも住む方としてはこのクオリティの住居環境で家賃上げられてもなあ…。 さてどうなるか。たぶん上がらないとは思うけど部屋あいても次の店子なかなか見つかんなくて苦労してるっぽいし。

> ふと twilog をさかのぼって読み返し始めてしまい、 最近思いついたと思ってた駄洒落系も比較的最近に twitter に書いてたりするのを発見したり。 床暖房のかわに床段ボール、とかそんなやつ。 あと他の人の tweet でも面白いのもけっこう再発見したりしてな…。ほんとクソイーロン死なねえかな。

> bluesky の TL で中山美穂さんが自宅風呂場で死亡、というニュースをみかけた。12.6、54歳。 事故らしいけど…。まだお若いのにな…。

> bluesky で (というか dpz の記事 (の紹介) で) 見かけたブルボンのプレッツェルショコラっつう菓子を、 ヨドバシドットコムで探したら販売終了していたんで、他の通販サイトなどあちこちちょっと検索しつつ、 そういえばピーコックストア系でネットスーパーがあったっけ、と思い出して見てみたら、 11月末でサービス終了していた。あらまあ。とうとう一度も利用しなかったなここ… (ネットスーパー「マルクト」、markt-mall.jp)。 とりあえず近隣の実店舗で見かけたら買ってみよう。ヘタな通販だと送料かかるしなあ。

> 相変わらず腹具合もよくない。
そしてチャバネ天国。

> まだ自転車屋に行けてないぞ。