contrapunctus
/
chronometrist
Archived
1
3
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

get-day (SQLite): write query for intervals

This commit is contained in:
contrapunctus 2022-04-18 19:19:25 +05:30
parent 94e7a78404
commit c9ab8b4f95
1 changed files with 17 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
cl/chronometrist.org
View File

@ -2262,10 +2262,17 @@ ORDER BY interval_id DESC;")
"SELECT interval_id FROM date_intervals WHERE date_id = ?;"
date-id)))
(intervals
(loop for id in interval-ids
collect (execute-single
connection
"SELECT name, start_time, stop_time, properties FROM intervals")))
(multiple-value-bind (string values)
(yield
(select (:name :start_time :stop_time :properties)
(from :intervals)
(left-join :interval_names :using (:name_id))
(left-join :properties :using (:prop_id))
(where (:in :interval_id
(select (:interval_id)
(from :date_intervals)
(where (:= :date_id date-id)))))))
(apply #'execute-to-list connection string values)))
(event-ids
(flatten (execute-to-list
connection
@ -2275,11 +2282,12 @@ ORDER BY interval_id DESC;")
(execute-single connection
"SELECT properties FROM properties WHERE prop_id = ?"
prop-id)))
(setf (chronometrist:date day) date
;; (intervals day) intervals
;; (events day) events
(chronometrist:properties day) properties)
day)))
;; (setf (chronometrist:date day) date
;; ;; (intervals day) intervals
;; ;; (events day) events
;; (chronometrist:properties day) properties)
;; day
intervals)))
#+END_SRC
**** iso-to-unix :function: