add indentation to bulleted list

LiNk-NY · LiNk-NY · commit 7d0e7e199e6e · 2026-04-10T14:10:07.000-04:00
diff --git a/R/Message-class.R b/R/Message-class.R
@@ -81,9 +81,12 @@ cli_note <- function(...) {
                 clifun(
                     head(unlist(alerttitle, use.names = FALSE), 1L)
                 )
+                id <- cli::cli_div(theme = list(div = list("margin-left" = 2L)))
                 if (identical(length(comps), 3L))
                     cli::cli_text(unlist(alerttitle, use.names = FALSE)[2L])
-                cli::cli_bullets(dotlist)
+                for (item in dotlist)
+                    cli::cli_li(item)
+                cli::cli_end(id)
             }
             .self$msg
         },

Original file line number	Diff line number	Diff line change
`@@ -81,9 +81,12 @@ cli_note <- function(...) {`
`81`	`81`	`clifun(`
`82`	`82`	`head(unlist(alerttitle, use.names = FALSE), 1L)`
`83`	`83`	`)`
	`84`	`+ id <- cli::cli_div(theme = list(div = list("margin-left" = 2L)))`
`84`	`85`	`if (identical(length(comps), 3L))`
`85`	`86`	`cli::cli_text(unlist(alerttitle, use.names = FALSE)[2L])`
`86`		`- cli::cli_bullets(dotlist)`
	`87`	`+ for (item in dotlist)`
	`88`	`+ cli::cli_li(item)`
	`89`	`+ cli::cli_end(id)`
`87`	`90`	`}`
`88`	`91`	`.self$msg`
`89`	`92`	`},`