emacsmode_controlPNBF を戻す advice

KeyRemap4MacBook 本体に Carbon Emacs 対応が入ったため、以下の ad-hoc なコードは不要になりました :) FYI: KeyRemap4MacBookkeyremap4macbook.option.emacsmode_controlPNBF が有効な時にだけ define-key を乗っ取り、C-pnbf を要求する keybind を C-[(…

AquaSKK conflicts MPlayer on Leopard 10.5.2

Leopard 10.5.2 に更新して初めて不具合らしい不具合を体験しました。どうも AquaSKK 3.6 が動いている状態ですと MPlayer が再生開始直後に異常終了してしまうようです。 MacPorts 版と svn r25990 で確認しました。[U.S.] にしておけば回避できるようです…

DivX Web Player on Case Sensitive File System

Stage6 内の動画を閲覧するべく DivX Web Player を導入しました。 しかし Fx3 を再起動してもYou need the DivX Web Player to watch this video. と表示され、動画を視聴できません。どうやら DivX Web Player のインストーラはファイルを /Library/Intern…

KeyRemap4MacBook + Carbon Emacs

そうか global-set-key や define-key を advice で包めばいいかも。帰ったらやってみます。

locate-executable

標準添付の executable-find が全く同じ機能でした。 *1d:id:elim:20080126:1201802151 のコードは e21 と e22 の時で結果が変わってしまう可能性がありました。以下のような状況を想定します。 exec-path が ("~/bin" "/bin") ~/bin/foo.bat と /usr/bin/fo…

KeyRemap4MacBook

上記の手法では emacs 内で C-pnbf を使う場面全てを書き換えなければいけないので、非現実的なのではないかという気がしてきました……。keyboard-translate で一括で変更できないか試しているのですが、up down left right が char table のどの整数値に相当…

KeyRemap4MacBook

使用再開。前回は C-pnbf を up down left right へ換えてくれる設定が shell では返って哀しい事になるので使用を断念したのですが... remap.emacsmode を指定すると Terminal.app が不便になる以下のように Terminal.app の設定でカーソルキーを ^PNBF に…

elscreen-server

Elscreen-server を使うとさらに便利に http://d.hatena.ne.jp/gan2/20080131/1201782439 「そういえばぼくも導入していたなあ」と試してみましたが、うまく動きませんでした。以下を試すと、返り値は non-nil なので読み込めてはいるようです。 (require 'e…

ついカッっとなって

書いてしまいました。これで「あの人は今日で n 歳と m ヶ月なのかな」という疑問にすぐに答えらます :)emacs lisp です。 (defun combined-date-number (&optional year month day) (string-to-int (format-time-string "%Y%m%d" (when (and year month day…

coding system

あれれ。simple-hatena-mode から UTF-8 を送ると化けてしまいます。EUC-JP にしてから送信すれば問題なし。前からそうでしたっけ。 あれ?僕もダイアリを、ここ数日もずっとUTF-8で書いて送信してるけど、化けてないなあ。なんだろ。 http://b.hatena.ne.jp/…

[http://timino.jp/elim/:title=elim の恋愛傾向]

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

[emacs] [lisp] locate-executable

標準添付の 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 call

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

ndtp 経過

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

emacs lisp

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

日記

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

はじめての Python

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

Mac OS X の可愛いさについて。

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

ndtp

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

Wanderlust での smtp-open-connection-function の切り換え。

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

繋げてみた

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

Highlight all に C-a を取られないようにした

手順 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-setup 改訂

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

simple-hatena-setup

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

Leopard での日本語入力

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

zfs on Leopard

こんなの見付けた。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…

GNU Screen on Leopard

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…

Re: (locate-executable)

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…

(locate-executable)

仕事が暇めだったので、でっち上げてみた。 これで良いはず >< (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-…

proctools

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

procps

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

たのしい Windows

スタートアップに登録してあるたった一つのショートカット。 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 が…

(downcase-word)

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