yeet

.config/emacs/modules/lang/purescript/config.el

@@ -0,0 +1,38 @@
+;;; lang/purescript/config.el -*- lexical-binding: t; -*-
+
+(after! purescript-mode
+  (when (featurep! +lsp)
+    (add-hook 'purescript-mode-local-vars-hook  #'lsp!))
+
+  (add-hook! 'purescript-mode-hook
+             #'purescript-indentation-mode
+             #'rainbow-delimiters-mode)
+
+  (map! :localleader
+        :map purescript-mode-map
+        "t" #'psc-ide-show-type
+        "c" #'psc-ide-case-split
+        "i" #'psc-ide-add-import
+        "a" #'psc-ide-add-clause
+        "f" #'psc-ide-flycheck-insert-suggestion
+        (:prefix ("l" . "load")
+         "m" #'psc-ide-load-module
+         "a" #'psc-ide-load-all)
+        (:prefix ("s" . "server")
+         "s" #'psc-ide-server-start
+         "S" #'psc-ide-server-quit))
+
+  (set-repl-handler! 'purescript-mode #'psci)
+
+  (set-lookup-handlers! 'purescript-mode
+    :definition #'psc-ide-goto-definition
+    :documentation #'purescript-pursuit))
+
+
+(use-package! psc-ide
+  :hook (purescript-mode . psc-ide-mode)
+  :config
+  (remove-hook 'company-backends 'company-psc-ide-backend)
+  (when (featurep! :checkers syntax)
+    (psc-ide-flycheck-setup))
+  (set-company-backend! 'purescript-mode 'company-psc-ide-backend))