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


(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
