<commit_before>(ns text-stream.templates
  (:require [hiccup.core :refer :all]
            [hiccup.page :as page]
            [hiccup.element :refer :all]
            [clojure.java.io :as io]
            [compojure.response :refer [Renderable render]]))

(defn response-default
  ([body] (response-default body {}))
  ([body options]
   (merge {:headers {"Content-Type" "text/html"}
           :status 200
           :body body} options)))

(defn view-stream
  [sid title]
  (page/html5
   [:head
    (javascript-tag (str "var sid = " sid ";"))
    (page/include-css "/view-stream.css" "/main.css")
    [:title (str "Viewing " title)]]
   [:body
    [:div#controls
     [:ul
      [:li [:h1#title title]]]]
    [:pre#stream.content
     [:span.cursor " "]]
    (page/include-js "/utils.js" "/view-stream.js")]))

(defn new-stream []
  (page/html5
   [:head
    (page/include-css "/view-stream.css" "/main.css")
    [:title "Streaming..."]]
   [:body
    [:div#controls
     [:ul
      [:li [:a#share.left]]
      [:li [:h1#title "Untitled Stream"]]
      [:li [:a#titleset.right {:href "#"} "Set Title"]]]]
    [:pre#stream.content
     [:span.cursor "Type Here"]]
    (page/include-js "/utils.js" "/make-stream.js")]))x

(def page-count 15)

(defn home [streams page]
  (page/html5
   [:head
    (page/include-css "/main.css")
    [:title "text-stream"]]
   [:body
    [:div#controls
     [:ul
      [:li [:h1#title "text-stream"]]
      [:li [:a.right {:href "/new"} "New Stream"]]]]<commit_msg>fixing typo<commit_after>(ns text-stream.templates
  (:require [hiccup.core :refer :all]
            [hiccup.page :as page]
            [hiccup.element :refer :all]
            [clojure.java.io :as io]
            [compojure.response :refer [Renderable render]]))

(defn response-default
  ([body] (response-default body {}))
  ([body options]
   (merge {:headers {"Content-Type" "text/html"}
           :status 200
           :body body} options)))

(defn view-stream
  [sid title]
  (page/html5
   [:head
    (javascript-tag (str "var sid = " sid ";"))
    (page/include-css "/view-stream.css" "/main.css")
    [:title (str "Viewing " title)]]
   [:body
    [:div#controls
     [:ul
      [:li [:h1#title title]]]]
    [:pre#stream.content
     [:span.cursor " "]]
    (page/include-js "/utils.js" "/view-stream.js")]))

(defn new-stream []
  (page/html5
   [:head
    (page/include-css "/view-stream.css" "/main.css")
    [:title "Streaming..."]]
   [:body
    [:div#controls
     [:ul
      [:li [:a#share.left]]
      [:li [:h1#title "Untitled Stream"]]
      [:li [:a#titleset.right {:href "#"} "Set Title"]]]]
    [:pre#stream.content
     [:span.cursor "Type Here"]]
    (page/include-js "/utils.js" "/make-stream.js")]))

(def page-count 15)

(defn home [streams page]
  (page/html5
   [:head
    (page/include-css "/main.css")
    [:title "text-stream"]]
   [:body
    [:div#controls
     [:ul
      [:li [:h1#title "text-stream"]]
      [:li [:a.right {:href "/new"} "New Stream"]]]]
{'fraction_non_alphanumeric': 0.20528251420929455, 'fraction_numerical': 0.007355399531929121, 'mean_word_length': 2.5704057279236276, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, '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': '218559', 'n_tokens_mistral': 1152, 'n_tokens_neox': 1084, 'n_words': 238}