geiser-chez activation

1 files changed, 8 insertions, 7 deletions

diff --git a/init.el b/init.el
index 3ffb41d..4ccf870 100644
--- a/init.el
+++ b/init.el
@@ -2181,13 +2181,17 @@
   (setq geiser-repl-history-filename "~/.emacs.d/cache/geiser-history"
         geiser-repl-startup-time 20000
         geiser-debug-auto-display-images-p t
-        geiser-log-verbose-p t
+        geiser-log-verbose t
         geiser-active-implementations '(guile)
         geiser-default-implementation 'guile))
 
 (jao-load-path "geiser-guile")
 (use-package geiser-guile)
 
+(jao-load-path "geiser-chez")
+(use-package geiser-chez
+  :init (setq geiser-chez-debug-on-exception t))
+
 ;; (jao-load-path "geiser/mit")
 ;; (use-package geiser-mit)
 
@@ -2197,17 +2201,14 @@
 ;; (jao-load-path "geiser/chibi")
 ;; (use-package geiser-chibi)
 
-(jao-load-path "geiser-chez")
-(use-package geiser-chez)
-
 ;; (jao-load-path "geiser/gambit")
 ;; (use-package geiser-gambit)
 
 ;; (jao-load-path "geiser/gauche")
 ;; (use-package geiser-gauche)
 
-(jao-define-attached-buffer "^\\* ?Geiser .*\\*" 0.4)
-(jao-define-attached-buffer "^\\* Guile REPL \\*" 0.4)
+;; (jao-define-attached-buffer "^\\* ?Geiser .*\\*" 0.4)
+;; (jao-define-attached-buffer "^\\* Guile REPL \\*" 0.4)
 
 ;;;; Haskell
 ;;;;; packages
@@ -3035,7 +3036,7 @@
 (defun jao-set-wallpaper (&optional path)
   (interactive)
   (let ((current (format "~/.wallpaper.%s" (jao-colors-scheme))))
-    (when-let ((f (or (expand-file-name path)
+    (when-let ((f (or (and path (expand-file-name path))
                       (read-file-name "Image: "
                                       jao-wallpaper-dir
                                       (file-symlink-p current)