diff of 07bef3b7f4f89275a0a3feea5f60fc7dbf96cc83

07bef3b7f4f89275a0a3feea5f60fc7dbf96cc83
diff --git a/src/view/admin/logs.lisp b/src/view/admin/logs.lisp
index 35b0fa8..e48d14f 100644
--- a/src/view/admin/logs.lisp
+++ b/src/view/admin/logs.lisp
@@ -23,9 +23,12 @@
 
 (deftab blog/logs (:url "/logs"
 		   :title "Logs"
+		   :params (&get ungroup)
+		   :captured-url-params (ungroup)
 		   :require-login t
 		   :needed-abilities ("update-settings"))
-  (let* ((groups (get-groups))
+  (let* ((groups (unless ungroup
+		   (get-groups)))
 	 (whole-log (get-logs))
 	 (groups-with-logs (alexandria:hash-table-alist
 			    (reduce 
@@ -50,6 +53,12 @@
 					  whole-log)))
 
 	 (groups-with-logs (cons untitled-group groups-with-logs)))
+    (:a :href (str:replace-all "?ungroup=NIL" ""
+			       (format nil "/blog/logs?ungroup=~a" (not ungroup)))
+			       
+	 (if ungroup
+	     "Show grouped logs"
+	     "Ungroup logs"))
     (:h* ("Groups (~d)" (length groups-with-logs)))
     (:ul 
      (dolist (group-log groups-with-logs)