branch: externals/org
commit 9f0a9ec34aeb949c805f53921ca98972563758f0
Author: Ihor Radchenko <yanta...@posteo.net>
Commit: Ihor Radchenko <yanta...@posteo.net>
org-lint: New linter for malformed CLOCK: lines
* lisp/org-lint.el (org-lint-clock-syntax): New linter.
Link:
https://list.orgmode.org/orgmode/0e2ed754-bc71-4558-9c46-f17d73981...@nymantechnology.com/
---
lisp/org-lint.el | 23 +++++++++++++++++++++++
1 file changed, 23 insertions(+)
diff --git a/lisp/org-lint.el b/lisp/org-lint.el
index ca59664ecf..d24533321f 100644
--- a/lisp/org-lint.el
+++ b/lisp/org-lint.el
@@ -1501,6 +1501,7 @@ AST is the buffer parse tree."
(and (string-match-p "^[$][^$]" (org-element-property :value fragment))
(list (org-element-begin fragment)
"Potentially confusing LaTeX fragment format. Prefer using
more reliable \\(...\\)")))))
+
(defun org-lint-LaTeX-$-ambiguous (_)
"Report LaTeX fragment-like text.
AST is the buffer parse tree."
@@ -1517,6 +1518,7 @@ AST is the buffer parse tree."
"$ symbol potentially matching LaTeX fragment boundary. Consider
using \\dollar entity.")
report)))
report)))
+
(defun org-lint-timestamp-syntax (ast)
"Report malformed timestamps.
AST is the buffer parse tree."
@@ -1529,6 +1531,23 @@ AST is the buffer parse tree."
(unless (equal expected actual)
(list (org-element-property :begin timestamp)
(format "Potentially malformed timestamp %s. Parsed as: %s"
actual expected)))))))
+
+(defun org-lint-clock-syntax (ast)
+ "Report malformed clocks.
+AST is the buffer parse tree."
+ (org-element-map ast 'clock
+ (lambda (clock)
+ (let ((expected (string-trim-right (org-element-interpret-data clock)))
+ (actual (string-trim-right
+ (buffer-substring-no-properties
+ (org-element-property :begin clock)
+ (org-element-property :end clock)))))
+ (unless (equal expected actual)
+ (list (org-element-property :begin clock)
+ (format "Potentially malformed CLOCK: line
+ %s
+Parsed as: %s" actual expected)))))))
+
(defun org-lint-inactive-planning (ast)
"Report inactive timestamp in SCHEDULED/DEADLINE.
AST is the buffer parse tree."
@@ -1848,6 +1867,10 @@ AST is the buffer parse tree."
"Report malformed timestamps."
#'org-lint-timestamp-syntax
:categories '(timestamp) :trust 'low)
+(org-lint-add-checker 'clock-syntax
+ "Report malformed clocks."
+ #'org-lint-clock-syntax
+ :categories '(timestamp) :trust 'low)
(org-lint-add-checker 'planning-inactive
"Report inactive timestamps in SCHEDULED/DEADLINE."
#'org-lint-inactive-planning
