Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
; Simulates the manager's schedule within the maker's
; See http://www.paulgraham.com/makersschedule.html
(defn schedule_meeting [day]
(let [last (or (find_last_meeting day) (+ 1_hour (end_of day)))]
(schedule_meeting_at (1_hour_before last))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment