Fix #84: sort tags by post count

borkdude · Dec 27, 2023 · 5ed5519 · 5ed5519
1 parent 5bfa6bc
commit 5ed5519
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/src/quickblog/api.clj b/src/quickblog/api.clj
@@ -271,7 +271,7 @@
         posts-by-tag (lib/posts-by-tag posts)
         tags-file (fs/file tags-out-dir "index.html")
         template (base-html opts)]
-    (when (or (not (empty? modified-tags))
+    (when (or (seq modified-tags)
               (not (fs/exists? tags-file)))
       (lib/write-page! opts tags-file template
                        {:skip-archive true

diff --git a/src/quickblog/internal.clj b/src/quickblog/internal.clj
@@ -356,7 +356,6 @@
                {})))
 
 (defn- load-favicon [{:keys [favicon
-                             favicon-dir
                              templates-dir]
                       :as opts}]
   (when favicon
@@ -381,7 +380,7 @@
                                      :tag tag
                                      :count (count posts)}) tags)]
     (selmer/render (slurp tags-template) {:title title
-                                          :tags tags})))
+                                          :tags (sort-by (comp - :count) tags)})))
 
 (defn render-page [opts template template-vars]
   (let [template-vars (merge opts template-vars)