feat(emacs): wat-mode

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

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

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)