diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2022-02-07 18:43:33 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2022-02-07 18:43:33 +0100 |
commit | 3fe905ebdd949360b986144082734f8bdb2b6017 (patch) | |
tree | 5f8ca0306086e1490788b31b76a943cbe5ac8126 | |
parent | 89d928f412f53f74ed4bce79214384352426d300 (diff) | |
download | guix-3fe905ebdd949360b986144082734f8bdb2b6017.tar.gz |
gnu: gnome-arcade: Improve package style.
* gnu/packages/emulators.scm (gnome-arcade)[arguments]: Use G-expressions. <#:phases>: Remove trailing #T. [inputs]: Remove labels. [description]: Start with a complete sentence.
-rw-r--r-- | gnu/packages/emulators.scm | 72 |
1 files changed, 33 insertions, 39 deletions
diff --git a/gnu/packages/emulators.scm b/gnu/packages/emulators.scm index 1323568f33..9ec73bc11f 100644 --- a/gnu/packages/emulators.scm +++ b/gnu/packages/emulators.scm @@ -1903,51 +1903,45 @@ functions. The source code to MAME serves as this documentation.") "1qc01a62p65qb6mwjfmxqsd6n3rglsfwrjhsp25nr7q54107n55l")))) (build-system cmake-build-system) (arguments - `(#:tests? #f ; No tests. - #:configure-flags (list - (string-append "-DMAME_BIN=\"" - (assoc-ref %build-inputs "mame") - "/bin/mame\"") - (string-append "-DAPP_RES=\"" - (assoc-ref %outputs "out") - "/share/gnome-arcade/\"")) - #:phases - (modify-phases %standard-phases - (add-before 'build 'fix-paths - (lambda* (#:key outputs #:allow-other-keys) - (let ((out (assoc-ref outputs "out"))) - (pk 'cwd (getcwd)) - (substitute* "../source/src/config.c" - (("/usr/share") (string-append out "/share")))) - #t)) - (replace 'install - (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (bin (string-append out "/bin")) - (rom (string-append out "/share/gnome-arcade/data/rom")) - (tile (string-append out "/share/gnome-arcade/data/tile"))) - (mkdir-p bin) - (install-file "../gnome-arcade" bin) - (copy-recursively "../source/res" - (string-append out "/share/gnome-arcade/res")) - (mkdir-p rom) - (install-file "../source/data/rom/ROM.TXT" rom) - (mkdir-p tile) - (install-file "../source/data/tile/TILE.TXT" tile)) - #t))))) + (list + #:tests? #f ; No tests. + #:configure-flags + #~(list + (string-append "-DMAME_BIN=\"" + #$(this-package-input "mame") + "/bin/mame\"") + (string-append "-DAPP_RES=\"" #$output "/share/gnome-arcade/\"")) + #:phases + #~(modify-phases %standard-phases + (add-before 'build 'fix-paths + (lambda _ + (substitute* "../source/src/config.c" + (("/usr/share") (string-append #$output "/share"))))) + (replace 'install + (lambda _ + (let ((bin (string-append #$output "/bin")) + (rom (string-append #$output + "/share/gnome-arcade/data/rom")) + (tile (string-append #$output + "/share/gnome-arcade/data/tile"))) + (mkdir-p bin) + (install-file "../gnome-arcade" bin) + (copy-recursively "../source/res" + (string-append #$output + "/share/gnome-arcade/res")) + (mkdir-p rom) + (install-file "../source/data/rom/ROM.TXT" rom) + (mkdir-p tile) + (install-file "../source/data/tile/TILE.TXT" tile))))))) (native-inputs (list pkg-config)) (inputs - `(("mame" ,mame) - ("gtk" ,gtk+) - ("libevdev" ,libevdev) - ("libvlc" ,vlc) - ("libarchive" ,libarchive))) + (list gtk+ libarchive libevdev mame vlc)) (home-page "https://github.com/strippato/gnome-arcade") (synopsis "Minimal MAME frontend") (description - "A minimal GTK+ frontend for MAME, the multi-purpose arcade and console -emulator.") + "Gnome Arcade is a minimal GTK+ frontend for MAME, the multi-purpose +arcade and console emulator.") (license license:gpl3+))) (define-public pcsxr |