From a9c6a7a1ebafdbc8ebce17174055fc7c5ac3f98f Mon Sep 17 00:00:00 2001
From: Rutherther <rutherther@ditigal.xyz>
Date: Fri, 28 Mar 2025 18:30:06 +0100
Subject: [PATCH] chore: add system repl initialization

---
 Makefile      |  3 +++
 repl-init.scm | 28 ++++++++++++++++++++++++++++
 2 files changed, 31 insertions(+)
 create mode 100644 repl-init.scm

diff --git a/Makefile b/Makefile
index eed30c2..afdad81 100644
--- a/Makefile
+++ b/Makefile
@@ -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
diff --git a/repl-init.scm b/repl-init.scm
new file mode 100644
index 0000000..0e969e1
--- /dev/null
+++ b/repl-init.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"))))
-- 
2.48.1