Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
branch: s
Fetching contributors…

Cannot retrieve contributors at this time

55 lines (45 sloc) 1.663 kB
#lang scheme/base
(require "util.scm")
(provide js-script-invoke
js-array
js-hash
js-quote
js-call
js-call-on-load
)
(define (js-script-invoke . js-strs)
`(script ((language "javascript"))
,(string-join js-strs "\n")))
(define (js-array scheme-lst)
(string-append "[" (string-join scheme-lst ", ") "]"))
(define (js-hash scheme-hash)
(string-append
"{ "
(string-join (hash-map scheme-hash (lambda (k v) (format "~A:~A" (js-quote k) v)))
", ")
"}"))
(define (js-quote thing)
(cond ((number? thing) (number->string thing))
((or (string? thing) (symbol? thing))
(format "\"~A\"" (careful-string-quote (if (string? thing)
thing
(symbol->string thing)))))
((eq? thing #t) "true")
((eq? thing #f) "false")
(else (e "Don't know how to js-quote ~A." thing))))
(define (careful-string-quote scm-str)
(pregexp-replace-many scm-str
("\n" => " ")
("\r" => " ")
("\"" => "'")))
(define (js-call-on-load fn-name #:quote-all (quote-all #f) . args)
(format "$(document).ready(function() { ~A })"
(apply js-call fn-name #:quote-all quote-all args)))
;;
;; js-call
;;
;; #:quote-all if #t, then assume all arguments are primitive JS values and js-quote them
;;
(define (js-call fn-name #:quote-all (quote-all #f) . args)
(let ((args (if quote-all (map js-quote args) args)))
(string-append fn-name "(" (string-join args ", ") ")")))
Jump to Line
Something went wrong with that request. Please try again.