雑記帖のにっき

パートナーさんと、市民管弦楽団の公演を聴きに。
席についていると、奥の席にいこうと私達の前を通ろうとする8才くらいの男の子から「すみません」と声をかけられる。
パートナーさんと私で、足を引く。
その男の子から、普通に、本当に普通に「ありがとうございます」の言葉が返ってくる。
彼は素晴らしい人だ。自分は「すみません」といって足を引いてもらったあと、もう一言「ありがとうございます」を言うだろうかと考える。言ったとしても、あれほど素直に声にだせているだろうか。
管弦楽を聴く前にとてもいいものを見た、とパートナーさんと二人でうなずく。
演奏を聴く。ピッコロ、フルートなどがウマイ。打楽器最高。
こういうのもとてもいいけれど、今度はプロの公演を聴きにいってみようと思う。

_ [misc] xyzzy 環境

xyzzy のメイン環境の引越しを一部実行。ともない tdiary も更新可能に。

_ [バックアップ] FAT32

NTFS には 1 フォルダに保存可能なファイル数の制限がないが、FAT32 には存在する(65536?)。
バックアップ先として使用できるドライブが現在 FAT32 のものしかない。
EdMax フォルダの丸ごとバックアップを試みた。失敗。上記制限に引っかかる。
生ログをバックアップしているので最低限のバックアップはできているとはいえ、これはだめだ。
NTFS なバックアップ先を緊急手配しつつ、メーラの乗り換えを本格検討か。
Becky なのだろうか。やはり。ううむ。

[ツッコミを入れる]

本日のリンク元 | 10 | 8 | 7 | 7 | 7 | 6 | 5 | 5 | 5 | 4 | TrackBack(0)

2006-10-16 (月) [長年日記]

_ [misc] 結婚記念日：2周年

2年目の結婚記念日。
これからもどうぞ宜しくお願いいたします。

_ [xyzzy] 第四回オフ会 in 上野

「第四回オフ会 in 上野」に参加のお願いをこそっと出してみた。
イロイロ教えてください。

_ [パ] 核心を貫く言葉

「人は太ると老ける」

_ [xyzzy] メモ

モバイル xyzzy。誰か 2GB のUSBメモリを与えてください。自分で買うには踏ん切りがつきません。
xyzzy の (si::system-root) のパスを表す文字が欲しい。XYZZYHOME の「~」のような。
browser.dll のライセンス。
xyzzy でファイル暗号化を実運用している方いますか？
マクロ(not キーボードマクロ)の便利さを骨の髄まで叩き込んで欲しい。
やっぱりキーボードマクロは最高。
なんか面白いことないですか。書こうかと思うものはあります。
Wink でもっと動画を作ろう。
やっぱり ~~cper-mode~~ cperl-mode を！
ilogic 忘れてた。アイデンティティが。
DLL の作り方丁寧に教えてください。browser.dll をヘナチョコ改変して個人的に使うくらいしかできません。
1/3 くらいしか思い出せていない気が。また今度。

[ツッコミを入れる]

本日のリンク元 | 32 | 6 | 5 | 5 | 5 | 4 | 4 | 4 | 3 | 3 | TrackBack(0)

2006-10-17 (火) [長年日記]

_ [misc] ヨドバシカメラ

昨晩のドラマ「のだめ」はよかった。帰宅してから見たので、寝るのが 25:30 に。
そして。最近 7:50 am に会社でメールチェック開始するのが日常になりつつある。これはよい。
買い物をするために、定時気味に帰る。
ハワイにいく直前での(生まれて初めての)ヨドバシカメラでの買い物でポイントが貯まったため、秋葉原のヨドバシカメラへ。
秋葉原のヨドバシカメラに入るのはもちろん初めて。
IXY のケースと、小物を買う。買うとは書いたが、全てポイントでまかなえた。まだ結構残っている。すごい。

_ [xyzzy] モバイル xyzzy

ヨドバシで 2GB USB メモリを見たけれど買わなかった。
とはいえ作っておかないと運用がどうにもならないので、USB HD 上で構築中。
そして、このエントリは、そのテストを兼ねて。

