From: phodina via Guix-patches via <guix-patches@gnu.org>
To: Maxime Devos <maximedevos@telenet.be>
Cc: 49942@debbugs.gnu.org
Subject: [bug#49942] [PATCH v2] gnu: Add shell-color-scripts.
Date: Sat, 18 Sep 2021 14:10:22 +0000 [thread overview]
Message-ID: <8r1GXqISfNJpN9TzGPo7yBAkgpq6gthRXhZYLjQkU-kWQkNvdsDZ-uXem9rTlugAAVzJLZ9zzmeaBioQzUdY8GSN1o3Tu3pwlofd6ccxTD4=@protonmail.com> (raw)
In-Reply-To: <j8v3TScCyT2ee_PoedHUN88Wwq32xEEoM11Asud9wWugE58sgw1tSxrWz7rtR9O-rJjZyZDk5xP7LkTJFLkwn8ZQgj9rFI75SGEsb8D3cw4=@protonmail.com>
Hi Maxime,
thanks for hints on improvements!
--8<---------------cut here---------------start------------->8--
* gnu/packages/terminals.scm (shell-color-scripts): New variable.
diff --git a/gnu/packages/terminals.scm b/gnu/packages/terminals.scm
index de9bec9e66..d7e3199606 100644
--- a/gnu/packages/terminals.scm
+++ b/gnu/packages/terminals.scm
@@ -27,6 +27,7 @@
;;; Copyright © 2021 Raphaël Mélotte <raphael.melotte@mind.be>
;;; Copyright © 2021 ikasero <ahmed@ikasero.com>
;;; Copyright © 2021 Brice Waegeneire <brice@waegenei.re>
+;;; Copyright © 2021 Petr Hodina <phodina@protonmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -47,6 +48,7 @@
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix build-system cargo)
#:use-module (guix build-system cmake)
+ #:use-module (guix build-system copy)
#:use-module (guix build-system gnu)
#:use-module (guix build-system glib-or-gtk)
#:use-module (guix build-system go)
@@ -58,6 +60,7 @@
#:use-module (guix utils)
#:use-module (gnu packages)
#:use-module (gnu packages autotools)
+ #:use-module (gnu packages base)
#:use-module (gnu packages build-tools) ;for meson-0.55
#:use-module (gnu packages check)
#:use-module (gnu packages cmake)
@@ -69,6 +72,7 @@
#:use-module (gnu packages fontutils)
#:use-module (gnu packages freedesktop)
#:use-module (gnu packages fribidi)
+ #:use-module (gnu packages gawk)
#:use-module (gnu packages gettext)
#:use-module (gnu packages ghostscript)
#:use-module (gnu packages gl)
@@ -810,6 +814,57 @@ It's a terminal emulator with few dependencies, so you don't need a full GNOME
desktop installed to have a decent terminal emulator.")
(license license:gpl2)))
+(define-public shell-color-scripts
+ (let ((commit "3dbdfac24bb629238fdc3e1c8909e2c8577f8735")
+ (revision "1"))
+ (package
+ (name "colorscript")
+ (version commit)
+ (source (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://gitlab.com/dwt1/shell-color-scripts")
+ (commit version)))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32
+ "0lkiz6fkrqryr1vh0lh067q7hp8ba8887pkk8caipqphjswp2z16"))))
+ (build-system copy-build-system)
+ (arguments
+ `(#:install-plan '(("colorscript.sh" "bin/colorscript.sh")
+ ("colorscripts" "colorscripts"))
+ #:phases
+ (modify-phases %standard-phases
+ (add-after 'unpack 'fix-colorscipts-location
+ (lambda* (#:key outputs #:allow-other-keys)
+ (substitute* "colorscript.sh"
+ (("/opt/shell-color-scripts/colorscripts")
+ (string-append (assoc-ref outputs "out") "/colorscripts"))
+ (("sed") (string-append
+ (assoc-ref %build-inputs "sed") "/bin/sed"))
+ (("awk") (string-append
+ (assoc-ref %build-inputs "gawk") "/bin/awk"))
+ (("wc") (string-append
+ (assoc-ref %build-inputs "coreutils") "/bin/wc"))
+ (("nl") (string-append
+ (assoc-ref %build-inputs "coreutils") "/bin/nl"))
+ (("cut") (string-append
+ (assoc-ref %build-inputs "coreutils") "/bin/cut"))
+ (("echo") (string-append
+ (assoc-ref %build-inputs "coreutils") "/bin/echo"))
+ (("printf") (string-append
+ (assoc-ref %build-inputs "coreutils") "/bin/printf"))
+ (("tr") (string-append
+ (assoc-ref %build-inputs "coreutils") "/bin/tr"))))))))
+ (inputs `(("ncurses" ,ncurses)
+ ("gawk" ,gawk)
+ ("sed" ,sed)
+ ("coreutils" ,coreutils)))
+ (synopsis "Collection of terminal color scripts")
+ (description "Collection of terminal color scripts")
+ (home-page "https://gitlab.com/dwt1/shell-color-scripts")
+ (license license:expat))))
+
(define-public go-github.com-nsf-termbox-go
(let ((commit "288510b9734e30e7966ec2f22b87c5f8e67345e3")
(revision "1"))
--
2.32.0
prev parent reply other threads:[~2021-09-18 14:13 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2021-08-08 11:50 [bug#49942] [PATCH] gnu: Add shell-color-scripts phodina via Guix-patches via
2021-09-18 8:09 ` [bug#49942] Patch status phodina via Guix-patches via
2021-09-18 13:09 ` [bug#49942] [PATCH] gnu: Add shell-color-scripts Maxime Devos
2021-09-18 14:10 ` phodina via Guix-patches via [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to='8r1GXqISfNJpN9TzGPo7yBAkgpq6gthRXhZYLjQkU-kWQkNvdsDZ-uXem9rTlugAAVzJLZ9zzmeaBioQzUdY8GSN1o3Tu3pwlofd6ccxTD4=@protonmail.com' \
--to=guix-patches@gnu.org \
--cc=49942@debbugs.gnu.org \
--cc=maximedevos@telenet.be \
--cc=phodina@protonmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/guix.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.