From 9ed3c335d02bd4538309a28e385c32b64509ce0e Mon Sep 17 00:00:00 2001
From: Proctor <steven.proctor@rate.com>
Date: Mon, 23 May 2022 18:55:07 -0500
Subject: [PATCH] Add Fennel scratch buffer (Emacs Lisp style)

---
 nvim/.config/nvim/fnl/dotfiles/core.fnl    | 21 ++++++++++++++++++++-
 nvim/.config/nvim/fnl/dotfiles/mapping.fnl |  3 ++-
 2 files changed, 22 insertions(+), 2 deletions(-)

diff --git a/nvim/.config/nvim/fnl/dotfiles/core.fnl b/nvim/.config/nvim/fnl/dotfiles/core.fnl
index acf8899..de95cb0 100644
--- a/nvim/.config/nvim/fnl/dotfiles/core.fnl
+++ b/nvim/.config/nvim/fnl/dotfiles/core.fnl
@@ -2,7 +2,11 @@
   {autoload
    {a aniseed.core}
    require
-   {nvim aniseed.nvim}})
+   {anenv aniseed.env
+    nvim aniseed.nvim
+    nu aniseed.nvim.util
+    u dotfiles.util
+    }})
 
 
 (nvim.ex.set "shortmess+=c") ; don't give |ins-completion-menu| messages.
@@ -100,3 +104,18 @@
 ;(nvim.ex.autocmd "vimenter" "*"  "luafile" "treesitter.lua")
 ; 
 ; (nvim.fn.glob "~/.vimrc.local")
+
+(defn make-fennel-scratch
+  []
+  (nvim.command "new | setlocal bt=nofile bh=wipe nobl noswapfile nu filetype=fennel"))
+
+(nu.fn-bridge :FennelScratchBuffer :dotfiles.core :make-fennel-scratch {:return false})
+(u.nnoremap :<leader>fsb ":call FennelScratchBuffer ()<CR>")
+
+(defn compile-fnl []
+  (print :recompiling)
+  (anenv.init
+    {:force true
+     :init :foo}))
+
+(nu.fn-bridge :AniseedCompile :dotfiles.core :compile-fnl {:return false})
diff --git a/nvim/.config/nvim/fnl/dotfiles/mapping.fnl b/nvim/.config/nvim/fnl/dotfiles/mapping.fnl
index 3b8773d..ad81e00 100644
--- a/nvim/.config/nvim/fnl/dotfiles/mapping.fnl
+++ b/nvim/.config/nvim/fnl/dotfiles/mapping.fnl
@@ -9,7 +9,8 @@
 
 ; (set nvim.g.mapleader "\\")
 
-(noremap :n "<leader>`" ":source ~/.config/nvim/init.lua<CR>")
+; (noremap :n "<leader>`" ":source ~/.config/nvim/init.lua<CR>")
+(noremap :n "<leader>`" ":call AniseedCompile()<CR>")
 
 (noremap :n :<Enter> ":nohlsearch<Enter>/<BS>")