* riece-highlight.el: Make it an add-on.

[riece] / lisp / riece-highlight.el

diff --git a/lisp/riece-highlight.el b/lisp/riece-highlight.el
index 9575ca8..466e3cb 100644 (file)
--- a/lisp/riece-highlight.el
+++ b/lisp/riece-highlight.el
@@ -184,13 +184,6 @@
   :type '(repeat (list string))
   :group 'riece-highlight)
 
-(put 'riece-channel-mode 'font-lock-defaults
-     '(riece-highlight-font-lock-keywords t))
-(put 'riece-others-mode 'font-lock-defaults
-     '(riece-highlight-font-lock-keywords t))
-(put 'riece-dialogue-mode 'font-lock-defaults
-     '(riece-highlight-font-lock-keywords t))
-
 (defun riece-highlight-schedule-turn-on-font-lock ()
   (add-hook 'riece-channel-mode-hook
            'riece-highlight-turn-on-font-lock)
@@ -199,9 +192,6 @@
   (add-hook 'riece-dialogue-mode-hook
            'riece-highlight-turn-on-font-lock))
 
-(add-hook 'riece-after-load-startup-hook
-         'riece-highlight-schedule-turn-on-font-lock)
-
 (defvar font-lock-support-mode)
 (defun riece-highlight-turn-on-font-lock ()
   (make-local-variable 'font-lock-defaults)
@@ -224,6 +214,16 @@
     (if (looking-at riece-prefix-regexp)
        (put-text-property (match-beginning 1) (match-end 1) 'invisible t))))
 
+(defun riece-highlight-insinuate ()
+  (put 'riece-channel-mode 'font-lock-defaults
+       '(riece-highlight-font-lock-keywords t))
+  (put 'riece-others-mode 'font-lock-defaults
+       '(riece-highlight-font-lock-keywords t))
+  (put 'riece-dialogue-mode 'font-lock-defaults
+       '(riece-highlight-font-lock-keywords t))
+  (add-hook 'riece-after-load-startup-hook
+           'riece-highlight-schedule-turn-on-font-lock))
+
 (provide 'riece-highlight)
 
 ;;; riece-highlight.el ends here