branch: externals/boxy
commit 791d0f0cde67998efcca1fa642b0f04446dc7e84
Author: Amy Grinn <grinn....@gmail.com>
Commit: Amy Grinn <grinn....@gmail.com>
Using string-width instead of length
---
boxy.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/boxy.el b/boxy.el
index 832302961a..62ccfe5eb6 100644
--- a/boxy.el
+++ b/boxy.el
@@ -915,7 +915,7 @@ Uses `boxy--offset' to determine row and column offsets."
(let ((remaining-chars (- (save-excursion
(end-of-line)
(current-column))
(current-column))))
- (delete-char (min (length str)
remaining-chars))))))
+ (delete-char (min (string-width str)
remaining-chars))))))
(draw (cons top left)
(concat (cond ((and double dashed) "┏")
(double "╔")
@@ -983,7 +983,7 @@ Uses `boxy--offset' to determine row and column offsets."
(* 2 padding)))
(width (+ base-width
(if (slot-boundp box :name)
- (with-slots (name) box (length name))
+ (with-slots (name) box (string-width name))
0)))
(children (boxy--get-children box)))
(setq stored-width
@@ -1014,7 +1014,7 @@ Uses `boxy--offset' to determine row and column offsets."
(mapcar #'boxy--get-width
row)
(* -1 margin)))
rows))))
- (if (> width (+ (* 2 padding) children-width))
+ (if (> width (+ 1 (* 2 padding) children-width))
width
(+ base-width children-width)))))))))
