Run an erlang repl with yaws loaded and serving

erlang-yaws.el

;; Run a emacs repl with yaws loaded and configured
(defvar yaws-path "~/Applications/YAWS")
(defun run-erlang-yaws ()
  (interactive)
  (let ((inferior-erlang-machine-options `("+K" "true"
                                          "-pa" ,(concat yaws-path "/lib/yaws/ebin")
                                          "-yaws" "debug"
                                          "-run" "yaws"
                                          "-yaws" "id" "default")))
    (run-erlang)))