mtmtcode · August 22, 2013 11:25
diff --git a/Procfile b/Procfile
 web: tar xzf emacs.tar.gz && ln -s $PWD/emacs /tmp/emacs; emacs/bin/emacs --daemon --load start-elnode.el
diff --git a/start-elnode.el b/start-elnode.el
 ;;; start-elnode.el
 (setq package-archives '(("marmalade" . "http://marmalade-repo.org/packages/")))
 (package-initialize)
 (package-refresh-contents)
 (package-install 'dash)
 (package-install 'elnode)

 (load-file "naruto.el")

 (defun handler (httpcon)
  "Demonstration function"
  (elnode-http-start httpcon "200"
                     '("Content-type" . "text/html")
                     `("Server" . ,(concat "GNU Emacs " emacs-version)))
  (elnode-http-return httpcon (format "<html><body><pre>%s</pre></body></html>" (naruto "Heroku'（へろく）は2007年創業のアメリカ合衆国の企業。また、同社が開発と運営を行っているPaaSの名称でもある。2010年にはセールスフォース・ドットコムに買収された。"))))

 (elnode-start
    'handler
    :port (string-to-number (or (getenv "PORT") "8080"))
    :host "0.0.0.0")

 (while t (accept-process-output nil 1))
	;;; start-elnode.el
	(setq package-archives '(("marmalade" . "http://marmalade-repo.org/packages/")))
	(package-initialize)
	(package-refresh-contents)
	(package-install 'dash)
	(package-install 'elnode)

	(load-file "naruto.el")

	(defun handler (httpcon)
	"Demonstration function"
	(elnode-http-start httpcon "200"
	'("Content-type" . "text/html")
	`("Server" . ,(concat "GNU Emacs " emacs-version)))
	(elnode-http-return httpcon (format "<html><body><pre>%s</pre></body></html>" (naruto "Heroku'（へろく）は2007年創業のアメリカ合衆国の企業。また、同社が開発と運営を行っているPaaSの名称でもある。2010年にはセールスフォース・ドットコムに買収された。"))))

	(elnode-start
	'handler
	:port (string-to-number (or (getenv "PORT") "8080"))
	:host "0.0.0.0")

	(while t (accept-process-output nil 1))