mirror of https://github.com/logseq/logseq
Apple feedback to query_react
parent
6b750b832e
commit
657d83e4ae
|
@ -34,28 +34,31 @@
|
|||
(some-> (or (state/get-current-page)
|
||||
(:page (state/get-default-home))
|
||||
(date/today)) string/lower-case)
|
||||
(= :current-block input)
|
||||
(and current-block-uuid (= :current-block input))
|
||||
(:db/id (db-utils/entity [:block/uuid current-block-uuid]))
|
||||
(= :parent-block input)
|
||||
(and current-block-uuid (= :parent-block input))
|
||||
(:db/id (model/get-block-parent current-block-uuid))
|
||||
|
||||
;; :3d-before-ms
|
||||
(and (keyword? input)
|
||||
(util/safe-re-find #"^\d+d(-before-ms)?$" (name input)))
|
||||
(re-find #"^\d+d(-before-ms)?$" (name input)))
|
||||
(let [input (name input)
|
||||
days (parse-long (re-find #"^\d+" input))]
|
||||
(util/date-at-local-ms (t/minus (t/today) (t/days days)) 0 0 0 0))
|
||||
;; :3d-after-ms
|
||||
(and (keyword? input)
|
||||
(util/safe-re-find #"^\d+d(-after-ms)?$" (name input)))
|
||||
(re-find #"^\d+d(-after-ms)?$" (name input)))
|
||||
(let [input (name input)
|
||||
days (parse-long (re-find #"^\d+" input))]
|
||||
(util/date-at-local-ms (t/plus (t/today) (t/days days)) 24 0 0 0))
|
||||
;; :3d-before
|
||||
(and (keyword? input)
|
||||
(util/safe-re-find #"^\d+d(-before)?$" (name input)))
|
||||
(re-find #"^\d+d(-before)?$" (name input)))
|
||||
(let [input (name input)
|
||||
days (parse-long (re-find #"^\d+" input))]
|
||||
(date->int (t/minus (t/today) (t/days days))))
|
||||
;; :3d-after
|
||||
(and (keyword? input)
|
||||
(util/safe-re-find #"^\d+d(-after)?$" (name input)))
|
||||
(re-find #"^\d+d(-after)?$" (name input)))
|
||||
(let [input (name input)
|
||||
days (parse-long (re-find #"^\d+" input))]
|
||||
(date->int (t/plus (t/today) (t/days days))))
|
||||
|
|
Loading…
Reference in New Issue