packages: disk: Add a .desktop file and manpages for lf

pull/3/head
Luis Guilherme Coelho 2024-03-26 21:51:23 -03:00
parent 2775e40dec
commit f3dda04dca
No known key found for this signature in database
GPG Key ID: 1F2E76ACE3F531C8
1 changed files with 46 additions and 32 deletions

View File

@ -6,37 +6,51 @@
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module (guix gexp) #:use-module (guix gexp)
#:use-module (radix packages golang) #:use-module (radix packages golang)
#:use-module ((guix licenses) #:prefix license:)) #:use-module ((guix licenses) #:prefix license:)
#:replace (lf))
(define-public lf (define-public lf
(let* ((import-path "github.com/gokcehan/lf")
(lf-url (string-append "https://" import-path)))
(package (package
(name "lf") (name "lf")
(version "31") (version "31")
(source (origin (source
(origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://github.com/gokcehan/lf") (url lf-url)
(commit (string-append "r" version)))) (commit (string-append "r" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32 "03icsf4c3j7295s1d8s6srz5gf09a3lghgw3zfcd86p03zhkzsaf"))))
"03icsf4c3j7295s1d8s6srz5gf09a3lghgw3zfcd86p03zhkzsaf"))))
(build-system go-build-system) (build-system go-build-system)
(arguments (arguments
(list #:go go-1.18 (list #:go go-1.18
#:import-path "github.com/gokcehan/lf")) #:import-path import-path
#:phases
#~(let ((src (string-append "src/" #$import-path))
(man1 (string-append #$output "/share/man/man1"))
(applications (string-append #$output "/share/applications")))
(modify-phases %standard-phases
(add-after 'unpack 'install-man-page
(lambda _
(install-file (string-append src "/lf.1")
man1)))
(add-after 'unpack 'install-desktop-entry
(lambda _
(install-file (string-append src "/lf.desktop")
applications)))))))
(inputs (list go-golang-org-x-term (inputs (list go-golang-org-x-term
go-golang-org-x-sys go-golang-org-x-sys
go-github-com-mattn-go-runewidth go-github-com-mattn-go-runewidth
go-github-com-gdamore-tcell-v2 go-github-com-gdamore-tcell-v2
go-github-com-djherbis-times)) go-github-com-djherbis-times))
(home-page "https://github.com/gokcehan/lf") (home-page lf-url)
(synopsis "Console file browser similar to Ranger") (synopsis "Console file browser similar to Ranger")
(description (description "lf (as in \"list files\") is a terminal file manager
"lf (as in \"list files\") is a terminal file manager written in Go. It is heavily inspired by ranger with some missing and extra
written in Go. It is heavily inspired by ranger with some missing and features. Some of the missing features are deliberately omitted since they are
extra features. Some of the missing features are deliberately omitted better handled by external tools.")
since they are better handled by external tools.") (license license:expat))))
(license license:expat)))
lf