only index tags of published posts

* tekuti/tags.scm (reindex-tags): Only index published posts.

1 files 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))))