diff options
author | Matth?us G. Chajdas <dev@anteru.net> | 2019-11-10 13:56:53 +0100 |
---|---|---|
committer | Matth?us G. Chajdas <dev@anteru.net> | 2019-11-10 13:56:53 +0100 |
commit | 1dd3124a9770e11b6684e5dd1e6bc15a0aa3bc67 (patch) | |
tree | 87a171383266dd1f64196589af081bc2f8e497c3 /tests/examplefiles/core.cljs | |
parent | f1c080e184dc1bbc36eaa7cd729ff3a499de568a (diff) | |
download | pygments-master.tar.gz |
Diffstat (limited to 'tests/examplefiles/core.cljs')
-rw-r--r-- | tests/examplefiles/core.cljs | 52 |
1 files changed, 0 insertions, 52 deletions
diff --git a/tests/examplefiles/core.cljs b/tests/examplefiles/core.cljs deleted file mode 100644 index f135b832..00000000 --- a/tests/examplefiles/core.cljs +++ /dev/null @@ -1,52 +0,0 @@ - -(ns bounder.core - (:require [bounder.html :as html] - [domina :refer [value set-value! single-node]] - [domina.css :refer [sel]] - [lowline.functions :refer [debounce]] - [enfocus.core :refer [at]] - [cljs.reader :as reader] - [clojure.string :as s]) - (:require-macros [enfocus.macros :as em])) - -(def filter-input - (single-node - (sel ".search input"))) - -(defn project-matches [query project] - (let [words (cons (:name project) - (map name (:categories project))) - to-match (->> words - (s/join "") - (s/lower-case))] - (<= 0 (.indexOf to-match (s/lower-case query))))) - -(defn apply-filter-for [projects] - (let [query (value filter-input)] - (html/render-projects - (filter (partial project-matches query) - projects)))) - -(defn filter-category [projects evt] - (let [target (.-currentTarget evt)] - (set-value! filter-input - (.-innerHTML target)) - (apply-filter-for projects))) - -(defn init-listeners [projects] - (at js/document - ["input"] (em/listen - :keyup - (debounce - (partial apply-filter-for projects) - 500)) - [".category-links li"] (em/listen - :click - (partial filter-category projects)))) - -(defn init [projects-edn] - (let [projects (reader/read-string projects-edn)] - (init-listeners projects) - (html/render-projects projects) - (html/loaded))) - |