diff options
| -rw-r--r-- | tissue/issue.scm | 8 | ||||
| -rw-r--r-- | 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 |