猫熊は燃えつきた？！日記

○ つり革 vs Mew

電車でつり革に掴まったまま、Zaurus で Mew を使っていたのだが、左手で Zaurus を持っていると、スペースに親指が届いて問題ないが、右手で Zaurus を持っていると、BitWarp のカードが飛び出ている分スペースが遠い。そのため、使っているうちにだんだん辛くなってくる。ぼくの Mew はすでにシングルストロークはまったく余っていない。で、ちょっと考えて、

(add-hook 'mew-summary-mode-hook
	  (lambda ()
	    (define-key mew-summary-mode-map "0" 'mew-0-or-space)))
 
(defun mew-0-or-space ()
  (interactive)
  (if (eq last-command 'digit-argument)
      (call-interactively 'digit-argument)
    (call-interactively 'mew-summary-display)))

なコードを仕込んで "0" で読み進められるようにした。なかなか調子が良い。 じゃ、左手もってんで、

(add-hook 'mew-summary-mode-hook
	  (lambda ()
	    (define-key mew-summary-mode-map "q" 'mew-summary-display)
	    (define-key mew-summary-mode-map "Q" 'mew-summary-suspend-or-quit)))
 
(defun mew-summary-suspend-or-quit ()
  (interactive)
  (if (y-or-n-p-with-timeout "Mew Suspend or Quit? " 1.5 t)
      (mew-summary-suspend)
    (mew-summary-quit)))

なことをやった。ま、めったなことじゃ suspend も quit もしないしね。

○ 最初

  (if (eq last-command this-command)
      (mew-summary-suspend)
    (call-interactively 'mew-summary-display))

なことをやってみて、3秒後に間違いに気づいたのは内緒だ。

○ ソーシャルなサイト

ソーシャルネットワーキングサイトmixi(ミクシィ)に招待された。
会社から登録しようと思ったら、

!! WARNING !!
Requested URL is restricted by the non-business-site filtering system.
(Below is in Japanese.)
 
！！警告！！
指定されたＵＲＬは、有害情報データベースに登録されているため、参照できません。
ＰＣやネットワーク等情報システム資産の業務目的外での使用を禁止し、
有害情報サイトアクセスに起因するトラブルの予防を目的としています。
個々のアクセス要求はすべて記録されており、端末の特定も可能です。
 
悪質な場合は上司・責任者へ報告します。

ですって。そんなに悪質なサイトなんざましょか？

○ 忘れないように TODO

• mew-browse.el とっとと Fix しないと。
• Zaurus 上の M-x fiber 作らんと。
• あぁ、スケジュールの転送だぁ。