01/05: system: '.guile' skeleton now recommends 'guile-colorized'.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 10df28d74d1f799969d3ce37348c44efb1067c7f
Author: Ludovic Courtès <address@hidden>
Date:   Mon Jul 23 10:36:37 2018 +0200

    system: '.guile' skeleton now recommends 'guile-colorized'.
    
    * gnu/system/shadow.scm (default-skeletons)[".guile"]: Recommend
    'guile-colorized'.
---
 gnu/system/shadow.scm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/gnu/system/shadow.scm b/gnu/system/shadow.scm
index b4db69f..f800c3b 100644
--- a/gnu/system/shadow.scm
+++ b/gnu/system/shadow.scm
@@ -210,7 +210,17 @@ include 
/run/current-system/profile/share/nano/*.nanorc\n"))
          ((module-ref module 'activate-readline))))
       (else
        (display \"Consider installing the 'guile-readline' package for
-convenient interactive line editing and input history.\\n\\n\")))\n"))
+convenient interactive line editing and input history.\\n\\n\")))
+
+      (unless (getenv \"INSIDE_EMACS\")
+        (cond ((false-if-exception (resolve-interface '(ice-9 colorized)))
+               =>
+               (lambda (module)
+                 ;; Enable completion and input history at the REPL.
+                 ((module-ref module 'activate-colorized))))
+              (else
+               (display \"Consider installing the 'guile-colorized' package
+for a colorful Guile experience.\\n\\n\"))))\n"))
       (".guile-wm" ,guile-wm)
       (".gdbinit" ,gdbinit))))