人気ブログランキング | 話題のタグを見る
ちょっとした覚書に。
by dipus
S M T W T F S
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31
タグ
カテゴリ
全体
Zaurus
Emacs
Palm
Apple
Unix
OpenBSD
GR Digital
Book
Complaint
Private
WM
Zaurus(IPK)
Kinesis
HSDPA
NetWalker
iPhone
以前の記事
2010年 02月
2009年 09月
2009年 07月
2009年 03月
2009年 02月
2009年 01月
2008年 09月
2008年 08月
2008年 07月
2008年 06月
2008年 05月
2008年 04月
2008年 03月
2008年 02月
2008年 01月
2007年 12月
2007年 11月
2007年 10月
2007年 09月
2007年 08月
2007年 07月
2007年 06月
2007年 05月
2007年 04月
2007年 03月
2007年 02月
2007年 01月
2006年 12月
2006年 11月
2006年 10月
2006年 09月
2006年 08月
2006年 07月
2006年 06月
2006年 05月
2006年 04月
2006年 03月
2006年 02月
2006年 01月
2005年 12月
2005年 11月
2005年 10月
2005年 09月
2005年 08月
2005年 07月
2005年 06月
2005年 05月
2005年 04月
2005年 03月
2005年 02月
2005年 01月
2004年 12月
2004年 11月
2004年 10月
2004年 09月
2004年 08月
2004年 07月
2004年 06月
2004年 05月
2004年 04月
最新のトラックバック
検索
その他のジャンル
ファン
記事ランキング
ブログジャンル
画像一覧


LED Biff with Mew 4

Zaurus使っているときは、当然Emacsは立ち上げたままですし、bitWarp PDAで常時接続していることがほとんど。通信したままで6時間程度は持ちます。ZaurusにはLEDがついているので、折角だからメールの着信があったら、LEDで確認できるようにしました。まず必要なのはLEDをコントロールすることで、最初はLispで完結させるか、自分で書こうと思っていたのですが、ledctlというツールを見つけたので、ありがたくこれを使わせてもらいます。~/.mew.eに追加します。


(if (file-exists-p "/opt/QtPalmtop/bin/ledctl")
(progn

(setq mew-biff-led-command "ledctl") ;; LED Control
(setq mew-use-biff-led t) ;; use LED
;; off, on, flashon, flashoff, vstblink, fastblink, normblink, slowblink, softblink, softflash
(setq mew-biff-led-blink "softblink")

(defun mew-biff-bark-led-on ()
(if mew-biff-led-blink
(call-process mew-biff-led-command nil nil nil "--led2" mew-biff-led-blink)))

(defun mew-biff-bark-led-off ()
(call-process mew-biff-led-command nil nil nil "--led2" "off"))

(defun mew-biff-bark (n)
(if (= n 0)
(setq mew-biff-string nil)
(if (and mew-use-biff-bell (eq mew-biff-string nil))
(beep))
(if (and mew-use-biff-led (eq mew-biff-string nil))
(mew-biff-bark-led-on))
(setq mew-biff-string (format "Mail(%d)" n))))

(defun mew-biff-clear ()
(setq mew-biff-string nil)
(if mew-use-biff-led
(mew-biff-bark-led-off)))
))


無線LANで使っているときは特に問題もなかったんですが、bitWarp PDAみたいに回線状態が悪いときは、Emacsそのものが一時的にデッドロックしてしまうときがあります。暇なときにデバッグモードに入ってみなきゃだめかな。
by dipus | 2004-04-16 13:33 | Zaurus
<< VMWare 4.51 on ... 懐古主義 >>