shinycsshelper: Shiny CSS Helper

#' The application server-side
#' 
#' @param input,output,session Internal parameters for {shiny}. 
#'     DO NOT REMOVE.
#' @import shiny
#' @noRd
app_server <- function( input, output, session ) {
  navbar <- callModule(module = mod_att_picker_server, 
                       id = "navbar",
                       att = list("background_color", 
                                  "border_color", 
                                  "border_width",
                                  "font_family",
                                  "font_style"),
                       elem = ".navbar-default, .navbar-default .navbar-nav>li>a, .navbar-default .navbar-nav>li>a:visited, .navbar-default .navbar-nav>li>a:focus")
  
  navbar_font_size <- callModule(module = mod_att_picker_server,
                            id = "navbar_font_size",
                            att = list("font_size"),
                            elem = ".navbar-default .navbar-nav>li>a")

  slider_input_text <- callModule(module = mod_att_picker_server,
                                  id = "slider_input",
                                  att = list("font_family",
                                             "font_size",
                                             "color"),
                                  elem = ".irs-grid-text")
  
  navbar_hover <- callModule(module = mod_att_picker_server, 
                             id = "navbar_hover",
                             att = list("color",
                                        "background_color", 
                                        "border_color"),
                             elem = ".navbar-default .navbar-nav>li>a:hover, .nav>li>a:hover, .navbar-nav>li>a:hover")#".navbar-default .navbar-nav>li>a:focus, .navbar-default .navbar-nav>li>a:hover, .nav>li>a:hover, .nav>li>a:focus, .navbar-nav>li>a:focus, .navbar-nav>li>a:hover")
  
  navbar_selected <- callModule(module = mod_att_picker_server,
                                id = "navbar_selected",
                                att = list("color",
                                           "background_color",
                                           "border_color"),
                                elem = ".navbar-default .navbar-nav>.active>a, .navbar-default .navbar-nav>.active>a:focus, .navbar-default .navbar-nav>.active>a:hover ")

  
  slider_input_background <- callModule(module = mod_att_picker_server,
                                        id = "slider_background",
                                        att = list("background_color"),
                                        elem = ".irs--shiny")

  slider_input_bar <- callModule(module = mod_att_picker_server,
                                 id = "slider_bar",
                                 att = list("background_color",
                                            "border_color",
                                            "border_width"),
                                 elem = ".irs--shiny .irs-bar")

  slider_input_min <- callModule(module = mod_att_picker_server,
                                 id = "slider_min",
                                 att = list("color",
                                            "font_family",
                                            "font_size",
                                            "background_color"),
                                 elem = ".irs--shiny .irs-min")
  
  slider_current <- callModule(module = mod_att_picker_server,
                               id = "slider_current",
                               att = list("color",
                                          "font_family",
                                          "font_size",
                                          "background_color"),
                               elem = ".irs--shiny .irs-single")

  slider_input_max <- callModule(module = mod_att_picker_server,
                                 id = "slider_max",
                                 att = list("color",
                                            "font_family",
                                            "font_size",
                                            "background_color"),
                                 elem = ".irs--shiny .irs-max")

  action_button <- callModule(module = mod_att_picker_server,
                              id = "action_button",
                              att = list("color",
                                         "background_color",
                                         "border_color"),
                              elem = ".btn-default")

  action_button_hover <- callModule(module = mod_att_picker_server,
                                    id = "action_button_hover",
                                    att = list("color",
                                               "background_color",
                                               "border_color"),
                                    elem = ".btn-default:hover")

  action_button_text <- callModule(module = mod_att_picker_server,
                                   id = "action_button_text",
                                   att = list("font_family",
                                              "font_style"),
                                   elem = "button")

  action_button_text_size <- callModule(module = mod_att_picker_server,
                                   id = "action_button_text_size",
                                   att = list("padding",
                                              "font_size"),
                                   elem = ".btn")

  action_link <- callModule(module = mod_att_picker_server,
                            id = "action_link",
                            att = list("color",
                                       "font_family",
                                       "font_size",
                                       "text_decoration"),
                            elem = "a.action-button")

  action_link_hover <-
    callModule(module = mod_att_picker_server,
               id = "action_link_hover",
               att = list("color",
                          "font_size",
                          "text_decoration"),
               elem = "a.action-button:hover")
  
  radio_buttons <- callModule(module = mod_att_picker_server,
                              id = "radio_buttons",
                              att = list("color",
                                         "font_family",
                                         "font_size"),
                              elem = ".shiny-input-radiogroup")
  
  checkbox_input <- callModule(module = mod_att_picker_server,
                               id = "checkbox",
                               att = list("color",
                                          "font_family",
                                          "font_size"),
                               elem = ".checkbox")
  
  select_input <- callModule(module = mod_att_picker_server,
                               id = "select_input",
                               att = list("color",
                                          "font_family",
                                          "font_size"),
                               elem = ".control-label, .selectize-input, .selectize-control, selectized shiny-bound-input")
  
  date_input <- callModule(module = mod_att_picker_server,
                           id = "date",
                           att = list("color",
                                      "font_family",
                                      "font_size"),
                           elem = ".shiny-date-input,.shiny-date-input>.form-control")

  date_calendar <- callModule(module = mod_att_picker_server,
                              id = "date_calendar",
                              att = list("color",
                                         "font_family",
                                         "font_size"),
                              elem = ".datepicker-days")

  date_calendar_current_days <- callModule(module = mod_att_picker_server,
                                           id = "date_calendar_current",
                                           att = list("color",
                                                      "background_color",
                                                      "font_style"),
                                           elem = ".datepicker table tr td.day:hover")

  date_calendar_old_days <- callModule(module = mod_att_picker_server,
                                       id = "date_calendar_old",
                                       att = list("color",
                                                  "font_style"),
                                       elem = ".datepicker table tr td.old")

  date_calendar_new_days <- callModule(module = mod_att_picker_server,
                                       id = "date_calendar_new",
                                       att = list("color",
                                                  "font_style"),
                                       elem = ".datepicker table tr td.new")

  date_calendar_active_day <- callModule(module = mod_att_picker_server,
                                       id = "date_calendar_active",
                                       att = list("color",
                                                  "background_color",
                                                  "font_style"),
                                       elem = ".datepicker table tr td.active:active, .datepicker table tr td.active.active, .datepicker table tr td.active.highlighted:active, .datepicker table tr td.active.highlighted.active")

  date_calendar_active_day_hover <- callModule(module = mod_att_picker_server,
                                                id = "date_calendar_active_hover",
                                                att = list("color",
                                                           "background_color",
                                                           "font_style"),
                                                elem = ".datepicker table tr td.active.active:hover")

  date_calendar_old_day_hover <- callModule(module = mod_att_picker_server,
                                               id = "date_calendar_old_hover",
                                               att = list("color",
                                                          "background_color",
                                                          "font_style"),
                                               elem = ".datepicker table tr td.old:hover")

  date_calendar_future_day_hover <- callModule(module = mod_att_picker_server,
                                               id = "date_calendar_future_hover",
                                               att = list("color",
                                                          "background_color",
                                                          "font_style"),
                                               elem = ".datepicker table tr td.new:hover")

  file_upload <- callModule(module = mod_att_picker_server,
                            id = "file_upload",
                            att = list("font_family",
                                       "font_size"),
                            elem = ".input-group-prepend, .form-control")
  
  h1 <-
    callModule(module = mod_att_picker_server,
               id = "h1",
               att = list("color",
                          "background_color",
                          "font_family",
                          "font_style",
                          "font_size"),
               elem = "h1")

  h2 <-
    callModule(module = mod_att_picker_server,
               id = "h2",
               att = list("color",
                          "background_color",
                          "font_family",
                          "font_style",
                          "font_size"),
               elem = "h2")

  h3 <-
    callModule(module = mod_att_picker_server,
               id = "h3",
               att = list("color",
                          "background_color",
                          "font_family",
                          "font_style",
                          "font_size"),
               elem = "h3")

  h4 <-
    callModule(module = mod_att_picker_server,
               id = "h4",
               att = list("color",
                          "background_color",
                          "font_family",
                          "font_style",
                          "font_size"),
               elem = "h4")

  p <- callModule(module = mod_att_picker_server,
                  id = "p",
                  att = list("color",
                             "background_color",
                             "font_family",
                             "font_style",
                             "font_size"),
                  elem = "p")
  
  body <- callModule(module = mod_att_picker_server,
                     id = "body",
                     att = list("color",
                                "background_color",
                                "font_family",
                                "font_style",
                                "font_size"),
                     elem = "body")
  
  callModule(mod_css_injector_server,
             "css_injector",
             css = list(navbar,
                        navbar_font_size,
                        navbar_hover,
                        navbar_selected,
                        h1,
                        h2,
                        h3,
                        h4,
                        p,
                        action_link,
                        action_link_hover,
                        slider_input_text,
                        slider_input_background,
                        slider_input_bar,
                        slider_input_min,
                        slider_current,
                        slider_input_max,
                        action_button,
                        action_button_text,
                        action_button_text_size,
                        action_button_hover,
                        radio_buttons,
                        checkbox_input,
                        select_input,
                        date_input,
                        date_calendar,
                        date_calendar_current_days,
                        date_calendar_old_days,
                        date_calendar_new_days,
                        date_calendar_active_day,
                        date_calendar_active_day_hover,
                        date_calendar_old_day_hover,
                        date_calendar_future_day_hover,
                        file_upload,
                        body))
  
}