From 266baf9d385383108dc18d34470ae56d34512bb3 Mon Sep 17 00:00:00 2001
From: BirDt_ <birdt_@cyan.sh>
Date: Fri, 15 May 2026 21:26:04 +0800
Subject: [PATCH] Item hierarchy keybinds in md and harper

---
 workflows/markdown-custom.el | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/workflows/markdown-custom.el b/workflows/markdown-custom.el
index 700d24d..d605487 100644
--- a/workflows/markdown-custom.el
+++ b/workflows/markdown-custom.el
@@ -20,11 +20,24 @@
 ;;; Code:
 
 (use-package markdown-mode
+  :bind (:map markdown-mode
+	      ("M-<left>" . markdown-promote-list-item)
+	      ("M-<right>" . markdown-demote-list-item))
   :config
   (keymap-unset markdown-mode-map "C-c <left>")
   (keymap-unset markdown-mode-map "C-c <right>")
   (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)