Commit 99bc0d09 authored by Gail Zacharias's avatar Gail Zacharias

doc - implement :include tag

parent 22d25bbd
......@@ -217,6 +217,17 @@
(dolist (element (list-elements (the elements)))
(write-the-object element cl-who-base)))
(:include (dolist (element (list-elements (the elements)))
(let ((filename (the-object element data)))
(when (and (> (length filename) 8)
(string= filename "~/gendl/" :end1 8))
(setq filename (merge-pathnames (subseq filename 8)
(asdf:system-source-directory :gendl))))
(with-open-file (s filename)
(let ((buffer (make-string (file-length s))))
(read-sequence buffer s)
(htm (esc buffer)))))))
(otherwise (when *warn-on-unrecognized-tags?*
(warn "Markup tag ~s was not recognized~%" (the markup-tag))))
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