33 lines
871 B
Clojure
33 lines
871 B
Clojure
|
(ns portal.e2e
|
||
|
|
(:require [portal.colors :as c]))
|
||
|
|
|
||
|
|
(defn step [code]
|
||
|
|
(binding [*out* *err*]
|
||
|
|
(println "\n==> Enter to execute:" code "\n"))
|
||
|
|
(read-line)
|
||
|
|
(prn code))
|
||
|
|
|
||
|
|
(def pane-titles '("Alice" "Mad Hatter" "The Cake is a Lie"))
|
||
|
|
|
||
|
|
(defn options []
|
||
|
|
{:portal.colors/theme
|
||
|
|
(rand-nth (keys (dissoc c/themes ::c/vs-code-embedded)))
|
||
|
|
:portal.launcher/window-title
|
||
|
|
(rand-nth pane-titles)})
|
||
|
|
|
||
|
|
(defn -main [& args]
|
||
|
|
(if (= (first args) "web")
|
||
|
|
(step '(require '[portal.web :as p]))
|
||
|
|
(step '(require '[portal.api :as p])))
|
||
|
|
(step `(do (add-tap #'p/submit)
|
||
|
|
(p/open ~(options))))
|
||
|
|
(step '(tap> :hello-world))
|
||
|
|
(step '(p/clear))
|
||
|
|
(step '(require '[examples.data :refer [data]]))
|
||
|
|
(step '(tap> data))
|
||
|
|
(step '(p/clear))
|
||
|
|
(step '(remove-tap #'p/submit))
|
||
|
|
(step '(tap> :hello-world))
|
||
|
|
(step '(p/eval-str "(js/alert 1)"))
|
||
|
|
(step '(p/close)))
|