Use function factories

[rjake]

sc_color <- function(hue, ...) {
  function(...) {
    sc_within(hue, ...)
  }
}

sc_red <- sc_color("red")
sc_yellow <- sc_color("yellow")

sc_red(sat = "dull")
sc_yellow(light = 1:3)