[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
69/244: gnu: txr: Improve style.
From: |
guix-commits |
Subject: |
69/244: gnu: txr: Improve style. |
Date: |
Wed, 12 Apr 2023 08:47:22 -0400 (EDT) |
apteryx pushed a commit to branch staging
in repository guix.
commit a558df03517a12abae85004661c8901c10eb7856
Author: Guillaume Le Vaillant <glv@posteo.net>
AuthorDate: Tue Apr 4 10:20:02 2023 +0200
gnu: txr: Improve style.
* gnu/packages/lisp.scm (txr)[arguments]: Use gexps.
[home-page]: Update it.
---
gnu/packages/lisp.scm | 111 +++++++++++++++++++++++++-------------------------
1 file changed, 55 insertions(+), 56 deletions(-)
diff --git a/gnu/packages/lisp.scm b/gnu/packages/lisp.scm
index ebb0e15cbf..30b7a46564 100644
--- a/gnu/packages/lisp.scm
+++ b/gnu/packages/lisp.scm
@@ -993,61 +993,60 @@ the HTML documentation of TXR.")
(base32 "1ypsgakhak0znmg3wzblfcwd4s4nanzm61dz66gwi48rfnq35znl"))))
(build-system gnu-build-system)
(arguments
- `(#:configure-flags
- (list ,(string-append "cc=" (cc-for-target))
- (string-append "--prefix=" (assoc-ref %outputs "out")))
- #:test-target "tests"
- #:phases
- (modify-phases %standard-phases
- (add-after 'unpack 'fix-license-installation
- (lambda* (#:key outputs #:allow-other-keys)
- (substitute* "Makefile"
- (("INSTALL(,.*LICENSE,.*)\\$\\(datadir\\)" _ match)
- (string-append "INSTALL" match
- (assoc-ref outputs "out")
- "/share/doc/" ,name "-" ,version)))))
- (delete 'install-license-files)
- (add-after 'unpack 'inhibit-doc-syms-generation
- (lambda _
- (substitute* "genman.txr"
- ;; Exit from genman.txr before it tries to write to
- ;; stdlib/doc-syms.tl, which is anyway kept up to date with
- ;; each release (and is already compiled to stdlib/doc-syms.tlo
- ;; when genman.txr is run).
- (("^@\\(output \"stdlib/doc-syms\\.tl\"\\).*" line)
- (string-append "@(do (exit))\n" line)))))
- (add-after 'unpack 'fix-paths
- (lambda* (#:key inputs #:allow-other-keys)
- (substitute* "stream.c"
- (("/bin/sh")
- (string-append (assoc-ref inputs "bash") "/bin/bash")))))
- (add-after 'unpack 'fix-tests
- (lambda _
- (substitute* (list "tests/017/realpath.tl"
- "tests/017/realpath.expected")
- (("/usr/bin") "/"))))
- (replace 'configure
- ;; ./configure is a hand-written script that can't handle standard
- ;; autotools arguments like CONFIG_SHELL.
- (lambda* (#:key configure-flags #:allow-other-keys)
- (setenv "txr_shell" (which "bash"))
- (apply invoke "./configure" configure-flags)))
- (add-after 'build 'build-doc
- (lambda _
- (setenv "GS_GENERATE_UUIDS" "0")
- (invoke "make" "txr-manpage.html" "txr-manpage.pdf")))
- (add-after 'install 'install-doc
- (lambda* (#:key outputs #:allow-other-keys)
- (let ((doc (string-append (assoc-ref outputs "out")
- "/share/doc/" ,name "-" ,version)))
- (for-each (lambda (f) (install-file f doc))
- '("txr-manpage.html" "txr-manpage.pdf")))))
- (add-after 'install 'install-vim-files
- (lambda* (#:key outputs #:allow-other-keys)
- (let* ((out (assoc-ref outputs "out"))
- (syntax (string-append out "/share/vim/vimfiles/syntax")))
- (install-file "tl.vim" syntax)
- (install-file "txr.vim" syntax)))))))
+ (list #:configure-flags
+ #~(list (string-append "cc=" #$(cc-for-target))
+ (string-append "--prefix=" #$output))
+ #:test-target "tests"
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'unpack 'fix-license-installation
+ (lambda _
+ (substitute* "Makefile"
+ (("INSTALL(,.*LICENSE,.*)\\$\\(datadir\\)" _ match)
+ (string-append "INSTALL" match #$output
+ "/share/doc/" #$name "-" #$version)))))
+ (delete 'install-license-files)
+ (add-after 'unpack 'inhibit-doc-syms-generation
+ (lambda _
+ (substitute* "genman.txr"
+ ;; Exit from genman.txr before it tries to write to
+ ;; stdlib/doc-syms.tl, which is anyway kept up to date
+ ;; with each release (and is already compiled to
+ ;; stdlib/doc-syms.tlo when genman.txr is run).
+ (("^@\\(output \"stdlib/doc-syms\\.tl\"\\).*" line)
+ (string-append "@(do (exit))\n" line)))))
+ (add-after 'unpack 'fix-paths
+ (lambda* (#:key inputs #:allow-other-keys)
+ (substitute* "stream.c"
+ (("/bin/sh")
+ (search-input-file inputs "/bin/bash")))))
+ (add-after 'unpack 'fix-tests
+ (lambda _
+ (substitute* (list "tests/017/realpath.tl"
+ "tests/017/realpath.expected")
+ (("/usr/bin") "/"))))
+ (replace 'configure
+ ;; ./configure is a hand-written script that can't handle
+ ;; standard autotools arguments like CONFIG_SHELL.
+ (lambda* (#:key configure-flags #:allow-other-keys)
+ (setenv "txr_shell" (which "bash"))
+ (apply invoke "./configure" configure-flags)))
+ (add-after 'build 'build-doc
+ (lambda _
+ (setenv "GS_GENERATE_UUIDS" "0")
+ (invoke "make" "txr-manpage.html" "txr-manpage.pdf")))
+ (add-after 'install 'install-doc
+ (lambda _
+ (let ((doc (string-append #$output "/share/doc/"
+ #$name "-" #$version)))
+ (for-each (lambda (f) (install-file f doc))
+ '("txr-manpage.html" "txr-manpage.pdf")))))
+ (add-after 'install 'install-vim-files
+ (lambda _
+ (let ((syntax (string-append #$output
+ "/share/vim/vimfiles/syntax")))
+ (install-file "tl.vim" syntax)
+ (install-file "txr.vim" syntax)))))))
(native-inputs
;; Required to build the documentation.
(list ghostscript
@@ -1066,7 +1065,7 @@ extraction language referred to as the TXR Pattern
Language (sometimes just
used for everything from \"one liner\" data transformation tasks at the
command line, to data scanning and extracting scripts, to full application
development in a wide-range of areas.")
- (home-page "https://nongnu.org/txr/")
+ (home-page "https://www.nongnu.org/txr/")
(license license:bsd-2)))
(define picolisp32
- 209/244: gnu: emacs-flycheck-guile: Update to 0.5., (continued)
- 209/244: gnu: emacs-flycheck-guile: Update to 0.5., guix-commits, 2023/04/12
- 172/244: gnu: gallery-dl: Update to 1.25.1., guix-commits, 2023/04/12
- 194/244: gnu: libxfce4ui: Update to 4.18.3., guix-commits, 2023/04/12
- 236/244: gnu: mu: Update to 1.10.2., guix-commits, 2023/04/12
- 181/244: import: opam: Tweak doc for '--repo' option., guix-commits, 2023/04/12
- 205/244: guix-install.sh: Source both profiles, default user's and home., guix-commits, 2023/04/12
- 223/244: gnu: s6-linux-init: Update to 1.1.1.0., guix-commits, 2023/04/12
- 177/244: home: Add gpg-agent service., guix-commits, 2023/04/12
- 193/244: gnu: fcitx5-rime: Update to 5.0.16., guix-commits, 2023/04/12
- 68/244: gnu: txr: Update to 285., guix-commits, 2023/04/12
- 69/244: gnu: txr: Improve style.,
guix-commits <=
- 80/244: teams: Add Maxim Cournoyer., guix-commits, 2023/04/12
- 90/244: gnu: r-ecp: Update to 3.1.4., guix-commits, 2023/04/12
- 97/244: gnu: r-interp: Update to 1.1-4., guix-commits, 2023/04/12
- 88/244: gnu: r-ggpp: Update to 0.5.2., guix-commits, 2023/04/12
- 92/244: gnu: r-prodlim: Update to 2023.03.31., guix-commits, 2023/04/12
- 96/244: gnu: r-flextable: Update to 0.9.1., guix-commits, 2023/04/12
- 89/244: gnu: r-ggvenn: Update to 0.1.10., guix-commits, 2023/04/12
- 103/244: gnu: r-parameters: Update to 0.20.3., guix-commits, 2023/04/12
- 86/244: gnu: r-numbat: Update to 1.3.0., guix-commits, 2023/04/12
- 109/244: gnu: r-projpred: Update to 2.5.0., guix-commits, 2023/04/12