me
/
guix
Archived
1
0
Fork 0
Code

gnu: transmission: Move remaining GUI-related files to "gui" output. 

* gnu/packages/bittorrent.scm (transmission)[arguments]<phases>: Expand
"move-gui" phase to move remaining GUI-related files (AppData file,
localization files, man page) to "gui" output.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
master
Simon South 2020-11-12 11:27:06 -05:00 committed by Ludovic Courtès
parent 23526b6716
commit 0305bc9176
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gnu/packages/bittorrent.scm
View File

@ -93,14 +93,18 @@
(rename-file (string-append out "/bin/transmission-gtk") (rename-file (string-append out "/bin/transmission-gtk")
(string-append gui "/bin/transmission-gtk")) (string-append gui "/bin/transmission-gtk"))
;; Move the '.desktop' and icon files as well.
(mkdir (string-append gui "/share")) (mkdir (string-append gui "/share"))
(for-each (for-each
(lambda (dir) (lambda (dir)
(rename-file (string-append out "/share/" dir) (rename-file (string-append out "/share/" dir)
(string-append gui "/share/" dir))) (string-append gui "/share/" dir)))
'("applications" "icons" "pixmaps"))) '("appdata" "applications" "icons" "locale" "pixmaps"))
#t)))))
(mkdir-p (string-append gui "/share/man/man1"))
(rename-file
(string-append out "/share/man/man1/transmission-gtk.1")
(string-append gui "/share/man/man1/transmission-gtk.1"))
#t))))))
(inputs (inputs
`(("libevent" ,libevent) `(("libevent" ,libevent)
("curl" ,curl) ("curl" ,curl)