Commit 6a9adaec authored by Dave Cooper's avatar Dave Cooper

working to add missing tags to html lens for tutorial

parent 6ceae084
......@@ -23,6 +23,8 @@ configure.el
systems.txt
system-index.txt
*.pdf
# Ignore (generated) html files,
# *.html
# except foo.html which is maintained by hand.
......
......@@ -28,9 +28,12 @@
:destination (format nil "~a" (translate-logical-pathname "~/genworks/gwl-apps/training/g101/style/")))
(defparameter *index-hash* nil)
(define-lens (html-format assembly) ()
:output-functions
((main-sheet
(
(main-sheet
()
(html
(:html (:head (:title (:princ (the title)))
......@@ -38,7 +41,6 @@
(:body (:p (write-the contents))
(:p (write-the base)))))))
(base
()
(dolist (element (list-elements (the elements)))
......@@ -50,8 +52,16 @@
(with-cl-who ()
(:html (:head (:title (str (the title)))
((:link :href (the style-url) :rel "stylesheet" :type "text/css")))
(:body (:div (write-the cl-who-contents-out))
(:div (write-the cl-who-base))))))
(let ((*index-hash* (make-hash-table :test #'equalp)))
(:body (:div (write-the cl-who-contents-out))
(:div (write-the cl-who-base))
(:div (write-the cl-who-index)))))))
(cl-who-index
()
;; FLAG -- fill in! If you access *index-hash* from here, it will
;; be the dynamically bound one.
)
(cl-who-base
()
......@@ -162,6 +172,9 @@
(:emph (htm (:i (dolist (element (list-elements (the elements)))
(write-the-object element cl-who-base)))))
(:textbf (htm (:b (dolist (element (list-elements (the elements)))
(write-the-object element cl-who-base)))))
(:texttt (htm (:tt (dolist (element (list-elements (the elements)))
(write-the-object element cl-who-base)))))
......
......@@ -314,8 +314,6 @@ If you specify :part-symbol-supplied, do not specify :instance-supplied."))
(the load-example)
(print-variables (the part-full-symbol))
(setq pdf-file (merge-pathnames "example.pdf" (glisp:temporary-folder))
named-pdf-file (merge-pathnames (format nil "example-~(~a~).pdf" (the part-full-symbol))
"~/genworks/gendl/documentation/tutorial/images/"))
......@@ -780,7 +778,6 @@ If you specify :part-symbol-supplied, do not specify :instance-supplied."))
(htm ((:a :href (the-object page-object url))
(str (the remark-mixin))))
(htm "unknown"))))))
(print-variables note)
note)))
(remark-mixin (first (the :remark-list)))))
......
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