(module accessor mzscheme (require (lib "contract.ss") (lib "cut.ss" "srfi" "26")) (require (file "base.ss") (file "core.ss")) ; Accessors ------------------------------------ ;; title-ref : -> string (define (title-ref) (respond/expr (lambda (embed-url) (js:expr ((dot Delirium api getTitle)))))) ; Provide statements --------------------------- (provide/contract [title-ref (-> string?)]) )