[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/02: gnu: borg: Install shell completions.
From: |
guix-commits |
Subject: |
02/02: gnu: borg: Install shell completions. |
Date: |
Wed, 30 Dec 2020 17:53:52 -0500 (EST) |
lfam pushed a commit to branch master
in repository guix.
commit 9d6863de245fc061f24693b58ce87e73fe299d31
Author: Michael Rohleder <mike@rohleder.de>
AuthorDate: Mon Dec 28 14:36:22 2020 +0100
gnu: borg: Install shell completions.
* gnu/packages/backup.scm (borg)[arguments]: Add new
'install-shell-completions'
phase.
Signed-off-by: Leo Famulari <leo@famulari.name>
---
gnu/packages/backup.scm | 14 ++++++++++++++
1 file changed, 14 insertions(+)
diff --git a/gnu/packages/backup.scm b/gnu/packages/backup.scm
index 64fc23b..ce6ea7f 100644
--- a/gnu/packages/backup.scm
+++ b/gnu/packages/backup.scm
@@ -17,6 +17,7 @@
;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2020 Marcin Karpezo <sirmacik@wioo.waw.pl>
+;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -672,6 +673,19 @@ detection, and lossless compression.")
"docs/misc/internals-picture.txt"
"docs/misc/prune-example.txt"))
(copy-recursively "docs/man" man)
+ #t)))
+ (add-after 'install-docs 'install-shell-completions
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (etc (string-append out "/etc"))
+ (share (string-append out "/share")))
+ (with-directory-excursion "scripts/shell_completions"
+ (install-file "bash/borg"
+ (string-append etc "/bash_completion.d"))
+ (install-file "zsh/_borg"
+ (string-append share "/zsh/site-functions"))
+ (install-file "fish/borg.fish"
+ (string-append share
"/fish/vendor_completions.d")))
#t))))))
(native-inputs
`(("python-cython" ,python-cython)