[albert-cvs] CVS: albert/spres object.lisp,1.22,1.23

[Stig E S. <st...@us...>]

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