emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Doom style: add blank lines, align keys, change macro expansion keys

Browse source
This commit is contained in:
Hugo Nobrega 2021-04-19 21:08:02 -03:00
parent c2b40148b8
commit 4f50d9a750
1 changed files with 39 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

13
modules/lang/scheme/config.el
View file

@ -4,6 +4,7 @@
:hook (scheme-mode . rainbow-delimiters-mode) :hook (scheme-mode . rainbow-delimiters-mode)
:config (advice-add #'scheme-indent-function :override #'+scheme-scheme-indent-function-a)) :config (advice-add #'scheme-indent-function :override #'+scheme-scheme-indent-function-a))
(use-package! geiser (use-package! geiser
:defer t :defer t
:init :init
@ -21,8 +22,8 @@
'(("^\\*[gG]eiser \\(dbg\\|xref\\|messages\\)\\*$" :slot 1 :vslot -1) '(("^\\*[gG]eiser \\(dbg\\|xref\\|messages\\)\\*$" :slot 1 :vslot -1)
("^\\*Geiser documentation\\*$" :slot 2 :vslot 2 :select t :size 0.35) ("^\\*Geiser documentation\\*$" :slot 2 :vslot 2 :select t :size 0.35)
("^\\* [A-Za-z0-9_-]+ REPL \\*" :size 0.3 :quit nil :ttl nil))) ("^\\* [A-Za-z0-9_-]+ REPL \\*" :size 0.3 :quit nil :ttl nil)))
(map!
:localleader (map! :localleader
(:map (scheme-mode-map geiser-repl-mode-map) (:map (scheme-mode-map geiser-repl-mode-map)
:desc "Toggle REPL" "'" #'switch-to-geiser :desc "Toggle REPL" "'" #'switch-to-geiser
:desc "Connect to external Scheme" "\"" #'geiser-connect :desc "Connect to external Scheme" "\"" #'geiser-connect
@ -55,6 +56,7 @@
:desc "Clear REPL buffer" "c" #'geiser-repl-clear-buffer :desc "Clear REPL buffer" "c" #'geiser-repl-clear-buffer
:desc "Quit REPL" "q" #'geiser-repl-exit))) :desc "Quit REPL" "q" #'geiser-repl-exit)))
(use-package! macrostep-geiser (use-package! macrostep-geiser
:hook (geiser-mode . macrostep-geiser-setup) :hook (geiser-mode . macrostep-geiser-setup)
:hook (geiser-repl-mode . macrostep-geiser-setup) :hook (geiser-repl-mode . macrostep-geiser-setup)
@ -62,10 +64,9 @@
(map! :after geiser (map! :after geiser
:localleader :localleader
:map (scheme-mode-map geiser-repl-mode-map) :map (scheme-mode-map geiser-repl-mode-map)
(:prefix ("x" . "expand") :desc "Expand macro by one step" "m" #'macrostep-expand
:desc "Expand macro by one step" "x" #'macrostep-expand :desc "Recursively expand macro" "M" #'macrostep-geiser-expand-all))
:desc "Recursively expand macro" "r" #'macrostep-geiser-expand-all
:desc "Collapse macro by one step" "c" #'macrostep-collapse)))
(use-package! flycheck-guile (use-package! flycheck-guile
:when (featurep! +guile) :when (featurep! +guile)