From c39c7ec6a065b2a2d50a4ae17688251e3757828a Mon Sep 17 00:00:00 2001 From: hadley Date: Tue, 20 Mar 2018 14:25:49 -0500 Subject: [PATCH] Add classes to sidebar sections Closes #450 --- R/build-home-index.R | 8 +++++--- docs/index.html | 12 ++++++++++-- 2 files changed, 15 insertions(+), 5 deletions(-) diff --git a/R/build-home-index.R b/R/build-home-index.R index e4fd98983..ad63db4b9 100644 --- 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( - "

", heading, "

", + "
\n", + "

", heading, "

\n", "\n" + "\n", + "
\n" ) } diff --git a/docs/index.html b/docs/index.html index 17434c0d4..454de5ec1 100644 --- a/docs/index.html +++ b/docs/index.html @@ -142,19 +142,23 @@