slide-visual.rkt

slide-visual.rkt

(module slide-visual racket
  (module slide-wrapper-linker racket
    (require "viewer.rkt" slideshow/param slideshow/sig slideshow/cmdline)

    (define custom-linker
      (lambda (core@)
        (println "calling custom linker")
        (compound-unit
          (import)
          (export CORE CMDLINE VIEWER)
          (link [((CONFIG : config^) (CMDLINE : cmdline^)) cmdline@]
                [((CORE : core^)) core@ CMDLINE VIEWER]
                [((VIEWER : viewer^)) visual-viewer@ CMDLINE CORE])
          )))
    (current-slideshow-linker custom-linker))

  (require 'slide-wrapper-linker
           slideshow/widescreen/base
           slideshow/pict)
  (provide
   (except-out (all-from-out racket
                             slideshow/widescreen/base
                             slideshow/pict)
                     printable<%>)))