From 7d3a41567dbf29601f426ac86c1bbad8004db351 Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Mon, 9 Nov 2020 21:24:24 -0500
Subject: [PATCH] lang/lua: add +fennel

---
 docs/modules.org             |  2 +-
 modules/lang/lua/config.el   | 10 +++++++++-
 modules/lang/lua/packages.el |  3 +++
 3 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/docs/modules.org b/docs/modules.org
index 86be6c9f4..0845561fb 100644
--- a/docs/modules.org
+++ b/docs/modules.org
@@ -123,7 +123,7 @@ Modules that bring support for a language or group of languages to Emacs.
 + [[file:../modules/lang/latex/README.org][latex]] =+latexmk +cdlatex +fold +lsp= - TODO
 + lean - TODO
 + [[file:../modules/lang/ledger/README.org][ledger]] - TODO
-+ lua =+moonscript= - TODO
++ lua =+fennel +moonscript= - TODO
 + [[file:../modules/lang/markdown/README.org][markdown]] =+grip= - TODO
 + [[file:../modules/lang/nim/README.org][nim]] - TODO
 + nix - TODO
diff --git a/modules/lang/lua/config.el b/modules/lang/lua/config.el
index e5cf0fe31..9137b7806 100644
--- a/modules/lang/lua/config.el
+++ b/modules/lang/lua/config.el
@@ -11,7 +11,7 @@ lua-language-server.")
 
 
 ;;
-;; Major modes
+;;; Major modes
 
 (use-package! lua-mode
   :defer t
@@ -61,6 +61,14 @@ lua-language-server.")
     (require 'flycheck-moonscript nil t)))
 
 
+(use-package! fennel-mode
+  :when (featurep! +fennel)
+  :defer t
+  :config
+  (set-lookup-handlers! 'fennel-mode :definition #'fennel-find-definition)
+  (set-repl-handler! 'fennel-mode #'fennel-repl))
+
+
 ;;
 ;;; Frameworks
 
diff --git a/modules/lang/lua/packages.el b/modules/lang/lua/packages.el
index fdfd977da..b4ea698e8 100644
--- a/modules/lang/lua/packages.el
+++ b/modules/lang/lua/packages.el
@@ -10,5 +10,8 @@
       :recipe (:host github :repo "hlissner/emacs-flycheck-moonscript")
       :pin "fcb99e5efcf31db05f236f02eaa575986a57172d")))
 
+(when (featurep! +fennel)
+  (package! fennel-mode :pin "a39543750ba337b9327108ba17ffb0cdb18c7f9b"))
+
 (when (featurep! :completion company)
   (package! company-lua :pin "29f6819de4d691e5fd0b62893a9f4fbc1c6fcb52"))