[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")))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master fb11575: Improve sqlite-mode--tablify tables,
Lars Ingebrigtsen <=