   (modify-syntax-entry ?/ ". 14")
 (set (make-local-variable 'indent-line-function) 'closure-indent-line))
 
-
-
+(define-key closure-template-html-mode-map (kbd "C-c C-l") 'closure-template-compile)
 
 (provide 'closure-template-html-mode)
-

	  (0+ space)
	  (group "\"")
          (0+ (not (any "}" "\"")))
          (0+ space)          
	  (group "\"")
	  (0+ space)
          "}")

   ((closure-open) (indent-closure-open))
   ((closure-any-com) nil)
   (t (indent-sgml-in-closure))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; Compilation
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun closure-template-compile ()
  "Compile CL-Closure-Template file"
  (interactive)
  (save-buffer)
  (when (slime-connected-p)
    (message "Compiling Closure Templates...")
    (let ((result (slime-eval `(cl:handler-case (cl:progn
                                                 (closure-template:compile-template :common-lisp-backend
                                                                                    (cl:parse-namestring ,(buffer-file-name)))
                                                 (cl:cons t t))
                                                (t (e)
                                                   (cl:cons nil (cl:format nil "~A" e)))))))
      (if (car result)
          (message "Template compilation was done")
        (message "Template compilation error: %s" (cdr result))))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;###autoload
