vtl-mode is a minor mode for working with Velocity files, the mode is the same as the one the velocity guys have except i have added a some indentation code (although it is not yet perfect).
;;; vtl.el --- fontify velocity template language code
;; Author: Brian Leonard <brian@brainslug.org>
;; Maintainer: brian@brainslug.org
;; Keywords: extensions
;; Created: 2002-01-19
;; $Id: vtl.el 191743 2005-06-21 23:22:20Z dlr $
;;; Commentary:
;; $variable - font-lock-variable-name-face
;; #foreach - font-lock-keyword-face
;; #mymacro - font-lock-function-name-face
;; ## comment - font-lock-comment-face
;; #* comment *# - font-lock-comment-face
;;
;; $customer.Address
;; ^^^ ^^^
;; | +--- font-lock-variable-name-face
;; +--- font-lock-type-face
;;
;; $customer.getAddress()
;; ^^^ ^^^
;; | +--- font-lock-function-name-face
;; +--- font-lock-type-face
;;
;; One useful way to enable this minor mode is to put the following in your
;; .emacs:
;;
;; (autoload 'turn-on-vtl-mode "vtl" nil t)
;; (add-hook 'html-mode-hook 'turn-on-vtl-mode t t)
;; (add-hook 'xml-mode-hook 'turn-on-vtl-mode t t)
;; (add-hook 'text-mode-hook 'turn-on-vtl-mode t t)
;;; Code:
(require 'font-lock)
(require 'cl)
(defgroup vtl nil
"Fontifies VTL code. see http://jakarta.apache.org/velocity/"
:group 'vtl
:group 'font-lock
:group 'extensions)
;;;###autoload
(defcustom vtl-mode nil
"*If non-nil, fontify vtl code
This variable is buffer-local."
:type 'boolean)
(make-variable-buffer-local 'vtl-mode)
;;;###autoload
(defcustom vtl-minor-mode-string " VTL"
"*String to display in mode line when VTL Mode is enabled."
:type 'string
:group 'vtl)
(defcustom vtl-indent-offset 3
:type 'integer
:group 'vtl)
;;;###autoload
(defun turn-on-vtl-mode ()
"Unequivocally turn on vtl-mode (see variable documentation)."
(interactive)
(font-lock-mode 1)
(vtl-mode 1))
(defun vtl-indent-line ()
(interactive)
(let ((indent-col)
(previous-current-column))
(save-excursion
(forward-line -1)
(back-to-indentation)
(setq previous-current-column (current-column))
(if (or (looking-at "#if")
(looking-at "#foreach")
(looking-at "#elseif")
(looking-at "#else"))
(setq indent-col (+ (current-column) vtl-indent-offset))))
(save-excursion
(back-to-indentation)
(if (or (looking-at "#end")
(looking-at "#elseif")
(looking-at "#else"))
(setq indent-col (- previous-current-column vtl-indent-offset))))
(if (not indent-col)
(setq indent-col previous-current-column))
(if (and indent-col
(> indent-col 0))
(progn (message "Indent from %s to %s" (current-column) indent-col)
(indent-line-to indent-col)))))
;; Put minor mode string on the global minor-mode-alist.
;;;###autoload
(cond ((fboundp 'add-minor-mode)
(add-minor-mode 'vtl-mode 'vtl-minor-mode-string))
((assq 'vtl-mode (default-value 'minor-mode-alist)))
(t
(setq-default minor-mode-alist
(append (default-value 'minor-mode-alist)
'((vtl-mode vtl-minor-mode-string))))))
;;;###autoload
(defun vtl-mode (&optional prefix)
"Toggle VTL Mode.
If called interactively with no prefix argument, toggle current condition
of the mode.
If called with a positive or negative prefix argument, enable or disable
the mode, respectively."
(interactive "P")
(setq vtl-mode
(if prefix
(>= (prefix-numeric-value prefix) 0)
(not vtl-mode)))
(set (make-local-variable 'indent-line-function) 'vtl-indent-line)
(cond (vtl-mode
;; first, grab default
(font-lock-mode 0)
(font-lock-set-defaults)
;; add vtl regexps
(setq font-lock-keywords
(let ((new-keywords
(cond ((null font-lock-keywords)
vtl-keywords)
(t
(list* (car font-lock-keywords)
(append (cdr font-lock-keywords)
vtl-keywords))))))
new-keywords))
;; and restart font-lock
(font-lock-mode 1)
(font-lock-fontify-buffer))
(t
;; reset to major mode's defaults
(font-lock-mode 0)
(font-lock-set-defaults)
(font-lock-mode 1)
(font-lock-fontify-buffer)))
(and (interactive-p)
(if vtl-mode
(message "vtl-mode is enabled")
(message "vtl-mode is disabled")))
vtl-mode)
(defvar vtl-keywords
(let
((directive (concat "\\(#\\(set\\|if\\|elseif\\|else\\|foreach\\|end\\|"
"include\\|parse\\|stop\\|macro\\)\\)"))
(variable "\\(\\$[!]?[{]?[a-zA-Z][a-zA-Z0-9---_]*[}]?\\)")
(property
(concat "\\(\\$[{]?[a-zA-Z][a-zA-Z0-9---_]*\\.\\)"
"\\([a-zA-Z][a-zA-Z0-9---_]*\\)\\([}]?\\)"))
(method
(concat "\\(\\$[{]?[a-zA-Z][a-zA-Z0-9---_]*\\.\\)"
"\\([a-zA-Z][a-zA-Z0-9---_]*\\)[ ]*\\(([^)]*)\\)[}]?"))
(vmmacro "\\(#[a-zA-Z][a-zA-Z0-9---_]*\\)[ ]*\\(([^)]*)\\)")
(line-comment "##.*$")
(long-comment "\\(#\\*\\([^\\*]\\|\\*[^#]\\)*\\*#\\)"))
(list
(list variable '(1 font-lock-variable-name-face t))
(list property '(1 font-lock-type-face t))
(list property '(2 font-lock-variable-name-face t))
(list property '(3 font-lock-type-face t))
(list method '(1 font-lock-type-face t))
(list method '(2 font-lock-function-name-face t))
(list vmmacro '(1 font-lock-function-name-face t))
(list directive '(1 font-lock-keyword-face t))
(list line-comment '(0 font-lock-comment-face t))
(list long-comment '(0 font-lock-comment-face t)))))
(provide 'vtl)