me/guix
Archived
1
0
Fork 0
Code Activity

gnu: bash-completion: Remove completions redundant with those of util-linux.

Browse source 
* gnu/packages/bash.scm (bash-completion)[arguments]: New field.
This commit is contained in:
Ludovic Courtès 2015-04-19 22:46:10 +02:00
parent ee8591990f
commit b16b77905c
1 changed files with 24 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
gnu/packages/bash.scm
View file

@ -23,6 +23,7 @@
#:use-module (gnu packages ncurses) #:use-module (gnu packages ncurses)
#:use-module (gnu packages readline) #:use-module (gnu packages readline)
#:use-module (gnu packages bison) #:use-module (gnu packages bison)
#:use-module (gnu packages linux)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix utils) #:use-module (guix utils)
@ -247,6 +248,29 @@ without modification.")
(patches (patches
(list (search-patch "bash-completion-directories.patch"))))) (list (search-patch "bash-completion-directories.patch")))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs `(("util-linux" ,util-linux)))
(arguments
`(#:phases (alist-cons-after
'install 'remove-redundant-completions
(lambda* (#:key inputs outputs #:allow-other-keys)
;; Util-linux comes with a bunch of completion files for
;; its own commands which are more sophisticated and
;; up-to-date than those of bash-completion. Remove those
;; from bash-completion.
(let* ((out (assoc-ref outputs "out"))
(util-linux (assoc-ref inputs "util-linux"))
(completions (string-append out
"/share/bash-completion"
"/completions"))
(already (find-files (string-append util-linux
"/etc/bash_completion.d"))))
(with-directory-excursion completions
(for-each (lambda (file)
(when (file-exists? file)
(delete-file file)))
(map basename already)))
#t))
%standard-phases)))
(synopsis "Bash completions for common commands") (synopsis "Bash completions for common commands")
(description (description
"This package provides extensions that allow Bash to provide adapted "This package provides extensions that allow Bash to provide adapted