Update guile config.

1 files changed, 17 insertions, 10 deletions

diff --git a/dotfiles/.guile b/dotfiles/.guile
index b29597b..82ba85b 100644
--- a/dotfiles/.guile
+++ b/dotfiles/.guile
@@ -1,13 +1,20 @@
 ;; -*- scheme -*-
 
-(false-if-exception
- (begin
-   (use-modules (ice-9 readline))
-   (activate-readline)))
+(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")))
 
-(define-syntax-rule (push! var x)
-  (set! var (cons x var)))
-
-(define (add-to-load-path* dir)
-  (push! %load-path dir)
-  (push! %load-compiled-path dir))
+(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"))))