r3074: *** empty log message ***

[kmrcl.git] / ml-class.lisp
diff --git a/ml-class.lisp b/ml-class.lisp

index b720de00351cd7d5dcb936a8c10d47c8529a00a8..57fd07cb5a52bec2ba79ad55f7d3fabb0a252b98 100644 (file)
--- a/ml-class.lisp
+++ b/ml-class.lisp
@@ -11,7 +11,7 @@
  ;;;; in Text, HTML, and XML formats. This includes hyperlinking
  ;;;; capability and sub-objects.
  ;;;;
-;;;; $Id: ml-class.lisp,v 1.17 2002/10/16 21:58:49 kevin Exp $
+;;;; $Id: ml-class.lisp,v 1.18 2002/10/16 22:56:07 kevin Exp $
  ;;;;
  ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
  ;;;;
@@ -333,6 +333,8 @@ Format is ((field-name field-lookup-func other-link-params) ...)")
      (setq *default-textformat* (make-instance 'textformat))
      (setq *default-htmlformat* (make-instance 'htmlformat))
      (setq *default-htmlrefformat* (make-instance 'htmlrefformat))
+    (setq *default-xhtmlformat* (make-instance 'xhtmlformat))
+    (setq *default-xhtmlrefformat* (make-instance 'xhtmlrefformat))
      (setq *default-xmlformat* (make-instance 'xmlformat))
      (setq *default-xmlrefformat* (make-instance 'xmlrefformat))
      (setq *default-ie-xmlrefformat* (make-instance 'ie-xmlrefformat))
@@ -343,7 +345,8 @@ Format is ((field-name field-lookup-func other-link-params) ...)")
        (:text *default-textformat*)
        (:html *default-htmlformat*)
        (:htmlref *default-htmlrefformat*)
-      (:xml  *default-xmlformat*)
+      (:xhtml  *default-xhtmlformat*)
+      (:xhtmlref *default-xhtmlrefformat*)
        (:xml  *default-xmlformat*)
        (:xmlref *default-xmlrefformat*)
        (:ie-xmlref *default-ie-xmlrefformat*)
@@ -409,6 +412,27 @@ Format is ((field-name field-lookup-func other-link-params) ...)")
    (values (ml-class-title x) nitems (class-name-of x)))
  
  (defclass htmlformat (textformat) 
+  ()
+  (:default-initargs :file-start-str "<html><body>~%"
+    :file-end-str "</body><html>~%"
+    :list-start-indent t
+    :list-start-fmtstr "<p><b>~a~p:</b></p><div class=\"~A\"><ul>~%"
+    :list-start-value-func #'htmlformat-list-start-value-func
+    :list-end-fmtstr "</ul></div>~%"
+    :list-end-indent t
+    :list-end-value-func #'identity
+    :obj-start-indent t
+    :obj-start-fmtstr "<li>"
+    :obj-start-value-func #'identity
+    :obj-end-indent  t
+    :obj-end-fmtstr  "</li>~%"
+    :obj-end-value-func #'identity
+    :obj-data-indent t
+    :obj-data-fmtstr #'ml-class-fmtstr-html-labels
+    :obj-data-fmtstr-labels #'ml-class-fmtstr-html-labels
+    :obj-data-value-func #'ml-class-value-func))
+
+(defclass xhtmlformat (textformat) 
    ()
    (:default-initargs :file-start-str "<html><body>~%"
      :file-end-str "</body><html>~%"
@@ -470,6 +494,14 @@ Format is ((field-name field-lookup-func other-link-params) ...)")
    (:documentation "Formatting for a linked reference"))
  
  (defclass html-link-ref (link-ref)
+  ()
+  (:default-initargs :fmtstr #'ml-class-fmtstr-html-ref  
+    :fmtstr-labels #'ml-class-fmtstr-html-ref-labels
+    :href-head "a href=" 
+    :href-end "a" 
+    :ampersand "&"))
+
+(defclass xhtml-link-ref (link-ref)
    ()
    (:default-initargs :fmtstr #'ml-class-fmtstr-html-ref  
      :fmtstr-labels #'ml-class-fmtstr-html-ref-labels
@@ -497,6 +529,10 @@ Format is ((field-name field-lookup-func other-link-params) ...)")
    ()
    (:default-initargs :link-ref (make-instance 'html-link-ref)))
  
+(defclass xhtmlrefformat (xhtmlformat)
+  ()
+  (:default-initargs :link-ref (make-instance 'xhtml-link-ref)))
+
  (defclass xmlrefformat (xmlformat)
    ()
    (:default-initargs :link-ref (make-instance 'xml-link-ref)))