Clouder::Blogger: html-tt - emacsのTemplate Toolkit用のmode を html-helper-mode ではなく、sgml-mode のマイナーモードで動くようにしたパッチ。（置換しただけ。）
別に sgml-mode に思い入れはなく、Meadow でデフォルトで動いてるからそのまま使ってるだけなので、html-helper-mode にしてもいいんだけど、どうも Meadow でうまく色づけされないので、その原因追求するよりも、sgml-mode で動くようにした方がはやかったので。
本当はどっちでも動くようにするのがいいんだろうけど、それはまた今度。
=== html-tt.el
==================================================================
--- html-tt.el (revision 193)
+++ html-tt.el (local)
@@ -66,7 +66,7 @@
;; Code:
(provide 'html-tt)
-(require 'html-helper-mode)
+(require 'sgml-mode)
(require 'tempo)
(require 'font-lock)
@@ -217,38 +217,38 @@
(defun html-tt-load-hook ()
(interactive)
;; define key bind
- ;(define-key html-helper-mode-map "\C-cs"
+ ;(define-key sgml-mode-map "\C-cs"
; 'html-tt-insert-sequence)
- (define-key html-helper-mode-map "\C-cs"
+ (define-key sgml-mode-map "\C-cs"
'tempo-template-html-tt-insert-sequence)
- (define-key html-helper-mode-map "\C-cd"
+ (define-key sgml-mode-map "\C-cd"
'html-tt-insert-directive)
- (define-key html-helper-mode-map "\C-cn"
+ (define-key sgml-mode-map "\C-cn"
'tempo-template-html-tt-insert-directive)
- (define-key html-helper-mode-map "\C-ci"
+ (define-key sgml-mode-map "\C-ci"
'tempo-template-html-tt-insert-if)
- (define-key html-helper-mode-map "\C-cl"
+ (define-key sgml-mode-map "\C-cl"
'tempo-template-html-tt-insert-elsif)
- (define-key html-helper-mode-map "\C-ce"
+ (define-key sgml-mode-map "\C-ce"
'tempo-template-html-tt-insert-else)
- (define-key html-helper-mode-map "\C-cf"
+ (define-key sgml-mode-map "\C-cf"
'tempo-template-html-tt-insert-foreach)
- (define-key html-helper-mode-map "\C-cw"
+ (define-key sgml-mode-map "\C-cw"
'tempo-template-html-tt-insert-while)
- (define-key html-helper-mode-map "\C-cm"
+ (define-key sgml-mode-map "\C-cm"
'tempo-template-html-tt-insert-switch)
- (define-key html-helper-mode-map "\C-cn"
+ (define-key sgml-mode-map "\C-cn"
'tempo-template-html-tt-insert-include)
;; add hilit-set-mode-pattern, if use hilit19.
(if (featurep 'hilit19)
- (hilit-add-pattern "\\[%" "%\\]" 'midnightblue 'html-helper-mode)
+ (hilit-add-pattern "\\[%" "%\\]" 'midnightblue 'sgml-mode)
)
;; set font-lock
(make-local-variable 'font-lock-defaults)
(setq html-tt-font-lock-keywords
- (append html-helper-font-lock-keywords html-tt-font-lock-keywords))
+ (append sgml-font-lock-keywords html-tt-font-lock-keywords))
(setq font-lock-defaults '(html-tt-font-lock-keywords t t))
)
.emacs での設定はこんな感じで。
(require 'html-tt) (add-hook 'sgml-mode-hook 'html-tt-load-hook)