 
   (let ((result (shell-command-to-string
                  (format "%s -e %s"
-                         kite-command
+                         command
                          (shell-quote-argument (buffer-substring start end)))))
         (buffer (get-buffer kite-compiled-buffer-name)))
 

  :type 'string
  :group 'kite)

(defun kite-compile-current-buffer ()
  "Compile current buffer and show output in buffer named `kite-compiled-buffer-name'."
  (interactive)
  (save-excursion
    (kite-compile-region (point-min) (point-max))))

(defun kite-compile-region (start end)
  "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.")

