     [re-demo.utils     :refer [panel-title title2 args-table github-hyperlink status-text]]))
 
 
+(def ^:private days-map
+     {:Su "S" :Mo "M" :Tu "T" :We "W" :Th "T" :Fr "F" :Sa "S"})
+
+
 (defn- toggle-inclusion!
   "convenience function to include/exclude member from"
   [set-atom member]

                  disabled?
                  show-today?
                  show-weeks?])]
      :dropdown [(fn
                   []
                   [parameters-with
                    [h-box

        selectable-pred (fn [date] (@as-days (day-of-week date))) ; Simply allow selection based on day of week.
        label-style     {:font-style "italic" :font-size "smaller" :color "#777"}]
    (case variation
      :inline [(fn inline-fn
                 []
                 [parameters-with
                  [h-box
