From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 11 Dec 2021 05:50:58 +0000 (+0100)
Subject: Improve sqlite-mode--tablify tables
X-Git-Tag: emacs-29.0.90~3604^2~14
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fb11575f3cfe90b409a6ff364ba4c70777537499;p=emacs.git

Improve sqlite-mode--tablify tables

* lisp/sqlite-mode.el (sqlite-mode--tablify): Tweak column widths
and sanitize newlines.
---

diff --git a/lisp/sqlite-mode.el b/lisp/sqlite-mode.el
index 9edb85b61ab..e33a040f7ed 100644
--- a/lisp/sqlite-mode.el
+++ b/lisp/sqlite-mode.el
@@ -76,7 +76,7 @@
     (when prefix
       (insert prefix))
     (dotimes (i (length widths))
-      (insert (propertize (format (format "%%-%ds" (nth i widths))
+      (insert (propertize (format (format "%%-%ds " (nth i widths))
                                   (nth i columns))
                           'face 'header-line)))
     (insert "\n")
@@ -85,11 +85,14 @@
         (when prefix
           (insert prefix))
         (dotimes (i (length widths))
-          (insert (format (format "%%%s%ds"
-                                  (if (numberp (nth i row))
-                                      "" "-")
-                                  (nth i widths))
-                          (or (nth i row) ""))))
+          (let ((elem (nth i row)))
+            (insert (format (format "%%%s%ds "
+                                    (if (numberp elem)
+                                        "" "-")
+                                    (nth i widths))
+                            (if (numberp elem)
+                                (nth i row)
+                              (string-replace "\n" " " (or elem "")))))))
         (put-text-property start (point) 'sqlite--row row)
         (insert "\n")))))