suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add 'wmclass/".wmclass" aux executable/launcher configuration

Browse Source
This commit is contained in:
Matthew Flatt 2011-09-26 18:06:03 -06:00
parent f9dabb8994
commit c34dff1247
3 changed files with 22 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
collects/launcher/launcher-unit.rkt
View File

@ -310,6 +310,10 @@
[x-flags? (and (eq? kind 'mred) [x-flags? (and (eq? kind 'mred)
(eq? (system-type) 'unix) (eq? (system-type) 'unix)
(not (script-variant? variant)))] (not (script-variant? variant)))]
[flags (let ([m (assq 'wm-class aux)])
(if m
(list* "-J" (cdr m) flags)
flags))]
[post-flags (cond [post-flags (cond
[x-flags? (skip-x-flags flags)] [x-flags? (skip-x-flags flags)]
[alt-exe null] [alt-exe null]
@ -556,7 +560,15 @@
(with-input-from-file (cdar l) (with-input-from-file (cdar l)
(lambda () (lambda ()
(let ([d (read)]) (let ([d (read)])
(list (cons 'uti-exports d)))))))))) (list (cons 'uti-exports d))))))))
(let ([l (try 'wm-class #".wmclass")])
(if (null? l)
l
(with-handlers ([exn:fail:filesystem? (lambda (x) null)])
(list (cons 'wm-class
(regexp-replace #rx"(?:\r\n|\r|\n)$"
(file->string (cdar l))
""))))))))
(define (build-aux-from-path aux-root) (define (build-aux-from-path aux-root)
(let ([aux-root (if (string? aux-root) (string->path aux-root) aux-root)]) (let ([aux-root (if (string? aux-root) (string->path aux-root) aux-root)])
@ -571,7 +583,8 @@
(try #".lch") (try #".lch")
(try #".creator") (try #".creator")
(try #".filetypes") (try #".filetypes")
(try #".utiexports")))) (try #".utiexports")
(try #".wmclass"))))
(define (make-gracket-program-launcher file collection dest) (define (make-gracket-program-launcher file collection dest)
(make-mred-launcher (list "-l-" (string-append collection "/" file)) (make-mred-launcher (list "-l-" (string-append collection "/" file))

5
collects/scribblings/raco/exe-api.scrbl
View File

@ -252,7 +252,7 @@ currently supported keys are as follows:
executable, instead of a wrapper binary that execs the executable, instead of a wrapper binary that execs the
original; the default is @racket[#f].} original; the default is @racket[#f].}
@item{@racket['relative?] (Unix, Windows, Mac OS X): A boolean; @item{@racket['relative?] (Unix, Windows, Mac OS X) : A boolean;
@racket[#t] means that, to the degree that the generated @racket[#t] means that, to the degree that the generated
executable must refer to another, it can use a relative path executable must refer to another, it can use a relative path
(so the executables can be moved together, but not (so the executables can be moved together, but not
@ -260,6 +260,9 @@ currently supported keys are as follows:
absolute paths should be used (so the generated executable can absolute paths should be used (so the generated executable can
be moved).} be moved).}
@item{@racket['wm-class] (Unix) : A string; used as the default
@tt{WM_CLASS} program class for the program's windows.}
] ]
If the @racket[#:collects-path] argument is @racket[#f], then the If the @racket[#:collects-path] argument is @racket[#f], then the

3
collects/scribblings/raco/launcher.scrbl
View File

@ -340,6 +340,9 @@ are as follows:
@racket[read] content (a single S-expression); for use on @racket[read] content (a single S-expression); for use on
Mac OS X} Mac OS X}
@item{@filepath{.wmclass} @'rarr @racket['wm-class] as the literal
content, removing a trailing newline if any; for use on Unix}
]} ]}
@defparam[current-launcher-variant variant symbol?]{ @defparam[current-launcher-variant variant symbol?]{