sharlatan pushed a commit to branch master
in repository guix.
commit b803b9aad1702f0206dfc0efd7bd456be28f3614
Author: Artyom V. Poptsov <poptsov.art...@gmail.com>
AuthorDate: Fri Mar 8 15:26:30 2024 +0300
gnu: Add tran.
* gnu/packages/shellutils.scm (tran): New variable.
Change-Id: I861be63cf773dbc67d929c86f50c4d50bdb9b41e
Signed-off-by: Sharlatan Hellseher <sharlata...@gmail.com>
---
gnu/packages/shellutils.scm | 50 +++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 50 insertions(+)
diff --git a/gnu/packages/shellutils.scm b/gnu/packages/shellutils.scm
index e58e9e61fc..41da49a966 100644
--- a/gnu/packages/shellutils.scm
+++ b/gnu/packages/shellutils.scm
@@ -55,6 +55,7 @@
#:use-module (gnu packages golang-xyz)
#:use-module (gnu packages libunistring)
#:use-module (gnu packages ncurses)
+ #:use-module (gnu packages perl)
#:use-module (gnu packages pcre)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages python)
@@ -483,6 +484,55 @@ environments. It can move files to the trash, and remove
or list files that
are already there.")
(license license:gpl2+)))
+(define-public tran
+ ;; There is no new release yet, but there are some changes in master brunch,
+ ;; see <https://github.com/kilobyte/tran/issues/4>.
+ (let ((commit "039df9529d5dfb8283edfb3c8b3cc16c01f0bfce")
+ (revision "0"))
+ (package
+ (name "tran")
+ ;; The latest upstream version seems to be "v5".
+ (version (git-version "5.0.0" revision commit))
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/kilobyte/tran";)
+ (commit commit)))
+ (file-name (string-append name "-" version "-checkout"))
+ (sha256
+ (base32 "1kzr3lfhi5f8wpwjzrzlwkxjv9rasdr9ndjdns9kd16vsh0gl2rd"))))
+ (build-system gnu-build-system)
+ (arguments
+ (list
+ #:tests? #f ;no tests
+ #:phases
+ #~(modify-phases %standard-phases
+ (delete 'configure) ;no configure provided
+ (add-after 'unpack 'patch
+ (lambda _
+ (substitute* "tran"
+ (("my \\$DATA=\"data\"")
+ (format #f "my $DATA=\"~a/share/tran/data\"" #$output)))))
+ (replace 'build
+ (lambda _
+ (invoke "make")))
+ (delete 'strip)
+ (replace 'install
+ (lambda _
+ (install-file "tran" (string-append #$output "/bin/"))
+ (install-file "tran.1" (string-append
+ #$output "/share/man/man1/"))
+ (copy-recursively "data" (string-append
+ #$output "/share/tran/data/")))))))
+ (inputs (list perl))
+ (home-page "https://github.com/kilobyte/tran";)
+ (synopsis "Transcription between character scripts")
+ (description
+ "This tool can transliterate/transcribe text both ways between the
+Latin script and other languages.")
+ (license license:expat))))
+
(define-public direnv
(package
(name "direnv")
