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
: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))
;; (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))
(use-package racket-mode
:mode "\\.rkt\\'")
;; (use-package racket-mode
;; :mode "\\.rkt\\'")
(use-package geiser-racket
:defer t
:after geiser
;; (use-package geiser-racket
;; :defer t
;; :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
(when (eq system-type 'windows-nt)
(setq geiser-racket-binary "c:/Program Files/Racket/Racket.exe")))
(add-hook 'slime-mode-hook 'set-up-slime-ac)
(add-hook 'slime-repl-mode-hook 'set-up-slime-ac))
(when (eq system-type 'gnu/linux)
(use-package geiser-guile
:defer t
:after geiser
:custom (geiser-guile-binary "guile")))
(use-package paredit
:hook ((emacs-lisp-mode . paredit-mode)
(eval-expression-minibuffer-setup . paredit-mode)
(ielm-mode . paredit-mode)
(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)))