2 files changed, 31 insertions(+), 0 deletions(-)

M Makefile
A repl-init.scm

@@ 45,5 45,8 @@ home-reconfigure: channels-lock.scm target
 home-container: channels-lock.scm target
 	$(GUIX) home container $(HOME_ARGS)
 
+system-repl: channels-lock.scm target
+	$(GUIX) repl -L modules -i ./repl-init.scm
+
 channels-lock.scm: channels.scm
 	guix time-machine -C channels.scm -- describe -f channels > channels-lock.scm

@@ 0,0 1,28 @@
+(use-modules
+ (guix)
+ (gnu system)
+ (guix store)
+ (guix monads)
+ (srfi srfi-1)
+ (ice-9 readline))
+
+(define os (load "config.scm"))
+
+(cond ((false-if-exception (resolve-interface '(ice-9 readline)))
+       =>
+       (lambda (module)
+         ;; Enable completion and input history at the REPL.
+         ((module-ref module 'activate-readline))))
+      (else
+       (display "Consider installing the 'guile-readline' package for
+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"))))