sqrtminusone/biome
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/biome.git synced 2025-12-10 14:35:13 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

biome-query: do not force compatible dates

Browse source
This commit is contained in:
Pavel Korytov 2023-07-22 17:54:48 +03:00
parent 640fe8f20b
commit 99dfaede5f
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
biome-query.el
View file

@ -72,7 +72,8 @@ have to be displayed separately.")
(defconst biome-query--split-items '(("timezone" . "time zone") (defconst biome-query--split-items '(("timezone" . "time zone")
("timeformat" . "time format") ("timeformat" . "time format")
("weathercode" . "weather code")) ("weathercode" . "weather code")
("iso8601" . "iso 8"))
"Items to split into separate words for generating keys.") "Items to split into separate words for generating keys.")
(defconst biome-query--ignore-items '("m" "cm") (defconst biome-query--ignore-items '("m" "cm")
@ -350,9 +351,10 @@ OBJ is an instance of `biome-query--transient-select-variable'."
(cl-defmethod transient-infix-read ((obj biome-query--transient-date-variable)) (cl-defmethod transient-infix-read ((obj biome-query--transient-date-variable))
(unless (oref obj value) (unless (oref obj value)
(time-convert (let ((org-read-date-force-compatible-dates nil))
(org-read-date nil t nil (concat (oref obj description) " ")) (time-convert
'integer))) (org-read-date nil t nil (concat (oref obj description) " "))
'integer))))
(cl-defmethod transient-format-value ((obj biome-query--transient-date-variable)) (cl-defmethod transient-format-value ((obj biome-query--transient-date-variable))
"Format the value of OBJ. "Format the value of OBJ.
@ -542,7 +544,6 @@ OBJ is an instance of `biome-query--transient-date-variable'."
(cl-defmethod transient-infix-read ((obj biome-query--transient-group-switch)) (cl-defmethod transient-infix-read ((obj biome-query--transient-group-switch))
"Read the value of OBJ." "Read the value of OBJ."
(setq my/test (list (oref obj options) (oref obj value)))
(let* ((options (mapcar (let* ((options (mapcar
(lambda (c) (cons (cdr c) (car c))) (lambda (c) (cons (cdr c) (car c)))
(oref obj options))) (oref obj options)))