(use qwiki qwiki-sxml sxml-transforms)

(define viewport
  '(meta (@ (name "viewport")
	    (content "width=device-width, initial-scale=1"))))

(define viewport-rules
  `((wiki-page
     ((Header
       *preorder*
       . ,(lambda (tag contents)
            (cons tag (cons viewport contents)))))
     . ,(lambda contents contents))
    ,@alist-conv-rules*))

(define (viewport-install!)
  (qwiki-extensions (cons viewport-rules (qwiki-extensions))))