gistfile1.el

; setup dev environment w/ ponymode.

(defun pony-time ()
  (interactive)
  (if virtualenv-workon-session
      (progn
	(pony-runserver)
	(pony-manage-run '("celeryd" "-lINFO" "--traceback" "--autoreload"))
	(pony-shell)
	(sql-mysql))
    (error "setup your virtualenv first")))