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

unix installer: repair .desktop exec path conversion

Browse Source
This commit is contained in:
Matthew Flatt 2013-11-19 15:50:12 -07:00
parent 408031a01d
commit 17275e3f37
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/collects/setup/unixstyle-install.rkt
View File

@ -272,7 +272,11 @@
(define new-ls (for/list ([l (in-list ls)]) (define new-ls (for/list ([l (in-list ls)])
(cond (cond
[(regexp-match? #rx"^Exec=" l) [(regexp-match? #rx"^Exec=" l)
(format "Exec=~a" (fixup-path bindir (substring l 5)))] ;; Assume anything after a space is the argument spec:
(let ([m (regexp-match #rx"Exec=([^ ]*)(.*)" l)])
(format "Exec=~a~a"
(fixup-path bindir (cadr m))
(caddr m)))]
[(regexp-match? #rx"^Icon=" l) [(regexp-match? #rx"^Icon=" l)
(format "Icon=~a" (fixup-path sharerktdir (substring l 5)))] (format "Icon=~a" (fixup-path sharerktdir (substring l 5)))]
[else l]))) [else l])))