From b7b9a7275caada0bbffd804631215c6b2b2eac3a Mon Sep 17 00:00:00 2001 From: David Thompson Date: Fri, 2 Dec 2022 12:56:00 -0500 Subject: Update guile config. --- dotfiles/.guile | 27 +++++++++++++++++---------- 1 file 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")))) -- cgit v1.2.3