;;; navicon.mhtml: -*- Meta-HTML -*-  DESCRIPTIVE TEXT.

;;;  Copyright (c) 1996 Brian J. Fox
;;;  Author: Brian J. Fox (bfox@ai.mit.edu) Tue Jun 25 01:24:54 1996.
<defun navicon name url>
  <if <not <match <get-var url> "^http://" caseless=true>>
      <if <not <match <get-var url> "^/">>
          <set-var url = <concat <get-var mhtml::url-to-dir>/<get-var url>>>
        <set-var url = <concat <get-var mhtml::http-prefix url>>>>>
  <concat
   <a href="<get-var url>">
   <img src="<get-var mhtml::http-prefix>/images/<get-var name>.gif" align=top
	<if <not <string-eq <get-var mhtml::full-url> <get-var url>>>
	    "border=0" "border=8">>
   </a>>
  <p>
</defun>
