i just can't get it to automaticaly turn truncate long lines on when it loads...
minor irritation.
Jason
Benj. Mako Hill wrote:
TT syntax highlight was brought up twice on the list on 2002 and Dave Cross put up a version at a URL that now seems to be dead.
I found an old copy somewhere but I thought I'd ask Dave if he has a newer version than the one from 2002/06/16 (and if minds putting a link back up) or if anyone else has cooked up anything else good in the last year or so since this was brought up last.
Regards, Mako
--
Jason Lewis ------------------------------------------------- please note my new email address [EMAIL PROTECTED]
;; 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,v 1.5 2002/06/16 10:01:24 dave Exp $
;;
;; 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 <[EMAIL PROTECTED]>
;;
;;
;; $Log: tt-mode.el,v $
;; Revision 1.5 2002/06/16 10:01:24 dave
;; A final fix to the [% ... %] regex. It now seems to to everything
;; I want :)
;;
;; Revision 1.4 2002/06/15 20:00:13 dave
;; Added list of TT keywords
;;
;; Revision 1.3 2002/06/15 15:08:03 dave
;; Added a bit more complexity to the regex
;;
;; Revision 1.2 2002/06/15 14:35:26 dave
;; Improved regex to match [% ... %]
;;
;; Revision 1.1.1.1 2002/06/15 13:51:56 dave
;; Initial Version
;;
;;
(require 'font-lock)
(defvar tt-mode-hook nil
"List of functions to call when entering TT mode")
(defvar tt-keywords
"\\bGET\\b\\|\\bCALL\\b\\|\\bSET\\b\\|\\bDEFAULT\\b\\|\\bINSERT\\b\\|\\bINCLUDE\\b\\|\\bBLOCK\\b\\|\\bEND\\b\\|\\bPROCESS\\b\\|\\bWRAPPER\\b\\|\\bIF\\b\\|\\bUNLESS\\b\\|\\bELSIF\\b\\|\\bELSE\\b\\|\\bSWITCH\\b\\|\\bCASE\\b\\|\\bFOREACH\\b\\|\\bWHILE\\b\\|\\bFILTER\\b\\|\\bUSE\\b\\|\\bMACRO\\b\\|\\bPERL\\b\\|\\bRAWPERL\\b\\|\\bTRY\\b\\|\\bTHROW\\b\\|\\bCATCH\\b\\|\\bFINAL\\b\\|\\bLAST\\b\\|\\bRETURN\\b\\|\\bSTOP\\b\\|\\bCLEAR\\b\\|\\bMETA\\b\\|\\bTAGS")
(defvar tt-font-lock-keywords
(list
;; Fontify [& ... &] expressions
'("\\(\\[%[-+]?\\)\\(.+?\\)\\([-+]?%\\]\\)"
(1 font-lock-string-face t)
(2 font-lock-variable-name-face t)
(3 font-lock-string-face t))
;; Look for keywords within those expressions
(list (concat
"\\[%[-+]? *\\("
tt-keywords
"\\)")
1 font-lock-keyword-face t)
)
"Expressions to font-lock in tt-mode.")
(defun tt-mode ()
"Major mode for editing Template Toolkit files"
(interactive)
(kill-all-local-variables)
(setq major-mode 'tt-mode)
(setq mode-name "TT")
(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)
(run-hooks tt-mode-hook))
(provide 'tt-mode)
;; tt-mode.el ends here
