See the attached file for reference. Put it into a guix checkout under nonfree/packages/
Does that help as a starting point? Regards, Flo On 06/22/2016 12:50 PM, Florian Paul Schmidt wrote: > > > On 22.06.2016 01:21, christoph vogelsberg wrote: >> Hello >> >> I have a fresh installation of GuixSD and I'm keen of learning more. I >> struggle with a concept and don't know how to circumvent best: >> >> Binaries built for ordinary Linux's (as, in my case, Firefox Developer >> Edition) expect libraries on certain standard pathes which doesn't >> exist on GuixSD. I found three possibilities that might work: >> >> * use fakechroot to make my user profile a pseudo root (disadvantage: >> I have no experience, it seams there is no package for that) >> * create symbolic links (disadvantage: new builts get a new path with >> a hash value and must be re-linked properly) >> * install a minimal Linux and use Guix instead of GuixSD >> (disadvantage: this would the point where I had capitulated) >> >> My question: is there an already elabored way, documentation and so >> on, for this specific problem? > > There's a tool that you can use to hack library paths in ELF binaries. I > once packaged the binary releases of firefox and thunderbird using that > way, but I took the repos containing the package definitions offline due > to licensing issues. You could use those as a starting point. If you > wish I can dig out my local copies of the repos once I get home.. > > Regards, > Flo > -- https://fps.io
(define-module (nonfree packages mozilla)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix build-system trivial)
#:use-module (guix licenses)
#:use-module (gnu packages base)
#:use-module (gnu packages xorg)
#:use-module (gnu packages elf)
#:use-module (gnu packages gcc)
#:use-module (gnu packages linux)
#:use-module (gnu packages compression)
#:use-module (gnu packages fontutils)
#:use-module (gnu packages glib)
#:use-module (gnu packages gtk)
#:use-module (gnu packages bash))
(define-public firefox
(let*
((archive-base-name
"firefox-42.0")
(archive-name
(string-append archive-base-name ".tar.bz2"))
(archive-uri
(string-append "https://download-installer.cdn.mozilla.net/pub/firefox/releases/42.0/linux-x86_64/en-US/"; archive-name)))
(package
(name "firefox")
(version "42.0")
(source
(origin
(method url-fetch)
(uri archive-uri)
(sha256
(base32
"1mrghfdkzyxpainnqgl76m08cs6cwy4l89iamnn58q94malpq1z3"))))
(supported-systems '("x86_64-linux"))
(inputs
`(("tar" ,tar)
("bzip2" ,bzip2)
("coreutils" ,coreutils)
("glibc" ,glibc)
("gcc" ,gcc-4.9 ,"lib")
("libstdc++" ,libstdc++-4.9)
("libx11" ,libx11)
("libxext" ,libxext)
("libxdamage" ,libxdamage)
("libxfixes" ,libxfixes)
("libxcomposite" ,libxcomposite)
("libxrender" ,libxrender)
("libxt" ,libxt)
("alsa-lib" ,alsa-lib)
("freetype" ,freetype)
("fontconfig" ,fontconfig)
("dbus-glib" ,dbus-glib)
("glib" ,glib)
("gtk+" ,gtk+-2)
("atk" ,atk)
("pango" ,pango)
("cairo" ,cairo)
("gdk-pixbuf" ,gdk-pixbuf)
("dbus" ,dbus)
("patchelf" ,patchelf)))
(build-system trivial-build-system)
(arguments
'(#:modules
((guix build utils))
#:builder
(begin
(use-modules (guix build utils))
(let*
((out (assoc-ref %outputs "out"))
(source (assoc-ref %build-inputs "source"))
(tar (string-append (assoc-ref %build-inputs "tar") "/bin/tar"))
(patchelf (string-append (assoc-ref %build-inputs "patchelf") "/bin/patchelf"))
(ld (string-append (assoc-ref %build-inputs "glibc") "/lib/"))
(PATH
(string-append
(assoc-ref %build-inputs "bzip2")
"/bin"
":"
(assoc-ref %build-inputs "tar")
"/bin"
))
(RPATH
(string-append
(assoc-ref %build-inputs "freetype") "/lib" ":"
(assoc-ref %build-inputs "fontconfig") "/lib" ":"
(assoc-ref %build-inputs "libx11") "/lib" ":"
(assoc-ref %build-inputs "libxrender") "/lib" ":"
(assoc-ref %build-inputs "libxext") "/lib" ":"
(assoc-ref %build-inputs "libxdamage") "/lib" ":"
(assoc-ref %build-inputs "libxfixes") "/lib" ":"
(assoc-ref %build-inputs "libxt") "/lib" ":"
(assoc-ref %build-inputs "libxcomposite") "/lib" ":"
(assoc-ref %build-inputs "alsa-lib") "/lib" ":"
(assoc-ref %build-inputs "dbus-glib") "/lib" ":"
(assoc-ref %build-inputs "glib") "/lib" ":"
(assoc-ref %build-inputs "gtk+") "/lib" ":"
(assoc-ref %build-inputs "atk") "/lib" ":"
(assoc-ref %build-inputs "pango") "/lib" ":"
(assoc-ref %build-inputs "cairo") "/lib" ":"
(assoc-ref %build-inputs "gdk-pixbuf") "/lib" ":"
(assoc-ref %build-inputs "dbus") "/lib" ":"
(assoc-ref %build-inputs "libstdc++") "/lib" ":"
(assoc-ref %build-inputs "glibc") "/lib" ":"
(assoc-ref %build-inputs "gcc") "/lib"))
(ln (string-append (assoc-ref %build-inputs "coreutils") "/bin/ln")))
(mkdir-p out)
(mkdir-p (string-append out "/bin"))
(with-directory-excursion out
(setenv "PATH" PATH)
(system* tar "xf" source)
(system* patchelf "--set-interpreter" (string-append ld "/ld-linux-x86-64.so.2") (string-append out "/firefox/firefox"))
(system* patchelf "--set-rpath" RPATH (string-append out "/firefox/firefox"))
(system* patchelf "--set-rpath" RPATH (string-append out "/firefox/libxul.so"))
(system* ln "-s" (string-append out "/firefox/firefox") (string-append out "/bin/firefox")))))))
(synopsis "Firefox")
(description "Pretty cool")
(home-page "http://mozilla.com/firefox";)
(license "somewhat shaky"))))
(define-public thunderbird
(let*
((archive-base-name
"thunderbird-38.4.0")
(archive-name
(string-append archive-base-name ".tar.bz2"))
(archive-uri
(string-append "http://download.cdn.mozilla.net/pub/thunderbird/releases/38.4.0/linux-x86_64/en-US/"; archive-name)))
(package
(name "thunderbird")
(version "38.4.0")
(source
(origin
(method url-fetch)
(uri archive-uri)
(sha256
(base32
"10bpvajf4r7588pgzh7kalzanwsxcmp10wk3xkpr3nx66was7ng8"))))
(supported-systems '("x86_64-linux"))
(inputs
`(("tar" ,tar)
("bzip2" ,bzip2)
("coreutils" ,coreutils)
("glibc" ,glibc)
("gcc" ,gcc-4.9 ,"lib")
("libstdc++" ,libstdc++-4.9)
("libx11" ,libx11)
("libxext" ,libxext)
("libxdamage" ,libxdamage)
("libxfixes" ,libxfixes)
("libxcomposite" ,libxcomposite)
("libxrender" ,libxrender)
("libxt" ,libxt)
("alsa-lib" ,alsa-lib)
("freetype" ,freetype)
("fontconfig" ,fontconfig)
("dbus-glib" ,dbus-glib)
("glib" ,glib)
("gtk+" ,gtk+-2)
("atk" ,atk)
("pango" ,pango)
("cairo" ,cairo)
("gdk-pixbuf" ,gdk-pixbuf)
("dbus" ,dbus)
("patchelf" ,patchelf)))
(build-system trivial-build-system)
(arguments
'(#:modules
((guix build utils))
#:builder
(begin
(use-modules (guix build utils))
(let*
((out (assoc-ref %outputs "out"))
(source (assoc-ref %build-inputs "source"))
(tar (string-append (assoc-ref %build-inputs "tar") "/bin/tar"))
(patchelf (string-append (assoc-ref %build-inputs "patchelf") "/bin/patchelf"))
(ld (string-append (assoc-ref %build-inputs "glibc") "/lib/"))
(PATH
(string-append
(assoc-ref %build-inputs "bzip2")
"/bin"
":"
(assoc-ref %build-inputs "tar")
"/bin"
))
(RPATH
(string-append
(assoc-ref %build-inputs "freetype") "/lib" ":"
(assoc-ref %build-inputs "fontconfig") "/lib" ":"
(assoc-ref %build-inputs "libx11") "/lib" ":"
(assoc-ref %build-inputs "libxrender") "/lib" ":"
(assoc-ref %build-inputs "libxext") "/lib" ":"
(assoc-ref %build-inputs "libxdamage") "/lib" ":"
(assoc-ref %build-inputs "libxfixes") "/lib" ":"
(assoc-ref %build-inputs "libxt") "/lib" ":"
(assoc-ref %build-inputs "libxcomposite") "/lib" ":"
(assoc-ref %build-inputs "alsa-lib") "/lib" ":"
(assoc-ref %build-inputs "dbus-glib") "/lib" ":"
(assoc-ref %build-inputs "glib") "/lib" ":"
(assoc-ref %build-inputs "gtk+") "/lib" ":"
(assoc-ref %build-inputs "atk") "/lib" ":"
(assoc-ref %build-inputs "pango") "/lib" ":"
(assoc-ref %build-inputs "cairo") "/lib" ":"
(assoc-ref %build-inputs "gdk-pixbuf") "/lib" ":"
(assoc-ref %build-inputs "dbus") "/lib" ":"
(assoc-ref %build-inputs "libstdc++") "/lib" ":"
(assoc-ref %build-inputs "glibc") "/lib" ":"
(assoc-ref %build-inputs "gcc") "/lib"))
(ln (string-append (assoc-ref %build-inputs "coreutils") "/bin/ln")))
(mkdir-p out)
(mkdir-p (string-append out "/bin"))
(with-directory-excursion out
(setenv "PATH" PATH)
(system* tar "xf" source)
(system* patchelf "--set-interpreter" (string-append ld "/ld-linux-x86-64.so.2") (string-append out "/thunderbird/thunderbird"))
(system* patchelf "--set-rpath" RPATH (string-append out "/thunderbird/thunderbird"))
(system* patchelf "--set-rpath" RPATH (string-append out "/thunderbird/libxul.so"))
(system* ln "-s" (string-append out "/thunderbird/thunderbird") (string-append out "/bin/thunderbird")))))))
(synopsis "Thunderbird")
(description "Pretty cool")
(home-page "http://mozilla.com/thunderbird";)
(license "somewhat shaky"))))
signature.asc
Description: OpenPGP digital signature
