|
|
@@ -16,7 +16,7 @@
|
|
|
(defvar *run-cron* t "Controls if starting a web should run cron tasks")
|
|
|
(defvar *crons* (list
|
|
|
(list #'timeliner.locations:on-cron '(:minute 0 :hour *))
|
|
|
- (list #'timeliner.twitter:on-cron '(:minute 1 :hour *))
|
|
|
+ (list #'timeliner.twitter:on-cron '(:minute 3 :hour *))
|
|
|
(list #'timeliner.foursquare:on-cron '(:minute 5 :hour *))
|
|
|
(list #'timeliner.financisto:on-cron '(:minute 0 :hour 7)))
|
|
|
"List of cron functions with their schedules")
|
|
|
@@ -492,10 +492,12 @@
|
|
|
highlight (lambda (event)
|
|
|
(var layer (@ event "_layer"))
|
|
|
(! this events-layer
|
|
|
- (set-style (create fill-color "#F00")))
|
|
|
+ (set-style (create fill-color "#F00"
|
|
|
+ :radius 4)))
|
|
|
(if layer
|
|
|
(progn
|
|
|
- (! layer (set-style (create fill-color "#03F")))
|
|
|
+ (! layer (set-style (create fill-color "#03F"
|
|
|
+ :radius 5)))
|
|
|
(when (and (not (@ *L *browser ie))
|
|
|
(not (@ *L *browser opera)))
|
|
|
(! layer (bring-to-front)))
|
