diff options
Diffstat (limited to 'tekuti/page-helpers.scm')
-rw-r--r-- | tekuti/page-helpers.scm | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/tekuti/page-helpers.scm b/tekuti/page-helpers.scm index eb946a1..4b4c7ff 100644 --- a/tekuti/page-helpers.scm +++ b/tekuti/page-helpers.scm @@ -1,5 +1,5 @@ ;; Tekuti -;; Copyright (C) 2008, 2010 Andy Wingo <wingo at pobox dot com> +;; Copyright (C) 2008, 2010, 2012 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 @@ -41,7 +41,6 @@ #:export (respond relurl rellink post-url - published-posts post-editing-form sidebar-ul top-tags tag-cloud main-sidebar post-sidebar related-tag-cloud @@ -151,12 +150,6 @@ (relative-path-link *public-path-base* path-components text #:query query #:fragment fragment)) -(define (published-posts index n) - (filter-mapn (lambda (post) - (and (post-published? post) post)) - (assq-ref index 'posts) - n)) - (define (post-editing-form post) `(div (form (@ (method "POST") @@ -371,7 +364,7 @@ (git "grep" "-l" "-F" string master "--" "*/content")) "") ":(.+)/content$" (_ key) - (post-from-key master key))) + (post-from-key index key))) post-timestamp >))) |