Vous ne pouvez pas sélectionner plus de 25 sujets Les noms de sujets doivent commencer par une lettre ou un nombre, peuvent contenir des tirets ('-') et peuvent comporter jusqu'à 35 caractères.

templates.scm 408B

1234567891011121314
  1. (module templates (render-template)
  2. (import scheme (chicken string))
  3. (define (render-template node)
  4. (cond
  5. ((eq? node '()) "")
  6. ((string? node) node)
  7. (else
  8. (let* ([tag (symbol->string (car node))]
  9. [body (cdr node)])
  10. (string-append
  11. "<" tag ">"
  12. (string-intersperse (map render-template body) "")
  13. "</" tag ">"))))))