packages: disk: Add a .desktop file and manpages for lf
parent
2775e40dec
commit
f3dda04dca
|
@ -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
|
|
||||||
|
|
Loading…
Reference in New Issue