From 87da967854f489b3db503710d0cca1a000c94295 Mon Sep 17 00:00:00 2001
From: Zelong Kuang <zelongkuang0608@gmail.com>
Date: Sat, 27 Dec 2025 16:41:42 +0800
Subject: [PATCH] Added hungry delete and Improved haskell experience

---
 lisp/init-edit.el    |  8 ++++++++
 lisp/init-haskell.el | 13 ++++++++-----
 lisp/init-window.el  |  6 ++++--
 3 files changed, 20 insertions(+), 7 deletions(-)

diff --git a/lisp/init-edit.el b/lisp/init-edit.el
index b8f2e68..a4a808c 100644
--- a/lisp/init-edit.el
+++ b/lisp/init-edit.el
@@ -9,6 +9,14 @@
 (setq electric-pair-inhibit-predicate 'electric-pair-conservative-inhibit)
 (electric-pair-mode t)
 
+;; Hungry deletion
+(use-package hungry-delete
+  :diminish
+  :hook (elpaca-after-init . global-hungry-delete-mode)
+  :init (setq hungry-delete-chars-to-skip " \t\f\v"
+              hungry-delete-except-modes
+              '(help-mode minibuffer-mode minibuffer-inactive-mode calc-mode)))
+    
 ;; Yasnippet settings
 (use-package yasnippet
   :ensure t
diff --git a/lisp/init-haskell.el b/lisp/init-haskell.el
index 7d86701..7176349 100644
--- a/lisp/init-haskell.el
+++ b/lisp/init-haskell.el
@@ -2,15 +2,18 @@
 
 
 (use-package haskell-mode
-  :hook (haskell-mode . (haskell-collapse-mode
-                         interactive-haskell-mode
-                         haskell-doc-mode
-                         hindent-mode))
+  :hook (haskell-mode . (lambda ()
+                          (haskell-collapse-mode)
+                          (interactive-haskell-mode)
+                          (haskell-doc-mode)
+                          (haskell-indent-mode)))
   :mode (("\\.hs\\'" . haskell-mode))
+  :bind ("C-c C-z" . run-haskell)
   :config
   (setq haskell-process-suggest-remove-import-lines t
         haskell-process-auto-import-loaded-modules t)
-  (add-to-list 'completion-ignored-extensions ".hi"))
+  (add-to-list 'completion-ignored-extensions ".hi")
+  (add-hook 'haskell-mode-hook #'eglot-ensure))
 
 
 (provide 'init-haskell)
diff --git a/lisp/init-window.el b/lisp/init-window.el
index 50ca3b3..4653951 100644
--- a/lisp/init-window.el
+++ b/lisp/init-window.el
@@ -112,13 +112,15 @@
           "\\*vc-.*\\**"
           "\\*diff-hl\\**"
           "^\\*macro expansion\\**"
-
+         
           "\\*Agenda Commands\\*" "\\*Org Select\\*" "\\*Capture\\*" "^CAPTURE-.*\\.org*"
           "\\*Gofmt Errors\\*$" "\\*Go Test\\*$" godoc-mode
           "\\*docker-.+\\*"
           "\\*prolog\\*" inferior-python-mode inf-ruby-mode swift-repl-mode
           "\\*rustfmt\\*$" rustic-compilation-mode rustic-cargo-clippy-mode
-          rustic-cargo-outdated-mode rustic-cargo-run-mode rustic-cargo-test-mode))
+          rustic-cargo-outdated-mode rustic-cargo-run-mode rustic-cargo-test-mode
+          "\\*haskell\\*"))
+  
   :config
   (with-no-warnings
     (defun my-popper-fit-window-height (win)