From 801b6f556a2f4ba9b093fa7526b84d78fd5cf842 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Cl=C3=A9ment=20Joly?= Date: Wed, 20 Dec 2023 22:12:43 +0000 Subject: [PATCH] style: rename macro to improve formatting with fnlfmt --- fnl/bepo.fnl | 141 +++++++++++++++++++++++++++++++++------------------ 1 file changed, 93 insertions(+), 48 deletions(-) diff --git a/fnl/bepo.fnl b/fnl/bepo.fnl index 7ce7631..1a07c01 100644 --- a/fnl/bepo.fnl +++ b/fnl/bepo.fnl @@ -1,4 +1,5 @@ ;;; bepo.nvim: bepo mapping for neovim + ;; Copyright 2022 Clément Joly ;; ;; Licensed under the Apache License, Version 2.0 (the "License"); @@ -36,7 +37,7 @@ (map-normal key target) (map-text-object key target)) -(macro 𝛅 [...] +(macro def-documented [...] "When called with the right context, this will print the documentation of the mappings, instead of attempting to bind. Since we access _G, this needs to be called with --no-compiler-sandbox (see @@ -68,56 +69,99 @@ `(local ,doc-struct.fname ,doc-struct)) `(fn ,(unpack [...])))) -(𝛅 mapping-movement [] "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) ;; ------ - ;; {JKL} devient [TSR] - (map-all :T :J) (map-all :S :K) (map-all :R :L) ;; ------ - ;; on préserve les variantes avec 'g' - (map-all :gt :gj) (map-all :gs :gk) ;; ------ - ;; on préserve les variantes avec 'z' - (map-all :zT :zt) (map-all :zt :zj) (map-all :zk :zs) (map-all :zs :zk) - ;; ------ - ;; {t} devient [h] pour être proche de [f] - (map-all :h :t) ;; idem pour {T} et [H] - (map-all :H :T) ;; {c} devient [l] - (map-all :l :c) ;; {C} devient [L] - (map-all :L :C) ;; {j} devient [r] - (map-all :j :r) ;; {J} devient [R] - (map-all :J :R) ;; {k} devient [s] - (map-all :k :s) ;; {K} devient [S] - (map-all :K :S)) +(def-documented mapping-movement [] + "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) + ;; ------ + ;; {JKL} devient [TSR] + (map-all :T :J) + (map-all :S :K) + (map-all :R :L) + ;; ------ + ;; on préserve les variantes avec 'g' + (map-all :gt :gj) + (map-all :gs :gk) + ;; ------ + ;; on préserve les variantes avec 'z' + (map-all :zT :zt) + (map-all :zt :zj) + (map-all :zk :zs) + (map-all :zs :zk) + ;; ------ + ;; {t} devient [h] pour être proche de [f] + (map-all :h :t) + ;; idem pour {T} et [H] + (map-all :H :T) + ;; {c} devient [l] + (map-all :l :c) + ;; {C} devient [L] + (map-all :L :C) + ;; {j} devient [r] + (map-all :j :r) + ;; {J} devient [R] + (map-all :J :R) + ;; {k} devient [s] + (map-all :k :s) + ;; {K} devient [S] + (map-all :K :S)) -(𝛅 mapping-tabs [] "le couple [gb]/[gé] agit sur les tabs" - (map-normal :gb :gT) (map-normal "gé" :gt) ;; [gB] va au premier tab - (map-normal :gB ":execute \"silent! tabfirst\"") ;; [gÉ] au dernier - (map-normal "gÉ" ":execute \"silent! tablast\"") - ;; [gT] est libéré et peut agir sur les tags - (map-normal :gT "")) +(def-documented mapping-tabs [] + "le couple [gb]/[gé] agit sur les tabs" + (map-normal :gb :gT) + (map-normal "gé" :gt) + ;; [gB] va au premier tab + (map-normal :gB ":execute \"silent! tabfirst\"") + ;; [gÉ] au dernier + (map-normal "gÉ" ":execute \"silent! tablast\"") + ;; [gT] est libéré et peut agir sur les tags + (map-normal :gT "")) -(𝛅 mapping-easy-access [] ;; [<] est moins accessible que [«] - (map-normal "«" "<") (map-visual "«" :] - (map-normal "»" ">") (map-visual "»" :>gv) - ;; idem pour [g,] et [g;] qui sont permutés - (map-all "g," "g;") (map-all "g;" "g,") - ;; [w] est peu accessible, on utilise [é] - (map-all "é" :w) ;; idem pour [W] et [É] - (map-all "É" :W) ;; idem pour [aw] et [aé] - (map-text-object "aé" :aw) ;; idem pour [aW] et [aÉ] - (map-text-object "aÉ" :aW) ;; idem pour [iw] et [ié] - (map-text-object "ié" :iw) ;; idem pour [iW] et [iÉ] - (map-text-object "iÉ" :iW)) +(def-documented mapping-easy-access [] ;; [<] est moins accessible que [«] + (map-normal "«" "<") + (map-visual "«" :] + (map-normal "»" ">") + (map-visual "»" :>gv) + ;; idem pour [g,] et [g;] qui sont permutés + (map-all "g," "g;") + (map-all "g;" "g,") + ;; [w] est peu accessible, on utilise [é] + (map-all "é" :w) + ;; idem pour [W] et [É] + (map-all "É" :W) + ;; idem pour [aw] et [aé] + (map-text-object "aé" :aw) + ;; idem pour [aW] et [aÉ] + (map-text-object "aÉ" :aW) + ;; idem pour [iw] et [ié] + (map-text-object "ié" :iw) + ;; idem pour [iW] et [iÉ] + (map-text-object "iÉ" :iW)) -(𝛅 mapping-window [] "[w] est libre pour faire , grâce à easy_access" - (map-normal :w :) ;; et [w] pour faire - (map-normal :W :) ;; on map [w]+direction, miniscule + majuscule - (map-normal :wc :h) (map-normal :wt :j) (map-normal :ws :k) - (map-normal :wr :l) (map-normal :wC :H) (map-normal :wT :J) - (map-normal :wS :K) (map-normal :wR :L) - ;; crée un split _h_orizontal - (map-normal :wh :s) ;; va en haut à gauche - (map-normal "wé" :t) ;; déplace sur un nouveau tab - (map-normal "wÉ" :T)) +(def-documented mapping-window [] + "[w] est libre pour faire , grâce à easy_access" + (map-normal :w :) + ;; et [w] pour faire + (map-normal :W :) + ;; on map [w]+direction, miniscule + majuscule + (map-normal :wc :h) + (map-normal :wt :j) + (map-normal :ws :k) + (map-normal :wr :l) + (map-normal :wC :H) + (map-normal :wT :J) + (map-normal :wS :K) + (map-normal :wR :L) + ;; crée un split _h_orizontal + (map-normal :wh :s) + ;; va en haut à gauche + (map-normal "wé" :t) + ;; déplace sur un nouveau tab + (map-normal "wÉ" :T)) (fn setup [] "In any case, the following keys are always free for you to remap as you see fit: @@ -138,3 +182,4 @@ :tabs mapping-tabs :easy_access mapping-easy-access :window mapping-window} +