# and & in prettyprinter output are now presentations
parent
6d068e934c
commit
710b771d92
4
TODO.txt
4
TODO.txt
|
@ -1,9 +1,6 @@
|
|||
+ 0.87:
|
||||
|
||||
- command buttons: indicate shortcuts
|
||||
- error popups obscure input area
|
||||
- ui operations: restarts are broken
|
||||
- operations which call parse are being run in the wrong namespace
|
||||
- callback scheduling issue
|
||||
|
||||
+ 0.88:
|
||||
|
@ -46,6 +43,7 @@
|
|||
- don't end lines with literals, shuffle words or symbols?
|
||||
- see should try to not show ; on a line by itself
|
||||
- IN: on its own line if the entire 'see' form doesn't fit
|
||||
- command buttons: indicate shortcuts
|
||||
|
||||
+ ui:
|
||||
|
||||
|
|
|
@ -82,12 +82,15 @@ M: dll pprint*
|
|||
: nesting-limit? ( -- ? )
|
||||
nesting-limit get dup [ pprinter-stack get length < ] when ;
|
||||
|
||||
: truncated-nesting ( obj str -- )
|
||||
swap presented associate styled-text ;
|
||||
|
||||
: check-recursion ( obj quot -- )
|
||||
nesting-limit? [
|
||||
2drop "#" text
|
||||
drop "#" truncated-nesting
|
||||
] [
|
||||
over recursion-check get memq? [
|
||||
2drop "&" text
|
||||
drop "&" truncated-nesting
|
||||
] [
|
||||
over recursion-check get push
|
||||
call
|
||||
|
|
Loading…
Reference in New Issue