From 7096adce11b93787170c09b79a6170d97b4a977c Mon Sep 17 00:00:00 2001
From: Gustaf Rydholm <gustaf.rydholm@gmail.com>
Date: Mon, 29 Jul 2024 00:03:58 +0200
Subject: Replace fn with λ and how cmds are imported
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 fnl/plugins/alpha.fnl               |  2 +-
 fnl/plugins/cmp.fnl                 |  2 +-
 fnl/plugins/colorscheme.fnl         |  2 +-
 fnl/plugins/conform.fnl             |  2 +-
 fnl/plugins/dadbod.fnl              |  2 +-
 fnl/plugins/dial.fnl                |  6 +++---
 fnl/plugins/grug-far.fnl            | 18 +++++++++---------
 fnl/plugins/harpoon.fnl             | 20 ++++++++++++--------
 fnl/plugins/inc-rename.fnl          |  2 +-
 fnl/plugins/leap.fnl                |  2 +-
 fnl/plugins/lsp/diagnostics.fnl     |  4 ++--
 fnl/plugins/lsp/keymaps.fnl         |  2 +-
 fnl/plugins/lsp/lspconfig.fnl       | 10 +++++-----
 fnl/plugins/lsp/mason-lspconfig.fnl |  6 +++---
 fnl/plugins/lsp/servers.fnl         |  2 +-
 fnl/plugins/lualine.fnl             |  4 ++--
 fnl/plugins/neogit.fnl              |  6 +++---
 fnl/plugins/nvim-lint.fnl           |  4 ++--
 fnl/plugins/orgmode.fnl             | 21 +++++++++++++--------
 fnl/plugins/persistence.fnl         |  6 +++---
 fnl/plugins/snippets/org.fnl        |  2 +-
 fnl/plugins/snippets/workflow.fnl   |  4 ++--
 fnl/plugins/telescope.fnl           | 12 ++++++------
 fnl/plugins/treesitter.fnl          |  2 +-
 fnl/plugins/venn.fnl                |  2 +-
 fnl/plugins/which-key.fnl           |  2 +-
 fnl/plugins/window-picker.fnl       |  6 +++---
 fnl/settings/autocmds.fnl           |  4 ++--
 fnl/settings/cursorline.fnl         |  8 ++++----
 fnl/util/cmds.fnl                   |  4 ++--
 30 files changed, 89 insertions(+), 80 deletions(-)

diff --git a/fnl/plugins/alpha.fnl b/fnl/plugins/alpha.fnl
index 9f6bb24..7d6ad3d 100644
--- a/fnl/plugins/alpha.fnl
+++ b/fnl/plugins/alpha.fnl
@@ -21,7 +21,7 @@
                   "                 .....                  "
                   "                   .                    "])
 
