diff options
| author |  Aleix Conchillo Flaque | 2011-01-14 10:25:47 +0100 |
|---|---|---|
| committer |  Andy Wingo | 2011-02-18 23:36:10 +0100 |
| commit | 800e7d9a05bb33d711ce3c39e83886ec548209c9 (patch) | |
| tree | 0c248ef299040b3cd6918ad250f0c3a2e7cfcd59 /tekuti | |
| parent | fce14fbddf1fd20c3cba56171fd52b6465e44441 (diff) | |
| download | tekuti-800e7d9a05bb33d711ce3c39e83886ec548209c9.tar.gz tekuti-800e7d9a05bb33d711ce3c39e83886ec548209c9.zip | |
do not remove numbers and s/./-/ in post keys
Diffstat (limited to 'tekuti')
| -rw-r--r-- | tekuti/post.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tekuti/post.scm b/tekuti/post.scm index dd54f93..d280ac2 100644 --- a/tekuti/post.scm +++ b/tekuti/post.scm @@ -164,8 +164,8 @@ 5) key #t)))) -(define space-to-dash (s///g " " "-")) -(define remove-extraneous (s///g "[^a-z-]+" "")) +(define space-to-dash (s///g "[ .]" "-")) +(define remove-extraneous (s///g "[^a-z0-9-]+" "")) (define collapse (s///g "-+" "-")) (define (title->name title) |