Separate log generation from log collapsing, to allow filtering in between.
This commit is contained in:
parent
b4e4797e6a
commit
286cb96569
|
@ -10,7 +10,8 @@
|
|||
(struct-out sub-report-entry)
|
||||
(struct-out opt-report-entry)
|
||||
(struct-out missed-opt-report-entry)
|
||||
generate-report)
|
||||
generate-report
|
||||
collapse-report)
|
||||
|
||||
;; Similar to the log-entry family of structs, but geared towards GUI display.
|
||||
;; Also designed to contain info for multiple overlapping log entries.
|
||||
|
@ -25,10 +26,9 @@
|
|||
(struct missed-opt-report-entry sub-report-entry (badness irritants))
|
||||
|
||||
(define (generate-report this)
|
||||
(collapse-report
|
||||
(log->report
|
||||
(post-process-inline-log
|
||||
(generate-log this)))))
|
||||
(log->report
|
||||
(post-process-inline-log
|
||||
(generate-log this))))
|
||||
|
||||
|
||||
(define (generate-log this)
|
||||
|
|
|
@ -48,7 +48,7 @@
|
|||
(list start end color))]))
|
||||
|
||||
(define/public (add-highlights)
|
||||
(define report (generate-report this))
|
||||
(define report (collapse-report (generate-report this)))
|
||||
(define max-badness
|
||||
(apply max (cons 0 (map report-entry-badness report))))
|
||||
(unless (= max-badness 0) ; no missed opts, color table code would error
|
||||
|
|
Loading…
Reference in New Issue
Block a user