From fc12815d9855a4e1d5a02b81974fcff2f2f4bb60 Mon Sep 17 00:00:00 2001 From: jao Date: Thu, 13 Oct 2022 04:00:43 +0100 Subject: geiser-chez activation --- init.el | 15 ++++++++------- 1 file 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) -- cgit v1.2.3