me
/
guix
Archived
1
0
Fork 0
Code

gnu: emacs-dvc: Use new style. 

* gnu/packages/emacs-xyz.scm (emacs-dvc)[arguments]<#:configure-flags>: Use
gexps.
<#:phases>: Remove trailing #T.
[native-inputs]: Remove labels.
[synopsis]: Remove trailing dot.
master
Nicolas Goaziou 2021-12-14 19:59:41 +01:00
parent 64ed2d8414
commit b484301f52
No known key found for this signature in database
GPG Key ID: DA00B4F048E92F2D
1 changed files with 26 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
gnu/packages/emacs-xyz.scm
View File

@ -127,6 +127,7 @@
#:use-module (guix cvs-download) #:use-module (guix cvs-download)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix bzr-download) #:use-module (guix bzr-download)
#:use-module (guix gexp)
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module (guix hg-download) #:use-module (guix hg-download)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
@ -5816,49 +5817,40 @@ completion of relevant keywords.")
(url "lp:dvc") (url "lp:dvc")
(revision revision))) (revision revision)))
(sha256 (sha256
(base32 (base32 "03pqn493w70wcpgaxvqnfgynxghw114l9pyiv3r414d84vzhan6h"))
"03pqn493w70wcpgaxvqnfgynxghw114l9pyiv3r414d84vzhan6h"))
(file-name (string-append name "-" version "-checkout")))) (file-name (string-append name "-" version "-checkout"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:modules ((guix build gnu-build-system) (list
#:modules `((guix build gnu-build-system)
((guix build emacs-build-system) #:prefix emacs:) ((guix build emacs-build-system) #:prefix emacs:)
(guix build utils)) (guix build utils))
#:imported-modules (,@%gnu-build-system-modules #:imported-modules `(,@%gnu-build-system-modules
(guix build emacs-build-system) (guix build emacs-build-system)
(guix build emacs-utils)) (guix build emacs-utils))
#:configure-flags #:configure-flags
(list (string-append "--with-lispdir=" #~(list (string-append "--with-lispdir="
(emacs:elpa-directory (assoc-ref %outputs "out")))) (emacs:elpa-directory #$output)))
#:tests? #f ;no test suite #:tests? #f ;no test suite
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-before 'build 'set-home (add-before 'build 'set-home
;; Something in dvc-bookmarks.el attempts to write config files in ;; Something in dvc-bookmarks.el attempts to write config files
;; $HOME during the autoload generation. ;; in $HOME during the autoload generation.
(lambda _ (setenv "HOME" (getenv "TMPDIR")) #t)) (lambda _ (setenv "HOME" (getenv "TMPDIR"))))
(add-before 'build 'fix-texinfo (add-before 'build 'fix-texinfo
;; See https://bugs.launchpad.net/dvc/+bug/1264383. ;; See https://bugs.launchpad.net/dvc/+bug/1264383.
(lambda _ (lambda _
(substitute* "texinfo/dvc-intro.texinfo" (substitute* "texinfo/dvc-intro.texinfo"
(("@itemx update ``to''") (("@itemx update ``to''") "@item update ``to''")
"@item update ``to''") (("@itemx brief") "@item brief")
(("@itemx brief") (("@itemx full") "@item full")
"@item brief") (("@itemx drop") "@item drop")
(("@itemx full") (("@itemx left file") "@item left file")))))))
"@item full")
(("@itemx drop")
"@item drop")
(("@itemx left file")
"@item left file"))
#t)))))
(native-inputs (native-inputs
`(("autoconf" ,autoconf) (list autoconf automake emacs-minimal texinfo))
("automake" ,automake) ;for aclocal
("emacs" ,emacs-minimal)
("texinfo" ,texinfo)))
(home-page "http://xsteve.at/prg/emacs_dvc/index.html") (home-page "http://xsteve.at/prg/emacs_dvc/index.html")
(synopsis "Emacs front-end for various distributed version control systems.") (synopsis "Emacs front-end for various distributed version control systems")
(description "DVC is a legacy Emacs front-end for a number of (description "DVC is a legacy Emacs front-end for a number of
distributed version control systems. It currently supports GNU Arch, GNU distributed version control systems. It currently supports GNU Arch, GNU
Bazaar, git, Mercurial, and Monotone. It also provides some integration with Bazaar, git, Mercurial, and Monotone. It also provides some integration with