suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

macro-stepper: avoid too-long labels in hiding policy display

Browse Source
This commit is contained in:
Ryan Culpepper 2010-12-15 19:13:43 -07:00
parent af7f60f3b5
commit 9f3ac86488
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/macro-debugger/view/hiding-panel.rkt
View File

@ -252,11 +252,17 @@ TODO
;; ----
(define (policy->string policy)
(string-append
(case (car policy)
((show-if) "show ")
((hide-if) "hide "))
(condition->string (cadr policy))))
(string-limit 200
(string-append
(case (car policy)
((show-if) "show ")
((hide-if) "hide "))
(condition->string (cadr policy)))))
(define (string-limit size s)
(cond [(> (string-length s) size)
(string-append (substring s 0 (- size 3)) "...")]
[else s]))
(define (condition->string condition)
(match condition