Add classes to sidebar sections

Closes #450
r-lib · Mar 20, 2018 · c39c7ec · c39c7ec
1 parent c95c365
commit c39c7ec
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 5 deletions.
diff --git a/R/build-home-index.R b/R/build-home-index.R
@@ -87,15 +87,17 @@ data_home_sidebar_links <- function(pkg = ".") {
   sidebar_section("Links", links)
 }
 
-sidebar_section <- function(heading, bullets) {
+sidebar_section <- function(heading, bullets, class = make_slug(heading)) {
   if (length(bullets) == 0)
     return(character())
 
   paste0(
-    "<h2>", heading, "</h2>",
+    "<div class='", class, "'>\n",
+    "<h2>", heading, "</h2>\n",
     "<ul class='list-unstyled'>\n",
     paste0("<li>", bullets, "</li>\n", collapse = ""),
-    "</ul>\n"
+    "</ul>\n",
+    "</div>\n"
   )
 }
 

diff --git a/docs/index.html b/docs/index.html