;;; eb --- Episode Browser development functions for Emacs

;;; Commentary:

;;; Code:

(defcustom eb-cwd "b"
  "Working directory for executable."
  :group 'eb
  :type 'directory)

;;;###autoload
(defun eb-run ()
  "Launch built executable, displaying its output in a buffer."
  (interactive)
  (require 'project)
  (let ((buf (get-buffer-create "*eb-run*"))
	(exe (concat (project-root (project-current))
		     "/b/EpisodeBrowser.exe"))
	(default-directory eb-cwd))
    (with-current-buffer buf
      (compilation-mode))
    (start-process "EpisodeBrowser" buf exe)
    (display-buffer buf)))

(provide 'eb)
;;; eb.el ends here