blob: 594c4e3cf79bfb48261976de245d5a44b4f4a383 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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
|