From 1345bbf79a68dfe0a430de3a4c068eef05536e79 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 26 Jul 2013 20:21:05 -0600 Subject: [PATCH] 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 --- 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 index 53f3356..c082ba5 100644 --- 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)