word/quiz: rename initial subpage to multichoice

[sheet.git] / word / multichoice.plp

diff --git a/word/multichoice.plp b/word/multichoice.plp
new file mode 100644 (file)
index 0000000..15a51e3
--- /dev/null
+++ b/word/multichoice.plp
@@ -0,0 +1,30 @@
+<(../common.inc.plp)><:
+
+our $wordlistbase;
+
+Html({
+       raw => <<'EOT',
+<script src="/word/put.min.js"></script>
+<script src="/word/multichoice.js"></script>
+<style>
+img {
+       width: 90vw;
+       max-width: 64em;
+       margin: 2em 0 1ex;
+}
+li {
+       font-size: 20pt;
+       padding: .2ex;
+}
+li:hover {
+       cursor: pointer;
+       background: #8888;
+}
+li.wrong {background: #F008}
+li.good {background: #0F08}
+</style>
+EOT
+});
+
+say '<h1 id=quiz>quiz</h1>';
+say "<script>new Quiz('/$wordlistbase.json')</script>";