current-helpdesk-platform -> helpdesk-platform
svn: r7172
This commit is contained in:
parent
dfb5786bbc
commit
54cec85b45
|
@ -10,7 +10,7 @@
|
|||
"private/link.ss"
|
||||
(lib "contract.ss"))
|
||||
|
||||
(current-helpdesk-platform 'internal-browser)
|
||||
(helpdesk-platform 'internal-browser)
|
||||
|
||||
(provide help-desk-frame<%>)
|
||||
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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 '()]))
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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)])])
|
||||
|
|
|
@ -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)])
|
||||
|
|
Loading…
Reference in New Issue
Block a user