From aa89814afebb988746fb505951e5770553872d5c Mon Sep 17 00:00:00 2001 From: Oly Date: Wed, 21 Jun 2023 15:01:04 +0100 Subject: [PATCH] Add analytics. --- reagent-reitit-demo/resources/public/index.html | 9 +++++++++ reagent-reitit-demo/src/clojure_demo/core.cljs | 14 ++++++++------ 2 files changed, 17 insertions(+), 6 deletions(-) diff --git a/reagent-reitit-demo/resources/public/index.html b/reagent-reitit-demo/resources/public/index.html index 7ab7969..94006c3 100644 --- a/reagent-reitit-demo/resources/public/index.html +++ b/reagent-reitit-demo/resources/public/index.html @@ -84,6 +84,15 @@ right: 12px; + + + diff --git a/reagent-reitit-demo/src/clojure_demo/core.cljs b/reagent-reitit-demo/src/clojure_demo/core.cljs index cefd1cd..10d5173 100644 --- a/reagent-reitit-demo/src/clojure_demo/core.cljs +++ b/reagent-reitit-demo/src/clojure_demo/core.cljs @@ -12,7 +12,7 @@ [cl-eorg.html :as h :refer [body headers org->replacements]] [cl-eorg.parser :as o :refer [parse]] [cl-eorg.themes.tachyon :refer [tachyon-theme]] - [clojure.set :refer [rename-keys]] + [clojure.string :as str] [honey.sql :as sql] [honey.sql.helpers :as sqlh] [reagent.core :as reagent] @@ -28,6 +28,8 @@ (def languages {"clojure" {:mode "clojure"} "clojurescript" {:mode "clojure"} + "html" {:mode "html"} + "json" {:mode "json"} "yaml" {:mode "yaml"}}) (def yaml-mode (LanguageSupport. (.define StreamLanguage yaml))) @@ -64,9 +66,9 @@ (when s (str ;;"toc" (-> s - (clojure.string/lower-case) - (clojure.string/replace #"[^\w]+" "-") - (clojure.string/replace #"^-\\|-\\-$" ""))))) + (str/lower-case) + (str/replace #"[^\w]+" "-") + (str/replace #"^-\\|-\\-$" ""))))) (defn fetch-selected-text "Get the users selected text" @@ -303,7 +305,7 @@ (group-by (fn [block] (:tangle (second block)))) (reduce (fn [m [k v]] (conj m {:name (str k) - :content (str (clojure.string/join "\n\n" (mapv last v)))})) []))) + :content (str (str/join "\n\n" (mapv last v)))})) []))) (defn org->split2 "Split out meta and body" @@ -480,7 +482,7 @@ (and (ignore-anchor-click? router e el uri) (not (let [href (or (.-href el) "") - result (clojure.string/includes? href "#")] + result (str/includes? href "#")] #_(when result ;(.preventDefault e) #_(js/console.log "will prevent by href" href))