<commit_before>(ns frontend.components.landing-b
  (:require [cljs.core.async :as async :refer [>! <! alts! chan sliding-buffer close!]]
            [clojure.string :as str]
            [dommy.core :as dommy]
            [frontend.async :refer [put!]]
            [frontend.components.common :as common]
            [frontend.components.crumbs :as crumbs]
            [frontend.components.drawings :as drawings]
            [frontend.components.shared :as shared]
            [frontend.env :as env]
            [frontend.state :as state]
            [frontend.stefon :as stefon]
            [frontend.utils :as utils :include-macros true]
            [frontend.utils.github :refer [auth-url]]
            [goog.events]
            [goog.dom]
            [goog.style]
            [om.core :as om :include-macros true]
            [om.dom :as dom :include-macros true])
  (:require-macros [frontend.utils :refer [defrender html]]
                   [cljs.core.async.macros :as am :refer [go go-loop alt!]]
                   [dommy.macros :refer [sel1 node]]))

(defn maybe-set-state! [owner korks value]
  (when (not= (om/get-state owner korks) value)
    (om/set-state! owner korks value)))

(defn mount-scroll-handler [owner]
  (let [logo (om/get-node owner "center-logo")
        prolog-cta (om/get-node owner "prolog-cta")
        home-prolog (om/get-node owner "home-prolog")
        epilog-cta (om/get-node owner "epilog-cta")
        home-epilog (om/get-node owner "home-epilog")
        purpose-article (om/get-node owner "purpose-article")
        potential-article (om/get-node owner "potential-article")
        scroll-ch (om/get-state owner [:scroll-ch])<commit_msg>back to sablono html<commit_after>(ns frontend.components.landing-b
  (:require [cljs.core.async :as async :refer [>! <! alts! chan sliding-buffer close!]]
            [clojure.string :as str]
            [dommy.core :as dommy]
            [frontend.async :refer [put!]]
            [frontend.components.common :as common]
            [frontend.components.crumbs :as crumbs]
            [frontend.components.drawings :as drawings]
            [frontend.components.shared :as shared]
            [frontend.env :as env]
            [frontend.state :as state]
            [frontend.stefon :as stefon]
            [frontend.utils :as utils :include-macros true]
            [frontend.utils.github :refer [auth-url]]
            [goog.events]
            [goog.dom]
            [goog.style]
            [om.core :as om :include-macros true]
            [om.dom :as dom :include-macros true]
            [sablono.core :as html :refer-macros [html]])
  (:require-macros [frontend.utils :refer [defrender]]
                   [cljs.core.async.macros :as am :refer [go go-loop alt!]]
                   [dommy.macros :refer [sel1 node]]))

(defn maybe-set-state! [owner korks value]
  (when (not= (om/get-state owner korks) value)
    (om/set-state! owner korks value)))

(defn mount-scroll-handler [owner]
  (let [logo (om/get-node owner "center-logo")
        prolog-cta (om/get-node owner "prolog-cta")
        home-prolog (om/get-node owner "home-prolog")
        epilog-cta (om/get-node owner "epilog-cta")
        home-epilog (om/get-node owner "home-epilog")
        purpose-article (om/get-node owner "purpose-article")
        potential-article (om/get-node owner "potential-article")
        scroll-ch (om/get-state owner [:scroll-ch])
{'fraction_non_alphanumeric': 0.13536478171696456, 'fraction_numerical': 0.0005859947260474656, 'mean_word_length': 2.214689265536723, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 5, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '4493086', 'n_tokens_mistral': 1132, 'n_tokens_neox': 1121, 'n_words': 264}