From 03eec7034fa856b77ec5d6c23bb6240efcb23922 Mon Sep 17 00:00:00 2001 From: Andrew Wong Date: Fri, 18 Apr 2025 00:06:13 -0400 Subject: [PATCH] gnu: trash-cli: Install shell completions. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/packages/shellutils.scm (trash-cli) [arguments] <#:phases>: Add 'install-completions. Change-Id: I0b165155d1da8069837bd9b93990dfaf0ff7de52 Reviewed-by: Ludovic Courtès Signed-off-by: Sharlatan Hellseher --- gnu/packages/shellutils.scm | 34 +++++++++++++++++++++++++++++++++- 1 file changed, 33 insertions(+), 1 deletion(-) diff --git a/gnu/packages/shellutils.scm b/gnu/packages/shellutils.scm index 33336e66944..769eea0b299 100644 --- a/gnu/packages/shellutils.scm +++ b/gnu/packages/shellutils.scm @@ -660,6 +660,9 @@ between various shells or commands.") (build-system python-build-system) (arguments (list + #:modules `((guix build python-build-system) + (guix build utils) + (ice-9 match)) #:phases #~(modify-phases %standard-phases (add-before 'build 'fix-setup.py (lambda* (#:key outputs #:allow-other-keys) @@ -674,7 +677,36 @@ between various shells or commands.") (replace 'check (lambda* (#:key tests? #:allow-other-keys) (when tests? - (invoke "pytest"))))))) + (invoke "pytest")))) + (add-before 'wrap 'install-completions + (lambda _ + (for-each + (lambda (binary) + (for-each + (match-lambda + ((shell . path) + (mkdir-p (dirname path)) + (with-output-to-file path + (lambda _ + (invoke + (string-append #$output "/bin/" binary) + "--print-completion" shell))))) + `(("bash" . + ,(format ;format string must be literal + #f "~a/share/bash-completion/completions/~a" + #$output binary)) + ("zsh" . + ,(format #f "~a/share/zsh/site-functions/_~a" + #$output binary)) + ("tcsh" . + ,(format #f "~a/etc/profile.d/~a.completion.csh" + #$output binary))))) + (list "trash" + "trash-empty" + "trash-list" + "trash-put" + "trash-restore" + "trash-rm"))))))) (native-inputs (list python-flexmock python-mock python-parameterized