Border customization (colors & padding)

[gitmoneyMSBA]

There are two features that I'm surprised don't extend to table borders (it's quite possible, and I hope! that I'm using them wrong):

1. Padding in margins so that a border doesn't take up the whole cell; an extension of opt_horizontal_padding or opt_vertical_padding.
2. Ability to use color values from another column to color borders within a specific column using the from_column function in the color argument of cell_borders.

For the color-related issue, here is what I attempted and what I recieved:

SUCCESS

exibble %>%
  gt() %>%
  cols_align(align = "center",
             columns = c("char")) %>%
  tab_style(
    style = list(
      cell_borders(
        sides = c("all"),
        color = c("purple"),
        weight = px(3)
      )
    ),
    locations = list(
      cells_body(
        columns = "char",
        rows = char == "fig"
      )
    )
  )

FAILURE

exibble %>%
  mutate(col = case_when(char == "fig" ~ "purple",
                         char == "banana" ~ "yellow",
                         TRUE ~ "white")) %>%
  gt() %>%
  cols_align(align = "center",
             columns = c("char")) %>%
  tab_style(
    style = list(
      cell_borders(
        sides = c("all"),
        color = from_column(col),
        weight = px(3)
      )
    ),
    locations = list(
      cells_body(
        columns = "char",
        rows = !is.na(col)
      )
    )
  )

Meanwhile, re: my first question, how can I get borders that look like the orange ones (instead of the black ones that wrap the whole cell)...?