(define (map-templates data)
  (map (lambda (item)
         (cons (car item) (sexpr->tvalue (cadr item))))
       data))

(define sdata
  (map-templates
   '((webroot "http://localhost:8000/"))))