From 24e50fe9bab2a7c7ae895201b051d4ed910af8b2 Mon Sep 17 00:00:00 2001 From: ajet Date: Sun, 17 Aug 2025 12:18:46 -0900 Subject: [PATCH] remove unneeded abstractions --- .config/nvim/fnl/init.fnl | 26 ++++++++++---------------- 1 file changed, 10 insertions(+), 16 deletions(-) diff --git a/.config/nvim/fnl/init.fnl b/.config/nvim/fnl/init.fnl index d2840b5..c9df629 100644 --- a/.config/nvim/fnl/init.fnl +++ b/.config/nvim/fnl/init.fnl @@ -7,19 +7,8 @@ ,(unpack code))) -;; utils -(fn opt! [[name value]] - (tset vim.o name value)) - -(fn nmap! [ks then-do desc] - (vim.keymap.set "n" - (.. "" ks) - (.. ":" then-do "") - (when desc {:desc desc}))) - - ;; general keymaps -(->> [[ "fs" "w" "[f]ile [s]ave"] +(->> [["fs" "w" "[f]ile [s]ave"] ["cf" "e ~/.config/nvim/fnl/init.fnl" "[c]onfig [f]ennel"] ;config helpers ["cl" "e ~/.config/nvim/init.lua" "[c]onfig [l]ua"] @@ -27,7 +16,11 @@ ["bn" "bn" "[b]uffer [n]ext"] ;buffer controls ["bp" "bp" "[b]uffer [p]revious"] ["bd" "bd" "[b]uffer [d]elete"]] - (a.map #(nmap! (unpack $1)))) + (a.map (lambda [[ks then-do desc]] + (vim.keymap.set "n" + (.. "" ks) + (.. ":" then-do "") + (when desc {:desc desc}))))) ;; general settings (->> {:number true ;line numbers @@ -60,12 +53,13 @@ :ignorecase true :smartcase true} - (a.map-indexed opt!)) + (a.map-indexed (lambda [[name value]] + (tset vim.o name value)))) ;; speed up scroll (def scroll-speed 8) -(vim.keymap.set "n" "" (.. scroll-speed "") {}) -(vim.keymap.set "n" "" (.. scroll-speed "") {}) +(vim.keymap.set "n" "" (.. scroll-speed "") {:desc "scroll down"}) +(vim.keymap.set "n" "" (.. scroll-speed "") {:desc "scroll up"}) (comment ;; repl imports