aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2018-07-23 10:36:37 +0200
committerLudovic Courtès <ludo@gnu.org>2018-07-23 12:25:31 +0200
commit10df28d74d1f799969d3ce37348c44efb1067c7f (patch)
tree6fd365f4172fe9c948ab4800e32670120e5dc778
parenta472c2902ed021e8cee91eb9c07b307b33adcee0 (diff)
downloadguix-10df28d74d1f799969d3ce37348c44efb1067c7f.tar
guix-10df28d74d1f799969d3ce37348c44efb1067c7f.tar.gz
system: '.guile' skeleton now recommends 'guile-colorized'.
* gnu/system/shadow.scm (default-skeletons)[".guile"]: Recommend 'guile-colorized'.
-rw-r--r--gnu/system/shadow.scm12
1 files changed, 11 insertions, 1 deletions
diff --git a/gnu/system/shadow.scm b/gnu/system/shadow.scm
index b4db69f068..f800c3b546 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))))