current-helpdesk-platform -> helpdesk-platform

svn: r7172
This commit is contained in:
Eli Barzilay 2007-08-26 05:42:08 +00:00
parent dfb5786bbc
commit 54cec85b45
7 changed files with 13 additions and 13 deletions

View File

@ -10,7 +10,7 @@
"private/link.ss"
(lib "contract.ss"))
(current-helpdesk-platform 'internal-browser)
(helpdesk-platform 'internal-browser)
(provide help-desk-frame<%>)

View File

@ -20,7 +20,7 @@
"private/internal-hp.ss"
"private/options.ss")
(current-helpdesk-platform 'external-browser)
(helpdesk-platform 'external-browser)
;; start the HelpDesk server, and store a shutdown
(define shutdown

View File

@ -4,11 +4,11 @@
;; between servlets and the web-server. (Mostly to allow
;; configuration as an application or as a standalone server.)
(provide current-helpdesk-platform internal-port)
(provide helpdesk-platform internal-port)
;; internal browser or external browser?
;; (used to produce simpler html for the internal browser)
(define current-helpdesk-platform
(define helpdesk-platform
(make-parameter
'internal-browser-simple ; main page only
;; 'internal-browser ; menu + main page

View File

@ -20,7 +20,7 @@
; html-subpage : xexprs -> xexpr
(define (html-subpage . xs)
(case (current-helpdesk-platform)
(case (helpdesk-platform)
[(internal-browser-simple)
(apply make-simple-page/internal-browser xs)]
[(internal-browser)
@ -80,7 +80,7 @@
(let-values ([(right-header right-items)
(page-tag->title+items subpage)])
(cond
[(and (eq? (current-helpdesk-platform) 'internal-browser-simple)
[(and (eq? (helpdesk-platform) 'internal-browser-simple)
(equal? subpage "home"))
; change the "home" page for internal HelpDesk with no menus
(html-subpage "PLT Scheme Help Desk: Home"
@ -124,13 +124,13 @@
("Get involved:"
nbsp nbsp nbsp nbsp
(a ((href ,url-helpdesk-mailing-lists)) "Mailing Lists")
,@(case (current-helpdesk-platform)
,@(case (helpdesk-platform)
((external-browser) `(", " (a ((href ,url-external-send-bug-report)) "Send a bug report")))
(else '())))
-- --
(""
" " " "
,@(case (current-helpdesk-platform)
,@(case (helpdesk-platform)
[(internal-browser)
'((b (a ([mzscheme
"((dynamic-require '(lib |bug-report.ss| |help|) 'help-desk:report-bug))"])
@ -138,7 +138,7 @@
nbsp nbsp)]
[else `()])
; DrScheme Acknowledgements
,@(case (current-helpdesk-platform)
,@(case (helpdesk-platform)
[(internal-browser) `((b (a ((href ,url-helpdesk-acknowledge))
(font ([color "forestgreen"])"Acknowledgments"))))]
[else '()]))

View File

@ -11,7 +11,7 @@
`((VERBATIM (big (big (big (b (a ((href ,url-helpdesk-home)) "PLT Scheme Help Desk"))))))))
(define left-footer-items
(case (current-helpdesk-platform)
(case (helpdesk-platform)
[(internal-browser)
'(nbsp)]
[else

View File

@ -33,7 +33,7 @@ is stored in a module top-level and that's namespace-specific.
; and match-type. This function changes them to use the short versions
; as the internal HelpDesk does.
(define (adjust-request request)
(case (current-helpdesk-platform)
(case (helpdesk-platform)
[(internal-browser) request]
[(internal-browser-simple) request]
[else
@ -61,7 +61,7 @@ is stored in a module top-level and that's namespace-specific.
send/finish
(lambda ()
(let* ([request (adjust-request initial-request)]
[html-for-top (case (current-helpdesk-platform)
[html-for-top (case (helpdesk-platform)
[(internal-browser) '()]
[(internal-browser-simple) '()]
[else (html-top request)])])

View File

@ -107,7 +107,7 @@
(string-append (xexpr->string
(html-page
#:title (short->manual-title manual)
#:top (case (current-helpdesk-platform)
#:top (case (helpdesk-platform)
[(internal-browser) '()]
[(internal-browser-simple) '()]
[else (html-top request)])