(let* ((category-string (symbol->string category))
(category-name (string-capitalize (regexp-substitute/global #f
"-" category-string 'pre " " 'post)))
(let* ((category-string (symbol->string category))
(category-name (string-capitalize (regexp-substitute/global #f
"-" category-string 'pre " " 'post)))