[bug#28744] guile-colorized

[bug#28744] guile-colorized

[ng0]

[-- Attachment #1.1: Type: text/plain, Size: 262 bytes --]

Colors for your REPL.

In the light of recent github mismatches:
should this use the git checkout instead?
-- 
ng0
GnuPG: A88C8ADD129828D7EAC02E52E22F9BBFEE348588
GnuPG: https://dist.krosos.org/dist/keys/
https://www.infotropique.org https://krosos.org

[-- Attachment #1.2: 0001-gnu-Add-guile-colorized.patch --]
[-- Type: text/plain, Size: 3132 bytes --]

From d5160f7e3ca160dd6ee9336770fdf2d6dc7b279f Mon Sep 17 00:00:00 2001
From: ng0 <ng0@infotropique.org>
Date: Sun, 8 Oct 2017 10:30:39 +0000
Subject: [PATCH] gnu: Add guile-colorized.

* gnu/packages/guile.scm (guile-colorized): New variable.
---
 gnu/packages/guile.scm | 49 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 49 insertions(+)

diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm
index 65d252617..caecd2b6b 100644
--- a/gnu/packages/guile.scm
+++ b/gnu/packages/guile.scm
@@ -14,6 +14,7 @@
 ;;; Copyright © 2017 David Thompson <davet@gnu.org>
 ;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
 ;;; Copyright © 2017 Theodoros Foradis <theodoros@foradis.org>
+;;; Copyright © 2017 ng0 <ng0@infotropique.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -1966,4 +1967,52 @@ HTML (via SXML) or any other format for rendering.")
 It has a nice, simple s-expression based syntax.")
     (license license:lgpl3+)))
 
+(define-public guile-colorized
+  (package
+    (name "guile-colorized")
+    (version "0.1")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "https://github.com/NalaGinrut/guile-colorized/"
+                                  "archive/v" version ".tar.gz"))
+              (file-name (string-append name "-" version ".tar.gz"))
+              (sha256
+               (base32
+                "16xhc3an6aglnca8xl3mvgi8hsqzqn68vsl5ga4bz8bvbap5fn4p"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:modules ((system base compile)
+                  ,@%gnu-build-system-modules)
+       #:tests? #f ;No tests included
+       #:phases
+       (modify-phases %standard-phases
+         (delete 'configure) ;No configure script
+         (replace 'install
+           (lambda* (#:key outputs inputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out"))
+                    (module-dir (string-append out "/share/guile/site/2.2"))
+                    (language-dir (string-append module-dir "/ice-9"))
+                    (guild (string-append (assoc-ref inputs "guile")
+                                          "/bin/guild")))
+               ;; The original 'make install' is too primitive.
+               (mkdir-p module-dir)
+               (mkdir-p language-dir)
+
+               ;; copy the source
+               (copy-file "ice-9/colorized.scm"
+                          (string-append language-dir "/colorized.scm"))
+
+               ;; compile to the destination
+               (compile-file "ice-9/colorized.scm"
+                             #:output-file (string-append
+                                            language-dir "/colorized.go"))
+               #t))))))
+    (inputs
+     `(("guile" ,guile-2.2)))
+    (home-page "https://github.com/NalaGinrut/guile-colorized")
+    (synopsis "Colorized REPL for Guile")
+    (description
+     "Guile-colorized provides you with a colorized REPL for GNU Guile.")
+    (license license:gpl3+)))
+
 ;;; guile.scm ends here
-- 
2.14.2


[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 833 bytes --]

bug#28744: guile-colorized

[Ludovic Courtès]

[-- Attachment #1: Type: text/plain, Size: 543 bytes --]

Hi!

ng0 <ng0@infotropique.org> skribis:

> Colors for your REPL.
>
> In the light of recent github mismatches:
> should this use the git checkout instead?

I think it’s (still) fine this way.

> From d5160f7e3ca160dd6ee9336770fdf2d6dc7b279f Mon Sep 17 00:00:00 2001
> From: ng0 <ng0@infotropique.org>
> Date: Sun, 8 Oct 2017 10:30:39 +0000
> Subject: [PATCH] gnu: Add guile-colorized.
>
> * gnu/packages/guile.scm (guile-colorized): New variable.

Pushed with the slight simplification below.

Thank you!

Ludo’.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Type: text/x-patch, Size: 823 bytes --]

diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm
index caecd2b6b..e32ca84a7 100644
--- a/gnu/packages/guile.scm
+++ b/gnu/packages/guile.scm
@@ -1995,12 +1995,9 @@ It has a nice, simple s-expression based syntax.")
                     (guild (string-append (assoc-ref inputs "guile")
                                           "/bin/guild")))
                ;; The original 'make install' is too primitive.
-               (mkdir-p module-dir)
-               (mkdir-p language-dir)
 
                ;; copy the source
-               (copy-file "ice-9/colorized.scm"
-                          (string-append language-dir "/colorized.scm"))
+               (install-file "ice-9/colorized.scm" language-dir)
 
                ;; compile to the destination
                (compile-file "ice-9/colorized.scm"