# Pastebin Ruhrlx1r
(begin (use-modules (guix build utils) (srfi srfi-1) (srfi srfi-26) (ice-9 ftw)) (define (info-file? file) (or (string-suffix? ".info" file) (string-suffix? ".info.gz" file))) (define (info-files top) (let ((infodir (string-append top "/share/info"))) (map (cut string-append infodir "/" <>) (or (scandir infodir info-file?) (quote ()))))) (define (info-file-language file) (let* ((base (if (string-suffix? ".gz" file) (basename file ".info.gz") (basename file ".info"))) (dot (string-rindex base #\.))) (if dot (string-drop base (+ 1 dot)) "en"))) (define (install-info info) (let ((language (info-file-language info))) (setenv "LC_ALL" "en_US.utf8") (setenv "LANGUAGE" language) (zero? (system* "/gnu/store/r7dmaiczxb4vikn9644hsxmnh0sjyjg1-texinfo-6.5/bin/install-info" "--silent" info (apply string-append ((@ (guile) getenv) "out") "/share/info/dir" (if (string=? "en" language) (quote ("")) (quasiquote ("." (unquote language))))))))) (setenv "PATH" (string-append "/gnu/store/q09sy224qnxrp982z4xfaxi19721mjx8-gzip-1.9" "/bin")) (setenv "GUIX_LOCPATH" "/gnu/store/94k5w17z54w25lgp90czdqfv9m4hwzhq-glibc-utf8-locales-2.28/lib/locale") (mkdir-p (string-append ((@ (guile) getenv) "out") "/share/info")) (exit (every install-info (append-map info-files (quote ("/gnu/store/qn1ax1fkj16x280m1rv7mcimfmn9l2pf-bash-4.4.23" "/gnu/store/dna8kpb00kq176rz8x69yy4j33my2q55-perl-5.28.0" "/gnu/store/p62f90him5qvm4f1zaqyrhdwkqxqj2c4-make-4.2.1" "/gnu/store/nrkm1683p1cqnkcmhlmhiig9q9qd7xqh-sed-4.5" "/gnu/store/r6pb3647m3ikk7sm77b6m9z18qipjar2-grep-3.1" "/gnu/store/zzh876ap5hna7fcq7nn3kifkfkzz3xmz-gcc-glibc-2.27-toolchain-9.1.0" "/gnu/store/gada649jlylamdrnc4mb42blf80gfzk3-x86_64-linux-gnu-toolchain-9.1.0" "/gnu/store/b8269n2vn5gqmfllif1n6ml17cb6bbk1-binutils-cross-x86_64-linux-gnu-2.31.1" "/gnu/store/kjfkbmswdh27f9m8zg0f0zx9x84b6h56-glibc-cross-x86_64-linux-gnu-2.27" "/gnu/store/qdsasan0r35bnf4yy889zwsiclknp8xq-linux-libre-headers-cross-x86_64-linux-gnu-4.19.59" "/gnu/store/0pnz72dq129q59mqzin0wd798pxm14xy-glibc-cross-x86_64-linux-gnu-2.27-static" "/gnu/store/qdsasan0r35bnf4yy889zwsiclknp8xq-linux-libre-headers-cross-x86_64-linux-gnu-4.19.59" "/gnu/store/vly84z9lddz1lylpwzcrcl99hjar9vkn-gcc-cross-x86_64-linux-gnu-9.1.0" "/gnu/store/grxxi7x9v5c766vm2rzjd7xxk40ibj2r-i686-linux-gnu-toolchain-9.1.0" "/gnu/store/jx90frig7rqwmcyydp7q2xryq02x3a85-binutils-cross-i686-linux-gnu-2.31.1" "/gnu/store/ihpbaziwbs89hyibz3dwgf64c2iricsk-glibc-cross-i686-linux-gnu-2.27" "/gnu/store/rasmal87agh6w5j9dh96afznljbpp7jc-linux-libre-headers-cross-i686-linux-gnu-4.19.59" "/gnu/store/yaihw4dxhar5hcflkxkadpri96vk25qz-glibc-cross-i686-linux-gnu-2.27-static" "/gnu/store/rasmal87agh6w5j9dh96afznljbpp7jc-linux-libre-headers-cross-i686-linux-gnu-4.19.59" "/gnu/store/kvmpp42jzksxg2k3mj7qm9dmb47l17gv-gcc-cross-i686-linux-gnu-9.1.0" "/gnu/store/jm56w9j82a3pifxa1q6403ag05lkb371-aarch64-linux-gnu-toolchain-9.1.0" "/gnu/store/i9wrfrmashrlcba63iz6s99w76wkl1ca-binutils-cross-aarch64-linux-gnu-2.31.1" "/gnu/store/jm31122x7n10qdhd2xcswklbxbxp5hfw-glibc-cross-aarch64-linux-gnu-2.27" "/gnu/store/qflgw53qzxz2y9h5bl68n5vcsf6ssmbl-linux-libre-headers-cross-aarch64-linux-gnu-4.19.59" "/gnu/store/clzsv2k1fyscnb6bygf79x2rczk3mqky-glibc-cross-aarch64-linux-gnu-2.27-static" "/gnu/store/qflgw53qzxz2y9h5bl68n5vcsf6ssmbl-linux-libre-headers-cross-aarch64-linux-gnu-4.19.59" "/gnu/store/3xp8jwma88bwiwd0j042m6q0gp62wgrq-gcc-cross-aarch64-linux-gnu-9.1.0" "/gnu/store/p3alb0xxbcp6h00nks3kly9dy311xknq-arm-linux-gnueabihf-toolchain-9.1.0" "/gnu/store/sqyanlmsqf0ihc5rnawbxqa0065gx1p8-binutils-cross-arm-linux-gnueabihf-2.31.1" "/gnu/store/pzhkpdbw33pdv7z1nxwc6dpbpjnlpf5h-glibc-cross-arm-linux-gnueabihf-2.27" "/gnu/store/k8l1ssf6225kjhzs5h892v0q2r2zykz2-linux-libre-headers-cross-arm-linux-gnueabihf-4.19.59" "/gnu/store/s0acf85lf28gip9a50m9gpyf0b316w1d-glibc-cross-arm-linux-gnueabihf-2.27-static" "/gnu/store/k8l1ssf6225kjhzs5h892v0q2r2zykz2-linux-libre-headers-cross-arm-linux-gnueabihf-4.19.59" "/gnu/store/a0yd7cl89njxsrl1xn9sqr97kr0l581b-gcc-cross-arm-linux-gnueabihf-9.1.0" "/gnu/store/8a17gigv99zbzwz37mwpwi9ipqbyjq7v-riscv64-linux-gnu-toolchain-9.1.0" "/gnu/store/phx3gxzdj6vij3hcmbc6ixlyv3v5lcbx-binutils-cross-riscv64-linux-gnu-2.31.1" "/gnu/store/sdb325l7if06a116v36dbn36cfmfrsax-glibc-cross-riscv64-linux-gnu-2.27" "/gnu/store/2gb2njhnbjv3rwx817afj4iixdchjic5-linux-libre-headers-cross-riscv64-linux-gnu-4.19.59" "/gnu/store/b7svzva4dqbks399114irxkggshc0gpr-glibc-cross-riscv64-linux-gnu-2.27-static" "/gnu/store/2gb2njhnbjv3rwx817afj4iixdchjic5-linux-libre-headers-cross-riscv64-linux-gnu-4.19.59" "/gnu/store/jdxr811zv1jwa3pdgi1a3hgz8c1n8ain-gcc-cross-riscv64-linux-gnu-9.1.0" "/gnu/store/dzqc1hvavvlhxlhr2fgissgygzkcl046-libfaketime-0.9.7" "/gnu/store/nq4lsyipmfb0q7g26ra45rwwqrh3x8zw-zlib-1.2.11" "/gnu/store/ipx79bfj2mrc8npj7s3qi3zri11jfhaw-tar-1.30" "/gnu/store/bjdpj6g8x1h13xqv6fyrzaspba914z50-file-5.33" "/gnu/store/j824023k26isvahy49v923y1f0np9nf0-gawk-4.2.1" "/gnu/store/83grv6n2110hc9qbqc6k6ma470rzmmjw-bzip2-1.0.6" "/gnu/store/q09sy224qnxrp982z4xfaxi19721mjx8-gzip-1.9" "/gnu/store/im45w08z43rypxgfkzbf5bmgyxm77sx9-xz-5.2.4" "/gnu/store/5x982hxmqfxazl04drmq83f138skddmr-findutils-4.6.0" "/gnu/store/8xygxlbz1kf0sp1acnmj2cj3pqfz3b5r-diffutils-3.6" "/gnu/store/kclg4lramps6ik9fjzqr09rpm27hkd8k-patch-2.7.6" "/gnu/store/k7gymsw2xfp20fv30x5niilwnxpj2d2k-automake-1.16.1" "/gnu/store/rfaqi3a9ls7adr4y7bgwvln3iaf69qwj-autoconf-2.69" "/gnu/store/xzgfh8kdxilyymi1a8i97b1nci1iybhi-coreutils-8.30" "/gnu/store/29dazsnk3rr5j5kv9wi0p2974an9z9sk-which-2.21" "/gnu/store/2k67pvrdq9hygg2ysgflk94jhbnc9s9g-tcsh-6.20.00" "/gnu/store/1a2h56z6wlyzj05ynn4wfg03z475y5wv-libtool-2.4.6" "/gnu/store/l0gwl5mqgssgcfp0h5sbkrsl3wi315b7-m4-1.4.18" "/gnu/store/0xfmkqpi7xk3ixhrqvjijk4ibsglif62-python-3.7.0" "/gnu/store/xyiyf12w4i7zf5g5b4ah0bi1mmd6i8xa-pkg-config-0.29.2" "/gnu/store/8k4pnixpz73kxvxbjqajgbprjjmmgpxy-util-linux-2.32.1"))))))