[version 0.7.0 ediware**20070323180014] { hunk ./CHANGELOG 1 +Version 0.7.0 +2007-03-23 +Added *DOWNCASE-TAGS-P* (patch by Mac Chan) + hunk ./cl-who.asd 3 -;;; $Header: /usr/local/cvsrep/cl-who/cl-who.asd,v 1.9 2006/12/22 07:22:01 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-who/cl-who.asd,v 1.11 2007/03/23 14:51:42 edi Exp $ hunk ./cl-who.asd 5 -;;; Copyright (c) 2003-2006, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2003-2007, Dr. Edmund Weitz. All rights reserved. hunk ./cl-who.asd 32 - :version "0.6.3" + :version "0.7.0" hunk ./cl-who.system 2 -;;; $Header: /usr/local/cvsrep/cl-who/cl-who.system,v 1.4 2006/01/03 18:39:31 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-who/cl-who.system,v 1.5 2007/01/01 23:44:41 edi Exp $ hunk ./cl-who.system 4 -;;; Copyright (c) 2003-2006, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2003-2007, Dr. Edmund Weitz. All rights reserved. hunk ./doc/index.html 9 - a { text-decoration: none; } - a.noborder { border:0px } - a.noborder:hover { border:0px } a.none { border:1px solid white; } - a.none { border:1px solid white; } - a.none:hover { border:1px solid white; } - a { border:1px solid white; } - a:hover { border: 1px solid black; } - a.noborder { border:0px } - a.noborder:hover { border:0px } + h3, h4 { text-decoration: underline; } + a { text-decoration: none; padding: 1px 2px 1px 2px; } + a:visited { text-decoration: none; padding: 1px 2px 1px 2px; } + a:hover { text-decoration: none; padding: 1px 1px 1px 1px; border: 1px solid #000000; } + a:focus { text-decoration: none; padding: 1px 2px 1px 2px; border: none; } + a.none { text-decoration: none; padding: 0; } + a.none:visited { text-decoration: none; padding: 0; } + a.none:hover { text-decoration: none; border: none; padding: 0; } + a.none:focus { text-decoration: none; border: none; padding: 0; } + a.noborder { text-decoration: none; padding: 0; } + a.noborder:visited { text-decoration: none; padding: 0; } + a.noborder:hover { text-decoration: none; border: none; padding: 0; } + a.noborder:focus { text-decoration: none; border: none; padding: 0; } + pre.none { padding:5px; background-color:#ffffff } hunk ./doc/index.html 96 +
  • *downcase-tags-p* hunk ./doc/index.html 252 -current version is 0.6.3. +current version is 0.7.0. hunk ./doc/index.html 296 +

    +Luís Oliveira maintains a darcs +repository of CL-WHO +at http://common-lisp.net/~loliveira/ediware/. hunk ./doc/index.html 550 +


    [Special variable] +
    *downcase-tags-p* + +


    +If the value of this variable is NIL, keyword symbols representing a tag name will not be +automatically converted to lowercase. This is useful when one needs to +output case sensitive XML tags. The default is T. +
    + hunk ./doc/index.html 776 -$Header: /usr/local/cvsrep/cl-who/doc/index.html,v 1.46 2006/12/22 07:22:03 edi Exp $ +$Header: /usr/local/cvsrep/cl-who/doc/index.html,v 1.48 2007/03/23 14:51:44 edi Exp $ hunk ./load.lisp 2 -;;; $Header: /usr/local/cvsrep/cl-who/load.lisp,v 1.4 2006/01/03 18:39:31 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-who/load.lisp,v 1.5 2007/01/01 23:44:41 edi Exp $ hunk ./load.lisp 4 -;;; Copyright (c) 2003-2006, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2003-2007, Dr. Edmund Weitz. All rights reserved. hunk ./packages.lisp 2 -;;; $Header: /usr/local/cvsrep/cl-who/packages.lisp,v 1.12 2006/10/10 07:38:02 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-who/packages.lisp,v 1.14 2007/03/23 14:51:42 edi Exp $ hunk ./packages.lisp 4 -;;; Copyright (c) 2003-2006, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2003-2007, Dr. Edmund Weitz. All rights reserved. hunk ./packages.lisp 39 + #:*downcase-tags-p* hunk ./packages.lisp 65 + "*DOWNCASE-TAGS-P*" hunk ./who.lisp 2 -;;; $Header: /usr/local/cvsrep/cl-who/who.lisp,v 1.27 2006/10/10 07:38:02 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-who/who.lisp,v 1.29 2007/03/23 14:51:42 edi Exp $ hunk ./who.lisp 4 -;;; Copyright (c) 2003-2006, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2003-2007, Dr. Edmund Weitz. All rights reserved. hunk ./who.lisp 50 +(defvar *downcase-tags-p* t + "If NIL, a keyword symbol representing a tag name will not be +automatically converted to lowercase. This is useful when one needs +to output case sensitive XML tags.") + hunk ./who.lisp 254 + (let ((tag (if *downcase-tags-p* (string-downcase tag) (string tag)))) hunk ./who.lisp 257 - ;; indent by *INDENT* spaces - (list +newline+ (n-spaces *indent*))) + ;; indent by *INDENT* spaces + (list +newline+ (n-spaces *indent*))) hunk ./who.lisp 260 - (list "<" (string-downcase tag)) + (list "<" tag) hunk ./who.lisp 265 - (append - (list ">") - ;; now hand over the tag's body to TREE-TO-TEMPLATE, increase - ;; *INDENT* by 2 if necessary - (if *indent* - (let ((*indent* (+ 2 *indent*))) - (funcall body-fn body)) - (funcall body-fn body)) - (if *indent* - ;; indentation - (list +newline+ (n-spaces *indent*))) - ;; closing tag - (list "")) - ;; no body, so no closing tag - (list *empty-tag-end*)))) + (append + (list ">") + ;; now hand over the tag's body to TREE-TO-TEMPLATE, increase + ;; *INDENT* by 2 if necessary + (if *indent* + (let ((*indent* (+ 2 *indent*))) + (funcall body-fn body)) + (funcall body-fn body)) + (if *indent* + ;; indentation + (list +newline+ (n-spaces *indent*))) + ;; closing tag + (list "")) + ;; no body, so no closing tag + (list *empty-tag-end*))))) hunk ./who.lisp 420 - (cons 'format - (cons stream (rest x)))))) + (list* 'format stream (rest x))))) hunk ./who.lisp 432 - (cons 'htm - (cons prologue - (tree-to-template tree))) + (list* 'htm + +newline+ + prologue + +newline+ + (tree-to-template tree)) }