tfenasse/bepo.nvim
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Initial import from michamos/vim-bepo

Browse Source
This commit is contained in:
Clément Joly 2022-05-07 19:29:46 +00:00
parent 72f7645924
commit f4fde90367
3 changed files with 157 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Readme.md
View File

@ -1,3 +1,5 @@
# bepo.nvim
*Work in progress*
Remap for the bepo layout in Lua, inspired from https://github.com/michamos/vim-bepo

110
fnl/bepo.fnl
View File

@ -16,20 +16,122 @@
(fn map-text-object [key target]
"For text-objects mappings"
(if (= (vim.fn.maprg key :o) "")
(if (= (vim.fn.maparg key :o) "")
(vim.api.nvim_set_keymap :o key target {:noremap true})
(= (vim.fn.maprg key :x) "")
(= (vim.fn.maparg key :x) "")
(vim.api.nvim_set_keymap :x key target {:noremap true}))
nil)
(fn map-all [key target]
"For everything else"
(if (= (vim.fn.maprg key :n) "")
(if (= (vim.fn.maparg key :n) "")
(vim.api.nvim_set_keymap :n key target {:noremap true})
(map-text-object key target)))
(fn setup []
(map-all :c :h))
;; Keys still free
;; , and ; as they may be used as leaders
;; à and À
;; on préserve {hjkl} pour les directions
(map-all :c :h)
(map-all :t :j)
(map-all :s :k)
(map-all :r :l)
(map-all :C :H)
;; ------
;; {HJKL} devient [CTSR]
(map-all :T :J)
;; {HJKL} devient [CTSR]
(map-all :S :K)
;; {HJKL} devient [CTSR]
;; (map-all "R" "L") ;; {HJKL} devient [CTSR] -> free R
;; ------
;; on préserve les variantes avec 'g'
(map-all :gt :gj)
(map-all :gs :gk)
;; ------
;; on préserve les variantes avec 'z'
;; I like zt better
;; (map-all "zt" "zj")
(map-all :zs :zk)
;; ------
(map-all :h :t)
;; {t} devient [h] pour être proche de [f]
(map-all :H :T)
;; idem pour {T} et [H]
(map-all :l :c)
;; {c} devient [l]
(map-all :L :C)
;; {C} devient [L]
(map-all :j :r)
;; {j} devient [r]
(map-all :J :R)
;; {J} devient [R]
(map-all :k :s)
;; {k} devient [s]
(map-all :K :S)
;; {h} devient [S]
(map-all :gb :gT)
;; le couple [gb]/[gé] agit sur les tabs
(map-all "gé" :gt)
;; le couple [gb]/[gé] agit sur les tabs
(map-all :gB ":execute " silent! tabfirst :<CR>)
;; [gB] va au premier tab
(map-all "gÉ" ":execute " silent! tablast "<CR> ")
;; [gÉ] au dernier
(map-all :gT "<C-]>")
;; [gT] est libéré et peut agir sur les tags
(map-all "«" "<")
;; [<] est moins accessible que [«]
(map-all "»" ">")
;; idem pour [»] et [>]
(map-all "g," "g;")
;; idem pour [g,] et [g;]
(map-all "g;" "g,")
;; qui sont permutés
(map-all "é" :w)
;; [w] est peu accessible, on utilise [é]
(map-all "É" :W)
;; idem pour [W] et [É]
;; ------
(map-text-object "aé" :aw)
;; idem pour [aw] et [aé]
(map-text-object "aÉ" :aW)
;; idem pour [aW] et [aÉ]
(map-text-object "ié" :iw)
;; idem pour [iw] et [ié]
(map-text-object "iÉ" :iW)
;; idem pour [iW] et [iÉ]
;; ------
(map-all :w :<C-w>)
;; [w] est libre pour faire <C-w>
(map-all :W :<C-w><C-w>)
;; et [w] pour faire <C-w><C-w>
(map-all :wc :<C-w>h)
;; on map [w]+direction
(map-all :wt :<C-w>j)
;; on map [w]+direction
(map-all :ws :<C-w>k)
;; on map [w]+direction
(map-all :wr :<C-w>l)
;; on map [w]+direction
(map-all :wC :<C-w>H)
;; idem pour les majuscules
(map-all :wT :<C-w>J)
;; idem pour les majuscules
(map-all :wS :<C-w>K)
;; idem pour les majuscules
(map-all :wR :<C-w>L)
;; idem pour les majuscules
;; ------
(map-all :wh :<C-w>s)
;; crée un split _h_orizontal
;; ------
(map-all "wé" :<C-w>t)
;; va en haut à gauche
(map-all "wÉ" :<C-w>T)
;; déplace sur un nouveau tab
)
{: setup}

53
lua/bepo.lua
View File

@ -1,20 +1,65 @@
local function map_text_object(key, target)
if (vim.fn.maprg(key, "o") == "") then
if (vim.fn.maparg(key, "o") == "") then
vim.api.nvim_set_keymap("o", key, target, {noremap = true})
elseif (vim.fn.maprg(key, "x") == "") then
elseif (vim.fn.maparg(key, "x") == "") then
vim.api.nvim_set_keymap("x", key, target, {noremap = true})
else
end
return nil
end
local function map_all(key, target)
if (vim.fn.maprg(key, "n") == "") then
if (vim.fn.maparg(key, "n") == "") then
return vim.api.nvim_set_keymap("n", key, target, {noremap = true})
else
return map_text_object(key, target)
end
end
local function setup()
return map_all("c", "h")
map_all("c", "h")
map_all("t", "j")
map_all("s", "k")
map_all("r", "l")
map_all("C", "H")
map_all("T", "J")
map_all("S", "K")
map_all("gt", "gj")
map_all("gs", "gk")
map_all("zs", "zk")
map_all("h", "t")
map_all("H", "T")
map_all("l", "c")
map_all("L", "C")
map_all("j", "r")
map_all("J", "R")
map_all("k", "s")
map_all("K", "S")
map_all("gb", "gT")
map_all("g\195\169", "gt")
map_all("gB", ":execute ", __fnl_global__silent_21, tabfirst, "<CR>")
map_all("g\195\137", ":execute ", __fnl_global__silent_21, tablast, "<CR> ")
map_all("gT", "<C-]>")
map_all("\194\171", "<")
map_all("\194\187", ">")
map_all("g,", "g;")
map_all("g;", "g,")
map_all("\195\169", "w")
map_all("\195\137", "W")
map_text_object("a\195\169", "aw")
map_text_object("a\195\137", "aW")
map_text_object("i\195\169", "iw")
map_text_object("i\195\137", "iW")
map_all("w", "<C-w>")
map_all("W", "<C-w><C-w>")
map_all("wc", "<C-w>h")
map_all("wt", "<C-w>j")
map_all("ws", "<C-w>k")
map_all("wr", "<C-w>l")
map_all("wC", "<C-w>H")
map_all("wT", "<C-w>J")
map_all("wS", "<C-w>K")
map_all("wR", "<C-w>L")
map_all("wh", "<C-w>s")
map_all("w\195\169", "<C-w>t")
return map_all("w\195\137", "<C-w>T")
end
return {setup = setup}