Commit de45f456 authored by Gail Zacharias's avatar Gail Zacharias

Add html support for :image-figure figures

parent a52d88f2
......@@ -334,7 +334,12 @@
()
(with-cl-who ()
(:p (:table (:tr (:td (ecase (the style)
(:image-figure "Image Goes Here")
(:image-figure
(htm (:img :src (if (stringp (the image-file))
(concatenate 'string "images/" (the image-file))
(namestring (the image-file)))
:style (format nil "width:~a;height:~a;" (the width) (the height))
:alt (the caption))))
(:boxed-figure (dolist (element (list-elements (the :elements)))
(write-the-object element cl-who-base))))))
(:tr (:td (:i (:princ (the caption)))))))))))
......
......@@ -161,6 +161,12 @@ written consent from Genworks International.")
(defun make-html-and-css (&key (output-directory (merge-pathnames "tmp/" (user-homedir-pathname)))
(html-output-file-namestring "tutorial.html")
(css-output-file-namestring "tutorial.css"))
(let ((output-images (merge-pathnames "images/" output-directory)))
(when (probe-file output-images)
(uiop/filesystem:delete-directory-tree output-images :validate t))
(com.genworks.lisp:copy-directory
(merge-pathnames "documentation/tutorial/images/" (asdf:system-source-directory :gendl))
output-images))
(let ((html-path (make-html :output-directory output-directory
:output-file-namestring html-output-file-namestring))
(css-path (make-css :output-directory output-directory
......
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