.guile 816 B

123456789101112131415161718192021
  1. ;;; -*- mode: scheme; -*-
  2. (cond ((false-if-exception (resolve-interface '(ice-9 readline)))
  3. =>
  4. (lambda (module)
  5. ;; Enable completion and input history at the REPL.
  6. ((module-ref module 'activate-readline))))
  7. (else
  8. (display "Consider installing the 'guile-readline' package for
  9. convenient interactive line editing and input history.\n\n")))
  10. (unless (getenv "INSIDE_EMACS")
  11. (cond ((false-if-exception (resolve-interface '(ice-9 colorized)))
  12. =>
  13. (lambda (module)
  14. ;; Enable completion and input history at the REPL.
  15. ((module-ref module 'activate-colorized))))
  16. (else
  17. (display "Consider installing the 'guile-colorized' package
  18. for a colorful Guile experience.\n\n"))))