From 5c4014a9dd41cf544e520173a894e5b70b7d65d0 Mon Sep 17 00:00:00 2001
From: Andreas Gerler <baron@bundesbrandschatzamt.de>
Date: Mon, 11 Dec 2017 15:46:33 +0100
Subject: [PATCH] add tt-mode for Template Toolkit

Signed-off-by: Andreas Gerler <baron@bundesbrandschatzamt.de>
---
 .../tt-mode-20130804.410/tt-mode-autoloads.el |  24 ++++
 elpa/tt-mode-20130804.410/tt-mode-pkg.el      |   2 +
 elpa/tt-mode-20130804.410/tt-mode.el          | 106 ++++++++++++++++++
 3 files changed, 132 insertions(+)
 create mode 100644 elpa/tt-mode-20130804.410/tt-mode-autoloads.el
 create mode 100644 elpa/tt-mode-20130804.410/tt-mode-pkg.el
 create mode 100644 elpa/tt-mode-20130804.410/tt-mode.el

diff --git a/elpa/tt-mode-20130804.410/tt-mode-autoloads.el b/elpa/tt-mode-20130804.410/tt-mode-autoloads.el
new file mode 100644
index 00000000..6f222f92
--- /dev/null
+++ b/elpa/tt-mode-20130804.410/tt-mode-autoloads.el
@@ -0,0 +1,24 @@
+;;; tt-mode-autoloads.el --- automatically extracted autoloads
+;;
+;;; Code:
+(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
+
+;;;### (autoloads nil "tt-mode" "tt-mode.el" (23073 12487 679078
+;;;;;;  893000))
+;;; Generated autoloads from tt-mode.el
+
+(autoload 'tt-mode "tt-mode" "\
+Major mode for editing Template Toolkit files
+
+\(fn)" t nil)
+
+(add-to-list 'auto-mode-alist '("\\.tt\\'" . tt-mode))
+
+;;;***
+
+;; Local Variables:
+;; version-control: never
+;; no-byte-compile: t
+;; no-update-autoloads: t
+;; End:
+;;; tt-mode-autoloads.el ends here
diff --git a/elpa/tt-mode-20130804.410/tt-mode-pkg.el b/elpa/tt-mode-20130804.410/tt-mode-pkg.el
new file mode 100644
index 00000000..1a48d705
--- /dev/null
+++ b/elpa/tt-mode-20130804.410/tt-mode-pkg.el
@@ -0,0 +1,2 @@
+;;; -*- no-byte-compile: t -*-
+(define-package "tt-mode" "20130804.410" "Emacs major mode for editing Template Toolkit files." 'nil :commit "85ed3832e7eef391f7879d9990d59c7a3493c15e")
diff --git a/elpa/tt-mode-20130804.410/tt-mode.el b/elpa/tt-mode-20130804.410/tt-mode.el
new file mode 100644
index 00000000..46301628
--- /dev/null
+++ b/elpa/tt-mode-20130804.410/tt-mode.el
@@ -0,0 +1,106 @@
+;;; tt-mode.el --- Emacs major mode for editing Template Toolkit files.
+;; Package-Version: 20130804.410
+;;
+;; Copyright (c) 2002 Dave Cross, all rights reserved.
+;;
+;; This file may be distributed under the same terms as GNU Emacs.
+;;
+;; $Id$
+;;
+;; 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>
+;;
+;;         Some enhancements by Steve Sanbeg
+;;
+
+(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-builtin-face t)
+      (2 font-lock-variable-name-face t)
+      (4 font-lock-builtin-face t))
+
+    '("\\[% *\\([a-z_0-9]*\\) *%\\]"
+      (1 font-lock-constant-face t))
+
+    ;;line comment - doesn't find multiple comments in a block yet.
+    '("\\[%\\(.\\|\n\\)+?\\(#.*?\\)\\(\n\\|%\\]\\)"
+      (2 font-lock-comment-face t))
+
+    ;;block comment
+    '("\\[%\\(#\\(.\\|\n\\)*?\\)%\\]"
+      (1 font-lock-comment-face t))
+
+    ;; Look for keywords within those expressions
+    (list (concat
+	   "\\(\\[%[-+]?\\|;\\)\\(\\s-\\|\n\\)*\\("
+	   tt-keywords
+	   "\\)")
+	  3 font-lock-keyword-face t)
+    )
+
+  "Expressions to font-lock in tt-mode.")
+
+;;single quote strings should highlight the same as double quote
+(defvar tt-mode-syntax-table
+  (let ((table (make-syntax-table)))
+    (modify-syntax-entry ?' "\"" table)
+    (modify-syntax-entry ?% "." table)
+    table))
+
+;;;###autoload
+(defun tt-mode ()
+  "Major mode for editing Template Toolkit files"
+  (interactive)
+  (kill-all-local-variables)
+  (setq major-mode 'tt-mode
+	mode-name "TT")
+
+  (set-syntax-table tt-mode-syntax-table)
+
+  (if (string-match "Xemacs" emacs-version)
+      (progn
+	(make-local-variable 'font-lock-keywords)
+	(setq font-lock-keywords tt-font-lock-keywords))
+    ;; Emacs
+    (make-local-variable 'font-lock-defaults)
+    (setq font-lock-defaults '(tt-font-lock-keywords nil t))
+    )
+  (font-lock-mode t)
+  (run-mode-hooks 'tt-mode-hook))
+
+;;;###autoload
+(add-to-list 'auto-mode-alist '("\\.tt\\'" . tt-mode))
+
+(provide 'tt-mode)
+
+;;; tt-mode.el ends here
-- 
2.47.3