Commit 1e98f9c2 authored by Antoine Martin's avatar Antoine Martin
Browse files

Move html header to template file

Fixes #51
parent a07ccb14
<!DOCTYPE html>
<html>
<head>
<title>Quickref</title>
<link rel="stylesheet" type="text/css" href="/document.css">
<link rel="stylesheet" type="text/css" href="/main.css">
</head>
<body>
<h1>Quickref</h1>
<div class="header">
<h4>Reference manuals for Quicklisp libraries.</h4>
<p>Quicklisp version ~A</p>
<p>Documentation generated with <a href="https://www.lrde.epita.fr/~~didier/software/lisp/misc.php#declt">Declt ~A</a>.</p>
</div>
<div class="floating">
<table><tr><th valign="top">Jump to: &nbsp; </th>
<td>
<a class="summary-letter" href="#number"><b>#</b></a>
&nbsp;
<a class="summary-letter" href="#A"><b>A</b></a>
&nbsp;
<a class="summary-letter" href="#B"><b>B</b></a>
&nbsp;
<a class="summary-letter" href="#C"><b>C</b></a>
&nbsp;
<a class="summary-letter" href="#D"><b>D</b></a>
&nbsp;
<a class="summary-letter" href="#E"><b>E</b></a>
&nbsp;
<a class="summary-letter" href="#F"><b>F</b></a>
&nbsp;
<a class="summary-letter" href="#G"><b>G</b></a>
&nbsp;
<a class="summary-letter" href="#H"><b>H</b></a>
&nbsp;
<a class="summary-letter" href="#I"><b>I</b></a>
&nbsp;
<a class="summary-letter" href="#J"><b>J</b></a>
&nbsp;
<a class="summary-letter" href="#K"><b>K</b></a>
&nbsp;
<a class="summary-letter" href="#L"><b>L</b></a>
&nbsp;
<a class="summary-letter" href="#M"><b>M</b></a>
&nbsp;
<a class="summary-letter" href="#N"><b>N</b></a>
&nbsp;
<a class="summary-letter" href="#O"><b>O</b></a>
&nbsp;
<a class="summary-letter" href="#P"><b>P</b></a>
&nbsp;
<a class="summary-letter" href="#Q"><b>Q</b></a>
&nbsp;
<a class="summary-letter" href="#R"><b>R</b></a>
&nbsp;
<a class="summary-letter" href="#S"><b>S</b></a>
&nbsp;
<a class="summary-letter" href="#T"><b>T</b></a>
&nbsp;
<a class="summary-letter" href="#U"><b>U</b></a>
&nbsp;
<a class="summary-letter" href="#V"><b>V</b></a>
&nbsp;
<a class="summary-letter" href="#W"><b>W</b></a>
&nbsp;
<a class="summary-letter" href="#X"><b>X</b></a>
&nbsp;
<a class="summary-letter" href="#Y"><b>Y</b></a>
&nbsp;
<a class="summary-letter" href="#Z"><b>Z</b></a>
&nbsp;
</td>
</tr></table>
</div>
<table class="index-cp" border="0">
<tr><td></td><th align="left">Index Entry</th></tr>
......@@ -46,7 +46,7 @@
(if (and (is-number previous)
(is-number new))
t
(char= previous new)))
(string= previous new)))
(defun print-index-letter (letter file)
(if (is-number letter)
......@@ -56,40 +56,14 @@
upletter upletter))))
(defun print-index-header (file)
(format file "<!DOCTYPE html>
<html>
<head>
<title>Quickref</title>
<link rel=\"stylesheet\" type=\"text/css\" href=\"/document.css\">
<link rel=\"stylesheet\" type=\"text/css\" href=\"/main.css\">
</head>
<body>
<h1>Quickref</h1>
<div class=\"header\">
<h4>Reference manuals for Quicklisp libraries.</h4>
<p>Quicklisp version ~A</p>
<p>Documentation generated with <a href=\"https://www.lrde.epita.fr/~~didier/software/lisp/misc.php#declt\">Declt ~A</a>.</p>
</div>
<div class=\"floating\">
<table><tr><th valign=\"top\">Jump to: &nbsp; </th>
<td>
<a class=\"summary-letter\" href=\"#number\"><b>#</b></a>
&nbsp;~%"
(ql-dist:version (ql-dist:find-dist "quicklisp"))
(net.didierverna.declt.setup:version :long))
(loop for c across "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
do (format file "<a class=\"summary-letter\" href=\"#~C\"><b>~C</b></a>
&nbsp;~%" c c))
(format file "</td>
</tr></table>
</div>
<table class=\"index-cp\" border=\"0\">
<tr><td></td><th align=\"left\">Index Entry</th></tr>~%"))
(with-open-file (header (merge-pathnames "header.template"
(asdf:system-source-directory "quickref"))
:direction :input)
(let ((contents (make-string (file-length header))))
(read-sequence contents header)
(format file contents
(ql-dist:version (ql-dist:find-dist "quicklisp"))
(net.didierverna.declt.setup:version :long)))))
(defun build-index ()
(let ((quickref-dir (from-homedir "quickref/")))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment