From b0bdd3f99d1258c3e82eb5116a07d7fcf21a8767 Mon Sep 17 00:00:00 2001 From: Luis Guilherme Coelho Date: Sat, 10 Jan 2026 15:23:31 -0300 Subject: gnu: lf: Install man page and desktop file. * gnu/packages/disk.scm (lf)[arguments]<#:phases>: Add 'install-man-page, and 'install-desktop-entry phases. Merges: https://codeberg.org/guix/guix/pulls/5531 Change-Id: I27c1e46fbf288e9896119bcb15c819ceb7ea5555 Signed-off-by: Sharlatan Hellseher --- gnu/packages/disk.scm | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/gnu/packages/disk.scm b/gnu/packages/disk.scm index 7e8aa42cacd..9a1bf3bd880 100644 --- a/gnu/packages/disk.scm +++ b/gnu/packages/disk.scm @@ -33,6 +33,7 @@ ;;; Copyright © 2025 Ashish SHUKLA ;;; Copyright © 2025 Vinicius Monego ;;; Copyright © 2025 Grigory Shepelev +;;; Copyright © 2026 Luis Guilherme Coelho ;;; ;;; This file is part of GNU Guix. @@ -1554,7 +1555,19 @@ on your file system and offers to remove it. @command{rmlint} can find: (arguments (list #:install-source? #f - #:import-path "github.com/gokcehan/lf")) + #:import-path "github.com/gokcehan/lf" + #:phases + #~(modify-phases %standard-phases + (add-after 'install 'install-man-page + (lambda* (#:key import-path #:allow-other-keys) + (install-file + (string-append "src/" import-path "/lf.1") + (string-append #$output "/share/man/man1")))) + (add-after 'install 'install-desktop-entry + (lambda* (#:key import-path #:allow-other-keys) + (install-file + (string-append "src/" import-path "/lf.desktop") + (string-append #$output "/share/applications"))))))) (native-inputs (list go-github-com-djherbis-times go-github-com-fsnotify-fsnotify -- cgit v1.3