simon/smeagol
1
0
Fork 0
mirror of https://github.com/journeyman-cc/smeagol.git synced 2026-04-12 18:05:06 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

A bit styling

Browse source
This commit is contained in:
Vlad Bokov 2019-02-08 14:42:50 +07:00
parent 3f4380c8f5
commit 1af3f5010d
No known key found for this signature in database
GPG key ID: 4D88DD3A10EA1D63
2 changed files with 18 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

16
resources/public/content/stylesheet.css
View file

@ -507,3 +507,19 @@ th {
display: none; display: none;
} }
} }
.test-result {
color: #ffffff;
}
.test-result.ok {
background-color: #2aa876
}
.test-result.failure {
background-color: #e8554e;
}
.test-result.error {
background-color: #e8554e;
}

4
src/smeagol/test.clj
View file

@ -53,6 +53,6 @@
(defn process [^String text ^Integer index] (defn process [^String text ^Integer index]
(let [{:keys [error] :as params} (parse text)] (let [{:keys [error] :as params} (parse text)]
(if error (if error
(str "<pre class=\"error\">" (pr-str params) "</pre><pre>" text "</pre>") (str "<pre class=\"test-result error\">" (pr-str params) "</pre><pre>" text "</pre>")
(let [{:keys [result] :as test-result} (do-test params)] (let [{:keys [result] :as test-result} (do-test params)]
(str "<pre class=\"" (name result) "\">" (pr-str test-result) "</pre><pre>" text "</pre>"))))) (str "<pre class=\"test-result " (name result) "\">" (pr-str test-result) "</pre><pre>" text "</pre>")))))