From ea420f368041e26f010a7b49bb5781aaeda2b462 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Sun, 2 Mar 2008 17:14:20 +0100
Subject: [PATCH] only index tags of published posts

* tekuti/tags.scm (reindex-tags): Only index published posts.
---
 tekuti/tags.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/tekuti/tags.scm b/tekuti/tags.scm
index 6df1a0b..466805c 100644
--- a/tekuti/tags.scm
+++ b/tekuti/tags.scm
@@ -30,6 +30,7 @@
   #:use-module (tekuti config)
   #:use-module (tekuti post)
   #:use-module (tekuti git)
+  #:use-module ((srfi srfi-1) #:select (filter))
   #:export (tag-link reindex-tags))
 
 (define (tag-link tagname)
@@ -43,10 +44,10 @@
      (lambda (post)
        (for-each
         (lambda (cat)
-          (hash-push! hash cat (assq-ref post 'key)))
+          (hash-push! hash cat (post-key post)))
         (post-tags post)))
      posts)
     hash))
 
 (define (reindex-tags old-index index)
-  (compute-tags (assq-ref index 'posts)))
+  (compute-tags (filter post-published? (assq-ref index 'posts))))