kahua.js

Kahua

• 本家
• KahuaSeminar (臨時)
• 実験室

News

• ド素人とKahua (2007-07-04 13:58:34(+0900))
• Kahua Wish List (2006-09-28 06:48:12(+0900))
• Kahua Bug (2006-11-22 07:51:39(+0900))
• 日誌 (2007-07-04 14:00:20(+0900))
• Enjoy Gauche (2007-07-04 13:59:46(+0900))

Site Info

• Site Map
• Recent Changes

Kahua開発日記

Enjoy Gauche

まとめ中

(use js)

(define (interp-javascript nodes context cont)
  (let1 headers (assoc-ref-car context "extra-headers" '())
    (cont
     (list (js-to-string (cadr nodes)))
     (if (assoc "content-type" headers)
         context
       (cons `("extra-headers"
               ,(kahua-merge-headers
                 headers `(("content-type" "text/javascript"))))
             context)))))

((with-module kahua.server add-interp!) 'javascript interp-javascript)

(define (script// arg)
  (let1 src? (string? arg)
    (script/ (@/ (type "text/javascript")
                 (src (and src? arg)))
             (if (not src?)
                 (js-to-string arg)
               empty))))

 (script// `(define kahua-self-uri-full ,(kahua-self-uri-full)))
 (script// (kahua-static-document-url "dojo.js"))

 <script type='text/javascript'>var kahuaSelfUriFull = 'http://localhost:9000/hoge/';</script>
 <script type='text/javascript' src='/kahua/codemand/dojo.js'></script> 

Powered by Kahua