From 0d342f0aee3f2f800e486c0051dabe718a7b2841 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Wed, 23 Mar 2011 11:14:27 +0100
Subject: I don't like nxhtml

---
 emacs.d/nxhtml/related/tt-mode.el | 124 --------------------------------------
 1 file changed, 124 deletions(-)
 delete mode 100644 emacs.d/nxhtml/related/tt-mode.el

(limited to 'emacs.d/nxhtml/related/tt-mode.el')

diff --git a/emacs.d/nxhtml/related/tt-mode.el b/emacs.d/nxhtml/related/tt-mode.el
deleted file mode 100644
index cf01a47..0000000
--- a/emacs.d/nxhtml/related/tt-mode.el
+++ /dev/null
@@ -1,124 +0,0 @@
-;; 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
-- 
cgit v1.2.3-54-g00ecf