From 71ae09d9d34a1780c653755bbb4d6c1f5b67906a Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 28 Jun 2022 10:06:38 +0530
Subject: web: static: Move sanitize-string to (tissue issue).

* tissue/web/static.scm (sanitize-string): Move to tissue/issue.scm.
---
 tissue/issue.scm      | 8 ++++++++
 tissue/web/static.scm | 8 --------
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/tissue/issue.scm b/tissue/issue.scm
index 70ea49f..de01ca8 100644
--- a/tissue/issue.scm
+++ b/tissue/issue.scm
@@ -176,6 +176,14 @@
     (newline)
     (newline)))
 
+(define (sanitize-string str)
+  "Downcase STR and replace spaces with hyphens."
+  (string-map (lambda (c)
+                (case c
+                  ((#\space) #\-)
+                  (else c)))
+              (string-downcase str)))
+
 (define (hashtable-append! hashtable key new-values)
   "Append NEW-VALUES to the list of values KEY is associated to in
 HASHTABLE. Deduplicate the resulting list if necessary. If KEY is not
diff --git a/tissue/web/static.scm b/tissue/web/static.scm
index e02c129..71ef50b 100644
--- a/tissue/web/static.scm
+++ b/tissue/web/static.scm
@@ -67,14 +67,6 @@ NEW-EXTENSION."
   (string-append (substring file 0 (1+ (string-index-right file #\.)))
                  new-extension))
 
-(define (sanitize-string str)
-  "Downcase STR and replace spaces with hyphens."
-  (string-map (lambda (c)
-                (case c
-                  ((#\space) #\-)
-                  (else c)))
-              (string-downcase str)))
-
 (define (exporter file proc)
   "Return a writer function that exports FILE using PROC. PROC is
 passed two arguments---the input port to read from and the output port
-- 
cgit v1.2.3