From 3fb5dbd1d360c8a902db1919af5010119a3d4ce0 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 22 Jun 2010 14:11:38 -0500 Subject: [PATCH] Added another status line update to drracket for planet installations, showing when docs are being built --- collects/drracket/private/unit.rkt | 2 ++ collects/planet/planet.scrbl | 2 +- collects/planet/resolver.rkt | 1 + collects/string-constants/english-string-constants.rkt | 1 + 4 files changed, 5 insertions(+), 1 deletion(-) diff --git a/collects/drracket/private/unit.rkt b/collects/drracket/private/unit.rkt index 738e9e9d8e..bbac98daf2 100644 --- a/collects/drracket/private/unit.rkt +++ b/collects/drracket/private/unit.rkt @@ -1657,6 +1657,8 @@ module browser threading seems wrong. (format (string-constant planet-downloading) package)] [(install) (format (string-constant planet-installing) package)] + [(docs-build) + (format (string-constant planet-docs-building) package)] [(finish) (format (string-constant planet-finished) package)] [else diff --git a/collects/planet/planet.scrbl b/collects/planet/planet.scrbl index cda4b46138..31d0e87e7c 100644 --- a/collects/planet/planet.scrbl +++ b/collects/planet/planet.scrbl @@ -734,7 +734,7 @@ is saved in the namespace, making the listening and information producing namespace-specific. @defproc[(planet-terse-register - [proc (-> (or/c 'download 'install 'finish) string? any/c)] + [proc (-> (or/c 'download 'install 'docs-build 'finish) string? any/c)] [namespace namespace? (current-namespace)]) void?]{ Registers @racket[proc] as a function to be called when @racket[planet-terse-log] is called with a matching namespace argument. diff --git a/collects/planet/resolver.rkt b/collects/planet/resolver.rkt index a27bed9add..0166e3f842 100644 --- a/collects/planet/resolver.rkt +++ b/collects/planet/resolver.rkt @@ -591,6 +591,7 @@ subdirectory. (ipp path the-dir (list owner pkg-name extra-path maj min)) (unless was-nested? + (planet-terse-log 'docs-build pkg-string) (printf "------------- Rebuilding documentation index -------------\n") (rud))))))) (planet-terse-log 'finish pkg-string) diff --git a/collects/string-constants/english-string-constants.rkt b/collects/string-constants/english-string-constants.rkt index 444de3f707..814dc9110c 100644 --- a/collects/string-constants/english-string-constants.rkt +++ b/collects/string-constants/english-string-constants.rkt @@ -1524,6 +1524,7 @@ please adhere to these guidelines: (planet-downloading "PLaneT: Downloading ~a...") (planet-installing "PLaneT: Installing ~a...") (planet-finished "PLaneT: Finished with ~a.") + (planet-docs-building "PLaneT: Building docs (triggered by ~a)...") (planet-no-status "PLaneT") ;; this can happen when there is status shown in a different and then the user switches to a tab where planet hasn't been used ;; string normalization. To see this, paste some text with a ligature into DrRacket