emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master fb11575: Improve sqlite-mode--tablify tables


From: Lars Ingebrigtsen
Subject: master fb11575: Improve sqlite-mode--tablify tables
Date: Sat, 11 Dec 2021 00:51:06 -0500 (EST)

branch: master
commit fb11575f3cfe90b409a6ff364ba4c70777537499
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Improve sqlite-mode--tablify tables
    
    * lisp/sqlite-mode.el (sqlite-mode--tablify): Tweak column widths
    and sanitize newlines.
---
 lisp/sqlite-mode.el | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/lisp/sqlite-mode.el b/lisp/sqlite-mode.el
index 9edb85b..e33a040 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")))))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]