style: rename macro to improve formatting with fnlfmt

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,55 +69,98 @@
         `(local ,doc-struct.fname ,doc-struct))
       `(fn ,(unpack [...]))))
 
-(𝛅 mapping-movement [] "on préserve {hjkl} pour les directions"
+(def-documented mapping-movement []
-      (map-all :c :h) (map-all :t :j) (map-all :s :k) (map-all :r :l)
+  "on préserve {hjkl} pour les directions"
-      (map-all :C :H) ;; ------
+  (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) ;; ------
+  (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) ;; ------
+  (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)
+  (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)
-      (map-all :H :T) ;; {c} devient [l]
+  ;; idem pour {T} et [H]
-      (map-all :l :c) ;; {C} devient [L]
+  (map-all :H :T)
-      (map-all :L :C) ;; {j} devient [r]
+  ;; {c} devient [l]
-      (map-all :j :r) ;; {J} devient [R]
+  (map-all :l :c)
-      (map-all :J :R) ;; {k} devient [s]
+  ;; {C} devient [L]
-      (map-all :k :s) ;; {K} devient [S]
+  (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"
+(def-documented mapping-tabs []
-      (map-normal :gb :gT) (map-normal "gé" :gt) ;; [gB] va au premier tab
+  "le couple [gb]/[gé] agit sur les tabs"
-      (map-normal :gB ":execute \"silent! tabfirst\"<CR>") ;; [gÉ] au dernier
+  (map-normal :gb :gT)
+  (map-normal "gé" :gt)
+  ;; [gB] va au premier tab
+  (map-normal :gB ":execute \"silent! tabfirst\"<CR>")
+  ;; [gÉ] au dernier
   (map-normal "gÉ" ":execute \"silent! tablast\"<CR>")
   ;; [gT] est libéré et peut agir sur les tags
   (map-normal :gT "<C-]>"))
 
-(𝛅 mapping-easy-access [] ;; [<] est moins accessible que [«]
+(def-documented mapping-easy-access [] ;; [<] est moins accessible que [«]
-      (map-normal "«" "<") (map-visual "«" :<gv) ;; idem pour [»] et [>]
+  (map-normal "«" "<")
-      (map-normal "»" ">") (map-visual "»" :>gv)
+  (map-visual "«" :<gv)
+  ;; idem pour [»] et [>]
+  (map-normal "»" ">")
+  (map-visual "»" :>gv)
   ;; idem pour [g,] et [g;] qui sont permutés
-      (map-all "g," "g;") (map-all "g;" "g,")
+  (map-all "g," "g;")
+  (map-all "g;" "g,")
   ;; [w] est peu accessible, on utilise [é]
-      (map-all "é" :w) ;; idem pour [W] et [É]
+  (map-all "é" :w)
-      (map-all "É" :W) ;; idem pour [aw] et [aé]
+  ;; idem pour [W] et [É]
-      (map-text-object "aé" :aw) ;; idem pour [aW] et [aÉ]
+  (map-all "É" :W)
-      (map-text-object "aÉ" :aW) ;; idem pour [iw] et [ié]
+  ;; idem pour [aw] et [aé]
-      (map-text-object "ié" :iw) ;; idem pour [iW] et [iÉ]
+  (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 <C-w>, grâce à easy_access"
+(def-documented mapping-window []
-      (map-normal :w :<C-w>) ;; et [w] pour faire <C-w><C-w>
+  "[w] est libre pour faire <C-w>, grâce à easy_access"
-      (map-normal :W :<C-w><C-w>) ;; on map [w]+direction, miniscule + majuscule
+  (map-normal :w :<C-w>)
-      (map-normal :wc :<C-w>h) (map-normal :wt :<C-w>j) (map-normal :ws :<C-w>k)
+  ;; et [w] pour faire <C-w><C-w>
-      (map-normal :wr :<C-w>l) (map-normal :wC :<C-w>H) (map-normal :wT :<C-w>J)
+  (map-normal :W :<C-w><C-w>)
-      (map-normal :wS :<C-w>K) (map-normal :wR :<C-w>L)
+  ;; on map [w]+direction, miniscule + majuscule
+  (map-normal :wc :<C-w>h)
+  (map-normal :wt :<C-w>j)
+  (map-normal :ws :<C-w>k)
+  (map-normal :wr :<C-w>l)
+  (map-normal :wC :<C-w>H)
+  (map-normal :wT :<C-w>J)
+  (map-normal :wS :<C-w>K)
+  (map-normal :wR :<C-w>L)
   ;; crée un split _h_orizontal
-      (map-normal :wh :<C-w>s) ;; va en haut à gauche
+  (map-normal :wh :<C-w>s)
-      (map-normal "wé" :<C-w>t) ;; déplace sur un nouveau tab
+  ;; va en haut à gauche
+  (map-normal "wé" :<C-w>t)
+  ;; déplace sur un nouveau tab
   (map-normal "wÉ" :<C-w>T))
 
 (fn setup []
@@ -138,3 +182,4 @@
  :tabs mapping-tabs
  :easy_access mapping-easy-access
  :window mapping-window}
+