Update of /cvsroot/albert/albert/spres
In directory sc8-pr-cvs1:/tmp/cvs-serv31827/spres
Modified Files:
object.lisp
Log Message:
made present-document use header+footer as possible prefix+suffic to a document
Index: object.lisp
===================================================================
RCS file: /cvsroot/albert/albert/spres/object.lisp,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** object.lisp 27 Oct 2003 01:04:06 -0000 1.22
--- object.lisp 27 Oct 2003 16:44:16 -0000 1.23
***************
*** 929,932 ****
--- 929,939 ----
(gethash (%strip-setf name) *package-exports*)))
+
+ (defmethod present-book-header (doc actual-stream)
+ nil)
+
+ (defmethod present-book-footer (doc actual-stream)
+ nil)
+
(defun present-book (tpl-object)
"Outputs a book of the given top-level object"
***************
*** 947,955 ****
(tl-ensure-file-dirs ?file-table ?outdir)
! ;; (cl-user::pr-ht ?file-table)
(let ((*scope-stack* (cons tpl-object *scope-stack*)))
(present-object tpl-object document :full))
! (present-document document)
(ignore-errors
(unless-quiet
--- 954,966 ----
(tl-ensure-file-dirs ?file-table ?outdir)
! ;;(cl-user::pr-ht ?file-table)
!
(let ((*scope-stack* (cons tpl-object *scope-stack*)))
(present-object tpl-object document :full))
!
! (present-document document :content-prefix #'present-book-header
! :content-suffix #'present-book-footer)
!
(ignore-errors
(unless-quiet
|
