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

Reformat function

This commit is contained in:
contrapunctus 2022-01-16 00:33:31 +05:30
parent bf3ea9abc1
commit 6959d557b3
1 changed files with 8 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
init.org
View File

@ -1005,27 +1005,21 @@ Don't try to check if there are files with a certain extension...it will lead to
(interactive)
(cond ((derived-mode-p 'emacs-lisp-mode
'inferior-emacs-lisp-mode
'debugger-mode)
(my-elisp-hydra/body))
'debugger-mode) (my-elisp-hydra/body))
(;; (or (locate-dominating-file default-directory "build.scm")
;; (locate-dominating-file default-directory "main.ly"))
(derived-mode-p 'LilyPond-mode)
(my-lilypond-hydra/body))
((and (featurep 'geiser)
(bound-and-true-p geiser-mode))
((and (featurep 'geiser) (bound-and-true-p geiser-mode))
(if (eq 'guile geiser-scheme-implementation)
(cp-guile/body)
(my-chicken-hydra/body)))
((derived-mode-p 'lisp-mode 'slime-repl-mode)
(my-cl-hydra/body))
((derived-mode-p 'prolog-mode)
(my-prolog-hydra/body))
((derived-mode-p 'org-mode)
(my-org-hydra/body))
((derived-mode-p 'sh-mode)
(my-shell-hydra/body))
((derived-mode-p 'sql-mode)
(my-sql-hydra/body))
((derived-mode-p 'lisp-mode
'slime-repl-mode) (my-cl-hydra/body))
((derived-mode-p 'prolog-mode) (my-prolog-hydra/body))
((derived-mode-p 'org-mode) (my-org-hydra/body))
((derived-mode-p 'sh-mode) (my-shell-hydra/body))
((derived-mode-p 'sql-mode) (my-sql-hydra/body))
(t (contrapunctus-general-hydra/body))))
(define-key boon-command-map (kbd "m") #'my-dispatch-hydra)