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

> 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)。 とりあえず近隣の実店舗で見かけたら買ってみよう。ヘタな通販だと送料かかるしなあ。

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

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

> 先日 e-hon に注文してた「GOAT」は、品切れで先方からキャンセルされた。 たぶんそうなるだろうなーとは思っていたけど。 e-hon に発注して近所の (でもないか、ちょっと遠い) 本屋に直接取りに行くという初ミッションはまた次の機会。 まあ、基本的にフツーの本や雑誌はヨドバシドットコム (淀) で送料無料で買えちゃうし些少だがポイントもつくので (ポイントはオマケ程度)、 そっちで買えるものはそっちで買っちゃうから次の機会がいつになるかは分かんないけど。

> 自分専用にむかーし書いた画像一括加工 & ファイル名整列スクリプト用のマクロ (マクロと呼んでいいかもわからんかなりアレなやつ) の改造にふと気が向いてちょっと手をつけてたんだが…。 あんましうまく行かなくて一旦ご破算にした。またあとで見直す。 自分で書いたんだけど、むかーしすぎてソースコードをよくよく見直さないとナニやってんのかさっぱりわからんのだな。 しかも完全に素な perl コードではなく、ちょっと簡略記法みたいなことをしようとしてるんで、 処理する部分は余計にごちゃごちゃしてるし。 マクロつっても perl で、文字列で perl のコマンドを生成して eval {} に食わすあぶなっかしいやつだけど、 自分専用で自分しか使わないのでまあこれでええんじゃ。 lisp で eval (的機能) 使うのと、やってることはほぼ一緒だしな。たぶん。

> そしてまだ自転車屋に行けてない…。

> 小倉智昭氏の訃報。12.9、77歳。膀胱がんとのこと。
パソコンサンデーでしか知らん人だったなあ。 Dr.パソコン宮永好道氏も亡くなっちゃってるし、山下章氏はまだたまに名前見かけるけど、高橋雄一氏はなにしてるのかな…。

> このところ横にならずに座ったり伏せたりしたまま寝ちゃいがち…。 横になるのにちょっとモノを移動したりしないといけなくてメンドくさいもんで…。 でも横になって寝ないともう休まらないんだよなーカダラが…。

> この数日から数週間ほど、平衡感覚がびみょうに狂いがちに感じる。 立ち上がった時にふらつくことが数度あった。 ちょっとこけそうになったりこけたり数度ほどしたんだよな。 さっきも起き抜けなせいもあるのか、こけまではいかないが歩くのにごくびみょうだがバランスが取りにくい感じあり。 めまいとかは一切ないんだけど。うーん。要注意だな。 加齢のせいかねえ。

> 「スペリングビー」という Web ゲーム用に、skk辞書から語を拾うスクリプトを作って使ってるんだが、 メイン辞書だけじゃなくユーザ辞書の方も参照した方が効率がいいかな? 新しい語も自前で登録しまくってるし、とふと思い立って、 ユーザ辞書をちょっと覗いてみたら、なんか見慣れない変なフォーマットになっていた…。 まず文字コードが utf16le bom 付っつう変態コード…。たぶん CorvusSKK 作成言語 (ツール) のライブラリ依存なんだろうけど。 メイン辞書と違って変換時の補助的な情報も入り込んでるっぽいけど、これ各語にバラすのメンドくさいな。まあしょうがない。 あと perl で utf16 ってどうやって開くんだっけかな。あとで調べよ。

> ChatGPT 相手に、perl で「同一ファイル内に複数 package を記述して、 そのなかのひとつのパッケージの関数を、他の関数から完全修飾せずに呼ぶ方法」を探っていた。 perl はマイナーであんまし (AI の学習元の) 情報が多くない上、 「同一ファイル内に複数 package を入れる」という perl の (仕様上は問題ないが) 世の中にほぼ見当たらないであろう書き方に関する情報はさらに少ないと見えて、 同一ファイル内の別 package を use や require では読み込めない、という基本的なルールが ChatGPT に何度も無視されて、 結局解決法は ChatGPT の応答を頼りに半ば自力で発見した。 そのココロは、 「参照される関数を書いた package (内容はごく短い) を他の package よりも先に (ソースの上の方に) 書く、 またはうしろに書くならその package 全体を BEGIN {} で囲む」だった。
で、実際に使っているコードで試してみたところ、結局よく分からん理由でうまく動かなかったんで、 次善策の「呼出先の package の関数と同名の関数を呼出元の package 内で定義し、その中から完全修飾で呼出先関数を呼ぶ」 というやつでしのいだ。 なんで動かなかったのかはよくわかんない。 eval {} の中から呼び出そうとしたせいなのかな…。

