|
|
@ -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 |
|
|
@ -91,16 +98,10 @@ |
|
|
|
(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: ") |
|
|
|