[hydra] tweak Scheme implementation discovery
This commit is contained in:
parent
8c6bbdf518
commit
451a7ed012
4
init.org
4
init.org
|
@ -1723,9 +1723,9 @@ Don't try to check if there are files with a certain extension...it will lead to
|
||||||
(my-lilypond-hydra/body))
|
(my-lilypond-hydra/body))
|
||||||
((and (featurep 'geiser)
|
((and (featurep 'geiser)
|
||||||
(bound-and-true-p geiser-mode))
|
(bound-and-true-p geiser-mode))
|
||||||
(cond ((equal 'chicken geiser-impl--implementation)
|
(cond ((eq 'chicken geiser-scheme-implementation)
|
||||||
(my-chicken-hydra/body))
|
(my-chicken-hydra/body))
|
||||||
((equal 'guile geiser-impl--implementation)
|
((eq 'guile geiser-scheme-implementation)
|
||||||
(cp-guile/body))
|
(cp-guile/body))
|
||||||
(t (error "Couldn't detect Scheme implementation."))))
|
(t (error "Couldn't detect Scheme implementation."))))
|
||||||
((derived-mode-p 'lisp-mode 'slime-repl-mode)
|
((derived-mode-p 'lisp-mode 'slime-repl-mode)
|
||||||
|
|
Loading…
Reference in New Issue