-
Notifications
You must be signed in to change notification settings - Fork 2
/
tasks.rkt
34 lines (25 loc) · 1.05 KB
/
tasks.rkt
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
#lang racket
;; tasks.rkt
;; 1. Make a list of things to clean that takes a short amount of time.
;; 2. Randomly choose one to do at intervals. Every hour, every 3, once a day,
;; etc.
;; 3. Once that list's crossed off, make another list of tasks that's a bit more
;; effortful. Rinse and repeat.
;; Spoon-conserving, flexible, outsources executive functioning.
;; For now, just randomly spit out a task with no concern for tracking or
;; anything. Not even an argv or nice way to add tasks.
;; Reads task lists from instant-tasks and day-tasks files.
(require "machinery/rng.rkt"
"machinery/skillcheck.rkt"
"stats.rkt")
(provide dotask instant-tasks day-tasks)
;; Task files
(define instant-tasks-file "tasklists/instant-tasks.txt")
(define day-tasks-file "tasklists/day-tasks.txt")
;; Slurp lines into list
(define instant-tasks (file->lines instant-tasks-file))
(define day-tasks (file->lines day-tasks-file))
;; Spit out a random task
(define (dotask taskslist)
(define task (randomchoice taskslist))
(printf "Unfuck this thing now: ~a~n" task))