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

put a special title in the menu when a saved bug report has no title

Browse Source
This commit is contained in:
Robby Findler 2010-12-17 09:58:32 -06:00
parent 4d04aa2b97
commit 2a3c7598ab
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/help/private/save-bug-report.rkt
View File

@ -117,7 +117,10 @@ Put the saved things in the help menu.
(for/list ([a-saved-report (in-list x)]) (for/list ([a-saved-report (in-list x)])
(define assoc-l (saved-report-table a-saved-report)) (define assoc-l (saved-report-table a-saved-report))
(define subj-p (assoc 'subject assoc-l)) (define subj-p (assoc 'subject assoc-l))
(brinfo (trim-to-200 (regexp-replace* #rx"&" (cadr subj-p) "&&")) (define title (cadr subj-p))
(brinfo (if (string=? title "")
"<<no title>>"
(trim-to-200 (regexp-replace* #rx"&" title "&&")))
(saved-report-id a-saved-report)))))) (saved-report-id a-saved-report))))))
(define (trim-to-200 str) (define (trim-to-200 str)