(in-package :murja.view.admin.components.log)
(defun log-group (group-log)
(destructuring-bind (group . log) group-log
(with-html
(let* ((name (gethash "name" group)))
;;(alarmy (gethash "alarmy" group))
(:li (:details
(:summary ("~a (~d)" name (length log)))
(dolist (line log)
(:p line))))))))