[net-nittin-irc-cvs] CVS update: net-nittin-irc/example/irclogs.css net-nittin-irc/example/logger.lisp

Sun Dec 14 13:50:07 UTC 2003

Update of /project/net-nittin-irc/cvsroot/net-nittin-irc/example
In directory common-lisp.net:/tmp/cvs-serv2906

Modified Files:
	irclogs.css logger.lisp 
Log Message:
css fixes
Date: Sun Dec 14 08:50:05 2003
Author: krosenberg

Index: net-nittin-irc/example/irclogs.css
diff -u net-nittin-irc/example/irclogs.css:1.3 net-nittin-irc/example/irclogs.css:1.4

--- net-nittin-irc/example/irclogs.css:1.3	Sun Dec 14 08:01:50 2003
+++ net-nittin-irc/example/irclogs.css	Sun Dec 14 08:50:04 2003
@@ -1,22 +1,21 @@
 /* -*- Mode: CSS -*- */
 /* Cascading stylesheet for logger.lisp */
 
-#body { font-family: fixed; 
-        font-size: 10px; 
+#body { font-family: courier, fixed; 
         background: #FFFFFF; 
         color: #000000;
         margin: 0px 0px 10px 0px;
         }
 
-.time { color:#888; }
-
-.privmsg {  }
+.time { color:#666; }
 
 .subject { color:#22C; font-weight: bold;  }
 
-.msg ( color:#000; )
+.msg { color:#000; }
+
+.brack { color:#777; } 
 
-.action-brack { color:#500; }
+.action-brack { color:#511; }
 
 .action-name { color:#A22; font-weight:bold;  }
 
@@ -26,7 +25,7 @@
 
 .info-subject { color:#22C; font-weight: bold; font-size:80% }
 
-.info-brack { color:#CCC; font-size:80%}
+.info-brack { color:#AAA; font-size:80%}
 
 .info-msg { color:#000; font-size:80%}
 


Index: net-nittin-irc/example/logger.lisp
diff -u net-nittin-irc/example/logger.lisp:1.5 net-nittin-irc/example/logger.lisp:1.6
--- net-nittin-irc/example/logger.lisp:1.5	Sun Dec 14 08:01:50 2003
+++ net-nittin-irc/example/logger.lisp	Sun Dec 14 08:50:04 2003
@@ -1,5 +1,5 @@
 ;;;;  -*- Mode: Lisp -*-
-;;;; $Id: logger.lisp,v 1.5 2003/12/14 13:01:50 krosenberg Exp $
+;;;; $Id: logger.lisp,v 1.6 2003/12/14 13:50:04 krosenberg Exp $
 ;;;;
 ;;;; Purpose: A logging bot 
 ;;;; Author:  Kevin Rosenberg
@@ -94,7 +94,7 @@
     (:html
      (format (elt (streams channel) istream)
 	     "<?xml version='1.0' ?>~%<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.1//EN\" \"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd\">~%")
-     (format (elt (streams channel) istream) "<html xmlns='http://www.w3.org/1999/xhtml'>~%<head>~%<title>~A</title>~%<link rel='stylesheet' href='/irclogs.css' type='text/css' />~%</head>~%<body>~%"
+     (format (elt (streams channel) istream) "<html xmlns='http://www.w3.org/1999/xhtml'>~%<head>~%<title>~A</title>~%<link rel='stylesheet' href='/irclogs.css' type='text/css' />~%</head>~%<body id='body'>~%"
 	     (html-title channel)))))
 
 (defun output-file-footer (logger channel istream)
@@ -193,7 +193,12 @@
 	  (format stream "<span class='info-subject'>~A</span> <span class='info-brack'>[</span><span class='user-address'>~A</span><span class='info-brack'>]</span> <span class='info-msg'>~A</span>"
 		  source (user-address msg) text)
 	  (when object
-	    (format stream " <span class='info-object'>~A</span>" object))))
+	    (case type
+	      (:quit
+	       (format stream " <span class='info-brack'>[</span><span class='info-object'>~A</span><span class='info-brack'>]</span>"
+		       object))
+	      (t
+	       (format stream " <span class='info-object'>~A</span>" object))))))
        (format stream "</div>~%"))
       (:sexp
        (format stream "(~W ~W ~W ~W ~W ~W)~%" (received-time msg)
@@ -210,9 +215,12 @@
 	 (t
 	  (format stream "[info] ~A [~A] ~A" source (user-address msg) text)
 	  (when object
-	    (format stream " ~A" object))))
+	    (format stream (case type
+			     (:quit " [~A]")
+			     (t " ~A"))
+		    object))))
        (write-char #\Newline stream)))
-    (force-output stream)))/
+    (force-output stream)))
 
 (defun output-event (msg type text &optional object)
   (dolist (logger *loggers*)
@@ -251,8 +259,7 @@
 		(first (arguments msg))))
 
 (defun quit-hook (msg)
-  (output-event msg :quit "has quit" 
-		(concatenate 'string "[" (trailing-argument msg) "]")))
+  (output-event msg :quit "has quit" (trailing-argument msg)))
 
 (defun join-hook (msg)
   (output-event msg :join "has joined" 



