From 9d435217937963799398a036718a1d6091ed68d8 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Sun, 19 Jan 2014 20:53:28 +0100
Subject: [PATCH] Downcase when creating posts.

* tekuti/post.scm (parse-post-data): Downcase when creating posts also.
---
 tekuti/post.scm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/tekuti/post.scm b/tekuti/post.scm
index 6ba9bcf..64b8d91 100644
--- a/tekuti/post.scm
+++ b/tekuti/post.scm
@@ -1,5 +1,5 @@
 ;; Tekuti
-;; Copyright (C) 2008, 2010, 2011, 2012 Andy Wingo <wingo at pobox dot com>
+;; Copyright (C) 2008, 2010, 2011, 2012, 2014 Andy Wingo <wingo at pobox dot com>
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
@@ -196,10 +196,11 @@
         (comment_status . ,(if comments-open? "open" "closed"))
         (timestamp . ,timestamp)
         (name . ,name)
-        (key . ,(uri-encode
-                 (string-append (date->string (timestamp->date timestamp)
-                                              "~Y/~m/~d/")
-                                (uri-encode name))))))))
+        (key . ,(string-downcase
+                 (uri-encode
+                  (string-append (date->string (timestamp->date timestamp)
+                                               "~Y/~m/~d/")
+                                 (uri-encode name)))))))))
 
 (define (make-new-post post-data)
   (munge-post #f (parse-post-data post-data)))