#てすと
#さらにてすと
#またまたてすと
#((url . "http://practical-scheme.net/chaton/chaton")
(ipath . "/Users/yasuyuki/Downloads/chaton-room-chaton.gif"))
#まちがった
#(define *chaton-config*
(make-parameter
(make <chaton-config> :client "ChatonRadar"
:url "http://practical-scheme.net/chaton/gauche"
:npath "/usr/bin/notify-send"
:ipath "/home/yasuyuki/archives/chaton-room-gauche.gif")))
(define (send-notify npath ipath title message)
(process-output->string
(list npath "-i" ipath title message)))
#libnotifyばーじょん
#なんかlibnotifyがいちばん安定しているかも
##更新しました。
#preの中のurlはアンカーにしない方がいいかなあ。
#コード中のurlだと今みたいに結局ちゃんとしたリンクになってないし。
#いや、rfc3986の文字セットに限ればわりとちゃんと抽出できるかな。
#えい。これでどうだ。
#少しましになったかな。
#必ずしもrfc3986が正解とは限らない、か。
##日本語で切れちゃうのはいやだなあ。
#とりゃ。よし。
##これもおっけ。
##よっしゃ。
###うー、Wikipediaのurlだとカッコを含む場合があるんだよなあ。
##urlの認識、ちょっと戻した。あんまり厳密にやるとかえって不便になる。
#カッコは認めたほうが良さそう。カッコ内にurlを含める書き方だと閉じ括弧までurlとして認識されちゃうんだけど、それは意識的にスペースを入れてもらうしかないだろう。