1 files changed, 14 insertions, 1 deletions
diff --git a/guix-data-service/web/util.scm b/guix-data-service/web/util.scm
index 44fae8a..574b29b 100644
--- a/guix-data-service/web/util.scm
+++ b/guix-data-service/web/util.scm
@@ -24,7 +24,10 @@
   #:use-module (web uri)
   #:export (request-path-components
             file-extension
-            directory?))
+            directory?
+
+            hyphenate-words
+            underscore-join-words))
 
 (define (request-path-components request)
   (split-and-decode-uri-path (uri-path (request-uri request))))
@@ -34,3 +37,13 @@
 
 (define (directory? filename)
   (string=? filename (dirname filename)))
+
+(define (hyphenate-words words)
+  (string-join
+   (string-split words #\space)
+   "-"))
+
+(define (underscore-join-words words)
+  (string-join
+   (string-split words #\space)
+   "_"))