scribble-helpers.rkt

#lang racket/base

(provide inject-javascript inject-css)

(require scribble/core
         scribble/html-properties
         scriblib/render-cond)

;; Adds JavaScript if we're rendering in HTML.
(define (inject-javascript . body)
  (cond-element 
   [latex ""]
   [html (make-element (make-style #f (list (make-script-property "text/javascript"
                                                           body)))
                       '())]
   [text ""]))

(define (inject-css path)
  (cond-element 
   [latex ""]
   [html (make-element (make-style #f (list (make-css-addition path)))
                       '())]
   [text ""]))



;;(define (google-analytics)
;;  (make-tag