diff --git a/bundle/bundle--lisp.el b/bundle/bundle--lisp.el index 102a0dc2..61c9f287 100644 --- a/bundle/bundle--lisp.el +++ b/bundle/bundle--lisp.el @@ -339,18 +339,14 @@ Uses `mk/hyperspec-dir-locations' to find the directory." (use-package common-lisp-snippets :after yasnippet) -;; (use-package geiser -;; :init -;; (setq geiser-repl-prompt-read-only t) -;; (setq geiser-repl-highlight-error-messages t) -;; (if (eq system-type 'windows-nt) -;; (progn -;; (setq geiser-active-implementations '(racket)) -;; (setq geiser-default-implementation 'racket)) -;; (progn -;; (setq geiser-active-implementations '(racket guile)) -;; (setq geiser-default-implementation 'guile))) -;; :hook (scheme-mode . geiser-mode)) +(when (eq system-type 'gnu/linux) + (use-package geiser + :init + (setq geiser-repl-prompt-read-only t) + (setq geiser-repl-highlight-error-messages t) + (setq geiser-active-implementations '(racket guile)) + (setq geiser-default-implementation 'guile) + :hook (scheme-mode . geiser-mode))) ;; (use-package racket-mode ;; :mode "\\.rkt\\'") @@ -362,11 +358,11 @@ Uses `mk/hyperspec-dir-locations' to find the directory." ;; (when (eq system-type 'windows-nt) ;; (setq geiser-racket-binary "c:/Program Files/Racket/Racket.exe"))) -;; (when (eq system-type 'gnu/linux) -;; (use-package geiser-guile -;; :defer t -;; :after geiser -;; :custom (geiser-guile-binary "guile"))) +(when (eq system-type 'gnu/linux) + (use-package geiser-guile + :defer t + :after geiser + :custom (geiser-guile-binary "guile"))) (use-package ac-slime :after (slime auto-complete)