_ [xyzzy] モバイル xyzzy (その2)

えい、と作業。
バックアップなどで不便なので、以下に列挙するものの関連ファイルを xyzzy/ とは別個のフォルダ xyzzy_var/ 以下に保存するように変更。(もともと xyzzy/ 以下でなかったものも含む)
- 2ch-mode
- NetInstaller
- tdiary-mode
- xyzzy で生成するバックアップファイル
- Webサイト(xrea)

[ツッコミを入れる]

本日のリンク元 | 13 | 9 | 8 | 7 | 7 | 6 | 6 | 6 | 5 | 5 | TrackBack(0)

2006-10-18 (水) [長年日記]

_ [misc] ダメ

よりによって、今日8時前出勤に失敗する。

_ [xyzzy] メモ (その2)

1/3 くらいしか思い出せていない気が、と書いたので、これと、あともう一回くらい書くように頑張ろう。
ただし、もうネタはあまりない。
近くでも、遠くでも、ツッコミが入るとは思っていなかった。スルー力すら試していない。ただのメモです。本当に。そうしないと、本当に飲んで終わるだけになってしまうので。
前回の書き込みで cper-mode とかわけのわからない文字列を書いていた。過去にもやった記憶がある。恥ずかしいので cperl-mode に修正。l を打ちそこなう率は割と高い気がする。気のせいかもしれない。
「気のせい」と書いたつもりが、変換したら「機能性」になった。多少カッコいい。このキーボードは使いづらい。
USBフラッシュメモリ2GBは、USBハードディスクをもっているので、普通に考えると必要ない。普通に考えなくてもやはり必要ない。単になんとなく欲しいだけ。そのため踏ん切りがつかない。決して、間違っても、利息でどうにかしてくれちゃったら、と思ってはいない。本心です。踏み間違えないで。
(si:system-root) を表す文字について。普通は必要ない。正しい判断かどうかはともかく、欲しいと思った瞬間があったことは事実。ニッチには違いない。当然なんとでもなる。
必要と思った瞬間：
- モバイルxyzzyの構築が前提。$XYZZY が固定されない。
- ヒストリ変数でパスを指定する場合が前提。.xyzzy や siteinit.l でパスを設定しない。
- 例えば outline-tree の設定で、ダイアログから「アイコンディレクトリ」の値を、右の「参照」ボタンを使用して入力する。フルパスが入る。
- 別のところにその環境(USBハードディスク)を差す。アイコンが表示されない。
- browserex の設定ダイアログで browser.dll を指定した場合も同様。
- 回避策。モバイルxyzzy の場合は、どうせ (si:system-root) と (user-homedir-pathname) は一緒なんだから、「アイコンディレクトリ」のところには「~/site-lisp/outline-tree/icon/default」と入れておけばよい。万事解決。(browserex の dll も)
- だが、本当は指定したいのは「$XYZZY/site-lisp/outline-tree/icon/default」。意味合いが違う。気持ちが悪い。
- 現時点でどうしているかというと、当然「~/site-lisp/outline-tree/icon/default」と入力してある。清濁なんて意識もしないまま飲み込んでいる。
瞬間ではない。
マクロについては、ここ (http://user.ecc.u-tokyo.ac.jp/~t50473/onlispjhtml/whenToUseMacros.html) を読め。という話。それはわかる。利点だってわかる(多少だけ)。ただ、髄まで浸して欲しい。
何も新しいことを書いていないばかりか、メモを早速食いつぶした。そうそう補完は効かない。

_ [xyzzy] モバイルxyzzy (その3)

outline-tree2 を siteinit.l で読み込んでダンプしている都合上、モバイルxyzzy では .xyzzy にて、*outline-tree-config-file* と *outline-tree-autoload-directory* を設定しなおす必要があることに気がつく。
C-c C-e と押したら、xyzzydic から怒られた。こちらのパスも再設定するようにしなければ。見直しておこう。

_ [xyzzy] package に nickname をつけない理由

思い出した。
.xyzzy.history ファイルの (editor::load-history-symbol-packages ...) 関数の引数の package 指定に、nickname が含まれないから。
siteinit.l や .xyzzy でライブラリを読み込まない（正当なパッケージ定義をしない）と、xyzzy 起動後にライブラリを読み込んでも nickname が使用できなくなる。（ex: パッケージが存在しません: "olt2"）
自分はどうにでもなっても、いらぬトラブルを他人に与えないことこそが重要なので、このようにしたのだった。
数年ぶりに思い出した。
.xyzzy.history ファイルに書き出す際に nickname 指定も書き出せば（そして editor::load-history-symbol-packages が解釈すれば）問題がないのかもしれない。
そんな単純な話か。本当に。落とし穴がどこかにあるような気がするので、用心深く考察しよう。
そういって保留する。

_ [misc] 四季

『「四季」愛蔵版BOXセット』はやりすぎだと思った。(2006-10-16)。
まったくプチじゃない。
とかいってても、私も買ってしまいそうだ。危険。
「カクレカラクリ」はハズレ気分でした。初めて。コカコーラ感はとても楽しかった。さわやか（嘘）。ドラマはまだ見ていない。

本日のツッコミ(全2件) [ツッコミを入れる]

_ ふぉなみ [そろそろ『四季』の予約受付が終了してしまいますよっ! カクレカラクリのドラマは撮りのがしてしまったのでそのうちの素..]

_ OHKUBO [え、予約制なんですか！欲しいけど、うむむむ。。むむむ。。ドラマの方は、ステキ飲み会で :-) それまでに見ておか..]

