From 53665daee7a1fc1717c6c6dba0564e0efef25c93 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 11 May 2019 16:47:44 +0100 Subject: [PATCH] Add some word handling utilities These are useful for constructing HTML ids and similar things. --- guix-data-service/web/util.scm | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) 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) + "_"))