diff options
Diffstat (limited to 'init.el')
| -rw-r--r-- | init.el | 15 |
1 files changed, 8 insertions, 7 deletions
@@ -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) |