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

setup/unixstyle-install: fix DESTDIR mode for ".desktop" fixup

Browse Source 
Closes #1143
This commit is contained in:
Matthew Flatt 2015-11-24 09:49:09 -07:00
parent b443f3fe68
commit 050f708879
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -281,10 +281,10 @@
;; Assume anything after a space is the argument spec: ;; Assume anything after a space is the argument spec:
(let ([m (regexp-match #rx"Exec=([^ ]*)(.*)" l)]) (let ([m (regexp-match #rx"Exec=([^ ]*)(.*)" l)])
(format "Exec=~a~a" (format "Exec=~a~a"
(fixup-path bindir (cadr m)) (fixup-path (dir: 'bin) (cadr m))
(caddr 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 (dir: 'sharerkt) (substring l 5)))]
[else l]))) [else l])))
(unless (equal? ls new-ls) (unless (equal? ls new-ls)
(call-with-output-file (build-path appsdir d) (call-with-output-file (build-path appsdir d)