clearForm sets boxes to default not always empty

make-pages/Info.hs

@@ -251,7 +251,8 @@ checkKeys mapping wanted = do
   keys <- getKeys mapping
   let unused = Set.toList $ keys \\ wanted
   unless (null unused) do
-    fail $ "unused keys: " <> show unused
+    fail $ "unused keys: " <> show unused <> "\n" <>
+           "expected: " <> show wanted
 
 
 instance FromYAML Info where

script/gallery.js

@@ -59,7 +59,7 @@ function toggle(checkbox) {
 
 
 function clearForm() {
-  allBoxes.forEach(b => b.checked = false);
+  allBoxes.forEach(b => b.checked = b.defaultChecked);
 }
 
 function clear(e) {