   :type 'string
   :group 'kite)
 
-(defcustom kite-command-emit-parser "kite -p"
-  "The command used to compile Kite source code, with parser output."
-  :type 'string
-  :group 'kite)
-
-(defun kite-compile-current-buffer (command)
+(defun kite-compile-current-buffer (&rest args)
   "Compile current buffer and show output in buffer named `kite-compiled-buffer-name'."
   (interactive)
   (save-excursion
-    (kite-compile-region command (point-min) (point-max))))
+    (apply #'kite-compile-region (point-min) (point-max) args)))
 
-(defun kite-compile-region (command start end)
+(defun kite-compile-region (start end &rest args)
   "Compile current region and show output in buffer named `kite-compiled-buffer-name'."
   (interactive "r")
 


(defvar kite-mode-map
  (let ((map (make-sparse-keymap)))
    (define-key map (kbd "C-c C-c")
      (lambda () (interactive)
        (kite-compile-current-buffer kite-command)))
    (define-key map (kbd "C-c C-p C-c")
      (lambda () (interactive)
        (kite-compile-current-buffer kite-command-emit-parser)))
    (define-key map (kbd "C-c C-r")
      (lambda (start end) (interactive "r")
        (kite-compile-region kite-command start end)))
    (define-key map (kbd "C-c C-p C-r")
      (lambda (start end) (interactive "r")
        (kite-compile-region kite-command-emit-parser start end)))
    map)
  "Keymap for Kite major mode.")


;;; kite-mode.el --- Minor mode for editing kite source code
;; Version: 0.2.0
;;
;;; Commentary:
;; Provides the 'kite-mode' mode which does syntax highlighting
