Facets

css/keymapper.css

@@ -24,6 +24,10 @@
   max-width: 256px;
 }
 
+#keymapper h2 {
+  font-size: large;
+}
+
 #keymapper ul li .command {
   border-left: 1px solid black;
   display: inline-block;
@@ -33,3 +37,4 @@
 #keymapper ul li .command span + span {
   display: block;
 }
+

src/lt/plugins/keymapper.cljs

@@ -7,6 +7,25 @@
             [crate.binding :refer [bound]])
   (:require-macros [lt.macros :refer [defui behavior]]))
 
+
+(defn- separate [f seq]
+  [(filter f seq)
+   (filter (complement f) seq)])
+
+(def facets
+  (atom [{:name "All"
+          :matchers [#"."]}]))
+
+(defn put-items-into-facets [items facets]
+  (loop [processed [], items items
+       [{:as h :keys [matchers]} & tail :as unprocessed]
+         (->> facets (map (partial conj {:matched []}))
+                     (sort-by :eval-order))]
+  (if (empty? unprocessed) (sort-by :display-order processed)
+    (let [matcher     #(some (fn [x y] (re-find x %)) matchers) ;; TODO generic function
+          [match nope] (separate matcher items)]
+      (recur (conj processed (assoc h :matched match)) nope tail)))))
+
 (defui keymap-item [this item]
   (let [keys (first item)
         cmds (second item)]
@@ -19,13 +38,22 @@
              [:span (print-str cmd) " "])
            cmds)]]))
 
+(defui keymap-facets [this items]
+  [:div {:id "facets"}
+   (for [{:keys [name matched hide]} (put-items-into-facets items @facets)]
+     (when (not hide)
+       [:div {:class "facet"}
+      [:h2 (str name " - " (count matched))]
+      [:ul.keymapper-list (map (partial keymap-item this) matched)]]))])
+
 (defui keymap-list [this keys]
   [:ul.keymapper-list (map (partial keymap-item this) keys)])
 
 (defui keymap-panel [this]
   [:div {:id "keymapper"}
-   [:h1 "Keymapper" ]
-   [:ul.keymapper-list]])
+   [:h1 "Keymaps" ]
+   [:div {:id "facets"}
+    "loading..."]])
 
 (object/object* ::keymapper
                 :tags [:keymapper]
@@ -37,8 +65,8 @@
           :triggers #{:update!}
           :debounce 200
           :reaction (fn [this keys]
-                      (dom/replace-with (dom/$ :.keymapper-list (object/->content this))
-                                        (keymap-list this keys))))
+                      (dom/replace-with (dom/$ :div#facets (object/->content this))
+                                        (keymap-facets this keys))))
 
 (behavior ::unwatch
           :triggers #{::unwatch}
@@ -63,6 +91,14 @@
                       (object/raise this ::unwatch)
                       (tabs/rem! this)))
 
+(behavior ::set-facets!
+          :triggers #{:object.instant}
+          :desc "set facets to the provided"
+          :type :user
+          :exclusive [:lt.plugins.keymapper/set-facets!]
+          :reaction (fn [_ f]
+                      (reset! facets f)))
+
 (def keymapper (object/create ::keymapper))
 
 (cmd/command {:command :keymapper.show