[slime-cvs] CVS slime/contrib

[trittweiler]

Update of /project/slime/cvsroot/slime/contrib
In directory clnet:/tmp/cvs-serv11264/contrib

Modified Files:
	slime-fancy.el ChangeLog 
Added Files:
	slime-fontifying-fu.el 
Log Message:

* slime-fontifying-fu.el: New contrib; fontify with-foo and do-foo
  like standard macros.

* slime-fancy.el: Add slime-fontifying-fu.


--- /project/slime/cvsroot/slime/contrib/slime-fancy.el	2008/08/07 15:24:08	1.6
+++ /project/slime/cvsroot/slime/contrib/slime-fancy.el	2008/08/20 21:46:09	1.7
@@ -79,4 +79,8 @@
 (require 'slime-package-fu)
 (slime-package-fu-init)
 
+;; Fontify with-foo and do-foo like standard macros.
+(require 'slime-fontifying-fu)
+(slime-fontifying-fu-init)
+
 (provide 'slime-fancy)
--- /project/slime/cvsroot/slime/contrib/ChangeLog	2008/08/20 11:42:47	1.122
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2008/08/20 21:46:09	1.123
@@ -1,3 +1,10 @@
+2008-08-20  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	* slime-fontifying-fu.el: New contrib; fontify with-foo and do-foo
+	like standard macros.
+
+	* slime-fancy.el: Add slime-fontifying-fu.
+
 2008-08-20  Luís Oliveira  <loliveira at common-lisp.net>
 
 	* contrib/slime-indentation.el: fix indentation of IF forms.

--- /project/slime/cvsroot/slime/contrib/slime-fontifying-fu.el	2008/08/20 21:46:09	NONE
+++ /project/slime/cvsroot/slime/contrib/slime-fontifying-fu.el	2008/08/20 21:46:09	1.1
;;; slime-fontifying-fu.el --- Additional fontification tweaks.
;;
;; Author:  Tobias C. Rittweiler <tcr at freebits.de>
;;
;; License: GNU GPL (same license as Emacs)
;;


;; Fontify WITH-FOO and DO-FOO like standard macros; fontify
;; CHECK-FOO like CHECK-TYPE.
(defvar slime-additional-font-lock-keywords
 '(("(\\(\\(\\s_\\|\\w\\)*:\\(define-\\|do-\\|with-\\)\\(\\s_\\|\\w\\)*\\)" 1 font-lock-keyword-face) 
   ("(\\(\\(define-\\|do-\\|with-\\)\\(\\s_\\|\\w\\)*\\)" 1 font-lock-keyword-face)
   ("(\\(check-\\(\\s_\\|\\w\\)*\\)" 1 font-lock-warning-face)))

(defun slime-fontifying-fu-init ()
  (font-lock-add-keywords
   'lisp-mode slime-additional-font-lock-keywords))

(defun slime-fontifying-fu-unload ()
  (font-lock-remove-keywords 
   'lisp-mode slime-additional-font-lock-keywords))

(provide 'slime-fontifying-fu)