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"