www

commit 1345bbf79a68dfe0a430de3a4c068eef05536e79
parent ea03cf531e66f632e24cde2154e4a38af6ab0e58
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Fri, 26 Jul 2013 20:21:05 -0600

Windows installer: offer to auto-launch DrRacket

The 'start-menu? aux key for launcher creation changed to 'start-menu,
with a real-number value indicating a request and precedence for
auto-launching (where a precedence is needed because only one application
can be auto-launched).

original commit: 81079b3a0231a6a287a0939bd89addf76e0952af

Diffstat:
M
pkgs/distro-build/installer-exe.rkt
 | 
12
+++++++++++-

1 file changed, 11 insertions(+), 1 deletion(-)
diff --git a/pkgs/distro-build/installer-exe.rkt b/pkgs/distro-build/installer-exe.rkt
@@ -29,6 +29,15 @@
   (get-exe-actions src-dir "startmenu.rktd"
                    (lambda (k v) k)))
 
+(define (get-auto-launch src-dir)
+  (define l
+    (filter (lambda (p) (real? (cdr p)))
+            (get-exe-actions src-dir "startmenu.rktd"
+                             cons)))
+  (if (null? l)
+      #f
+      (path-replace-suffix (caar (sort l < #:key cdr)) #"")))
+
 (define (try-exe f)
   (and (file-exists? f) f))
 
@@ -419,5 +428,6 @@ SectionEnd
                  makensis
                  #:release release?
                  #:extension-registers (get-extreg "bundle/racket")
-                 #:start-menus (get-startmenu "bundle/racket"))
+                 #:start-menus (get-startmenu "bundle/racket")
+                 #:auto-launch (get-auto-launch "bundle/racket"))
   exe-path)