- `(if ,xml
- (progn
- (princ-http "<elem xlink:type=\"simple\" xlink:href=\"")
- (princ-http ,href)
- (princ-http "\">")
- ,@body
- (princ-http "</elem>"))
- (progn
- (princ-http "<a href=\"")
- (princ-http ,href)
- (princ-http "\">")
- ,@body
- (princ-http "</a>"))))
-
-(defun home-link (&key (xml nil) (vars nil))
- (princ-http "<font size=\"-1\">Return to ")
- (with-link ((make-url "index.html" :vars vars) xml "homelink")
- (princ-http "Browser Home"))
- (princ-http "</font><p></p>"))
+ `(case ,format
+ (:xml
+ (princ-http "<elem xlink:type=\"simple\" xlink:href=\"")
+ (princ-http ,href)
+ (princ-http "\">")
+ ,@body
+ (princ-http "</elem>"))
+ (:ie-xml
+ (princ-http "<html:a href=\"")
+ (princ-http ,href)
+ (princ-http "\">")
+ ,@body
+ (princ-http "</html:a>"))
+ (:html
+ (princ-http "<a href=\"")
+ (princ-http ,href)
+ (princ-http "\">")
+ ,@body
+ (princ-http "</a>"))))
+
+(defun home-link (&key (format :html) (vars nil))
+ (case format
+ (:html
+ (princ-http "<div class=\"homelink\">Return to ")
+ (with-link ((make-url "index.html" :vars vars))
+ (princ-http "Home"))
+ (princ-http "</div>"))
+ ((:xml :ie-xml)
+ (princ-http "<homelink>Return to ")
+ (with-link ((make-url "index.html" :vars vars :format format) :format format)
+ (princ-http "Home"))
+ (princ-http "</homelink>"))))