chickadee » phricken » extension-type-map

extension-type-mapparameter

Case-insensitive map of file extension (as symbol) to 1-character Gopher entry type (as symbol).

(define extension-type-map
 (make-parameter
  `((txt . 0) (log . 0) (scm . 0) (sgm . 0) (c . 0) (h . 0)
    (png . I) (gif . g) (jpg . I) (svg . I))))