|
|
@ -30,6 +30,13 @@ |
|
|
|
(define page-styles '("scrollbar.css")) |
|
|
|
(define page-styles '("scrollbar.css")) |
|
|
|
(define page-scripts '("scrollbar.js")) |
|
|
|
(define page-scripts '("scrollbar.js")) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(define (backend-selectable-option value name) |
|
|
|
|
|
|
|
`("{% if thumbbstl == \"" ,value "\" %}" |
|
|
|
|
|
|
|
(option (@ (value ,value) (selected "selected")) ,name) |
|
|
|
|
|
|
|
"{% else %}" |
|
|
|
|
|
|
|
(option (@ (value ,value)) ,name) |
|
|
|
|
|
|
|
"{% endif %}")) |
|
|
|
|
|
|
|
|
|
|
|
(define page-embedded-style |
|
|
|
(define page-embedded-style |
|
|
|
'(css+ |
|
|
|
'(css+ |
|
|
|
(.scrollbar-app__demo |
|
|
|
(.scrollbar-app__demo |
|
|
@ -60,14 +67,14 @@ |
|
|
|
(fieldset (@ (class "scrollbar-app__panel")) |
|
|
|
(fieldset (@ (class "scrollbar-app__panel")) |
|
|
|
(h3 "Bar:") |
|
|
|
(h3 "Bar:") |
|
|
|
(div (@ (class "scrollbar-app__input")) |
|
|
|
(div (@ (class "scrollbar-app__input")) |
|
|
|
(label (@ (for "sbw")) "Width: ") |
|
|
|
(label (@ (for "sbw")) "Width: ") |
|
|
|
(input (@ |
|
|
|
(input (@ |
|
|
|
(type "text") |
|
|
|
(type "text") |
|
|
|
(id "sbw") |
|
|
|
(id "sbw") |
|
|
|
(name "sbw") |
|
|
|
(name "sbw") |
|
|
|
(value "{{ sbw }}") |
|
|
|
(value "{{ sbw }}") |
|
|
|
(pattern "\\d+px") |
|
|
|
(pattern "\\d+px") |
|
|
|
(title "Size in pixels with format: \"<NUMBER>px\""))))) |
|
|
|
(title "Size in pixels with format: \"<NUMBER>px\""))))) |
|
|
|
|
|
|
|
|
|
|
|
(fieldset (@ (class "scrollbar-app__panel")) |
|
|
|
(fieldset (@ (class "scrollbar-app__panel")) |
|
|
|
(h3 "Thumbnail:") |
|
|
|
(h3 "Thumbnail:") |
|
|
@ -89,38 +96,32 @@ |
|
|
|
(fieldset |
|
|
|
(fieldset |
|
|
|
(h4 "Border:") |
|
|
|
(h4 "Border:") |
|
|
|
(div (@ (class "scrollbar-app__input")) |
|
|
|
(div (@ (class "scrollbar-app__input")) |
|
|
|
(label (@ (for "thumbbstl")) "Style: ") |
|
|
|
(label (@ (for "thumbbstl")) "Style: ") |
|
|
|
(select (@ (id "thumbbstl") (name "thumbbstl")) |
|
|
|
(select (@ (id "thumbbstl") (name "thumbbstl")) |
|
|
|
(option (@ (value "none")) "none") |
|
|
|
,(map |
|
|
|
(option (@ (value "hidden")) "hidden") |
|
|
|
(lambda (l) (backend-selectable-option l l)) |
|
|
|
(option (@ (value "solid") (selected "selected")) "solid") |
|
|
|
'("none" "hidden" "solid" "dotted" "dashed" |
|
|
|
(option (@ (value "dotted")) "dotted") |
|
|
|
"double" "groove" "ridge" "inset" "outset")))) |
|
|
|
(option (@ (value "dashed")) "dashed") |
|
|
|
|
|
|
|
(option (@ (value "double")) "double") |
|
|
|
|
|
|
|
(option (@ (value "groove")) "groove") |
|
|
|
|
|
|
|
(option (@ (value "ridge")) "ridge") |
|
|
|
|
|
|
|
(option (@ (value "inset")) "inset") |
|
|
|
|
|
|
|
(option (@ (value "outset")) "outset"))) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(div (@ (class "scrollbar-app__input")) |
|
|
|
(div (@ (class "scrollbar-app__input")) |
|
|
|
(label (@ (for "thumbbrad")) "Radius: ") |
|
|
|
(label (@ (for "thumbbrad")) "Radius: ") |
|
|
|
(input (@ |
|
|
|
(input (@ |
|
|
|
(type "text") |
|
|
|
(type "text") |
|
|
|
(id "thumbbrad") |
|
|
|
(id "thumbbrad") |
|
|
|
(name "thumbbrad") |
|
|
|
(name "thumbbrad") |
|
|
|
(value "{{ thumbbrad }}") |
|
|
|
(value "{{ thumbbrad }}") |
|
|
|
(pattern "\\d+(px|%)") |
|
|
|
(pattern "\\d+(px|%)") |
|
|
|
(title "Radius in pixels or percents with format: \"<NUMBER>px\" or \"<NUMBER>%\"")))) |
|
|
|
(title "Radius in pixels or percents with format: \"<NUMBER>px\" or \"<NUMBER>%\"")))) |
|
|
|
|
|
|
|
|
|
|
|
(div (@ (class "scrollbar-app__input")) |
|
|
|
(div (@ (class "scrollbar-app__input")) |
|
|
|
(label (@ (for "thumbbw")) "Width: ") |
|
|
|
(label (@ (for "thumbbw")) "Width: ") |
|
|
|
(input (@ |
|
|
|
(input (@ |
|
|
|
(type "text") |
|
|
|
(type "text") |
|
|
|
(id "thumbbw") |
|
|
|
(id "thumbbw") |
|
|
|
(name "thumbbw") |
|
|
|
(name "thumbbw") |
|
|
|
(value "{{ thumbbw }}") |
|
|
|
(value "{{ thumbbw }}") |
|
|
|
(pattern "\\d+px") |
|
|
|
(pattern "\\d+px") |
|
|
|
(title "Size in pixels with format: \"<NUMBER>px\"")))) |
|
|
|
(title "Size in pixels with format: \"<NUMBER>px\"")))) |
|
|
|
|
|
|
|
|
|
|
|
(div (@ (class "scrollbar-app__input")) |
|
|
|
(div (@ (class "scrollbar-app__input")) |
|
|
|
(label (@ (for "thumbbclr")) "Color: ") |
|
|
|
(label (@ (for "thumbbclr")) "Color: ") |
|
|
|