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

remove links synthesized information from drracket bug report

Browse Source
This commit is contained in:
Robby Findler 2014-03-18 15:31:09 -05:00
parent b961b55bb2
commit d6cdc325d5
1 changed files with 1 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
pkgs/drracket-pkgs/drracket/help/private/bug-report-controls.rkt
View File

@ -237,17 +237,7 @@
(make-object text-field% #f panel void ""))))
#f
#:top-panel synthesized-panel))
(define links-ctrl
(build/label
(string-constant bug-report-field-links)
(lambda (panel)
(keymap:call/text-keymap-initializer
(lambda ()
(make-object text-field% #f panel void ""))))
#f
#:top-panel synthesized-panel))
(define pkg-info
(make-big-text
(string-constant bug-report-field-pkg)
@ -327,7 +317,6 @@
"\n"
(format "Human Language: ~a\n" (send human-language get-value))
(format "(current-memory-use) ~a\n" (send memory-use get-value))
(format "Links: ~a\n" (send links-ctrl get-value))
(format "raco pkg (show):\n~a\n" (send (send pkg-info get-editor) get-text))
"\n"
"\nCollections:\n"
@ -428,24 +417,6 @@
(map path->string (directory-list d))
'(non-existent-path))))))
(define-syntax (links-calls stx)
(syntax-case stx ()
[(_ calls ...)
(let ([str
(apply
string-append
(add-between (map (λ (x) "~s = ~s")
(syntax->list #'(calls ...)))
"; "))])
#`(format #,str #,@(apply append (map (λ (x) (list #`'#,x x))
(syntax->list #'(calls ...))))))]))
(send (send links-ctrl get-editor)
insert
(links-calls (links)
(links #:user? #f)
(links #:root? #t)
(links #:user? #f #:root? #t)))
(define pkg-info-sp (open-output-string))
(parameterize ([current-output-port pkg-info-sp])
(with-handlers ([exn:fail? (lambda (exn)