id:kina が実行結果を知らせてくださいました...http://timino.jp/elim/:image=http://timino.jp/img/elim/違うんです……ぼくこんな子じゃないんです >_提供元でもブログ用(何)の HTML 断片を用意してくださってますが、今回ははてな記法で貼ってみました。表…

標準添付の executable-find が全く同じ機能でした。 *1 (defun locate-executable (arg) (if (and (boundp 'exec-suffixes) (fboundp 'locate-file)) ;; emacs22 feature (locate-file arg exec-path exec-suffixes 'file-executable-p) (let ((name arg) (…

はてなダイアリーライターは書き換え時に対象日の日記を消してから送信しなおすのですが、もしかして日記内のはてな ID に対するID コールも、その都度行われてしまうのでしょうか。

関数の定義は symbol-function で取り出せました。以下の例では、関数 b の中で関数 a を退避し、関数 a を書き換えた上で実行しています。その後、関数 a の定義を退避させたものに戻してあります。*1 (defun a () 'a) (defun b () (let ((old-definition (…

末尾再帰させていたのを mapcar で書き換えてみたり、やっぱり末尾再帰にしてみたり。 cl 依存をやめようとしてみたり、別に cl を使ったって良いじゃない、と思ってみたり。 「parenthesis が見えなくなったら lisper」なんて言うけど、そんなのすぐだよね…

珈琲 北 19 条の豆源でガヨマウンテンを 200g. 献血 久し振りに献血にいった。400ml. これで 17 回目……だったかな。アスティ45の献血ルームはどのスタッフも矢鱈と丁寧で恐縮する。今日も受け付けに近付くだけで数人に「ごくろうさまです」と声掛けされた。 …

id:dzfl が「woof を zip 対応にしなさい」と言うので、不承不承 Pyhton のコードを弄ってみました。ところで Python のコードに真面目に触れるのはこれが初めてだったのですが、これはこれですっきりしていて、なかなか良い構文だと思いました。特にブロッ…

こういうのが通るところ。Cygwin でもやってるけどね。 $ open $(grep --no-filename --only-matching 'http.\+bookshelf.\+' **/*el)

ndtp はどうしようね。ndtp.el を見るに open-network-stream を決め打ちで呼び出しているようなんだけど。特定の関数呼び出し前にだけ、関数定義を書き換える方法はないかしら。具体的には…… ndtp-process-open 前に open-network-stream を別名で退避 ssh …

Emacs から SSH をコキ使うを参考にして .emacs 群を変更中。この文書に従って smtp-open-connection-function も変更。無事、普段遣いの smtpd へ ssh + nc で接続できる事を確認した。しかし open-network-stream で通信したい smtpd も幾つかある。それな…

#1981@freenode の Kuboon さんが手品を見せてくれたのです。 それがあまりに見事だったので #suvene@ustream に貼ったところこれまた大受け。suVene さんも「ふふん」って顔してるとお喜びに :)それじゃあと、当の Kuboon さんを #suvene@ustream へお呼び…

手順 Firefox を終了させてから行ってください。 Mac OS X 以外の環境の方は、パスを読み替えたり、sudo を交えたり、MacBook{, Pro} 買ったりしましょう。 $ unzip /Applications/Firefox.app/Contents/MacOS/chrome/en-US.jar -d /tmp/foo $ cd /tmp/foo $…

萌様の simple-hatena-group-setupを実装した に触発されて simple-hatena-setup も改訂。 id 新規/追加設定時にも、ユーザの入力を確認するようにした。詳細は Changeset 1829 – CodeRepos::Share – Trac で。

ようやく手元の simple-hatena-mode で simple-hatena-setup が動くようになった。 明朝 id:antipop に御査収戴いて、赤ペン訂正の上 commit 戴…… coderepos なんだから commit しちゃって直してもらえばいいのか。 一応こんなの。hatena group についてはま…

Apple Support Discussions - 書類ごとに異なる入力ソースを使用によると、仕様であるとかいう話だ ほんと改悪だよねこれ。あー、どうすればー。 さっきアップル - Mac OS X - フィードバックから要望出しておいた。 不便を感じたならどんどんフィードバック…

こんなの見付けた。10.5.0 /usr/sbin/zfs $ sudo zfs ZFS Readonly implemntation is loaded! To download the full ZFS read/write kext with all functionality enabled, please go to http://developer.apple.com Read-Only ZFS Implementation missing c…

noraports には適用済みだよ。 --- pty.c.orig 2007-10-27 20:37:35.000000000 +0900 +++ pty.c 2007-10-27 20:40:44.000000000 +0900 @@ -34,7 +34,7 @@ #endif /* for solaris 2.1, Unixware (SVR4.2) and possibly others */ -#ifdef HAVE_SVR4_PTYS +#if…

id:antipop にいろいろ教えてもらったんで直してるとこだよ ちょっと短かくした。 (defun locate-executable (basename) (let ((suffix (list nil ".exe" ".com" ".cmd" ".bat")) (return-value nil)) (dolist (s suffix) (setq return-value (or return-val…

仕事が暇めだったので、でっち上げてみた。 これで良いはず ＞＜ (defun locate-executable (basename) (let ((suffix (list nil ".exe" ".com" ".cmd" ".bat")) (exist-flag nil) (return-value nil)) (dolist (s suffix) (unless exist-flag (setq return-…

Portfile を書いた。 概ね問題なくインストールされるが、man p{kill,grep,find} すると表示がおかしい。 試しに bsdmake install もしてみたが、やはり manpage の表示がおかしい。 man 生成周りはさっぱり知らないので、とりあえずこのまま使う。 PortSyst…

MacPorts に procfs があるのを見付けた。fuse による実装。 $ cat /proc/1/cmdline /sbin/launchd なんてのができるようになって楽しい。

スタートアップに登録してあるたった一つのショートカット。 C:\cygwin\bin\sh.exe -c "until df h: 2> /dev/null; do sleep 1; done&& cd; /bin/ck.exe -e screen -UO " h: は TrueCrypt ボリューム h: は %HOME% に指定されている h: をマウントする ck が…

これからは elim 名義で書くよ。 今までと case しか違わないけど。