From 81b63b8c7a7787fa2177f871499a6fb90def5a77 Mon Sep 17 00:00:00 2001 From: Rutherther Date: Sun, 23 Jun 2024 20:20:57 +0200 Subject: [PATCH] feat: add vhdl alignment --- init.el | 19 +++++++++++++++++-- 1 file changed, 17 insertions(+), 2 deletions(-) diff --git a/init.el b/init.el index 5783249..c00d942 100644 --- a/init.el +++ b/init.el @@ -1015,6 +1015,11 @@ ;; :mode ;; Use vhdl-ts-mode instead ;; ("\\.vhdl?\\'" . vhdl-mode) + :general + (my-local-leader vhdl-mode-map + "a" '(nil :wk "Alignment") + "a a" '(vhdl-align-group :wk "Align group") + "a c" '(vhdl-align-inline-comment-group :wk "Align comment group")) :hook ((vhdl-mode . vhdl-electric-mode) (vhdl-mode . vhdl-stutter-mode) @@ -1043,12 +1048,22 @@ :general (my-local-leader vhdl-ts-mode-map "f" '(nil :wk "Formatting") - "f f" '(vhdl-ts-beautify-block-at-point :wk "Beautify block at point") - "f b" '(vhdl-ts-beautify-buffer :wk "Beautify buffer")) + "f f" '(my/vhdl-ts/beautify-block-at-point :wk "Beautify block at point") + "f b" '(my/vhdl-ts/beautify-buffer :wk "Beautify buffer")) :custom (vhdl-ts-indent-level tab-width) :mode ("\\.vhdl?\\'" . vhdl-ts-mode) + :init + (defun my/vhdl-ts/beautify-block-at-point () + (interactive) + (vhdl-align-group) + (vhdl-ts-beautify-block-at-point)) + + (defun my/vhdl-ts/beautify-buffer () + (interactive) + (vhdl-align-buffer) + (vhdl-ts-beautify-block-at-point)) :config (my/indent-variable-mode-alist-add vhdl-ts-mode vhdl-ts-indent-level) -- 2.48.1