Commit 94c69c44 authored by Antoine Martin's avatar Antoine Martin
Browse files

Add Index letters above sections

parent f34030e0
......@@ -90,6 +90,12 @@
t
(string= previous new)))
(defun print-index-letter (letter file)
(if (is-number letter)
(setq letter "#")
(setq letter (string-upcase letter)))
(format file "~%<tr><th><a name=\"~A\">~A</a></th></tr>~%~%" letter letter))
(defun build-index (path file-path)
(with-open-file (file file-path
:direction :output
......@@ -104,8 +110,10 @@
(progn (setq length (+ length 1))
(setq pos (cdr pos)))
(progn
(print-index-letter first-letter file)
(print-columns dir-list length file)
(setq length 0)
(setq dir-list pos)
(setq first-letter (get-first-letter (car pos))))))
(print-index-letter first-letter file)
(print-columns dir-list length file))))
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