(add-to-list 'load-path "/home/sacha/notebook/emacs")

(require 'httpd)
(require 'cgi)
(require 'emacs-wiki)
(setq emacs-wiki-directories '("/home/sacha/notebook/plans"))
(setq httpd-document-root "/home/sacha/notebook/plans")

(with-current-buffer (get-buffer-create "*httpd*")
  (erase-buffer)
  (insert (with-output-to-string (httpd-serve "GET /wiki?WelcomePage")))
  (display-buffer (current-buffer))
  (goto-char (point-min)))