1 files changed, 124 insertions, 0 deletions
diff --git a/emacs.d/nxhtml/related/tt-mode.el b/emacs.d/nxhtml/related/tt-mode.el
new file mode 100644
index 0000000..cf01a47
--- /dev/null
+++ b/emacs.d/nxhtml/related/tt-mode.el
@@ -0,0 +1,124 @@
+;; tt-mode.el --- Emacs major mode for editing Template Toolkit files
+;;
+;; Copyright (c) 2002 Dave Cross, all rights reserved.
+;;
+;; This file may be distributed under the same terms as GNU Emacs.
+;;
+;; $Id: tt-mode.el 13 2008-01-27 09:35:16Z dave $
+;;
+;; This file adds simple font highlighting of TT directives when you are
+;; editing Template Toolkit files.
+;;
+;; I usually give these files an extension of .tt and in order to automatically
+;; invoke this mode for these files, I have the following in my .emacs file.
+;;
+;; (setq load-path
+;;      (cons "/home/dave/xemacs" load-path))
+;; (autoload 'tt-mode "tt-mode")
+;; (setq auto-mode-alist
+;;  (append '(("\\.tt$" . tt-mode))  auto-mode-alist ))
+;;
+;; Something similar may well work for you.
+;;
+;; Author: Dave Cross <dave@dave.org.uk>
+;;
+;; Modified by Lennart Borgman 2008-08-06
+
+(require 'font-lock)
+
+(defvar tt-mode-hook nil
+  "List of functions to call when entering TT mode")
+
+(defvar tt-keywords
+  (concat "\\b\\(?:"
+          (regexp-opt (list "GET" "CALL" "SET" "DEFAULT" "INSERT" "INCLUDE"
+                            "BLOCK" "END" "PROCESS" "WRAPPER" "IF" "UNLESS"
+                            "ELSIF" "ELSE" "SWITCH" "CASE" "FOR" "FOREACH"
+                            "WHILE" "FILTER" "USE" "MACRO" "PERL" "RAWPERL"
+                            "TRY" "THROW" "CATCH" "FINAL" "LAST" "RETURN"
+                            "STOP" "CLEAR" "META" "TAGS"))
+          "\\)\\b"))
+
+(defvar tt-font-lock-keywords
+   (list
+    ;; Fontify [& ... &] expressions
+    '("\\(\\[%[-+]?\\)\\(\\(.\\|\n\\)+?\\)\\([-+]?%\\]\\)"
+      (1 font-lock-string-face t)
+      (2 font-lock-variable-name-face t)
+      (4 font-lock-string-face t))
+    ;; Look for keywords within those expressions
+    ;;
+    ;; Comment out whole directive tag
+    '("\\[%\\(#.*?\\)%\\]"
+      (1 font-lock-comment-face t))
+    ;; Comments to end of line
+;;;     '("\\[%\\(?:.\\|\n\\)*\\(#.*\\)"
+;;;       (1 font-lock-comment-face t))
+    '("\\[% *\\([a-z_0-9]*\\) *%\\]"
+      (1 font-lock-constant-face t))
+    (list (concat
+	   "\\(\\[%[-+]?\\|;\\)[ \n\t]*\\("
+	   tt-keywords
+	   "\\)")
+	  2 font-lock-keyword-face t)
+    )
+  "Expressions to font-lock in tt-mode.")
+
+;; (defvar tt-font-lock-keywords
+;;   ;; Since this is used in a multi major mode we
+;;    (list
+;;     ;; Fontify [& ... &] expressions
+;; ;;;     '("^\\([-+]?\\)\\(\\(.\\|\n\\)+?\\)\\([-+]?\\)$"
+;; ;;;       (1 font-lock-string-face t)
+;; ;;;       (2 font-lock-variable-name-face t)
+;; ;;;       (4 font-lock-string-face t))
+;;     '("\\(#.*\\)$"
+;;       (1 font-lock-comment-face t))
+;;     '("^ *\\([a-z_0-9]*\\) *$"
+;;       (1 font-lock-constant-face t))
+;;     (list (concat
+;;            "^\\(?:[-+]?\\|;\\)[ \n\t]*\\("
+;;            tt-keywords
+;;            "\\)")
+;;            )
+;; 	  1 font-lock-keyword-face t)
+;;     )
+;;   "Expressions to font-lock in tt-mode.")
+
+(defvar tt-font-lock-defaults
+  '(tt-font-lock-keywords nil t))
+
+(defun tt-mode-after-change (beg end pre-len)
+  ;; add/remove font-lock-multiline
+  ;; Fix-me: add variable for search lengths
+  (let* ((here (point))
+         (beg-is-ml (get-text-property beg 'font-lock-multiline))
+         tt-beg
+         tt-end
+         )
+    (when beg-is-ml
+      (let ((beg-ok (not (previous-single-property-change
+                          here 'font-lock-multiline
+                          nil (- here 1))))
+            )
+        (when beg-ok
+          (goto-char beg)
+          (search-forward "%]" end t)
+          )
+            (search-forward "[%" end t)
+        ))
+    (when tt-end
+      (remove-list-of-text-properties here tt-beg '(font-lock-multiline))
+      (set-text-properties tt-beg tt-end '(font-lock-multiline t))))
+  )
+
+
+;;;###autoload
+(define-derived-mode tt-mode fundamental-mode "TT"
+  "Major mode for editing Template Toolkit files."
+  (set (make-local-variable 'font-lock-defaults) tt-font-lock-defaults)
+  (add-hook 'after-change-functions 'tt-mode-after-change nil t)
+  )
+
+(provide 'tt-mode)
+;; tt-mode.el ends here