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

;;; Commentary:

;;; Code:

(defcustom eb-system "vs2019"
  "Build system (mingw/vs2019)."
  :group 'eb
  :type 'string)

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

(defcustom eb-cppclean-argv (list "cppclean")
  "Argument vector for cppclean."
  :group 'eb
  :type 'sexp)

;;;###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/"
		     eb-system
		     (if (not (string-equal eb-system "mingw")) "/Debug/" "")
		     "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