[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