tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

gnu: tmsu: Install extras.

Browse Source 
* gnu/packages/file-systems.scm (tmsu):
[phases]{install-misc, install-shell-completions, install-man-pages}:
New phases.

Change-Id: I710db66801624ed20567d3643281385a1a828171
This commit is contained in:
Sharlatan Hellseher
2026-03-06 11:17:27 +00:00
committed by Andreas Enge
parent cda484dc4e
commit 76c48cb2c7
1 changed files with 24 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
gnu/packages/file-systems.scm
View File

@@ -2230,7 +2230,30 @@ memory-efficient.")
(add-after 'install 'fix-bin-name
(lambda _
(rename-file (string-append #$output "/bin/TMSU")
(string-append #$output "/bin/tmsu")))))))
(string-append #$output "/bin/tmsu"))))
(add-after 'install 'install-misc
(lambda* (#:key import-path #:allow-other-keys)
(with-directory-excursion (string-append "src/" import-path)
(let ((bin (string-append #$output "/bin"))
(sbin (string-append #$output "/sbin")))
(for-each (lambda (f) (install-file f bin))
(list "misc/bin/tmsu-fs-merge"
"misc/bin/tmsu-fs-mv"
"misc/bin/tmsu-fs-rm"))
(install-file "misc/bin/mount.tmsu" sbin)))))
(add-after 'install 'install-shell-completions
(lambda* (#:key import-path #:allow-other-keys)
(with-directory-excursion (string-append "src/" import-path)
(let ((bash (string-append #$output "/etc/bash_completion.d"))
(zsh (string-append #$output "/share/zsh/site-functions")))
(for-each mkdir-p (list bash zsh))
(copy-file "misc/bash/tmsu" (string-append bash "/tmsu"))
(copy-file "misc/zsh/_tmsu" (string-append zsh "/_tmsu"))))))
(add-after 'install 'install-man-pages
(lambda* (#:key import-path #:allow-other-keys)
(with-directory-excursion (string-append "src/" import-path)
(install-file "misc/man/tmsu.1"
(string-append #$output "/share/man/man1"))))))))
(inputs
(list go-github-com-mattn-go-sqlite3
go-github-com-hanwen-go-fuse