> つい最近だが、ChatGPT に「David Mayer」と出力させようとするとハングアップする、というのが話題になっていた。 どうも連想エンジンより上のレイヤのフィルタリング処理のところでヘンな風に個人名をブロックしてるらしく、 実際に試してみたら、確かに「David Mayer」と出力させようとするとヘンなエラー表示が出て止まる。 しかし連想エンジン本体はそのことをまったく感知できておらずに、何度でも平気で出力しようとして、 その都度ハングする、というなんともきもちわるい応答だった。 ちなみに全角文字の「Ｄａｖｉｄ　Ｍａｙｅｒ」を出力させてみると問題なくできた。
この「David Mayer」出力でハングアップするエラー (不具合) は現在解消されているが、 実は他にもフィルタリング (ハングアップ) 対象の固有名がいくつかあるようだ。

• Brian Hood
• Jonathan Turley
• Jonathan Zittrain
• David Faber
• Guido Scorza

これらは現在までのところ対策ができておらず、ChatGPT から出力させようとするとハングアップする。 ChatGPT の文章出力生成部分では、厳密なルールを指示してもそれに完全に従えるようになってないようで、 なにしろ「これらの文字列は絶対に出力しないように」とか「出力する際はすべて全角文字に変換して出力するように」 などと指示してやっても、その指示をわざわざ復唱しようとしてまんまと該当文字列を吐き出そうとしてハングるんであった。 生成AI のこのへんの仕組みってのは、なかなか興味深いね。 “知能”があって応答してるわけではないんだな、というのがよくわかる。

> 間宮芳生氏の訃報。12.11、95歳。肺炎で。
大往生だなあ。 基本的に、ホルスの楽曲書いた人、としか知らない。 ワシずっと「まみやよしお」って読んでたけど「まみやみちお」だったんだ。

> 部屋の奥の方で、なんかくずれて落ちた音が…。 プラ袋的なものにけっこうなサイズの…薄いめの本か雑誌がひとつ落ちたみたいな。 部屋のほとんどを本と雑誌と箱 (引っ越してきた時のやつ + 買い物で増えたやつ) がふさいでいて、 現在部屋の奥に行くことができないどころか向こう側が見えない。マジで。 いやーもうだめだなこれ。

> 食料品がまたなくなりかけているが体力的 + 気力的に補充に行けない。 自転車屋もまだ行ってないや。

> 結局夜中近くに、クランク逆回しで (ペダル止めて慣性走行しても) チェーンがたるむこわい自転車で、 夜中近くまで開いてるちょいと遠くのスーパーに行って、 ちょっと高いけどボリュームあったんでキャベツと、 想定外に安かったのでウインナー (香薫) も補充して、ついでに惣菜とかも買って帰った。 しかし自転車乗りにくい…。これ直さないでこのままずっと乗り続けるのはやっぱりムリだな…。

> koss のヘッドホン porta pro が wireless になって出たんだって。 porta pro wireless 2.0 だって。 15K くらい。へー。バッテリ最長 20時間以上だって。まあ SBC でだろうけど、でもあの形状と軽さで 20時間はちょっとよいな。 porta pro 自体はもうだいぶ歴史が長くて日本発売が 1988年だそうだ。 なおウチにもひとつある (porta pro classic)。イヤパッドがダメになっちゃって今は使ってないけど。 替えのイヤパッドも買ってあったんだけどどっかいっちゃって。また買えばいいんだが。 でも耳穴突っ込み型イヤホンのパッドはけっこう売ってるんだけど、直径 45mm くらい用のは見かけないんだよな…。
そういや sennheiser の有線無線両用イヤホン (ie 100 pro wireless だっけ?) も、その後探してないや…。 あれは 18K くらいだったかな…? 円安でもっと上がってるかな…?

> どうもここ数日… 2～3日くらい、PCがおかしい。 ファイルの読み出しで失敗してコケるスクリプトがちらほら…。なんかおかしくなってるな…。うーん…。 ssh 接続で失敗が続いたり…。 cygwin 上のプログラム類がプロセス関連でコケたり、そこにあるファイルが見つからないエラーでコケたりしている…。 ハードウェアの不調の可能性はあるな…。

