contrapunctus
/
dotemacs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[hydra] fix errors in language detection

This commit is contained in:
contrapunctus 2021-06-14 15:34:11 +05:30
parent 3c3cd1fccd
commit 5d9119f3bf
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
init.org
View File

@ -1571,13 +1571,16 @@ Don't try to check if there are files with a certain extension...it will lead to
#+BEGIN_SRC emacs-lisp
(defun contrapunctus-programming-hydra-dispatch-language ()
(interactive)
(cond ((or (derived-mode-p 'emacs-lisp-mode 'ielm-mode 'debugger-mode))
(cond ((derived-mode-p 'emacs-lisp-mode
'inferior-emacs-lisp-mode
'debugger-mode)
(cp-el/body))
(;; (or (locate-dominating-file default-directory "build.scm")
;; (locate-dominating-file default-directory "main.ly"))
(derived-mode-p 'LilyPond-mode)
(cp-ly/body))
((and (featurep 'geiser) geiser-mode)
((and (featurep 'geiser)
(bound-and-true-p geiser-mode))
(cond ((equal 'chicken geiser-impl--implementation)
(cp-cs/body))
((equal 'guile geiser-impl--implementation)