System to send desktop notifications.
This system can be installed from UltraLisp like this:
(ql-dist:install-dist "http://dist.ultralisp.org/"
:prompt nil)
(ql:quickload "gnotify")
(gnotify:init "test app")
(defvar *n* (gnotify:make "summary text" "body text"))
(gnotify:set-urgency *n* :critical)
(gnotify:set-timeout *n* 600000)
(gnotify:show *n*)
(gnotify:hide *n*)