fix: need to respect clear-search-mode? option

src/main/frontend/handler/search.cljs

@@ -37,7 +37,7 @@
    (let [m {:search/result nil
             :search/q ""}]
      (swap! state/state merge m))
-   (when-not (= (state/get-search-mode) :graph)
+   (when (and clear-search-mode? (not= (state/get-search-mode) :graph))
      (state/set-search-mode! :global))
    (when-let [input (gdom/getElement "search-field")]
      (gobj/set input "value" ""))))