Commit ae88afdf authored by Antoine Martin's avatar Antoine Martin
Browse files

Add header to build-index

parent 94c69c44
......@@ -96,11 +96,44 @@
(setq letter (string-upcase letter)))
(format file "~%<tr><th><a name=\"~A\">~A</a></th></tr>~%~%" letter letter))
(defun print-index-header (file)
(format file "<!DOCTYPE html>
<html>
<head>
<title>Quickref</title>
<link rel=\"stylesheet\" type=\"text/css\" href=\"https://sirgazil.bitbucket.io/static/docs/css/texinfo/tip/document.css\">
<link rel=\"stylesheet\" type=\"text/css\" href=\"main.css\">
</head>
<body>
<div class=\"header\">
<p>Documentation generated with <a href=\"https://www.lrde.epita.fr/~~didier/software/lisp/misc.php#declt\">Declt</a>.</p>
</div>
<h1>Quickref</h1>
<div class=\"floating\">
<table><tr><th valign=\"top\">Jump to: &nbsp; </th>
<td>
<a class=\"summary-letter\" href=\"#number\"><b>#</b></a>
&nbsp~%")
(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>~%"))
(defun build-index (path file-path)
(with-open-file (file file-path
:direction :output
:if-exists :supersede
:if-does-not-exist :create)
(print-index-header file)
(let* ((dir-list (get-directory-list path))
(first-letter (get-first-letter (first dir-list)))
(length 0)
......
Supports Markdown
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