From 6514c233985719c99d227501f55ab89de29af4ba Mon Sep 17 00:00:00 2001
From: Rob Wiederstein <khuon68@gmail.com>
Date: Fri, 13 Mar 2026 15:28:13 -0400
Subject: [PATCH] Make Docs subdivisions collapsible via nested   accordion

---
 R/app_ui.R | 57 ++++++++++++++++++++++++++++--------------------------
 1 file changed, 30 insertions(+), 27 deletions(-)

diff --git a/R/app_ui.R b/R/app_ui.R
index 540bf40..3f03a6b 100644
--- a/R/app_ui.R
+++ b/R/app_ui.R
@@ -245,33 +245,36 @@ create_ui <- function() {
             ),
             f7AccordionItem(
               title = "Docs",
-              f7BlockTitle("St. Andrews Park", size = "medium"),
-              f7Block(
-                f7List(
-                  inset = TRUE, dividers = TRUE, strong = TRUE, outline = FALSE,
-                  f7ListItem(title = "Covenants",       href = "docs/st_andrews/2000_01_01_st_andrews_covenants.pdf"),
-                  f7ListItem(title = "Map (unrecorded)", href = "docs/st_andrews/2004_06_23_sap_map.pdf")
-                )
-              ),
-              f7BlockTitle("Patios 2", size = "medium"),
-              f7Block(
-                f7List(
-                  inset = TRUE, dividers = TRUE, strong = TRUE, outline = FALSE,
-                  f7ListItem(title = "Plat", href = "docs/patios_2/1997_08_12_patios_2_plat.pdf")
-                )
-              ),
-              f7BlockTitle("Patios 3", size = "medium"),
-              f7Block(
-                f7List(
-                  inset = TRUE, dividers = TRUE, strong = TRUE, outline = FALSE,
-                  f7ListItem(title = "Plat", href = "docs/patios_3/1998_11_17_patios_3_plat.pdf")
-                )
-              ),
-              f7BlockTitle("Villas 2", size = "medium"),
-              f7Block(
-                f7List(
-                  inset = TRUE, dividers = TRUE, strong = TRUE, outline = FALSE,
-                  f7ListItem(title = "Plat", href = "docs/villas_2/1998_09_14_villas_2_plat.pdf")
+              f7Accordion(
+                id = "docs_accordion",
+                f7AccordionItem(
+                  title = "St. Andrews Park",
+                  f7List(
+                    inset = TRUE, dividers = TRUE, strong = TRUE, outline = FALSE,
+                    f7ListItem(title = "Covenants",        href = "docs/st_andrews/2000_01_01_st_andrews_covenants.pdf"),
+                    f7ListItem(title = "Map (unrecorded)", href = "docs/st_andrews/2004_06_23_sap_map.pdf")
+                  )
+                ),
+                f7AccordionItem(
+                  title = "Patios 2",
+                  f7List(
+                    inset = TRUE, dividers = TRUE, strong = TRUE, outline = FALSE,
+                    f7ListItem(title = "Plat", href = "docs/patios_2/1997_08_12_patios_2_plat.pdf")
+                  )
+                ),
+                f7AccordionItem(
+                  title = "Patios 3",
+                  f7List(
+                    inset = TRUE, dividers = TRUE, strong = TRUE, outline = FALSE,
+                    f7ListItem(title = "Plat", href = "docs/patios_3/1998_11_17_patios_3_plat.pdf")
+                  )
+                ),
+                f7AccordionItem(
+                  title = "Villas 2",
+                  f7List(
+                    inset = TRUE, dividers = TRUE, strong = TRUE, outline = FALSE,
+                    f7ListItem(title = "Plat", href = "docs/villas_2/1998_09_14_villas_2_plat.pdf")
+                  )
                 )
               )
             )