suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

drop the weekend condition for the default icon style

Browse Source
This commit is contained in:
Robby Findler 2011-12-01 13:44:53 -06:00
parent 301631c0d6
commit 1c9c31efd1
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/icons/private/svg.rkt
View File

@ -13,13 +13,8 @@
(defthing icon-styles (listof symbol?) #:document-value '(diffuse shiny)) (defthing icon-styles (listof symbol?) #:document-value '(diffuse shiny))
(defcontract icon-style/c (or/c 'diffuse 'shiny)) (defcontract icon-style/c (or/c 'diffuse 'shiny))
(define weekend?
(let* ([date (seconds->date (current-seconds))]
[dow (date-week-day date)])
(or (= dow 6) (= dow 0))))
(defparam toolbar-icon-height (>/c 0) 16) (defparam toolbar-icon-height (>/c 0) 16)
(defparam default-icon-style (or/c 'diffuse 'shiny) (if weekend? 'shiny 'diffuse)) (defparam default-icon-style (or/c 'diffuse 'shiny) 'diffuse)
(defproc (icon->pict [icon (is-a?/c bitmap%)]) pict? (defproc (icon->pict [icon (is-a?/c bitmap%)]) pict?
(bitmap icon)) (bitmap icon))