Commit 033c0ece authored by Antoine Martin's avatar Antoine Martin
Browse files

Respect 80 columns

parent 38141a90
......@@ -29,7 +29,9 @@
(build-cell (car f)) (build-cell (car s)))
(format file
"<tr>~A~A~A</tr>~%"
(build-cell (car f)) (build-cell (car s)) (build-cell (car th))))))))
(build-cell (car f))
(build-cell (car s))
(build-cell (car th))))))))
(defun format-dir-path (path)
(if (char= (char path (- (length path) 1))
......@@ -59,7 +61,8 @@
(if (is-number letter)
(format file "~%<tr><th><a name=\"number\">#</a></th></tr>~%~%")
(let ((upletter (string-upcase letter)))
(format file "~%<tr><th><a name=\"~A\">~A</a></th></tr>~%~%" upletter upletter))))
(format file "~%<tr><th><a name=\"~A\">~A</a></th></tr>~%~%"
upletter upletter))))
(defun print-index-header (file)
(format file "<!DOCTYPE html>
......
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