word/quiz: common base class for all subpages
[sheet.git] / word / multichoice.plp
1 <(../common.inc.plp)><:
2
3 our $wordlistbase;
4
5 Html({
6         raw => <<'EOT',
7 <script src="/word/put.min.js"></script>
8 <script src="/word/quiz.js"></script>
9 <script src="/word/multichoice.js"></script>
10 <style>
11 img {
12         width: 90vw;
13         max-width: 64em;
14         margin: 2em 0 1ex;
15 }
16 li {
17         font-size: 20pt;
18         padding: .2ex;
19 }
20 li:hover {
21         cursor: pointer;
22         background: #8888;
23 }
24 li.wrong {background: #F008}
25 li.good {background: #0F08}
26 </style>
27 EOT
28 });
29
30 say '<h1 id=quiz>quiz</h1>';
31 say "<script>new WordMultiChoice('/$wordlistbase.json')</script>";