From df46e401bd3dac1162cace8e9259ddaba02d5332 Mon Sep 17 00:00:00 2001
From: gabrielgio <gabriel.giovanini@pm.me>
Date: Fri, 25 Mar 2022 16:24:46 +0100
Subject: ref: Remove all clojure related Files

Making room for wasm project.
---
 src/genpass/core.cljs | 43 -------------------------------------------
 src/genpass/gen.cljc  | 17 -----------------
 2 files changed, 60 deletions(-)
 delete mode 100644 src/genpass/core.cljs
 delete mode 100644 src/genpass/gen.cljc

(limited to 'src')

diff --git a/src/genpass/core.cljs b/src/genpass/core.cljs
deleted file mode 100644
index f0ca298..0000000
--- a/src/genpass/core.cljs
+++ /dev/null
@@ -1,43 +0,0 @@
-(ns genpass.core
-  (:require
-    [reagent.core :as r]
-    [genpass.gen :refer [genpwd]]))
-
-(def password (r/atom (genpwd)))
-
-(defn magic-selection-trick-took-from-so [e]
-  (let [this (.-target e)]
-    (if (and (.getSelection js/window) (.createRange js/document))
-      (let [selection (.getSelection js/window)
-            range (.createRange js/document)]
-        (.selectNodeContents range this)
-        (.removeAllRanges selection)
-        (.addRange selection range))
-      (if (and (.-selection js/document) (-> js/document .-body .createTextRange))
-        (let [range (-> js/document .-body .createTextRange)]
-          (.moveToElementText range this)
-          (.select range))))))
-
-
-(defn home-page []
-  [:div
-   [:nav.navbar
-    {:role       "navigation"
-     :aria-label "main navigation"}
-    [:div.navbar-brand>a.navbar-item>h1
-     [:a {:href "https://gitlab.com/gabrielgio/genpass"} "Genpass source code"]]]
-   [:div.section.container
-    [:div.field.has-text-centered
-     [:span.title.is-3 {:on-click magic-selection-trick-took-from-so} @password]]
-    [:div.field.is-grouped.is-grouped-centered
-     [:div.control
-      [:input.button.is-primary
-       {:value    "Generate"
-        :type     "button"
-        :on-click #(reset! password (genpwd))}]]]]])
-
-(defn mount-root []
-  (r/render [home-page] (.getElementById js/document "app")))
-
-(defn init! []
-  (mount-root))
diff --git a/src/genpass/gen.cljc b/src/genpass/gen.cljc
deleted file mode 100644
index 12dbc2f..0000000
--- a/src/genpass/gen.cljc
+++ /dev/null
@@ -1,17 +0,0 @@
-(ns genpass.gen)
-
-(def low-case [\a \b \c \d \e \f \g \h \i \j \k \l \m \n \o \p \q \r \s \t \u \v \W \x \Y \z])
-(def upper-case [\A \B \C \D \E \F \G \H \I \J \K \L \M \N \O \P \Q \R \S \T \U \V \W \X \Y \Z])
-(def number [\0 \1 \2 \3 \4 \5 \6 \7 \8 \9])
-(def special-char [\! \@ \# \% \^ \& \* \( \) \{ \} \[ \] \- \+ \= \~])
-(def all-char (concat low-case upper-case number special-char))
-
-(defn rand-char []
-  (nth all-char (rand-int (dec (count all-char)))))
-
-(defn genpwd
-  ([] (genpwd 12))
-  ([length]
-   (->> (range length)
-        (map (fn [_] (rand-char)))
-        (apply str))))
\ No newline at end of file
-- 
cgit v1.2.3