[elpa] externals/org b8b02e3da3 6/7: org-lint: New linter for named results of evaluation

[ELPA Syncer]

branch: externals/org
commit b8b02e3da3398ed992e0492946652fd6de1a29ac
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    org-lint: New linter for named results of evaluation
    
    * lisp/org-lint.el (org-lint-named-result):
    (named-result):
    
    Link: https://orgmode.org/list/87ilpj9lv1.fsf@localhost
---
 lisp/org-lint.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/lisp/org-lint.el b/lisp/org-lint.el
index 1ef114ed5e..64efa17331 100644
--- a/lisp/org-lint.el
+++ b/lisp/org-lint.el
@@ -1346,6 +1346,14 @@ Use \"export %s\" instead"
                           reports))))))))))))
     reports))
 
+(defun org-lint-named-result (ast)
+  (org-element-map ast org-element-all-elements
+    (lambda (el)
+      (when (and (org-element-property :results el)
+                 (org-element-property :name el))
+        (list (org-element-begin el)
+              "#+name: in results of evaluation will be replaced by 
re-evaluating the src block.  Use #+name in the block instead.")))))
+
 (defun org-lint-spurious-colons (ast)
   (org-element-map ast '(headline inlinetask)
     (lambda (h)
@@ -1553,6 +1561,11 @@ AST is the buffer parse tree."
   #'org-lint-wrong-header-value
   :categories '(babel) :trust 'low)
 
+(org-lint-add-checker 'named-result
+  "Report results evaluation with #+name keyword."
+  #'org-lint-named-result
+  :categories '(babel) :trust 'high)
+
 (org-lint-add-checker 'empty-header-argument
   "Report empty values in babel headers"
   #'org-lint-empty-header-argument