本日のリンク元 | 20 | 11 | 9 | 9 | 8 | 8 | 7 | 7 | 7 | 6 | TrackBack(0)

2006-10-19 (木) [長年日記]

_ [misc] misc

都市ガスの供給方法（生成方法）について知りたくなったので人に聞く。正しいかはしらない。ガスパッチョ。
「妥当」の言葉の意味、厳しさについて議論する。

_ [xyzzy] モバイルxyzzy(その4)

[共通設定]-[ディレクトリ]-[辞書]-[ディレクトリ] のパスを「~/edict」に変更。
辞書がどこでも使えるように。
[共通設定]-[ディレクトリ]-[HTMLヘルプ]-[COL/CHMファイル] のパスも変更。
モバイルxyzzyは絶好調。

_ [xyzzy] ldoc 拡張

YMTZ (taizod) さんの ref2doc を使用している。そこ (http://www1.odn.ne.jp/ymtz/ref2doc.html) にいっしょに書いていただいている ldoc 拡張を使用していた。
本日たまたま not-modified の上にカーソルが移動した。すると not-modified の reference での説明文である「"バッファの変更フラグをクリアします。[ESC ~]"」の最後の「~]」を不正なフォーマット指示子として捉え「不正なformat指示子です」エラーが ldoc ででた。ふむ。
拡張をみると、message 関数の fmt の部分に直接文字列を埋め込んでいたからだとわかったので直して使用。
手元の ldoc2.l をなんとはなしにみると、同じ修正がされていた。つまり ldoc2.l を使用している場合は上記拡張はすでに修正された上で組み込まれていたということ。
さらに、ldoc2.l を何とはなしに改めてダウンロードしてみると、手元のよりも新しくなっていた。旧：03/26/2004、新：10/28/2004。
差分を確認した上で、ありがたく新しいほうを使用させてもらう。
パスはこちら。http://www.jaist.ac.jp/~m-nakano/lisp/ldoc2.l

_ [xyzzy] メモ (その3)

ヒストリ変数が好きなわけでは全くないが、ダイアログを作る以上しかたがない。
TreeView でノードをドラッグアンドで移動させるサンプル(lisp)を誰か見せてください。

_ [xyzzy] NetInstaller 拡張

手元の NetInstaller にはチョロチョロと手を加えてある。
今日もヘナチョコ拡張を加えた。余り役にはたたない。

_ [misc] 完売

完売の連絡が営業さんからはいった。
思ったより早かった。ちょっとウレシイ。

本日のツッコミ(全2件) [ツッコミを入れる]

_ 中野 [ldoc2 ってどこかで見た事あるなぁ、っと思ったら見覚えのあるアドレスが出ててびっくりしました。うれしくなったので..]

