StumpWM でアラーム

3分たったら知らせてほしい時とかあるよね。汁全部なくなったりしたら悲しいもんね。

使った。

(defcommand alarm (seconds message) ((:number "seconds: ") (:string "message: "))
  "alarm"
  (sb-thread:make-thread
   (lambda ()
     (sleep seconds)
     (stumpwm::message-no-timeout "^3*~
~a

　　☆ *　. 　☆
　☆　. ∧＿∧　∩　* ☆
ｷﾀ━━━( ・∀・)/ . ━━━！！
　 . ⊂　　 ノ* ☆
　☆ * (つ ノ .☆
　 　 (ノ" message))))

StumpWM は手軽るにこういうことができるのがいい。

これで疲労ぬきして出撃できる。