From 5522015885484fd30324a83df5a03c6f379f4a15 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Thu, 4 Aug 2011 14:27:29 -0700
Subject: [PATCH] tools.deploy: add deploy-help? option to include
 documentation in deployed image

---
 basis/tools/deploy/backend/backend.factor | 1 +
 basis/tools/deploy/config/config.factor   | 2 ++
 basis/ui/tools/deploy/deploy.factor       | 1 +
 3 files changed, 4 insertions(+)

diff --git a/basis/tools/deploy/backend/backend.factor b/basis/tools/deploy/backend/backend.factor
index 9f25808c9e..f352b08930 100644
--- a/basis/tools/deploy/backend/backend.factor
+++ b/basis/tools/deploy/backend/backend.factor
@@ -53,6 +53,7 @@ ERROR: can't-deploy-library-file library ;
         deploy-math? get [ "math" , ] when
         deploy-threads? get [ "threads" , ] when
         "compiler" ,
+        deploy-help? get [ "help" , ] when
         deploy-ui? get [ "ui" , ] when
         deploy-unicode? get [ "unicode" , ] when
         native-io? [ "io" , ] when
diff --git a/basis/tools/deploy/config/config.factor b/basis/tools/deploy/config/config.factor
index aa3701dc85..25d6de5147 100644
--- a/basis/tools/deploy/config/config.factor
+++ b/basis/tools/deploy/config/config.factor
@@ -11,6 +11,7 @@ SYMBOL: deploy-console?
 SYMBOL: deploy-math?
 SYMBOL: deploy-unicode?
 SYMBOL: deploy-threads?
+SYMBOL: deploy-help?
 
 SYMBOL: deploy-io
 
@@ -57,6 +58,7 @@ SYMBOL: deploy-image
         { deploy-io                 2 }
         { deploy-reflection         1 }
         { deploy-threads?           t }
+        { deploy-help?              f }
         { deploy-unicode?           f }
         { deploy-math?              t }
         { deploy-word-props?        f }
diff --git a/basis/ui/tools/deploy/deploy.factor b/basis/ui/tools/deploy/deploy.factor
index 3a5f31bee3..367dcc66cc 100644
--- a/basis/ui/tools/deploy/deploy.factor
+++ b/basis/ui/tools/deploy/deploy.factor
@@ -34,6 +34,7 @@ TUPLE: deploy-gadget < pack vocab settings ;
     "Advanced:" <label> add-gadget
     deploy-math? get "Rational and complex number support" <checkbox> add-gadget
     deploy-threads? get "Threading support" <checkbox> add-gadget
+    deploy-help? get "Include docs (requires math and threads)" <checkbox> add-gadget
     deploy-unicode? get "Unicode character literal support" <checkbox> add-gadget
     deploy-word-props? get "Retain all word properties" <checkbox> add-gadget
     deploy-word-defs? get "Retain all word definitions" <checkbox> add-gadget