Re: zenirc/zenirc.el font-lock support

Simon> I sent this to zenirc dev list years ago, but there doesn't Simon> seem to be much zenirc development going on, so perhaps it Simon> could be added into the xemacs zenirc package instead. Hi Simon, how timely! I have discovered zenirc to communicate with the sunsite staff in denmark. Simon> It adds some random colorifications to zenirc buffers. This patch applies fine. I can build, install, and run zenirc fine. I like the font-lock support! The XEmacs zenirc package has already xemacs-beta listed under maintainer. I'd say let's get this patch in. Is anybody still using IRC and zenirc these days? Best regards, Adrian Simon> 2001-06-16 Simon Josefsson <jas(a)extundo.com&gt; Simon> * zenirc.el (zenirc-font-lock-keywords): Some font-lock defaults. Simon> (toplevel): Put font-lock-defaults on mode. Simon> (zenirc-mode): Allow font-lock initialization. Simon> Index: zenirc.el Simon> =================================================================== Simon> RCS file: /usr/CVSroot/XEmacs/packages/xemacs-packages/zenirc/src/zenirc.el,v Simon> retrieving revision 1.2 Simon> diff -u -u -w -r1.2 zenirc.el Simon> --- zenirc.el 2000/10/06 09:37:04 1.2 Simon> +++ zenirc.el 2001/06/16 18:47:57 Simon> ＠＠ -589,7 +589,19 ＠＠ Simon> (defvar zenirc-server-501-hook '(zenirc-server-501)) Simon> (defvar zenirc-server-502-hook '(zenirc-server-502)) Simon> +(defvar zenirc-font-lock-keywords Simon> + '(("^\\[\\([^]]+\\)\\].*" 1 font-lock-type-face) Simon> + ("^\\[[^]]+\\]\\(.*\\)$" 1 font-lock-comment-face) Simon> + ("^<\\([^>!]+\\)[^>]+>" 1 font-lock-keyword-face) Simon> + ("^<[^>!]+!\\([^#>]+\\)[^>]+>" 1 font-lock-string-face) Simon> + ("^<[^>#]+\\(#[^>]+\\)>" 1 font-lock-function-name-face) Simon> + ("^<[^>]+> \\([^ :]+:\\)" 1 font-lock-keyword-face)) Simon> + "Default expressions to highlight in zenirc mode.") Simon>  Simon> +(put 'zenirc-mode 'font-lock-defaults Simon> + '(zenirc-font-lock-keywords nil nil ((?_ . "w")))) Simon> + Simon> + Simon> (defun zenirc-mode () Simon> "Major mode for wasting major time on IRC." Simon> (kill-all-local-variables) Simon> ＠＠ -616,6 +628,7 ＠＠ Simon> (zenirc-current-victim ("->" zenirc-current-victim)) Simon> " " Simon> "%-")) Simon> + (font-lock-set-defaults) Simon> (zenirc-run-hook 'zenirc-mode-hook)) Simon>  -- Adrian Aichner mailto:adrian＠xemacs.org http://www.xemacs.org/