   (modify-syntax-entry ?> ")<")
   (modify-syntax-entry ?| ".")
   (modify-syntax-entry ?% ".")
+  (modify-syntax-entry ?_ "w")
   )
 
 (defconst zotonic-tpl-keywords-re

     ))
   ))

(defun zotonic-tpl-font-lock-keywords-default-level ()
  (zotonic-tpl-font-lock-keywords-level-1)
  )

(defvar zotonic-tpl-font-lock-defaults

   '(1 font-lock-builtin-face))
  "Highlight filters")

(defconst zotonic-tpl-variable-matcher
  (list
   "\\w+"
   nil nil
   '(0 font-lock-variable-name-face))
  "Highlight variable expressions")

(defun zotonic-tpl--font-lock-keywords-rule (re face)
  "Take regexp string and return a item for the font-lock-keywords list"
  (list re (regexp-opt-depth re) face))
