Commit b310a755 authored by Gail Zacharias's avatar Gail Zacharias

implement :footnotetext tag by putting the text at end of page

parent f4eae5aa
......@@ -30,6 +30,7 @@
(defparameter *index-hash* nil)
(defparameter *footnotes* nil)
(defparameter *footnotetext* nil)
(defparameter *debug-index* nil)
(define-lens (html-format assembly) ()
......@@ -55,10 +56,16 @@
(:html (:head (:title (str (the title)))
((:link :href (the style-url) :rel "stylesheet" :type "text/css")))
(let ((*index-hash* (make-hash-table :test #'equalp))
(*footnotes* (make-array 50 :adjustable t :fill-pointer 0)))
(*footnotes* (make-array 50 :adjustable t :fill-pointer 0))
(*footnotetext* nil))
(:body (:div (write-the cl-who-contents-out))
(:div (write-the cl-who-base))
(when *footnotetext*
(htm (:div (:hr)
(dolist (elements *footnotetext*)
(htm (:p (dolist (element (list-elements elements))
(write-the-object element cl-who-base))))))))
(when (> (length *footnotes*) 0)
(htm (:div (write-the cl-who-footnotes))))
(:div (write-the cl-who-index))))))))
......@@ -222,6 +229,8 @@
(htm (:a :name (format nil "FtNtR~d" index) :href (format nil "#FtNt~d" index)
(fmt "[~d]" index)))))
(push (the elements) *footnotetext*))
((:cite :href)
(let* ((args (list-elements (the elements)))
(target (the-object (car args) data)))
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