From: Andreas Gerler Date: Tue, 13 Nov 2018 13:49:59 +0000 (+0100) Subject: update tt-mode. X-Git-Url: http://git.bundesbrandschatzamt.de/?a=commitdiff_plain;h=0b9e8625596e0e663ad88a32012ee940bb342dd7;p=emacsconfig.git update tt-mode. Signed-off-by: Andreas Gerler --- diff --git a/elpa/tt-mode-20130804.1110/tt-mode-autoloads.el b/elpa/tt-mode-20130804.1110/tt-mode-autoloads.el new file mode 100644 index 00000000..dcd5d673 --- /dev/null +++ b/elpa/tt-mode-20130804.1110/tt-mode-autoloads.el @@ -0,0 +1,29 @@ +;;; 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" (0 0 0 0)) +;;; 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)) + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "tt-mode" '("tt-"))) + +;;;*** + +;; Local Variables: +;; version-control: never +;; no-byte-compile: t +;; no-update-autoloads: t +;; coding: utf-8 +;; End: +;;; tt-mode-autoloads.el ends here diff --git a/elpa/tt-mode-20130804.1110/tt-mode-pkg.el b/elpa/tt-mode-20130804.1110/tt-mode-pkg.el new file mode 100644 index 00000000..23130052 --- /dev/null +++ b/elpa/tt-mode-20130804.1110/tt-mode-pkg.el @@ -0,0 +1,2 @@ +;;; -*- no-byte-compile: t -*- +(define-package "tt-mode" "20130804.1110" "Emacs major mode for editing Template Toolkit files." 'nil :commit "85ed3832e7eef391f7879d9990d59c7a3493c15e" :authors '(("Dave Cross" . "dave@dave.org.uk")) :maintainer '("Dave Cross" . "dave@dave.org.uk")) diff --git a/elpa/tt-mode-20130804.1110/tt-mode.el b/elpa/tt-mode-20130804.1110/tt-mode.el new file mode 100644 index 00000000..b1eb287b --- /dev/null +++ b/elpa/tt-mode-20130804.1110/tt-mode.el @@ -0,0 +1,106 @@ +;;; tt-mode.el --- Emacs major mode for editing Template Toolkit files. +;; Package-Version: 20130804.1110 +;; +;; 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 +;; +;; 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 diff --git a/elpa/tt-mode-20130804.410/tt-mode-autoloads.el b/elpa/tt-mode-20130804.410/tt-mode-autoloads.el deleted file mode 100644 index 6f222f92..00000000 --- a/elpa/tt-mode-20130804.410/tt-mode-autoloads.el +++ /dev/null @@ -1,24 +0,0 @@ -;;; 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 deleted file mode 100644 index 1a48d705..00000000 --- a/elpa/tt-mode-20130804.410/tt-mode-pkg.el +++ /dev/null @@ -1,2 +0,0 @@ -;;; -*- 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 deleted file mode 100644 index 46301628..00000000 --- a/elpa/tt-mode-20130804.410/tt-mode.el +++ /dev/null @@ -1,106 +0,0 @@ -;;; 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 -;; -;; 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