> やっと自転車修理依頼しに自転車屋に行く。
応対に出た若いお兄さん、ロクに見ないうちに、これは中の機構の部分がだめになっていると思う、後輪のタイヤもだいぶ減っちゃってるし、 あれこれまとめて交換する費用を考えると新しい自転車を買った方が安いかも…とかなんとか言うので、 なるほどそういう営業をしてくるパターンなんだなーと思いつつ聞いてた。 新しいのを本体まるごと買ってもらえるなら買ってもらった方がお店も客も win-win だしそれはそうだね。 どういう原因でこうなったか、有料でもいいので見るだけ見てみることはできないか、と聞いたら、 一度バラすとへたすると二度と元に戻らなくなる可能性があるので…このまま乗ってもらうか後輪まるごと交換するか、 交換だと最低でも工賃入れて 1万円はすると思うとかなんとか。うーん、どうしよう、と思いつつうなってたら、 ちょっと待ってください、といって別の店員 (上級者っぽい) になにかぼそぼそ相談した後、 スプロケット (ギアの部品) をひとつ持ってきて、これと歯数が同じなら交換できると思います、と歯数を数え始めて、 交換でいけそう、料金 4K くらいでできます、とのこと。 うなりつつねばった (たたずんでいた) 甲斐はあった。 しかし後輪のタイヤのミゾがもうないのも事実だし、 なんなら縦方向に細かく何本もヒビ入って裂けてるのも確かではあるんだった。 つーか、こんなに傷んでたんだなタイヤ。あんまし明るいところでしげしげと見たりしてなかったんで気づかんかったわ。 まあ裂けたらまたタイヤだけ交換してもらうしかないんだが。 そして後輪のギア (スプロケット) と車軸の間のチェーンガイドっぽい丸いプラ板も、 もう劣化でぼろぼろで店員さんが触るそばからパラパラ崩れ落ちる始末…。 まあねえ、もう 17年目だし。 最初の 5年は室内保管できてたけど、残りの 10年以上は毎夏炎天下野ざらし、 一年中強烈な西日にさらされて風雨も浴びまくりだから当然だよね。 作業は 1時間半くらいで終わるそうなので近所で買い物した後、一旦荷物を徒歩で持ち帰り。 片道 15分。考えてみたら自転車直ってから買い物した方がラクだった…。 スプロケット交換終えた頃合いに引き取りに。 料金は、以前その店でなにかの修理をしてもらった時には、予め言われていたよりも多く取られたんで、 今回も 4K とは言っていたけどたぶんもうちょっと上乗せされるんじゃないかな、と思ってたら、ほんとに 4K で足りる額だった。 そういう場合もあるのか。なるほど。 スプロケットだけピッカピカでちょっとヘンだけど、まあクランク逆回しでもチェーンがたるまずに乗れるようになって助かった。
しかし、ラチェット機構のあたりのグリスでも補充すればすぐ直りそうかな…とか思ってたけど結局スプロケットまるごと交換だったな。 このへんは知識も技術もなんもないので、まあしょうがない。今から身に付けようとかそういう方向の意欲もあんましないし。

> y!mobile の料金明細確認しようと my y!mobile にログインしたら、 なんか知らんがいきなり「利用にはソフトバンクIDが必要です」とか出やがった。 またなんか変えたらしい。あーあーヤだな…。ソフトバンク ID とかいう名称だけでもう十分ヤだな。ほんとヤだな。 別キャリアに乗り換えようかな…。つってもめぼしい乗り換え先があるかどうかも分からんしなあ。どうしようかなあ。 と思いつつとりあえずしぶしぶ仕方なく誘導に沿ってリンクをたどったところ、 よくわかんねえ新しい ID が振られて、それだけだった…。 利用する側としては他になにやら個人情報利用に関するオプトイン (オプトアウト) 設定を追加してとりあえずおしまい。 まあ裏ではなんかいろいろやってるんだろうけど…。 顧客情報を今後商業利用にガンガン持っていくためのいろいろ画策っぽいな。 ホントにぼちぼち他キャリアに乗り換えを真剣に検討するか…。 まあこっち方面のサービスの傾向なんかもしかしたらどこ行っても似たようなモンなのかもしれんが。

> そういや自転車屋に行った時に久々に熊野町交差点の前を通ったら、 あのブリキ看板とかがいっぱい飾ってあった場所がさらにとんでもねえ状態になっていた。 壁面 (立て看板) だけじゃなく広場のところにもいろんなわけわからんオブジェがみっちり並んでいて、 真ん中あたりに賽銭箱がどんと据えてあって “1円玉おことわり”とか書いてあったな…。 写真撮らずに帰ってきちゃったけど…。 オブジェが邪魔で下の方の看板が隠れてちょっと見えなくなっていて惜しかった。

> そういえば今年は技術系のアドベントカレンダー記事をまったくチェックしそびれたままだな…。 ちょっと調べようかしら…。 まあ残ってる記事はずっと残ってるから、あとからゆっくり探してもいいんだけど。

