<commit_before>(ns greenhouse.fx
  (:require
    [garden.core :refer [css]]
    [garden.stylesheet :refer [at-media]]
    [garden.units :as u :refer [px pt em percent]]
    [garden.color :as color :refer [hsl rgb]]
    [greenhouse.grid :refer [direction->side opposite-side]]))

(defn rounded
  [& {:keys [radius top-left top-right bottom-right bottom-left]
      :or {top-left 0 top-right 0 bottom-right 0 bottom-left 0}}]
  (println "rounded radius: " radius)
  (list
    (if (pos? radius)
      {:-webkit-border-radius (px radius)
       :-moz-border-radius (px radius)
       :border-radius (px radius)}
      {:-webkit-border-top-right-radius (px top-right)
       :-webkit-border-bottom-right-radius (px bottom-right)
       :-webkit-border-bottom-left-radius (px bottom-left)
       :-webkit-border-top-left-radius (px top-left)
       :-moz-border-radius-topright (px top-right)
       :-moz-border-radius-bottomright (px bottom-right)
       :-moz-border-radius-bottomleft (px bottom-left)
       :-moz-border-radius-topleft (px top-left)
       :border-top-right-radius (px top-right)
       :border-bottom-right-radius (px bottom-right)
       :border-bottom-left-radius (px bottom-left)
       :border-top-left-radius (px top-left)
       ;:.background-clip(padding-box)
       })))

(defn border-side
  [side]
  (println "SIDE: " side)
  (keyword (str "border-" (name side))))

(def orthogonal
  {:right [:top :bottom]
   :left [:top :bottom]
   :bottom [:left :right]
   :top [:left :right]})

(defn arrow
  [& {:keys [direction size color]
      :or {direction :right size 10 color :black}}]
  (let [opposite (opposite-side direction)
        [a b] (orthogonal direction)]
    (list
      {:width 0
       :height 0
       (border-side opposite) [[(px size) :solid color]]
       (border-side a) [[(px size) :solid :transparent]]
       (border-side b) [[(px size) :solid :transparent]]})))<commit_msg>removing print statemetns<commit_after>(ns greenhouse.fx
  (:require
    [garden.core :refer [css]]
    [garden.stylesheet :refer [at-media]]
    [garden.units :as u :refer [px pt em percent]]
    [garden.color :as color :refer [hsl rgb]]
    [greenhouse.grid :refer [direction->side opposite-side]]))

(defn rounded
  [& {:keys [radius top-left top-right bottom-right bottom-left]
      :or {top-left 0 top-right 0 bottom-right 0 bottom-left 0}}]
  (list
    (if (pos? radius)
      {:-webkit-border-radius (px radius)
       :-moz-border-radius (px radius)
       :border-radius (px radius)}
      {:-webkit-border-top-right-radius (px top-right)
       :-webkit-border-bottom-right-radius (px bottom-right)
       :-webkit-border-bottom-left-radius (px bottom-left)
       :-webkit-border-top-left-radius (px top-left)
       :-moz-border-radius-topright (px top-right)
       :-moz-border-radius-bottomright (px bottom-right)
       :-moz-border-radius-bottomleft (px bottom-left)
       :-moz-border-radius-topleft (px top-left)
       :border-top-right-radius (px top-right)
       :border-bottom-right-radius (px bottom-right)
       :border-bottom-left-radius (px bottom-left)
       :border-top-left-radius (px top-left)
       ;:.background-clip(padding-box)
       })))

(defn border-side
  [side]
  (keyword (str "border-" (name side))))

(def orthogonal
  {:right [:top :bottom]
   :left [:top :bottom]
   :bottom [:left :right]
   :top [:left :right]})

(defn arrow
  [& {:keys [direction size color]
      :or {direction :right size 10 color :black}}]
  (let [opposite (opposite-side direction)
        [a b] (orthogonal direction)]
    (list
      {:width 0
       :height 0
       (border-side opposite) [[(px size) :solid color]]
       (border-side a) [[(px size) :solid :transparent]]
       (border-side b) [[(px size) :solid :transparent]]})))
{'fraction_non_alphanumeric': 0.16023268112109995, 'fraction_numerical': 0.004230565838180857, 'mean_word_length': 2.8523421588594706, 'pattern_counts': {'":': 0, '<': 3, '<?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': '782534', 'n_tokens_mistral': 1325, 'n_tokens_neox': 1272, 'n_words': 328}