polar-flow-sleep-export.st

"https://flow.polar.com/activity/data/1.6.2015/6.12.2015"
json := Clipboard clipboardText.
data := NeoJSONReader on: json readStream.
data := data next at: 'data'.
sleep := Dictionary new.
data reverse collect: [:each | 
	|summary sleepTime |
	summary := (each at: 'summaries') at: 1.
	ts := (DateAndTime fromString: (summary at: 'datetime')) asDate.
	sleepTime := ((((summary at: 'sleepTime') / 1000 / 60 / 60) asFloat * 10) rounded / 10) asFloat.
	ts -> sleepTime
	 ].
sleep.

(Date year: 2001 month: 1 day: 1) + (388736855 / (24 * 60 * 60)) days