docy md routing query-params

demo/resources/docy/super-large-directory-to-test-ui-for-real/rock.md

@@ -0,0 +1 @@
+# I love rock n roll!

resources/ext/docy.edn

@@ -4,7 +4,7 @@
  :cljs-routes {"docy" {"" docy.page/docy-page
                        ["/ns/" :nss] docy.page/docy-ns-page
                        ["/ns/" :nss "/" :fun] docy.page/docy-fun-page
-                       ["/md/" :md] docy.markdown/docy-markdown-page
+                       ["/md"] docy.markdown/docy-markdown-page
                        }}
 
 ;

src/docy/markdown.cljs

@@ -25,8 +25,8 @@
      @md-hiccup-a]))
 
 (defn docy-markdown-page [{:keys [route-params] :as route}]
-  (fn [{:keys [route-params] :as route}]
-    (let [{:keys [md]} route-params]
+  (fn [{:keys [query-params] :as route}]
+    (let [{:keys [md]} query-params]
       [:div.p-5
        [:h1.text-xxl.text-blue-800 "MD: " (str md)]
        [md-ui md]])))

src/docy/page.cljs

@@ -105,18 +105,13 @@
 ;; markdown
 
 (defn md-entry [md-name]
-  [:li {:style {:width "100px"
-                :min-width "100px"}}
-   [link {:to ['docy.markdown/docy-markdown-page :md md-name]}
-    [:span {:style {:width "100px"
-                    :min-width "100px"}
-            :class "w-64"}
-     (str md-name)]]])
+  [link {:to ['docy.markdown/docy-markdown-page :query-params {:md md-name}]}
+   [:div.p-1.bg-blue-300.hover:bg-red-300
+    (str md-name)]])
 
 (defn markdown-list [markdown-names]
   (let [markdown-names (sort markdown-names)]
-    (into [:ul {:style {:width "100px"
-                        :min-width "100px"}}]
+    (into [:div.grid.grid-cols-3.w-full]
           (map md-entry markdown-names))))
 
 (defn docy-page [_route]

src/docy/util.cljs

@@ -6,7 +6,7 @@
 ;; links
 
 (defn link [{:keys [to class style] :as opts
-             :or {class "bg-blue-600 cursor-pointer hover:bg-red-700 m-1"
+             :or {class "cursor-pointer hover:bg-red-700 m-1"
                   style {}}} & body]
   (let [v (->> (concat [:bidi/goto] to)
                (into []))