steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

# and & in prettyprinter output are now presentations

darcs
slava 2006-12-05 06:20:54 +00:00
parent 6d068e934c
commit 710b771d92
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
TODO.txt
View File

@ -1,9 +1,6 @@
+ 0.87: + 0.87:
- command buttons: indicate shortcuts
- error popups obscure input area - error popups obscure input area
- ui operations: restarts are broken
- operations which call parse are being run in the wrong namespace
- callback scheduling issue - callback scheduling issue
+ 0.88: + 0.88:
@ -46,6 +43,7 @@
- don't end lines with literals, shuffle words or symbols? - don't end lines with literals, shuffle words or symbols?
- see should try to not show ; on a line by itself - see should try to not show ; on a line by itself
- IN: on its own line if the entire 'see' form doesn't fit - IN: on its own line if the entire 'see' form doesn't fit
- command buttons: indicate shortcuts
+ ui: + ui:

7
core/prettyprint/backend.factor
View File

@ -82,12 +82,15 @@ M: dll pprint*
: nesting-limit? ( -- ? ) : nesting-limit? ( -- ? )
nesting-limit get dup [ pprinter-stack get length < ] when ; nesting-limit get dup [ pprinter-stack get length < ] when ;
: truncated-nesting ( obj str -- )
swap presented associate styled-text ;
: check-recursion ( obj quot -- ) : check-recursion ( obj quot -- )
nesting-limit? [ nesting-limit? [
2drop "#" text drop "#" truncated-nesting
] [ ] [
over recursion-check get memq? [ over recursion-check get memq? [
2drop "&" text drop "&" truncated-nesting
] [ ] [
over recursion-check get push over recursion-check get push
call call