marcuskammer/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update --lisp packages

Browse source
This commit is contained in:
Marcus Kammer 2024-06-30 13:58:19 +02:00
parent 6ca8a3ed05
commit c370e995a8
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 41 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

65
bundle/bundle--lisp.el
View file

@ -330,31 +330,48 @@ Uses `mk/hyperspec-dir-locations' to find the directory."
(use-package common-lisp-snippets (use-package common-lisp-snippets
:after yasnippet) :after yasnippet)
(use-package geiser ;; (use-package geiser
:init ;; :init
(setq geiser-repl-prompt-read-only t) ;; (setq geiser-repl-prompt-read-only t)
(setq geiser-repl-highlight-error-messages t) ;; (setq geiser-repl-highlight-error-messages t)
(if (eq system-type 'windows-nt) ;; (if (eq system-type 'windows-nt)
(progn ;; (progn
(setq geiser-active-implementations '(racket)) ;; (setq geiser-active-implementations '(racket))
(setq geiser-default-implementation 'racket)) ;; (setq geiser-default-implementation 'racket))
(progn ;; (progn
(setq geiser-active-implementations '(racket guile)) ;; (setq geiser-active-implementations '(racket guile))
(setq geiser-default-implementation 'guile))) ;; (setq geiser-default-implementation 'guile)))
:hook (scheme-mode . geiser-mode)) ;; :hook (scheme-mode . geiser-mode))
(use-package racket-mode ;; (use-package racket-mode
:mode "\\.rkt\\'") ;; :mode "\\.rkt\\'")
(use-package geiser-racket ;; (use-package geiser-racket
:defer t ;; :defer t
:after geiser ;; :after geiser
;; :config
;; (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")))
(use-package ac-slime
:after (slime auto-complete)
:config :config
(when (eq system-type 'windows-nt) (add-hook 'slime-mode-hook 'set-up-slime-ac)
(setq geiser-racket-binary "c:/Program Files/Racket/Racket.exe"))) (add-hook 'slime-repl-mode-hook 'set-up-slime-ac))
(when (eq system-type 'gnu/linux) (use-package paredit
(use-package geiser-guile :hook ((emacs-lisp-mode . paredit-mode)
:defer t (eval-expression-minibuffer-setup . paredit-mode)
:after geiser (ielm-mode . paredit-mode)
:custom (geiser-guile-binary "guile"))) (lisp-mode . paredit-mode)
(lisp-interaction-mode . paredit-mode)
(scheme-mode . paredit-mode))
:bind (:map paredit-mode-map
("M-)" . paredit-forward-slurp-sexp)
("M-(" . paredit-forward-barf-sexp)))