simon/swingbox-clj
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added unit tests

Browse source
This commit is contained in:
Simon Brooke 2019-06-15 14:18:56 +01:00
parent d71cc7a121
commit c85093d6ac
3 changed files with 50 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/swingbox_clj/core.clj
View file

@ -44,7 +44,8 @@
* literally anything else.
Returns the `window`."
[window content]
(if (window? window)
(if
(window? window)
(let [browser (:browser window)
url (try (.toURL (URI/create (str content))) (catch Exception _ nil))
html (try (html content) (catch Exception _ nil))]
@ -58,14 +59,16 @@
java.lang.String (.setText browser content)
clojure.lang.PersistentVector (.setText browser (html content))
java.io.File (.setPage browser (.toURL content))
(.setText browser (str content))))
window)))
(.setText browser (str content))))))
window)
(defn set-content-markdown
"Set the content of this `window` to the markdown read from this `filename`.
Return the `window`."
[window filename]
(set-content window (md/md-to-html-string (slurp filename)))
(if
(window? window)
(set-content window (md/md-to-html-string (slurp filename))))
window)
(defn set-visible
@ -87,5 +90,3 @@
[title content]
(set-visible (set-content (create-window title) content)))