gistfile1.lisp

(defcommand pa (&optional (after 60)) ((:number "pop up after:"))
  "pop up after n sec"
  (let ((w (current-window)))
    (bt:make-thread 
     (lambda ()
       (sleep after)
       (alarm-foo) ;; alarm (run-shell-command "/usr/bin/mpg123 chick.mp3") etc
       (pull-window w)))))


(define-key *root-map* (kbd "C-x") "pa")