59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
+
+
+
-
+
|
;; (map (lambda (target-var)
;; (s:div 'class "col_1" (s:input 'type "checkbox" 'name "row-or-col" 'value target-var
;; ;; this silly trick preserves the checkmark
;; (if (member target-var row-or-col) 'checked "")
;; "")))
;; all-parts))
))
(s:br)
(s:p " Result Format: total / pass / fail / other")
(s:fieldset
(conc "Runs data for " tfilter)
;;
;; A very basic display
;;
(let* ((a-keys (sort (hash-table-keys ordered-data) string>=?))
(let* ((a-keys (sort (hash-table-keys ordered-data) string>=?))
(b-keys (delete-duplicates(sort (apply
append
(map (lambda (sub-key)
(let ((subdat (hash-table-ref ordered-data sub-key)))
(hash-table-keys subdat)))
a-keys))
string>=?))))
|