[cl-pdf-devel] Named destinations proposal and small amendments

Marc Battyani marc.battyani at fractalconcept.com
Tue Nov 2 08:50:42 UTC 2004


Dmitri Ivanov wrote:

> Hello Eric,
> 
> |   I also moved to a single ADD-LINK function, but made it a generic
> |   function dispatching on specializations of a DESTINATION class. I
> |   think this is more extensible than dispatching by hand inside
> |   ADD-LINK. Rough code follows.
> 
> Thanks, looks a bit more extensive :-)
> 
> | (defclass destination () ())
> |
> | (defclass explicit-destination (destination)
> |   ((page :initarg :page
> |          :type integer
> |          :accessor destination-page)
> |    (position :initarg :position
> |              :initform "/Fit"
> |              :accessor destination-position)))
> |
> | (defmethod write-object ((dest explicit-destination) &optional
> | root-level)(declare (ignore root-level))
> |   (write-object (vector (destination-page dest) (destination-position
> | dest))))

Hi Dmitri and Eric,

I will put this in cl-pdf. 
Any more recent/complete version than the one here ?

Marc




More information about the cl-pdf-devel mailing list