Ihor Radchenko <yanta...@posteo.net> writes:
> There is no patch attached.
>From 987f66774db4ad1e515cac4b9fc5ba46bd627c27 Mon Sep 17 00:00:00 2001
From: Slawomir Grochowski <slawomir.grochow...@gmail.com>
Date: Sat, 24 Aug 2024 18:47:09 +0200
Subject: [PATCH] lisp/org-colview.el: org-columns-compile-format regexp bugfix
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
* lisp/org-colview.el (org-columns-compile-format): Refactor
string-based regexp to `rx' form. Fix regexp: When an empty
parentheses `()` is in the column format string then the regexp
can't capture the operator which is in curly brackets `{}`.
(org-columns-new): prevent adding empty parantheses '()' to 'column
format string' when 'column title' is empty.
* testing/lisp.test-org-colview.el (test-org-colview/compile-format):
add new case to test: check if operator will be captured when there is
empty parantheses '()' in 'column format string'.
Reported-by: Sławomir Grochowski <slawomir.grochow...@gmail.com>
Link: https://list.orgmode.org/orgmode/877ccczt83....@gmail.com/
---
lisp/org-colview.el | 19 ++++++++++++-------
testing/lisp/test-org-colview.el | 7 ++++++-
2 files changed, 18 insertions(+), 8 deletions(-)
diff --git a/lisp/org-colview.el b/lisp/org-colview.el
index bc93941e4..b111c1676 100644
--- a/lisp/org-colview.el
+++ b/lisp/org-colview.el
@@ -935,8 +935,9 @@ details."
(mapcar #'list (org-buffer-property-keys t nil t))
nil nil (nth 0 spec))))
(list prop
- (read-string (format "Column title [%s]: " prop)
- (nth 1 spec))
+ (org-string-nw-p
+ (read-string (format "Column title [%s]: " prop)
+ (nth 1 spec)))
;; Use `read-string' instead of `read-number'
;; to allow empty width.
(let ((w (read-string
@@ -1183,14 +1184,18 @@ This function updates `org-columns-current-fmt-compiled'."
(setq org-columns-current-fmt-compiled nil)
(let ((start 0))
(while (string-match
- "%\\([0-9]+\\)?\\([[:alnum:]_-]+\\)\\(?:(\\([^)]+\\))\\)?\
-\\(?:{\\([^}]+\\)}\\)?\\s-*"
- fmt start)
+ (rx "%"
+ (optional (group (+ digit)))
+ (group (one-or-more (in alnum "_-")))
+ (optional "(" (group (zero-or-more (not (any ")")))) ")")
+ (optional "{" (group (zero-or-more (not (any "}")))) "}")
+ (zero-or-more space))
+ fmt start)
(setq start (match-end 0))
(let* ((width (and (match-end 1) (string-to-number (match-string 1 fmt))))
(prop (match-string-no-properties 2 fmt))
- (title (or (match-string-no-properties 3 fmt) prop))
- (operator (match-string-no-properties 4 fmt)))
+ (title (or (org-string-nw-p (match-string-no-properties 3 fmt)) prop))
+ (operator (org-string-nw-p (match-string-no-properties 4 fmt))))
(push (if (not operator) (list (upcase prop) title width nil nil)
(let (printf)
(when (string-match ";" operator)
diff --git a/testing/lisp/test-org-colview.el b/testing/lisp/test-org-colview.el
index 6b603c31b..623ee6283 100644
--- a/testing/lisp/test-org-colview.el
+++ b/testing/lisp/test-org-colview.el
@@ -90,7 +90,12 @@
(should
(equal `(("ITEM" "ITEM" nil "+" "%.1f"))
(org-columns-compile-format
- "%ITEM{+;%.1f}"))))
+ "%ITEM{+;%.1f}")))
+ (should
+ ;; Bug https://list.orgmode.org/orgmode/877ccczt83....@gmail.com/
+ (equal '(("ITEM" "ITEM" nil "X" nil))
+ (org-columns-compile-format
+ "%ITEM(){X}"))))
(ert-deftest test-org-colview/substring-below-width ()
"Test `org-columns--truncate-below-width'."
--
2.30.2
--
Slawomir Grochowski
