From d1475440828123bf27a9a1f5ff977f92769e8e64 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Tue, 10 Apr 2012 13:50:57 +0300 Subject: delete trailing whitespace from documentation --- doc/index.html | 44 ++++++++++++++++++++++---------------------- 1 file changed, 22 insertions(+), 22 deletions(-) diff --git a/doc/index.html b/doc/index.html index c38da09..4871cb2 100644 --- a/doc/index.html +++ b/doc/index.html @@ -1,5 +1,5 @@ - + @@ -9,16 +9,16 @@ 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: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; } + 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 } @@ -315,7 +315,7 @@ string to the stream the user provides.
  • Each list beginning with a keyword -is transformed into an (X)HTML tag of the same (usually downcased) name by the following rules: +is transformed into an (X)HTML tag of the same (usually downcased) name by the following rules:
      @@ -337,7 +337,7 @@ is transformed into an (X)HTML tag of the same (usually 
      (:td :nowrap t) => (write-string "<td nowrap='nowrap' />" s)
      With HTML-MODE set to :SGML: - + 
      (:td :nowrap t) => (write-string "<td nowrap>" s)
    • If it is NIL the attribute will be left out completely. @@ -415,7 +415,7 @@ CHECKBOX
    • Forms that look like (str form) will be substituted with (let ((result form)) (when result (princ result s))). -
      (loop for i below 10 do (str i)) => 
+
      (loop for i below 10 do (str i)) =>
 (loop for i below 10 do
    (let ((#:result i))
      (when #:result (princ #:result *standard-output*))))
      
@@ -717,17 +717,17 @@ Here are some simple examples:
 
       * (defmethod convert-tag-to-string-list ((tag (eql :red)) attr-list body body-fn)
     (declare (ignore attr-list))
-    (nconc (cons "<font color='red'>" (funcall body-fn body)) (list "</font>"))) 
-; Compiling LAMBDA (PCL::.PV-CELL. PCL::.NEXT-METHOD-CALL. TAG ATTR-LIST BODY BODY-FN): 
-; Compiling Top-Level Form: 
+    (nconc (cons "<font color='red'>" (funcall body-fn body)) (list "</font>")))
+; Compiling LAMBDA (PCL::.PV-CELL. PCL::.NEXT-METHOD-CALL. TAG ATTR-LIST BODY BODY-FN):
+; Compiling Top-Level Form:
 
 #<STANDARD-METHOD CONVERT-TAG-TO-STRING-LIST ((EQL :RED) T T T) {582B268D}>
 * (with-html-output (*standard-output*)
-    (:red (:b "Bold and red")) 
+    (:red (:b "Bold and red"))
     (values))
 <font color='red'><b>Bold and red</b></font>
 * (show-html-expansion (s)
-    (:red :style "spiffy" (if (foo) (htm "Attributes are ignored")))) 
+    (:red :style "spiffy" (if (foo) (htm "Attributes are ignored"))))
 
 (LET ((S S))
   (PROGN
@@ -746,24 +746,24 @@ Here are some simple examples:
                                     collect "<td>"
                                     when (constantp col)
                                       collect (format nil "~A" col)
-                                    else 
+                                    else
                                       collect col
                                     collect "</td>")
                         collect "</tr>")
                   (list "</table>")))
-          (t 
+          (t
             ;; you could as well invoke CALL-NEXT-METHOD here, of course
             (nconc (cons "<table "
                          (convert-attributes attr-list))
                    (list ">")
                    (funcall body-fn body)
                    (list "</table>")))))
-; Compiling LAMBDA (PCL::.PV-CELL. PCL::.NEXT-METHOD-CALL. TAG ATTR-LIST BODY BODY-FN): 
-; Compiling Top-Level Form: 
+; Compiling LAMBDA (PCL::.PV-CELL. PCL::.NEXT-METHOD-CALL. TAG ATTR-LIST BODY BODY-FN):
+; Compiling Top-Level Form:
 
 #<STANDARD-METHOD CONVERT-TAG-TO-STRING-LIST ((EQL :TABLE) T T T) {58AFB7CD}>
 * (with-html-output (*standard-output*)
-    (:table :border 0 (:tr (:td "1") (:td "2")) (:tr (:td "3") (:td "4")))) 
+    (:table :border 0 (:tr (:td "1") (:td "2")) (:tr (:td "3") (:td "4"))))
 <table  border='0'><tr><td>1</td><td>2</td></tr><tr><td>3</td><td>4</td></tr></table>
 "</td></tr></table>"
 * (show-html-expansion (s)
-- 
cgit v1.2.3