Skip to content

Instantly share code, notes, and snippets.

(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)))))
@ataka
ataka / recipe.html
Last active December 14, 2015 07:59 — forked from machida/html_practice.html
カレーのレシピ
誰でもできる、美味しいカレーの作り方です。旦那も息子もこのカレーが大好物。
ポイントは玉ねぎと人参はミキサーで細かくしてしまうところ。逆にコクのある美味しいカレーになります。
レシピの作者
山田サチ子さん
材料 ( 8皿分 )
@llibra
llibra / test.lisp
Created September 11, 2012 20:30
DRAKMA:HTTP-REQUEST drops some input characters
(ql:quickload :cl-ppcre)
(ql:quickload :bordeaux-threads)
(ql:quickload :usocket)
(ql:quickload :drakma)
(asdf:component-version (asdf:find-system :drakma))
;=> "1.2.7"
(flet ((echo-content ()
(usocket:with-socket-listener (socket "127.0.0.1" 8080 :reuse-address t