From b431bffe1129151491d6af35c81656b089cd8f97 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Madeleine=20Sydney=20=C5=9Alaga?= <msyds@deertopia.net>
Date: Wed, 8 Jul 2026 23:19:20 -0600
Subject: [PATCH] feat(emacs): wat-mode

---
 modules/home/users/msyds/emacs/init.el             |  1 +
 modules/home/users/msyds/emacs/lisp/syd/haskell.el |  6 +++++-
 modules/home/users/msyds/emacs/lisp/syd/wasm.el    | 14 ++++++++++++++
 3 files changed, 20 insertions(+), 1 deletion(-)
 create mode 100644 modules/home/users/msyds/emacs/lisp/syd/wasm.el

diff --git a/modules/home/users/msyds/emacs/init.el b/modules/home/users/msyds/emacs/init.el
index 8ccd766..1d3d2b8 100755
--- a/modules/home/users/msyds/emacs/init.el
+++ b/modules/home/users/msyds/emacs/init.el
@@ -17,6 +17,7 @@
     syd/kanagawa
     syd/comint
     syd/evil
+    syd/wasm
     syd/scrolling
     syd/fonts
     syd/frame
diff --git a/modules/home/users/msyds/emacs/lisp/syd/haskell.el b/modules/home/users/msyds/emacs/lisp/syd/haskell.el
index 5752899..d650b30 100644
--- a/modules/home/users/msyds/emacs/lisp/syd/haskell.el
+++ b/modules/home/users/msyds/emacs/lisp/syd/haskell.el
@@ -1,6 +1,7 @@
 ;; -*- lexical-binding: t; -*-
 (require 'syd/base)
 (require 'syd/handle)
+(require 'syd/wasm)
 
 (defun syd-haskell-open-repl ()
   "Open a Haskell REPL."
@@ -56,7 +57,10 @@
    [remap evil-open-above] #'syd-haskell-evil-open-above
    [remap evil-open-below] #'syd-haskell-evil-open-below)
   :config
-  (add-to-list 'completion-ignored-extensions ".hi"))
+  (add-to-list 'completion-ignored-extensions ".hi")
+  (add-to-list 'haskell-font-lock-quasi-quote-modes '("wat" . wat-mode))
+  (add-to-list 'haskell-font-lock-quasi-quote-modes '("wats" . wat-mode))
+  (add-to-list 'haskell-font-lock-quasi-quote-modes '("expr" . wat-mode)))
 
 (use-package lsp-haskell
   :defer t
diff --git a/modules/home/users/msyds/emacs/lisp/syd/wasm.el b/modules/home/users/msyds/emacs/lisp/syd/wasm.el
new file mode 100644
index 0000000..5ba8f8d
--- /dev/null
+++ b/modules/home/users/msyds/emacs/lisp/syd/wasm.el
@@ -0,0 +1,14 @@
+;; -*- lexical-binding: t; -*-
+
+(require 'syd/base)
+(require 'syd/lisp)
+
+(use-package wat-mode
+  :mode "\\.wat\\'"
+  :straight (:type git
+             :host nil
+             :repo "https://git.deertopia.net/msyds/wat-mode.git")
+  :config
+  (add-hook 'wat-mode-hook #'syd-lisp-mode))
+
+(provide 'syd/wasm)