|    |
:todo: ([ ] high priority)
:todo: "Logging levels"

:todo: ([ ] mid priority)
:todo: "Typo spotting tools"

:todo: ([ ] mid priority)
:todo: "Interactive debugging tools"

:todo: ([X] high priority)
:todo: "Get Lua code gen working"

:todo: ([ ] mid priority)
:todo: "Implement warnings for unbound varable"

:todo: ([ ] mid priority)
:todo: "Implement dead code elimination"

:todo: ([/] high priority)
:todo: "Copy stdio port"

:todo: ([ ] high priority)
:todo: "Copy graphics port"

:todo: ([ ] high priority)
:todo: "Copy math jet"

:todo: ([ ] low priority)
:todo: "Copy array jet"

:todo: ([ ] low priority)
:todo: "Copy time jet"

:todo: ([ ] mid priority)
:todo: "Make code gen output a Lua module"

:todo: ([ ] mid priority)
:todo: "Better expansion of special forms"


|| :: render todo list

|:: render todo list|
    :: sort task by priority
    :: render high priority task
    :: render mid priority task
    :: render low priority task

|:: sort task by priority? :todo: ([X] $level priority)|
    :: add task to $level with finished state
|:: sort task by priority? :todo: ([/] $level priority)|
    :: add task to $level with wip state
|:: sort task by priority? :todo: ([ ] $level priority)| 
    :: add task to $level with unstarted state
|:: sort task by priority? :todo: ([]  $level priority)|
    :: add task to $level with unstarted state
|:: sort task by priority|

|:: add task to $level with $state state|
    :: set task $state to $level
    :: move task to $level
    :: close $level

|:: set task $state to high| :high: $state
|:: set task $state to mid|  :mid:  $state
|:: set task $state to low|  :low:  $state

|:: move task to $level  :todo: [X]?|
|:: move task to $level  :todo: [/]?|
|:: move task to $level  :todo: []?|
|:: move task to $level  :todo: [?|
|:: move task to high? :todo: $char|
    :high: $char
|:: move task to mid? :todo: $char|
    :mid: $char
|:: move task to low? :todo: $char|
    :low: $char
|:: move task to $level|

|:: close high| :high:
|:: close mid | :mid:
|:: close low | :low:

|:: render high priority task? :high:  finished| 
    :: push finished check box
    :: push high
|:: render high priority task? :high:       wip| 
    :: push wip check box
    :: push high 
|:: render high priority task? :high: unstarted| 
    :: push unstarted check box
    :: push high
|:: render high priority task? :high:          | :: push new line
|:: render high priority task? :high:     $char| :message: $char
|:: render high priority task|
    :message: "High Priorty Task" :message: 10
    :: print message

|:: render mid priority task? :mid:  finished| 
    :: push finished check box
    :: push mid
|:: render mid priority task? :mid:       wip| 
    :: push wip check box
    :: push mid
|:: render mid priority task? :mid: unstarted| 
    :: push unstarted check box
    :: push mid
|:: render mid priority task? :mid:          | :: push new line
|:: render mid priority task? :mid:     $char| :message: $char
|:: render mid priority task|
    :message: "Mid Priorty Task" :message: 10
    :: print message

|:: render low priority task? :low:  finished| 
    :: push finished check box
    :: push low
|:: render low priority task? :low:       wip| 
    :: push wip check box
    :: push low
|:: render low priority task? :low: unstarted| 
    :: push unstarted check box
    :: push low
|:: render low priority task? :low:          | :: push new line
|:: render low priority task? :low:     $char| :message: $char
|:: render low priority task|
    :message: "Low Priorty Task" :message: 10
    :: print message

|:: push low| :message: "low"
|:: push mid| :message: "mid"
|:: push high| :message: "high"

|:: push finished  check box| :message: 9 :message: "[X] "
|:: push wip       check box| :message: 9 :message: "[/] "
|:: push unstarted check box| :message: 9 :message: "[ ] "
|:: push new line           | :message: 10

|:: print message? :message: $char|
    :@stdio: write $char
|:: print message|