Some user interface improvements

Close control on popup, progress bar when recording.
This commit is contained in:
Simon Brooke 2022-09-18 18:27:53 +01:00
parent 950eec5fed
commit 353e37cff5
No known key found for this signature in database
GPG key ID: A7A4F18D1D4DF987
4 changed files with 112 additions and 14 deletions

View file

@ -4,7 +4,7 @@
(:require [hiccup.core :refer [html]]
[clojure.java.io :refer [input-stream]]
[clojure.string :as s])
(:import [java.io StringWriter PrintWriter]
(:import [java.io StringWriter]
[java.util Properties]
[org.w3c.tidy Tidy]))
@ -192,16 +192,20 @@
[:body {:id "body"}
[:div {:id "popup"
:style "display: none; border: thin solid gray; width: 10%"}
[:div {:id "closebox"
:onclick "$('#popup').hide();"} "✖"]
[:p {:id "character" :style "text-align: center; margin: 0; font-size: 4em;"} "?"]
[:table {:id "controls" :summary "Controls for audio playback and recording"}
[:tr
[:th "Tutor"]
[:td [:button {:id "play-tutor"}
[:td [:span {:id "play-tutor"}
"►"]]]
[:tr
[:th "You"]
[:td [:button {:id "play-student"} "►"]]
[:td [:button {:id "record-stop"} "⏺"]]]]]
[:td [:span {:id "play-student"} "►"]]
[:td [:span {:id "record-stop"} "⏺"]]]
[:tr
[:td {:colspan 3 :id "progress"}]]]]
[:h1 (str title)]
[:button {:onclick "var l = document.getElementById('long');
var s = document.getElementById('short');
@ -211,7 +215,8 @@
} else {
l.style.display = 'none';
s.style.display = 'block';
}"} "Toggle short/long"]
}
$('#popup').hide();"} "Toggle short/long"]
[:div {:id "long"
:style "display: block;"}
[:h2 "Long forms"]