docs: fix miscaligned tables by checking for UTF-8

doc/bepo-nvim.txt

@@ -47,76 +47,76 @@ in each group. “Modes” have the same meaning as in the |map-table|.
 require("bepo").movement()                                    *bepo.nvim-movement*
 on préserve {hjkl} pour les directions
 
- Modes  Bepo     Qwerty
+ Modes  Bepo  Qwerty
-    nx     c     h
+    nx  c     h
-    nx     t     j
+    nx  t     j
-    nx     s     k
+    nx  s     k
-    nx     r     l
+    nx  r     l
-    nx     C     H
+    nx  C     H
-    nx     T     J
+    nx  T     J
-    nx     S     K
+    nx  S     K
-    nx     R     L
+    nx  R     L
-    nx    gt     gj
+    nx  gt    gj
-    nx    gs     gk
+    nx  gs    gk
-    nx    zT     zt
+    nx  zT    zt
-    nx    zt     zj
+    nx  zt    zj
-    nx    zk     zs
+    nx  zk    zs
-    nx    zs     zk
+    nx  zs    zk
-    nx     h     t
+    nx  h     t
-    nx     H     T
+    nx  H     T
-    nx     l     c
+    nx  l     c
-    nx     L     C
+    nx  L     C
-    nx     j     r
+    nx  j     r
-    nx     J     R
+    nx  J     R
-    nx     k     s
+    nx  k     s
-    nx     K     S
+    nx  K     S
-
---------------------------------------------------------------------------------
-require("bepo").easy_access()                              *bepo.nvim-easy_access*
-
- Modes  Bepo     Qwerty
-     n    «     <
-     v    «     <gv
-     n    »     >
-     v    »     >gv
-    nx    g,     g;
-    nx    g;     g,
-    nx    é     w
-    nx    É     W
-    ox   aé     aw
-    ox   aÉ     aW
-    ox   ié     iw
-    ox   iÉ     iW
-
---------------------------------------------------------------------------------
-require("bepo").tabs()                                            *bepo.nvim-tabs*
-le couple [gb]/[gé] agit sur les tabs
-
- Modes  Bepo     Qwerty
-     n    gb     gT
-     n   gé     gt
-     n    gB     :execute "silent! tabfirst"<CR>
-     n   gÉ     :execute "silent! tablast"<CR>
-     n    gT     <C-]>
 
 --------------------------------------------------------------------------------
 require("bepo").window()                                        *bepo.nvim-window*
 [w] est libre pour faire <C-w>, grâce à easy_access
 
- Modes  Bepo     Qwerty
+ Modes  Bepo  Qwerty
-     n     w     <C-w>
+     n  w     <C-w>
-     n     W     <C-w><C-w>
+     n  W     <C-w><C-w>
-     n    wc     <C-w>h
+     n  wc    <C-w>h
-     n    wt     <C-w>j
+     n  wt    <C-w>j
-     n    ws     <C-w>k
+     n  ws    <C-w>k
-     n    wr     <C-w>l
+     n  wr    <C-w>l
-     n    wC     <C-w>H
+     n  wC    <C-w>H
-     n    wT     <C-w>J
+     n  wT    <C-w>J
-     n    wS     <C-w>K
+     n  wS    <C-w>K
-     n    wR     <C-w>L
+     n  wR    <C-w>L
-     n    wh     <C-w>s
+     n  wh    <C-w>s
-     n   wé     <C-w>t
+     n  wé    <C-w>t
-     n   wÉ     <C-w>T
+     n  wÉ    <C-w>T
+
+--------------------------------------------------------------------------------
+require("bepo").tabs()                                            *bepo.nvim-tabs*
+le couple [gb]/[gé] agit sur les tabs
+
+ Modes  Bepo  Qwerty
+     n  gb    gT
+     n  gé    gt
+     n  gB    :execute "silent! tabfirst"<CR>
+     n  gÉ    :execute "silent! tablast"<CR>
+     n  gT    <C-]>
+
+--------------------------------------------------------------------------------
+require("bepo").easy_access()                              *bepo.nvim-easy_access*
+
+ Modes  Bepo  Qwerty
+     n  «     <
+     v  «     <gv
+     n  »     >
+     v  »     >gv
+    nx  g,    g;
+    nx  g;    g,
+    nx  é     w
+    nx  É     W
+    ox  aé    aw
+    ox  aÉ    aW
+    ox  ié    iw
+    ox  iÉ    iW
 
 
 vim:tw=78:ts=8:ft=help:norl:

scripts/gen_doc.fnl

@@ -16,6 +16,10 @@
 
 (local fennel (require :fennel))
 
+; Requires a recent Lua version for UTF-8 support
+(assert (> _VERSION "Lua 5.3"))
+(local utf8 (require :utf8))
+
 (fn ==== []
   (print (string.rep "=" 80)))
 
@@ -23,7 +27,11 @@
   (print (string.rep "-" 80)))
 
 (fn right-align [str max]
-  (let [len (length str)]
+  (let [len (utf8.len str)]
+    (.. (string.rep " " (- max len)) str)))
+
+(fn left-align [str max]
+  (let [len (utf8.len str)]
     (.. str (string.rep " " (- max len)))))
 
 (local mapping-struct-header {:bepo :Bepo :modes :Modes :qwerty :Qwerty})
@@ -31,11 +39,11 @@
 (fn print-mapping-struct [struct]
   (match struct
     {: bepo : modes : qwerty}
-    (print (string.format "%6s %5s     %s" modes bepo qwerty))
+    (print (.. (right-align modes 6) "  " (left-align bepo 4) "  " qwerty))
     _ (error (.. "Received an invalid struct" (fennel.view struct)))))
 
 (fn print-lua-import [name]
-  (->> (values (right-align (string.format "require(\"bepo\").%s()" name) 46)
+  (->> (values (left-align (string.format "require(\"bepo\").%s()" name) 46)
                (.. :*bepo.nvim- name "*"))
        (string.format "%s %35s")
        (print)))