~ruther/guix-local

9c75fecad8368841c31d318968829f8e806e383d — Zhu Zihao 10 months ago 4c130c9 
gnu: dico: Use G-expression.

* gnu/packages/dictionaries.scm (dico): Use G-expression.
[arguments]<#:configure-flags>: Replace %output with #$output.
<#:phases>: Use G-expression.

Change-Id: I2fbc8b3acb96a6456aa78d631bec7363bf0d7d48
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
patch browse .tar.gz 
1 files changed, 20 insertions(+), 18 deletions(-)

M gnu/packages/dictionaries.scm

M gnu/packages/dictionaries.scm => gnu/packages/dictionaries.scm +20 -18
@@ 86,24 86,26 @@
                "1xvahrav8aml90qcj4cj3a33y0n7nm1k0ywgks1zy2q91v2qk2vj"))))
    (build-system gnu-build-system)
    (arguments
     '(#:configure-flags (list (string-append "--with-guile-site-dir=" %output
                                              "/share/guile/site/2.0")
                               "--disable-static")
       #:phases (modify-phases %standard-phases
                  (add-before 'build 'set-shell-file-name
                    (lambda* (#:key inputs #:allow-other-keys)
                      ;; This code invokes "/bin/sh -c 'm4 -s ...'".
                      (substitute* "grecs/src/grecs-lex.c"
                        (("\"/bin/sh\"")
                         (string-append "\""
                                        (search-input-file inputs "/bin/sh")
                                        "\"")))))
                  (add-before 'check 'silence-guile
                    (lambda _
                      ;; Guile is too talkative, which disturbs the test
                      ;; infrastructure.  Gag it.
                      (setenv "GUILE_AUTO_COMPILE" "0")
                      (setenv "GUILE_WARN_DEPRECATED" "no"))))))
     (list
      #:configure-flags #~(list (string-append "--with-guile-site-dir=" #$output
                                               "/share/guile/site/2.0")
                                "--disable-static")
      #:phases
      #~(modify-phases %standard-phases
          (add-before 'build 'set-shell-file-name
            (lambda* (#:key inputs #:allow-other-keys)
              ;; This code invokes "/bin/sh -c 'm4 -s ...'".
              (substitute* "grecs/src/grecs-lex.c"
                (("\"/bin/sh\"")
                 (string-append "\""
                                (search-input-file inputs "/bin/sh")
                                "\"")))))
          (add-before 'check 'silence-guile
            (lambda _
              ;; Guile is too talkative, which disturbs the test
              ;; infrastructure.  Gag it.
              (setenv "GUILE_AUTO_COMPILE" "0")
              (setenv "GUILE_WARN_DEPRECATED" "no"))))))
    (native-inputs (list groff))
    (inputs
     (list m4                           ;used at run time