    [:div.ui.dropdown.icon.label.filter-btn
     (if active-col-filter
       (if (= (:filter-cond active-col-filter) :gt) ">" "<")
-      [:i.filter.icon])
+
+;;       [:i.icons
+;;        [:i.filter.icon]
+;;        [:i.corner.pin.icon {:style {:font-size ".6em"}}]]
+      [:i.filter.icon]
+
+      )
     [:div.menu
      [:div.item {:class (if (= (:filter-cond active-col-filter) :gt) "active" "")
                  :on-click #(click-gt-filter column active-col-filter)}

  )


(defn change-col-filter-search-str
  [column value]
  (println "change-col-filter-search-str " value)
  (swap! (rum/cursor-in app-state [:active-col-filters])
         #(assoc-in % [(:index column) :search-str] value))
;;   (println @(rum/cursor-in app-state [:active-col-filters]))
  )


(defn show-filter-popup
  "Показать контекстное меню для добавления записи в категорию"
  [evt]
  (do
    (println "show-filter-popup!")
    (let [top-offset (-> (.-target evt)

  (reset! (app-cursor :show-text-filter?) false))


(defn click-select-all-checkbox
  "Клик по 'выбрать все' чекбоксу"
  []
  (let [select-all-checkbox @(app-cursor :select-all-checkbox)
        checkboxes @(app-cursor :current-filter-checkboxes)
        toggle-all-to (fn [check?]
                        (do
                          (swap! (app-cursor :select-all-checkbox)
                                 #(-> %
                                      (assoc :checked? check?)
                                      (assoc :indeterminate? false)))
                          (swap! (app-cursor :current-filter-checkboxes)
                                 #(into [] (map (fn[chm](assoc chm :checked? check?)) %)))))]
    (toggle-all-to (not (:checked? select-all-checkbox)))))



(defn click-filter-checkbox
  "Клик по чекбоксу из списка"
  [checkbox]
  ;; находим в списке и меняем щелкнутый чекбокс
  (swap! (app-cursor :current-filter-checkboxes)
         #(assoc-in % [(:index checkbox) :checked?] (not (:checked? checkbox))))
  ;; после этого делаем остальные проверки
  (let [checkboxes @(app-cursor :current-filter-checkboxes)]
    ;; если все выделены
    (when-not (some #(not (:checked? %)) checkboxes)
      (swap! (app-cursor :select-all-checkbox) #(-> %
                                                    (assoc :checked? true)
                                                    (assoc :indeterminate? false))))
    ;; если все отключены
    (when-not (some #(:checked? %) checkboxes)
      (swap! (app-cursor :select-all-checkbox) #(-> %
                                                    (assoc :checked? false)
                                                    (assoc :indeterminate? false))))
    ;; если часть включены, а часть нет
    (when (and (some #(:checked? %) checkboxes)
               (some #(not (:checked? %)) checkboxes))
      (swap! (app-cursor :select-all-checkbox) #(assoc % :indeterminate? true)))
    ))



;; (defn show-filter-popup
;;   [evt]
