|
|
@@ -206,26 +206,30 @@
|
|
|
(defn shortcut-prev-day
|
|
|
[_state e]
|
|
|
(when-not (input-or-select?)
|
|
|
+ (util/stop e)
|
|
|
(swap! *internal-model inc-date -1)))
|
|
|
|
|
|
(defn shortcut-next-day
|
|
|
[_state e]
|
|
|
(when-not (input-or-select?)
|
|
|
+ (util/stop e)
|
|
|
(swap! *internal-model inc-date 1)))
|
|
|
|
|
|
(defn shortcut-prev-week
|
|
|
[_state e]
|
|
|
(when-not (input-or-select?)
|
|
|
+ (util/stop e)
|
|
|
(swap! *internal-model inc-week -1)))
|
|
|
|
|
|
(defn shortcut-next-week
|
|
|
[_state e]
|
|
|
(when-not (input-or-select?)
|
|
|
+ (util/stop e)
|
|
|
(swap! *internal-model inc-week 1)))
|
|
|
|
|
|
(rum/defc date-picker < rum/reactive
|
|
|
(mixins/shortcuts
|
|
|
- #(shortcut/install-shortcut! % {:prevent-default? true})
|
|
|
+ #(shortcut/install-shortcut! % {})
|
|
|
:shortcut-listener/date-picker
|
|
|
{:date-picker/complete shortcut-complete
|
|
|
:date-picker/prev-day shortcut-prev-day
|