Commit 48f9d93a authored by Dave Cooper's avatar Dave Cooper

Merge branch 'devo' of https://gitlab.common-lisp.net/gendl/gendl into devo

parents face1f45 de45f456
......@@ -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)))))))))))
......
......@@ -104,11 +104,11 @@ written consent from Genworks International.")
(with-format (com.genworks.dom-writers:latex (merge-pathnames "pdf/tutorial.tex" *system-home*))
(write-the-object object (:base))))
(run-prog (format nil "cd ~a; ~a -interaction=nonstopmode tutorial.tex" pdf-path pdftex-path))
(run-prog (format nil "cd ~a; ~a tutorial" pdf-path makeindex-path))
(run-prog (format nil "cd '~a'; ~a -interaction=nonstopmode tutorial.tex" pdf-path pdftex-path))
(run-prog (format nil "cd '~a'; ~a tutorial" pdf-path makeindex-path))
(dotimes (n level)
(run-prog (format nil "cd ~a; ~a -interaction=nonstopmode tutorial.tex"
(run-prog (format nil "cd '~a'; ~a -interaction=nonstopmode tutorial.tex"
pdf-path pdftex-path)))))
(define-object assembly (com.genworks.dom:assembly)
......@@ -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