;;; header.mhtml: -*- Meta-HTML -*-
;;; This header file is included at the start of every meta-html document
;;; which describes the Meta-HTML language.

<when <not <get-var header-already-included>>>
  <set-var header-already-included=true>
  <include mandefs.mhtml>

  <defvar mhtml::images
    <subst-in-string <get-var mhtml::url-to-dir-sans-sid> "[^/]+$" "images/">>

  <set-var
    author-name="Brian J. Fox"
    the-author=<get-var author-name>
    author-email="bfox@ai.mit.edu"
    author-url="http://www.ua.com/~bfox/"
    manual-ref="<a href=<get-var mhtml::url-to-dir-sans-sid>/welcome.mhtml>
		The <meta-html> Language Reference Manual</a>">

  <html>
  <head>
  <title> <get-var title> </title>
  </head>

  <body bgcolor="#ffffff">
  <when <not <get-var hacking-frames>>>
    <table border=7 width=100%>
      <tr>
	<td valign=center width=35%>
	  <a href="<get-var mhtml::url-to-dir-sans-sid>/welcome.mhtml">
	    <img src="<get-var mhtml::images>meta-logo.gif" align=left
		 border=0 alt="Top of Manual">
	  </a>
	</td>
	<td width=65%>
	  <center>
	    <small-caps upper=+3 lower=+2 other=+2>
	      The <b>Meta-HTML</b> Language Reference Manual
	    </small-caps>
	  </center>
	</td>
      </tr>
    </table>
    <br clear>
  </when>

  <include navigate.mhtml>
  <hr size=6 width=75%>
  <center><h2><get-var title></h2></center>
  <p>
  <DEBUGGING-OUTPUT>
</when>