-(fn config []
+(λ config []
   (let [alpha (require :alpha)]
     (let [dashboard (require :alpha.themes.dashboard)]
       (set dashboard.section.header.val ascii-art)
diff --git a/fnl/plugins/cmp.fnl b/fnl/plugins/cmp.fnl
index f3c0211..6063462 100644
--- a/fnl/plugins/cmp.fnl
+++ b/fnl/plugins/cmp.fnl
@@ -8,7 +8,7 @@
                      :onsails/lspkind.nvim
                      :saadparwaiz1/cmp_luasnip])
 
-(fn config []
+(λ config []
   (let [cmp (require :cmp)
         lspkind (require :lspkind)]
     (lspkind.init)
diff --git a/fnl/plugins/colorscheme.fnl b/fnl/plugins/colorscheme.fnl
index ba63274..a9ec124 100644
--- a/fnl/plugins/colorscheme.fnl
+++ b/fnl/plugins/colorscheme.fnl
@@ -4,7 +4,7 @@
                       :lsp {:underline false}
                       :match_paren {:underline true}}})
 
-(fn config []
+(λ config []
   (let [plugin (require :no-clown-fiesta)]
     (plugin.setup opts)
     (plugin.load)))
diff --git a/fnl/plugins/conform.fnl b/fnl/plugins/conform.fnl
index f4cba63..3ad98aa 100644
--- a/fnl/plugins/conform.fnl
+++ b/fnl/plugins/conform.fnl
@@ -1,6 +1,6 @@
 ;; Formatting
 
-(fn init []
+(λ init []
   (vim.keymap.set [:n :v] :<leader>e
                   (lambda []
                     (let [conform (require :conform)]
diff --git a/fnl/plugins/dadbod.fnl b/fnl/plugins/dadbod.fnl
index c5ca5ec..733a4a0 100644
--- a/fnl/plugins/dadbod.fnl
+++ b/fnl/plugins/dadbod.fnl
@@ -15,7 +15,7 @@
               :mode :n
               :desc "Add DB connection"}])
 
-(fn init []
+(λ init []
   (set vim.g.db_ui_use_nerd_fonts 1)
   (set vim.g.db_ui_winwidth 40)
   (set vim.g.db_ui_notification_width 39))
diff --git a/fnl/plugins/dial.fnl b/fnl/plugins/dial.fnl
index 7a888eb..0438529 100644
--- a/fnl/plugins/dial.fnl
+++ b/fnl/plugins/dial.fnl
@@ -1,19 +1,19 @@
 ;; Better incrementation/decrementation.
 
 (local keys [{1 :<C-a>
-              2 (fn []
+              2 (λ []
                   (let [dial (require :dial.map)]
                     (dial.inc_normal)))
               :expr true
               :desc :Increment}
              {1 :<C-x>
-              2 (fn []
+              2 (λ []
                   (let [dial (require :dial.map)]
                     (dial.dec_normal)))
               :expr true
               :desc :Decrement}])
 
-(fn config []
+(λ config []
   (let [cfg (require :dial.config)
         augend (require :dial.augend)]
     (cfg.augends:register_group {:default [augend.integer.alias.decimal
diff --git a/fnl/plugins/grug-far.fnl b/fnl/plugins/grug-far.fnl
index ed6eae1..44da9b1 100644
--- a/fnl/plugins/grug-far.fnl
+++ b/fnl/plugins/grug-far.fnl
@@ -5,7 +5,7 @@
           :command "nnoremap <silent> <buffer> q :close<CR>"}]
         [:FileType {:pattern [:grug-far] :command "setlocal spell!"}]])
 
-(fn replace [?cword ?file]
+(λ replace [?cword ?file]
   (let [grug (require :grug-far)]
     (var opts {:prefills {}})
     (when ?cword
@@ -14,31 +14,31 @@
       (set opts.prefills.flags ?file))
     (grug.grug_far opts)))
 
-(fn visual-replace []
+(λ visual-replace []
   (let [grug (require :grug-far)]
     (grug.with_visual_selection {:prefills {:flags (vim.fn.expand "%")}})))
 
-(fn config []
-  (let [cmds (require :util.cmds)
+(λ config []
+  (let [{: create-auto-cmds} (require :util.cmds)
         grug (require :grug-far)]
-    (cmds.create-auto-cmds auto-cmds)
+    (create-auto-cmds auto-cmds)
     (grug.setup)))
 
 (local keys [{1 :<m-r> 2 :<cmd>GrugFar<cr> :desc "Find and Replace"}
              {1 :<m-w>
-              2 (fn []
+              2 (λ []
                   (replace (vim.fn.expand :<cword>)))
               :desc "Find and replace word under cursor"}
              {1 :<m-x>
-              2 (fn []
+              2 (λ []
                   (replace nil (vim.fn.expand "%")))
               :desc "Find and replace in file"}
              {1 :<m-a>
-              2 (fn []
+              2 (λ []
                   (replace (vim.fn.expand :<cword>) (vim.fn.expand "%")))
               :desc "Find and replace cword in file"}
              {1 :<m-r>
-              2 (fn []
+              2 (λ []
                   (visual-replace))
               :desc "Find and Replace"
               :mode [:v]}])
diff --git a/fnl/plugins/harpoon.fnl b/fnl/plugins/harpoon.fnl
index c942183..723a52b 100644
--- a/fnl/plugins/harpoon.fnl
+++ b/fnl/plugins/harpoon.fnl
@@ -17,27 +17,31 @@
   (let [harpoon (require :harpoon)]
     (: (harpoon:list) :select nr)))
 
-(fn init []
-  (let [cmds (require :util.cmds)]
-    (cmds.create-user-cmds user-cmds)))
+(λ init []
+  (let [{: create-user-cmds} (require :util.cmds)]
+    (create-user-cmds user-cmds)))
 
 (local keys [{1 :ma 2 :<cmd>HarpoonAdd<cr> :desc :Harpoon}
              {1 :mr 2 :<cmd>HarpoonUI<cr> :desc "Harpoon UI"}
              {1 :ms
-              2 (fn []
+              2 (λ []
                   (select 1))
               :desc "First Harpoon"}
              {1 :mt
-              2 (fn []
+              2 (λ []
                   (select 2))
               :desc "Second Harpoon"}
              {1 :mn
-              2 (fn []
+              2 (λ []
                   (select 3))
               :desc "Third Harpoon"}
              {1 :me
-              2 (fn []
+              2 (λ []
                   (select 4))
               :desc "Fourth Harpoon"}])
 
-{1 :ThePrimeagen/harpoon :branch :harpoon2 :event [:BufReadPost :BufNewFile] : init : keys}
+{1 :ThePrimeagen/harpoon
+ :branch :harpoon2
+ :event [:BufReadPost :BufNewFile]
+ : init
+ : keys}
diff --git a/fnl/plugins/inc-rename.fnl b/fnl/plugins/inc-rename.fnl
index bc50481..10ad4e4 100644
--- a/fnl/plugins/inc-rename.fnl
+++ b/fnl/plugins/inc-rename.fnl
@@ -2,6 +2,6 @@
 
 {1 :smjonas/inc-rename.nvim
  : keys
- :config (fn []
+ :config (λ []
            (let [inc-rename (require :inc_rename)]
              (inc-rename.setup)))}
diff --git a/fnl/plugins/leap.fnl b/fnl/plugins/leap.fnl
index 58b47e8..24bf6b9 100644
--- a/fnl/plugins/leap.fnl
+++ b/fnl/plugins/leap.fnl
@@ -29,7 +29,7 @@
                              ;; if the unnamed register is in use.
                              :paste_on_remote_yank false}}])
 
-(fn config []
+(λ config []
   (let [leap (require :leap)]
     (leap.setup {})
     (leap.create_default_mappings)
diff --git a/fnl/plugins/lsp/diagnostics.fnl b/fnl/plugins/lsp/diagnostics.fnl
index 9fbb627..5956e0e 100644
--- a/fnl/plugins/lsp/diagnostics.fnl
+++ b/fnl/plugins/lsp/diagnostics.fnl
@@ -7,7 +7,7 @@
               {:name :DiagnosticSignHint :text (. icons :hint)}
               {:name :DiagnosticSignInfo :text (. icons :info)}])
 
-(fn configure-signs []
+(λ configure-signs []
   (each [_ sign (ipairs signs)]
     (vim.fn.sign_define sign.name {:texthl sign.name :text sign.text :numhl ""})))
 
@@ -23,7 +23,7 @@
                        :header ""
                        :prefix ""}})
 
-(fn setup []
+(λ setup []
   (configure-signs)
   (vim.diagnostic.config config)
   (set vim.lsp.handlers.textDocument/hover false)
diff --git a/fnl/plugins/lsp/keymaps.fnl b/fnl/plugins/lsp/keymaps.fnl
index 2c01d15..72e03cd 100644
--- a/fnl/plugins/lsp/keymaps.fnl
+++ b/fnl/plugins/lsp/keymaps.fnl
@@ -40,7 +40,7 @@
         [:n :K "<cmd>lua vim.lsp.hover()<cr>" {:desc "Hover documentation"}]
         [:n :<leader>li :<cmd>LspInfo<cr> {:desc "Lsp Info"}]])
 
-(fn on-attach [buffer]
+(λ on-attach [buffer]
   (let [opts {:noremap true :silent true : buffer}]
     (each [_ mapping (ipairs mappings)]
       (match mapping
diff --git a/fnl/plugins/lsp/lspconfig.fnl b/fnl/plugins/lsp/lspconfig.fnl
index a778eb3..112973b 100644
--- a/fnl/plugins/lsp/lspconfig.fnl
+++ b/fnl/plugins/lsp/lspconfig.fnl
@@ -1,13 +1,13 @@
 ;; Configuration for lsp clients.
 
-(fn on-attach []
+(λ on-attach []
   (vim.api.nvim_create_autocmd :LspAttach
-                               {:callback (fn [args]
-                                            (let [keymaps (require :plugins.lsp.keymaps)
+                               {:callback (λ [args]
+                                            (let [{: on-attach} (require :plugins.lsp.keymaps)
                                                   buffer (. args :buf)]
-                                              (keymaps.on-attach buffer)))}))
+                                              (on-attach buffer)))}))
 
-(fn config []
+(λ config []
   (on-attach)
   (let [diagnostics (require :plugins.lsp.diagnostics)
         mason-lspconfig (require :plugins.lsp.mason-lspconfig)
diff --git a/fnl/plugins/lsp/mason-lspconfig.fnl b/fnl/plugins/lsp/mason-lspconfig.fnl
index 21a07ad..105693e 100644
--- a/fnl/plugins/lsp/mason-lspconfig.fnl
+++ b/fnl/plugins/lsp/mason-lspconfig.fnl
@@ -1,11 +1,11 @@
 ;; A bridge plugin between mason and lspconfig, handles installation of lsp and 
 ;; setup hooks for client configurations.
 
-(fn capabilities []
+(λ capabilities []
   (let [cmp-lsp (require :cmp_nvim_lsp)]
     (cmp-lsp.default_capabilities (vim.lsp.protocol.make_client_capabilities))))
 
-(fn handlers [server]
+(λ handlers [server]
   (let [servers (require :plugins.lsp.servers)
         lspconfig (require :lspconfig)]
     (let [config (. lspconfig server)
@@ -13,7 +13,7 @@
       (tset opts :capabilities (capabilities))
       (config.setup opts))))
 
-(fn setup []
+(λ setup []
   (let [mason-lspconfig (require :mason-lspconfig)
         servers (require :plugins.lsp.servers)]
     (mason-lspconfig.setup {:ensure_installed (vim.tbl_keys servers)
diff --git a/fnl/plugins/lsp/servers.fnl b/fnl/plugins/lsp/servers.fnl
index ab8cad6..0dbb16f 100644
--- a/fnl/plugins/lsp/servers.fnl
+++ b/fnl/plugins/lsp/servers.fnl
@@ -10,7 +10,7 @@
           :settings {:json {:schemas (let [schemastore (require :schemastore)]
                                        (schemastore.json.schemas))
                             :validate {:enable true}}}
-          :setup {:commands {:Format [(fn []
+          :setup {:commands {:Format [(λ []
                                         (vim.lsp.buf.range_formatting [] [0 0]
                                                                       [(vim.fn.line "$"
                                                                                     0)]))]}}}
diff --git a/fnl/plugins/lualine.fnl b/fnl/plugins/lualine.fnl
index 0c11537..b2f7e14 100644
--- a/fnl/plugins/lualine.fnl
+++ b/fnl/plugins/lualine.fnl
@@ -14,7 +14,7 @@
 
 (local ignore [:help :packer :spectre_panel :TelescopePrompt])
 
-(fn active-clients []
+(λ active-clients []
   (let [clients (vim.lsp.get_clients)
         buf_num (vim.api.nvim_buf_get_number 0)
         client_names []]
@@ -25,7 +25,7 @@
         (table.concat client_names ", ")
         "")))
 
-(fn hide-in-width []
+(λ hide-in-width []
   (> (vim.fn.winwidth 0) 80))
 
 (local diagnostics {1 :diagnostics
diff --git a/fnl/plugins/neogit.fnl b/fnl/plugins/neogit.fnl
index a84c9dd..9b0c24b 100644
--- a/fnl/plugins/neogit.fnl
+++ b/fnl/plugins/neogit.fnl
@@ -11,9 +11,9 @@
                               :NeogitCommitView]
                     :command "setlocal spell!"}]])
 
-(fn init []
-  (let [cmds (require :util.cmds)]
-    (cmds.create-auto-cmds auto-cmds)))
+(λ init []
+  (let [{: create-auto-cmds} (require :util.cmds)]
+    (create-auto-cmds auto-cmds)))
 
 (local opts {:integrations {:diffview true :telescope true}})
 
diff --git a/fnl/plugins/nvim-lint.fnl b/fnl/plugins/nvim-lint.fnl
index 2ea01fa..caa8d00 100644
--- a/fnl/plugins/nvim-lint.fnl
+++ b/fnl/plugins/nvim-lint.fnl
@@ -4,7 +4,7 @@
   (let [lint (require :lint)]
     (lint.try_lint)))
 
-(fn init []
+(λ init []
   (let [lint-augroup (vim.api.nvim_create_augroup :lint {:clear true})]
     (vim.api.nvim_create_autocmd [:BufEnter
                                   :BufWritePost
@@ -12,7 +12,7 @@
                                   :TextChangedI]
                                  {:group lint-augroup : callback})))
 
-(fn config []
+(λ config []
   (let [lint (require :lint)]
     (set lint.linters_by_ft {:* [:codespell :write_good]
                              :dockerfile [:hadolint]
diff --git a/fnl/plugins/orgmode.fnl b/fnl/plugins/orgmode.fnl
index bf8ff0f..0868860 100644
--- a/fnl/plugins/orgmode.fnl
+++ b/fnl/plugins/orgmode.fnl
@@ -29,17 +29,17 @@
 (local auto-cmds
        [[:FileType
          {:pattern :org
-          :callback (fn []
+          :callback (λ []
                       (tset vim.opt_local :foldenable false)
                       (tset vim.opt_local :foldlevelstart 0)
                       (tset vim.opt_local :foldlevel 0)
                       (tset vim.opt_local :concealcursor :nc)
                       (tset vim.opt_local :conceallevel 2))}]])
 
-(fn init []
-  (let [cmds (require :util.cmds)]
-    (cmds.create-user-cmds user-cmds)
-    (cmds.create-auto-cmds auto-cmds)))
+(λ init []
+  (let [{: create-auto-cmds : create-user-cmds} (require :util.cmds)]
+    (create-user-cmds user-cmds)
+    (create-auto-cmds auto-cmds)))
 
 (local templates
        {:t {:description :Todo :template "* TODO %?\n %u\n DEADLINE: %T\n"}
@@ -77,12 +77,17 @@
 
 (local roam-templates
        {:n {:description :node
-            :template "#+category: %^{type}\n#+filetags: %^{tags}\n#+date: %u\n\n* %?"
+            :template "#+category: %^{type}
+#+filetags: %^{tags}
+#+date: %u
+
+* %?"
             :target "%<%Y%m%d%H%M%S>-%[slug].org"}})
 
-(local roam-opts {:directory "~/.local/share/org/roam" :templates roam-templates})
+(local roam-opts {:directory "~/.local/share/org/roam"
+                  :templates roam-templates})
 
-(fn config []
+(λ config []
   (let [orgmode (require :orgmode)
         roam (require :org-roam)
         bullets (require :org-bullets)]
diff --git a/fnl/plugins/persistence.fnl b/fnl/plugins/persistence.fnl
index 1939564..6f5867c 100644
--- a/fnl/plugins/persistence.fnl
+++ b/fnl/plugins/persistence.fnl
@@ -24,9 +24,9 @@
                        (persistence.stop)))
                    {:nargs 0}]])
 
-(fn init []
-  (let [cmds (require :util.cmds)]
-    (cmds.create-user-cmds user-cmds)))
+(λ init []
+  (let [{: create-user-cmds} (require :util.cmds)]
+    (create-user-cmds user-cmds)))
 
 (local opts {:options [:buffers :curdir :tabpages :winsize :help]})
 
diff --git a/fnl/plugins/snippets/org.fnl b/fnl/plugins/snippets/org.fnl
index a2b2e46..460e44c 100644
--- a/fnl/plugins/snippets/org.fnl
+++ b/fnl/plugins/snippets/org.fnl
@@ -1,6 +1,6 @@
 ;; Snippets for org files.
 
-(fn add-snippets []
+(λ add-snippets []
   (let [ls (require :luasnip)
         fmt (require :luasnip.extras.fmt)]
     (let [s ls.s
diff --git a/fnl/plugins/snippets/workflow.fnl b/fnl/plugins/snippets/workflow.fnl
index ffe9f50..435cf90 100644
--- a/fnl/plugins/snippets/workflow.fnl
+++ b/fnl/plugins/snippets/workflow.fnl
@@ -1,4 +1,4 @@
-(fn workflow-snippets []
+(λ workflow-snippets []
   (let [ls (require :luasnip)
         fmt (require :luasnip.extras.fmt)]
     (let [s ls.s
@@ -33,7 +33,7 @@ substep \"{}\" =
                                      "
                    [(i 1) (i 2) (i 3) (i 4) (i 5)]))])))
 
-(fn add-snippets []
+(λ add-snippets []
   (let [ls (require :luasnip)
         snippets (workflow-snippets)]
     (ls.add_snippets :org snippets)
diff --git a/fnl/plugins/telescope.fnl b/fnl/plugins/telescope.fnl
index e0c0784..7b8f69b 100644
--- a/fnl/plugins/telescope.fnl
+++ b/fnl/plugins/telescope.fnl
@@ -38,11 +38,11 @@
                    :harpoon
                    :rest])
 
-(fn load-extensions [telescope]
+(λ load-extensions [telescope]
   (each [_ extension (ipairs extensions)]
     (telescope.load_extension extension)))
 
-(fn telescope-builtin [builtin opts]
+(λ telescope-builtin [builtin opts]
   (let [telescope (require :telescope.builtin)
         themes (require :telescope.themes)
         theme (. opts :theme)]
@@ -54,9 +54,9 @@
                                         {:theme :get_dropdown :previewer false}))
                    {:nargs 0}]])
 
-(fn init []
-  (let [cmds (require :util.cmds)]
-    (cmds.create-user-cmds user-cmds)))
+(λ init []
+  (let [{: create-user-cmds} (require :util.cmds)]
+    (create-user-cmds user-cmds)))
 
 (local keys [{1 :mf 2 :<cmd>FindFiles<cr> :desc "Find Files"}
              {1 :mg
@@ -103,7 +103,7 @@
               2 "<cmd>Telescope git_commits theme=dropdown<cr>"
               :desc "Checkout Commit"}])
 
-(fn config []
+(λ config []
   (let [telescope (require :telescope)
         actions (require :telescope.actions)
         icons (require :settings.icons)]
diff --git a/fnl/plugins/treesitter.fnl b/fnl/plugins/treesitter.fnl
index e7d20f9..650f132 100644
--- a/fnl/plugins/treesitter.fnl
+++ b/fnl/plugins/treesitter.fnl
@@ -83,7 +83,7 @@
                                     :peek_definition_code {:md "@function.outer"
                                                            :mD "@class.outer"}}}})
 
-(fn config []
+(λ config []
   (let [treesitter (require :nvim-treesitter.configs)]
     (treesitter.setup opts)))
 
diff --git a/fnl/plugins/venn.fnl b/fnl/plugins/venn.fnl
index d1b42be..929e94d 100644
--- a/fnl/plugins/venn.fnl
+++ b/fnl/plugins/venn.fnl
@@ -26,7 +26,7 @@
           (disable win)))))
 
 (local keys [{1 :<leader>v
-              2 (fn []
+              2 (λ []
                   (toggle))
               :desc "Toggle Venn Diagram"}])
 
diff --git a/fnl/plugins/which-key.fnl b/fnl/plugins/which-key.fnl
index f78efac..db05b4d 100644
--- a/fnl/plugins/which-key.fnl
+++ b/fnl/plugins/which-key.fnl
@@ -49,7 +49,7 @@
                 9 {1 :<leader>s :group :+session}
                 10 {1 :<leader>w :group :+worktree}}])
 
-(fn config []
+(λ config []
   (let [which-key (require :which-key)]
     (which-key.setup opts)
     (which-key.add groups)))
diff --git a/fnl/plugins/window-picker.fnl b/fnl/plugins/window-picker.fnl
index 046e927..6746f00 100644
--- a/fnl/plugins/window-picker.fnl
+++ b/fnl/plugins/window-picker.fnl
@@ -4,16 +4,16 @@
              :fg_color "#E1E1E1"
              :selection_chars :MNEIOARSTG})
 
-(fn pick-window []
+(λ pick-window []
   (let [window-picker (require :window-picker)]
     (let [win (window-picker.pick_window)]
       (if (not= win nil)
           (vim.api.nvim_set_current_win win)))))
 
-(fn config []
+(λ config []
   (let [window-picker (require :window-picker)]
     (window-picker.setup opts)
-    (vim.keymap.set :n :<C-s> (fn []
+    (vim.keymap.set :n :<C-s> (λ []
                                 (pick-window)) {})))
 
 {1 :s1n7ax/nvim-window-picker :event [:BufReadPost :BufNewFile] :version :2.0.0 : config}
diff --git a/fnl/settings/autocmds.fnl b/fnl/settings/autocmds.fnl
index 5563f53..3b9cecb 100644
--- a/fnl/settings/autocmds.fnl
+++ b/fnl/settings/autocmds.fnl
@@ -23,5 +23,5 @@
                                 (let [cursorline (require :settings.cursorline)]
                                   cursorline.hide))}]])
 
-(let [cmds (require :util.cmds)]
-  (cmds.create-auto-cmds auto-cmds))
+(let [{: create-auto-cmds} (require :util.cmds)]
+  (create-auto-cmds auto-cmds))
diff --git a/fnl/settings/cursorline.fnl b/fnl/settings/cursorline.fnl
index cec76f2..7b7eae1 100644
--- a/fnl/settings/cursorline.fnl
+++ b/fnl/settings/cursorline.fnl
@@ -2,20 +2,20 @@
 
 (local ignored [:neo-tree])
 
-(fn filetype []
+(λ filetype []
   vim.bo.filetype)
 
-(fn ignore []
+(λ ignore []
   (vim.tbl_contains ignored (filetype)))
 
-(fn show []
+(λ show []
   (let [(ok cl) (pcall vim.api.nvim_win_get_var 0 :auto-cursorline)]
     (if (and ok cl)
         (do
           (set vim.wo.cursorline true)
           (vim.api.nvim_win_del_var 0 :auto-cursorline)))))
 
-(fn hide []
+(λ hide []
   (if (not= (ignore) true)
       (do
         (let [cl vim.wo.cursorline]
diff --git a/fnl/util/cmds.fnl b/fnl/util/cmds.fnl
index 254a26d..5881634 100644
--- a/fnl/util/cmds.fnl
+++ b/fnl/util/cmds.fnl
@@ -1,9 +1,9 @@
-(fn create-user-cmds [user-cmds]
+(λ create-user-cmds [user-cmds]
   (each [_ user-cmd (ipairs user-cmds)]
     (match user-cmd
       [event cmd opts] (vim.api.nvim_create_user_command event cmd opts))))
 
-(fn create-auto-cmds [auto-cmds]
+(λ create-auto-cmds [auto-cmds]
   (each [_ auto-cmd (ipairs auto-cmds)]
     (match auto-cmd
       [event opts] (vim.api.nvim_create_autocmd event opts))))
-- 
cgit v1.2.3-70-g09d2