36 lines
1010 B
EmacsLisp
36 lines
1010 B
EmacsLisp
|
(defun yaml-backspace (arg)
|
||
|
|
"Special handling of yaml backspace."
|
||
|
|
(interactive "*p")
|
||
|
|
(if mark-active
|
||
|
|
(backward-delete-char-untabify arg)
|
||
|
|
(yaml-electric-backspace arg)
|
||
|
|
)
|
||
|
|
)
|
||
|
|
|
||
|
|
(defun yaml-format-buffer ()
|
||
|
|
"Run prettier."
|
||
|
|
(interactive)
|
||
|
|
(run-command-on-buffer "prettier" "--stdin-filepath" buffer-file-name)
|
||
|
|
)
|
||
|
|
|
||
|
|
(use-package yaml-mode
|
||
|
|
:mode
|
||
|
|
(("playbook\\.tmp\\'" . yaml-mode)
|
||
|
|
("environments/[^/]*/group_vars/[^/]*\\'" . yaml-mode)
|
||
|
|
("environments/[^/]*/host_vars/[^/]*\\'" . yaml-mode)
|
||
|
|
)
|
||
|
|
:hook (
|
||
|
|
(yaml-mode . (lambda ()
|
||
|
|
(setq eglot-workspace-configuration
|
||
|
|
(list (cons ':yaml (list ':hover :json-false :validate :json-false :completion t))))
|
||
|
|
(eglot-ensure)
|
||
|
|
(add-hook 'before-save-hook 'yaml-format-buffer nil 'local)
|
||
|
|
))
|
||
|
|
)
|
||
|
|
:bind (
|
||
|
|
(:map yaml-mode-map ([backspace] . yaml-backspace))
|
||
|
|
)
|
||
|
|
)
|
||
|
|
|
||
|
|
(provide 'lang-yaml)
|