(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?)])
  
  )