diff options
| -rw-r--r-- | dotfiles/.guile | 27 |
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")))) |