Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/home/bmastenbrook/lisppaste2
Modified Files: coloring-css.lisp package.lisp Log Message: Minor changes
Date: Tue Jun 8 08:23:04 2004 Author: bmastenbrook
Index: lisppaste2/coloring-css.lisp diff -u lisppaste2/coloring-css.lisp:1.1 lisppaste2/coloring-css.lisp:1.2 --- lisppaste2/coloring-css.lisp:1.1 Fri Jun 4 14:23:23 2004 +++ lisppaste2/coloring-css.lisp Tue Jun 8 08:23:04 2004 @@ -25,6 +25,6 @@ (defvar *css-background-class* "")
(defun make-background-css (color &key (class *css-background-class*)) - (format nil ".~A { background-color: ~A; color : inherit; }~:*~:* -.~A:hover { background-color: ~A; color : inherit; }~%" + (format nil ".~A { background-color: ~A; color: WindowText; }~:*~:* +.~A:hover { background-color: ~A; color: WindowText; }~%" class color))
Index: lisppaste2/package.lisp diff -u lisppaste2/package.lisp:1.6 lisppaste2/package.lisp:1.7 --- lisppaste2/package.lisp:1.6 Thu Jun 3 07:17:58 2004 +++ lisppaste2/package.lisp Tue Jun 8 08:23:04 2004 @@ -1,4 +1,4 @@ -;;;; $Id: package.lisp,v 1.6 2004/06/03 14:17:58 bmastenbrook Exp $ +;;;; $Id: package.lisp,v 1.7 2004/06/08 15:23:04 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/package.lisp,v $
;;;; See the LICENSE file for licensing information. @@ -8,6 +8,7 @@ (eval-when (:execute :load-toplevel :compile-toplevel) (defpackage :lisppaste (:use :cl #+sbcl :sb-bsd-sockets :html-encode) - (:export :start-lisppaste :join-new-channel :shut-up :un-shut-up :say-help))) + (:export :start-lisppaste :join-new-channel :shut-up :un-shut-up :say-help + :kill-paste :kill-paste-annotations :kill-paste-annotation)))