;;; ttn-do.hmap                                         -*- scheme -*-

(use-modules ((ttn-do htmlize-scheme) #:select (define-mapping))
             ((srfi srfi-13) #:select (string-join)))

(define-mapping #:ttn-do
  #:stem "/software/ttn-do/ttn-do.html.gz#"
  #:type #:module-name
  #:recognize 'ttn-do
  #:lookup (lambda (data module-name)
             (string-join (map symbol->string (cdr module-name)) "-")))

;;; ttn-do.hmap ends here