From e9d830badbd238524c486cf4b646e864e6174a9e Mon Sep 17 00:00:00 2001 From: Samuel Bronson Date: Mon, 8 Oct 2012 12:27:30 -0400 Subject: [PATCH] Hack to keep search.js and search-context.html up-to-date in doc/ trees by pretending that make-search.zo depends on them --- collects/scribblings/main/private/make-search.rkt | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/collects/scribblings/main/private/make-search.rkt b/collects/scribblings/main/private/make-search.rkt index 5b7e2603ff..53eceacd9e 100644 --- a/collects/scribblings/main/private/make-search.rkt +++ b/collects/scribblings/main/private/make-search.rkt @@ -18,7 +18,10 @@ syntax/location setup/path-to-relative (only-in setup/dirs find-doc-dir) - "utils.rkt") + "utils.rkt" + (for-syntax racket/base) + (for-syntax racket/runtime-path) + (for-syntax compiler/cm-accomplice)) (provide make-search) @@ -29,6 +32,16 @@ ;; to heavy to load twice). (define-runtime-path search-context-page "search-context.html") +;;; FIXME: Making make-search.zo depend on these files is a HACK! +;; The point is to make sure the latest versions get installed; +;; ideally we could just inform scribble/raco that they need +;; installing, and they would just do that when appropriate. +(begin-for-syntax + (define-runtime-path search-script "search.js") + (define-runtime-path search-context-page "search-context.html") + (register-external-file search-script) + (register-external-file search-context-page)) + (define (quote-string val) (define (hex4 ch) (let ([s (number->string (char->integer (string-ref ch 0)) 16)])