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

(use-modules ((ttn-do htmlize-scheme) #:select (define-mapping)))

(define-mapping #:ttn-do
  #:stems
  '(""
    "/software/ttn-do/ttn-do.html.gz#")
  #:type #:module-name
  #:recognize 'ttn-do
  #:lookup (lambda (data module-name)   ; gross
             (substring
              (apply string-append
                     (apply append
                            (map (lambda (part)
                                   (list "-" (symbol->string part)))
                                 (cdr module-name))))
              1)))

;;; ttn-do.hmap ends here