1 files changed, 27 insertions, 0 deletions
diff --git a/eb.el b/eb.el
new file mode 100644
index 0000000..594c4e3
--- /dev/null
+++ b/eb.el
@@ -0,0 +1,27 @@
+;;; 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