> YouTube でアニメ制作会社などが、昔の作品を無料で公開していたりするが、 どうも往々にして 24fps 化してなかったり、してても失敗しててそれに気づかんままだったりして、見る気がそがれる…。 24fps 化失敗すると動き (アニメーション作品のある意味、命) がガッタガタになったりして、見るに耐えんのだが。 なんで気がつかないんだろうな。愛がなさすぎる。あと技術。

> 久里洋二氏の訃報。11.24、96歳。老衰で。 こちらも大往生だなあ…。

> 相変わらずチャバネフィーバー。 馴々しく出てくるのは油断してるのか、それとも多少は毒餌が利いていて判断力が麻痺でもしているのか…。

> おなかも調子悪し。

> 先日ちょっと遠くのスーパーで、少し高いめだったがやや大振りだったので買ってみた有機栽培のキャベツ、これがけっこう甘い…。 有機栽培のせいなのか、品種のせいなのか、関係なくたまたまなのかはわからんが。 手をかけて育てて甘くしてたのかな…? また買うかはわからんけど。キャベツもちっとも安くならんなあ…。

> 業務スーパーで買ったアダチの「プロ好みのラップ」という塩ビのラップがなくなったので、 補充しようと業スー行ったら店頭になく…。 仕方なくかわりにキッチニスタラップの塩ビラップ「業務用外刃タイプ」というのを (中身はたぶん同じじゃろう…と思って) 買ってきたんだが、 ギザ刃の位置が普通と違って箱側についちょるんだなこれ。外刃っつうのか。 塩ビフィルムの性質もびみょうに違うような気もしなくもない…くっつきにくいというか。
箱に刃がついてるとちょっと使いにくいな、と思ったんだが、 どうやら検索してみると、業務用の製品はフタ (フリップ) 側じゃなく箱側にギザ刃がついているものらしい。へー。 じゃあアダチのラップがむしろちょっと例外的な (一般顧客に寄せた) 仕様だったのか。 慣れればこれも使いにくく感じなくなるのかな。 なおキッチニスタラップっつうのは以前は日立ラップという製品名 (メーカー名?) だったらしい。へー。 ヨドバシドットコムでも売ってて、レビューにちょっと説明書いてる人がいた。

> 高橋真琴氏の訃報。11.17、90歳。食道がんだったのか。

> 10台入るセンチュリーの外付け HDD は 3組 (6台)、同容量のディスクでミラーリングする運用にしていたんだが (ミラーリング自体は手作業)、 そのうちの 1組の片方がだいぶ前に壊れてミラーリング不可になり、 残りの 2組もそれぞれ容量いっぱいのぱつんぱつんになってしまい、 他に 2台ほどドライブ故障もあり、 新しい HDD 買わないとにっちもさっちもいかない状況になってだいぶたつ。 ミラーリングはいざって時のための備えのつもりだったが…。 まあ、ダメになったらその時はその時か、と思って、 ミラーリング運用を続けていた 2組のうち 1組をミラーリングから解放して、 HDD 1台分の空きに、ぱつんぱつんの各ドライブからちっとずつファイルを移動して容量調整した。 これで現状、容量ぱつんぱつんのままのドライブは、 ミラーリング運用を続けている 1組 (2台) のみに。 エクスプローラのドライブ一覧の容量表示バーも全部赤だったのが 2台だけ赤であとは青に (わかりづらい説明)。 さて、外付け HDD ケースはドライブスロットが 3つもムダになってるし…。 やっぱり容量のでかい HDD を買い足したいなあ…。

> ぼちぼち、賃貸の更新なんだけど。 更新手続き担当の不動産屋に先週、ぼちぼち更新なので…とこっちから連絡を入れたんだが。 じゃあ書類郵送します、とのことだったんで待ってたんだけど。 書類は届かず、電話が来た。 実は前任の担当者が急逝して、引き継ぎができてなくて書類が作れない、と…。 そもそも会社がそのへんの事情もあっててんやわんやなので、大家さんと直接契約更新してもらえたら助かるんだけど、 みたいな話だった。直接更新てそんなのできるの?
とりあえず大家に SMS で用件を送ってみたところ、 折り返し連絡で、別の仲介を探した方がよさそうなので、 知り合いの不動産屋に当たりをつけるんでちょっと待っててとのこと。 うーんいろいろメンドくさいな。 はやくしないと間に合わないんじゃないかな…と思ったんだが、まあ大家承知の上での遅延だったらなんとかなるか…。

> しばらく探してたブルボンのプレッツェルショコラをやっと買えた。 けっこううまかった。でもリピートはしないかも。 まあまたそのうち。

> メモ。「けものみち」最終巻は 14巻。 買おう、と思いつつ買ってない本とか山のようにあるよなあ…。