Only show the dictionary tabs when the language is German

sbsdev · Oct 1, 2024 · 9c8367e · 9c8367e
1 parent dd809e1
commit 9c8367e
Showing 1 changed file with 19 additions and 12 deletions.
diff --git a/src/cljs/daisyproducer2/documents/document.cljs b/src/cljs/daisyproducer2/documents/document.cljs
@@ -20,6 +20,11 @@
  (fn [db _]
    (-> db :current-document)))
 
+(rf/reg-sub
+ ::current-is-german
+ :<- [::current]
+ (fn [current] (#{"de" "de-1901"} (-> current :language))))
+
 (rf/reg-event-db
   ::set-current
   (fn [db [_ document]]
@@ -59,18 +64,20 @@
     [:li [:a {:href uri :on-click on-click} title]]))
 
 (defn tabs [{:keys [id]}]
-  [:div.block
-   [:div.tabs.is-boxed
-    [:ul
-     [tab-link (str "#/documents/" id) (tr [:details]) :document]
-     [tab-link-with-total (str "#/documents/" id "/unknown") (tr [:unknown-words]) :document-unknown
-      (fn [_] (rf/dispatch [::unknown/fetch-words id]) (rf/dispatch [::unknown/fetch-words-total id]))]
-     [tab-link (str "#/documents/" id "/local") (tr [:local-words]) :document-local (fn [_] (rf/dispatch [::local/fetch-words id]))]
-     [tab-link (str "#/documents/" id "/versions") (tr [:versions]) :document-versions (fn [_] (rf/dispatch [::version/fetch-versions id]))]
-     [tab-link (str "#/documents/" id "/images") (tr [:images]) :document-images (fn [_] (rf/dispatch [::image/fetch-images id]))]
-     [tab-link (str "#/documents/" id "/markup") (tr [:markup]) :document-markup (fn [_] (rf/dispatch [::markup/fetch-latest-version id]))]
-     [tab-link (str "#/documents/" id "/preview") (tr [:preview]) :document-preview]
-     ]]])
+  (let [german? @(rf/subscribe [::current-is-german])]
+    [:div.block
+     [:div.tabs.is-boxed
+      [:ul
+       [tab-link (str "#/documents/" id) (tr [:details]) :document]
+       (when german?
+         [tab-link-with-total (str "#/documents/" id "/unknown") (tr [:unknown-words]) :document-unknown
+          (fn [_] (rf/dispatch [::unknown/fetch-words id]) (rf/dispatch [::unknown/fetch-words-total id]))]
+         [tab-link (str "#/documents/" id "/local") (tr [:local-words]) :document-local (fn [_] (rf/dispatch [::local/fetch-words id]))])
+       [tab-link (str "#/documents/" id "/versions") (tr [:versions]) :document-versions (fn [_] (rf/dispatch [::version/fetch-versions id]))]
+       [tab-link (str "#/documents/" id "/images") (tr [:images]) :document-images (fn [_] (rf/dispatch [::image/fetch-images id]))]
+       [tab-link (str "#/documents/" id "/markup") (tr [:markup]) :document-markup (fn [_] (rf/dispatch [::markup/fetch-latest-version id]))]
+       [tab-link (str "#/documents/" id "/preview") (tr [:preview]) :document-preview]
+       ]]]))
 
 (defn summary [{:keys [title author source-publisher state] :as document}]
   [:div.columns