fix clear for enlarge view

Termina · Apr 17, 2024 · 4bbca61 · 4bbca61
1 parent b61868d
commit 4bbca61
Show file tree

Hide file tree

Showing 2 changed files with 35 additions and 7 deletions.
diff --git a/calcit.cirru b/calcit.cirru
diff --git a/compact.cirru b/compact.cirru
@@ -67,7 +67,11 @@
                   .-metaKey event
                 case-default (-> @*store :router :name)
                   do $ println "\"no thing to clear in" (-> @*store :router :name)
-                  :home $ dispatch! (:: :process/clear)
+                  :home $ do
+                    dispatch! $ :: :process/clear
+                    if-let
+                      enlarge-view $ -> @*store :session w-js-log :enlarge-view
+                      dispatch! $ :: :process/shorten-content enlarge-view
                   :history $ dispatch! (:: :process/clear-history)
                   :process $ dispatch!
                     :: :process/shorten-content $ -> @*store :router :params :id