diff options
Diffstat (limited to 'guix-data-service/web/util.scm')
| -rw-r--r-- | guix-data-service/web/util.scm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/guix-data-service/web/util.scm b/guix-data-service/web/util.scm index 1dd193a..6c0caa7 100644 --- a/guix-data-service/web/util.scm +++ b/guix-data-service/web/util.scm @@ -29,7 +29,9 @@ hyphenate-words remove-brackets - underscore-join-words)) + underscore-join-words + + uri-encode-filename)) (define (most-appropriate-mime-type accepted-mime-types supported-mime-types) @@ -112,3 +114,9 @@ (string-join (string-split words #\space) "_")) + +(define (uri-encode-filename s) + (string-join + (map uri-encode + (string-split s #\/)) + "/")) |