From a0ec25e5f925bbadda8648d4d65351ec9181943e Mon Sep 17 00:00:00 2001
From: Madeleine Sydney <lomiskiam@gmail.com>
Date: Thu, 10 Apr 2025 06:59:52 -0600
Subject: [PATCH] feat(emacs): Haskell additions

- Print Hoogle port on server start.
- Include _ and ' in words.
---
 .../crumb/emacs/modules/lang/syd-lang-haskell.el      | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/modules/home/users/crumb/emacs/modules/lang/syd-lang-haskell.el b/modules/home/users/crumb/emacs/modules/lang/syd-lang-haskell.el
index 1943e9c..ef8bc63 100644
--- a/modules/home/users/crumb/emacs/modules/lang/syd-lang-haskell.el
+++ b/modules/home/users/crumb/emacs/modules/lang/syd-lang-haskell.el
@@ -24,6 +24,11 @@
   (evil-append-line nil)
   (haskell-indentation-newline-and-indent))
 
+(defun syd-haskell-hoogle-start-server ()
+  (interactive)
+  (haskell-hoogle-start-server)
+  (message "Hoogle started on localhost:%d" haskell-hoogle-port-number))
+
 (use-package haskell-mode
   :mode (("\\.l?hs'" . haskell-literate-mode)
          ("\\.hs'" . haskell-mode))
@@ -39,7 +44,7 @@
    :prefix syd-localleader-key
    :non-normal-prefix syd-alt-localleader-key
    "c" #'haskell-cabal-visit-file
-   "h s" #'haskell-hoogle-start-server
+   "h s" #'syd-haskell-hoogle-start-server
    "h q" #'haskell-hoogle-kill-server)
   (:keymaps 'interactive-haskell-mode-map
    :states '(normal insert)
@@ -62,7 +67,9 @@
   (syd-add-hook 'haskell-mode-local-vars-hook
     ;; Folding of Haskell sections.
     #'haskell-collapse-mode
-    #'interactive-haskell-mode))
+    #'interactive-haskell-mode)
+  (dolist (c '(?' ?_))
+    (modify-syntax-entry c "w" haskell-mode-syntax-table)))
 
 (use-package lsp-haskell
   :defer t