_ OHKUBO [更新＆NetInstaller 対応、ありがとうございます。早速ダウンロードさせていただきました。「関数引数がな..]

本日のリンク元 | 17 | 10 | 10 | 8 | 8 | 7 | 6 | 6 | 5 | 5 | TrackBack(0)

2006-10-20 (金) [長年日記]

_ [xyzzy] モバイルxyzzy(その5)

ヒストリ変数と、モバイルxyzzyの相性はすこぶる悪い。
いいや。場所移行後一回目の起動は再ダンプするようにしよう。これで万事解決。

xyzzy_no_dist フォルダを追加。今はまだ空。現在の構成。

    xyzzy_base/
    ├ xyzzy/
    ├ xyzzy_no_dist/
    └ xyzzy_var/

favorites.l も siteinit.l で読み込んでダンプしているので、.xyzzy で *favorites-path* の再定義が必要。
$XYZZY な文字が欲しい件は、いってみればたわごとです。オフィシャルな定義がでてこないかぎり、使用するわけにはいかないです。混乱の元ですもの。

_ [xyzzy] ldoc2.l の表示変更。

関数に引数がない場合に NIL と表示されるのが気に入らない。と思ったので () と出力するように。

;; 2006-10-20 OHKUBO 修正 (引数がない場合に NIL と表示するのでなく () に)
(in-package "editor")
(defun ldoc-func-message (symbol)
  "Print name and arguments of function bound to SYMBOL and documents."
  (let ((doc (documentation symbol 'function)))
    (message "~S ~:@(~:A~) : ~A"
             symbol
             (ldoc-func-get-args symbol)
             (if doc (car (split-string doc "\n")) "not documented"))))
(in-package "user")

2006-10-21 追記：ldoc2.l に上記は取り込まれました。

_ [misc] misc

体力を使い果たした。眠い。というよりはダルイ。週末資料を作ろう。
帰りの満員終電車で、座席に横になり2～3人分のスペースをつかって眠りこけて周りに迷惑をかけている兄ちゃんがいた。とりあえず二駅ほど断続的に叩きつづける。
それでも眠りつづけていたあの男性は、完璧だった。
電車の中で、知らない人を、起こしたり、叩いたりすることが多い。ちゃんとしろ。
寝るならホームで。酔いつぶれるなら駅の柱の近くで。

[ツッコミを入れる]

本日のリンク元 | 15 | 13 | 12 | 12 | 11 | 9 | 9 | 8 | 7 | 6 | TrackBack(0)

2006-10-21 (土) [長年日記]

_ [misc] misc

ねこけた。
ウルトラマン(メビウス?)がテレビでやっていた。喋っていてビックリした。喋れたのか。ウルトラマンタロウまで。

_ [xyzzy] ldoc2.l ステキ更新

中野さんが ldoc2.l の更新＆NetInstaller 対応＆昨日のつぶやき取り込みをしてくださった。
ありがとうございます。

_ [xyzzy] outline-tree, treeview アップデート

約半年ぶりに outline-tree, treeview をアップデート。
Web か、NetInstaller からどうぞ。

_ [xyzzy] csv-mode アップデート (0.0.2.1 → 0.0.3.0)

半年なんて甘い。3年半ぶり (前回：2003/05/19) に csv-mode をアップデート (0.0.2.1 → 0.0.3.0)。
Web か、NetInstaller からどうぞ。
個人的には、かなり使用頻度の高いもの。常に変更されていて、リリースタイミングが見当たらないまま今に至った。
xyzzy 0.2.2.234 への対応がいまさら含まれる。
xyzzy 本体よりも長いバージョンアップ間隔というのは、よく考えるとなかなか趣深い。
これでとりあえず、大体、ライセンス条項記載は終わっただろうか。

[ツッコミを入れる]

本日のリンク元 | 12 | 10 | 8 | 7 | 5 | 5 | 5 | 4 | 4 | 4 | TrackBack(0)

2006-10-22 (日) [長年日記]

_ [xyzzy] GNU GLOBAL 導入まで(の途中で未完) (tetris.l の修正と gtags-menu.l の修正)

GTAGS を使用してみようかと思い立つ。
まずは GNU GLOBAL から win32 版のバイナリをダウンロード。
NetInstaller から gtags-20060826.zip をインストール。
自動設定 (ni-autoload) は使用していないので、書かれているとおり、手動で以下設定を .xyzzy に。

; Emacs Lisp 移植キット
(require "elisp")
 
; gtags-mode
(export 'ed::gtags-mode "ed")
(autoload 'ed::gtags-mode "gtags/gtags" t)
(require "gtags/gtags-menu")

xyzzy 再起動。メニューが消えた。
エラーを見てみると XyzzyWiki の Games/Tetris で公開いただいている tetris06.lzh のメニュー追加でエラーが発生するようになっている。
該当箇所はこの部分。

(defun add-menu-tetris ()
  (let ((tools (get-menu *app-menu* 'tools)))
    (add-menu-item (get-menu tools 26 t)
                   nil "Tetris(&T)" 'tetris)))

gtags-menu.l で、*app-menu* の「ツール」にメニューが追加されるため、上記コードで 26 と直接ポジションを指定して取得している「(>_<)」メニューが取得できなくなりエラーが発生するようになっている。
ということで、.xyzzy に以下記述をして対処。

(require "tetris")
(in-package "editor")
(defun add-menu-tetris ()
  (let (menu)
    (when (and ed::*app-menu*
               (setq menu (get-menu ed::*app-menu* 'tools))
               (setq menu (get-menu menu :|(>_<)-popup|)))
      (add-menu-item menu 'tetris "Tetris(&T)" 'tetris))))
(in-package "user")

とりあえず正常に xyzzy を起動できるようになったところで、gtags.exe のパスを指定する変数はどこかと gtags-menu.l を再度確認。
モバイルxyzzyでの使用が前提なので、環境変数 PATH には指定しない。
*gtags-cmd*、*gtags-incremental-cmd*、*htags-cmd* に指定するパスをとりあえず (si:system-root) を用いてフルパスで設定。
[ツール]-[GTAGSファイルの作成] から試しに実行してみる。gtags.exe コマンドから gtags-parser.exe が見つからないと言われた。動作しない。ふむ。
gtags.l、gtags-menu.l を見ても、明示的に gtags-parser.exe は指定していない。パスを通しておけということか。
生憎 xyzzy 外からパスを通すことは、モバイルxyzzy ではご法度なので、lisp でコマンド実行しているところで環境変数を指定することにする。
gtags-menu.l を見ると、以下関数が。

(defun make-gtags-file (dir &optional (force nil))
  (interactive "DMake GTAGS file: \np")
  (setq dir (append-trail-slash (namestring dir)))
  (let* ((file (merge-pathnames *gtags-file-name* dir))
         (cmd (if force
                  (setq cmd *gtags-cmd*)
                (if (file-exist-p file)
                    (setq cmd *gtags-incremental-cmd*)
                  (setq cmd *gtags-cmd*)))))
    (execute-subprocess cmd
                        :bufname *gtags-buf-name*
                        :directory dir)))

execute-subprocess の引数指定が誤っている。keyword 指定ではない。
これで動いていたということは、たまたま引数の順番が一致して動いていたようだ。
環境変数 PATH の指定も含めて、gtags のロードの後に以下のように .xyzzy に設定。

;; 2006-10-22 OHKUBO
(in-package "editor")
(defvar *gtags-cmd-dir*
  (merge-pathnames "bin/glo52wb/bin/" (si:system-root)))
(defun make-gtags-file (dir &optional (force nil))
  (interactive "DMake GTAGS file: \np")
  (setq dir (append-trail-slash (namestring dir)))
  (let* ((file (merge-pathnames *gtags-file-name* dir))
         (cmd (if force
                  (setq cmd *gtags-cmd*)
                (if (file-exist-p file)
                    (setq cmd *gtags-incremental-cmd*)
                  (setq cmd *gtags-cmd*)))))
    (execute-subprocess cmd
                        nil
                        *gtags-buf-name*
                        (list (cons "PATH" (concat *gtags-cmd-dir* ";" (or (si:getenv "PATH") ""))))
                        dir)))
(in-package "user")