ee85d171e4
1. We were using gethash on chronometrist-events rather than
chronometrist-key-history 🤦♀
2. If an event has more than one key, determining the value of
old-keys in the outer loop meant that the first key would be
replaced by the second.
We also rename local variables so they tell us what objects they
represent, and reindent the code so it is more condensed.
58 lines
1.4 KiB
Common Lisp
58 lines
1.4 KiB
Common Lisp
(:name "Programming"
|
|
:start "2018-01-01T00:00:00+0530"
|
|
:stop "2018-01-01T01:00:00+0530")
|
|
|
|
(:name "Swimming"
|
|
:start "2018-01-01T02:00:00+0530"
|
|
:stop "2018-01-01T03:00:00+0530")
|
|
|
|
(:name "Cooking"
|
|
:start "2018-01-01T04:00:00+0530"
|
|
:stop "2018-01-01T05:00:00+0530")
|
|
|
|
(:name "Guitar"
|
|
:start "2018-01-01T06:00:00+0530"
|
|
:stop "2018-01-01T07:00:00+0530")
|
|
|
|
(:name "Cycling"
|
|
:start "2018-01-01T08:00:00+0530"
|
|
:stop "2018-01-01T09:00:00+0530")
|
|
|
|
(:name "Programming"
|
|
:start "2018-01-02T23:00:00+0530"
|
|
:stop "2018-01-03T01:00:00+0530")
|
|
|
|
(:name "Cooking"
|
|
:start "2018-01-03T23:00:00+0530"
|
|
:stop "2018-01-04T01:00:00+0530")
|
|
|
|
(:name "Programming"
|
|
:tags (bug-hunting)
|
|
:project "Chronometrist"
|
|
:component "goals"
|
|
:start "2020-05-09T20:03:25+0530"
|
|
:stop "2020-05-09T20:05:55+0530")
|
|
|
|
(:name "Arrangement/new edition"
|
|
:tags (new edition)
|
|
:song "Songs of Travel"
|
|
:composer "Vaughan Williams, Ralph"
|
|
:start "2020-05-10T00:04:14+0530"
|
|
:stop "2020-05-10T00:25:48+0530")
|
|
|
|
(:name "Guitar"
|
|
:tags (classical warm-up)
|
|
:start "2020-05-10T15:41:14+0530"
|
|
:stop "2020-05-10T15:55:42+0530")
|
|
|
|
(:name "Guitar"
|
|
:tags (classical solo)
|
|
:start "2020-05-10T16:00:00+0530"
|
|
:stop "2020-05-10T16:30:00+0530")
|
|
|
|
(:name "Programming"
|
|
:tags (reading)
|
|
:book "Smalltalk-80: The Language and Its Implementation"
|
|
:start "2020-05-10T16:33:17+0530"
|
|
:stop "2020-05-10T17:10:48+0530")
|