BirDt/theurgy
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Item hierarchy keybinds in md and harper

Browse source
This commit is contained in:
BirDt_ 2026-05-15 21:26:04 +08:00
parent 603ed7b7b0
commit 266baf9d38
1 changed files with 14 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

15
workflows/markdown-custom.el
View file

@ -20,11 +20,24 @@
;;; Code: ;;; Code:
(use-package markdown-mode (use-package markdown-mode
:bind (:map markdown-mode
("M-<left>" . markdown-promote-list-item)
("M-<right>" . markdown-demote-list-item))
:config :config
(keymap-unset markdown-mode-map "C-c <left>") (keymap-unset markdown-mode-map "C-c <left>")
(keymap-unset markdown-mode-map "C-c <right>") (keymap-unset markdown-mode-map "C-c <right>")
(keymap-unset markdown-mode-map "C-c <up>") (keymap-unset markdown-mode-map "C-c <up>")
(keymap-unset markdown-mode-map "C-c <down>")) (keymap-unset markdown-mode-map "C-c <down>")
(when (and (not (equal system-type 'windows-nt)) (locate-file "harper-ls" exec-path))
(with-eval-after-load 'eglot
(add-to-list 'eglot-server-programs
'(markdown-mode . ("harper-ls" "--stdio"))))
(setq-default eglot-workspace-configuration
'(:harper-ls (:dialect "Australian")))
(add-hook 'markdown-mode-hook 'eglot-ensure)))
(provide 'markdown-custom) (provide 'markdown-custom)