[elpa] externals/org 74198ac49c 2/2: org-lint: Add linter for unknown babel language

[ELPA Syncer]

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

    org-lint: Add linter for unknown babel language
    
    * lisp/org-lint.el (org-lint-suspicious-language-in-src-block): New
    linter checking for unknown src block languages.
---
 lisp/org-lint.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/lisp/org-lint.el b/lisp/org-lint.el
index fba8402d06..c2ed007abb 100644
--- a/lisp/org-lint.el
+++ b/lisp/org-lint.el
@@ -504,6 +504,14 @@ Use :header-args: instead"
        (list (org-element-property :post-affiliated b)
              "Missing language in source block")))))
 
+(defun org-lint-suspicious-language-in-src-block (ast)
+  (org-element-map ast 'src-block
+    (lambda (b)
+      (when-let ((lang (org-element-property :language b)))
+        (unless (functionp (intern (format "org-babel-execute:%s" lang)))
+         (list (org-element-property :post-affiliated b)
+               (format "Unknown source block language: '%s'" lang)))))))
+
 (defun org-lint-missing-backend-in-export-block (ast)
   (org-element-map ast 'export-block
     (lambda (b)
@@ -1350,6 +1358,11 @@ AST is the buffer parse tree."
   #'org-lint-missing-language-in-src-block
   :categories '(babel))
 
+(org-lint-add-checker 'suspicious-language-in-src-block
+  "Report suspicious language in source blocks"
+  #'org-lint-suspicious-language-in-src-block
+  :trust 'low :categories '(babel))
+
 (org-lint-add-checker 'missing-backend-in-export-block
   "Report missing backend in export blocks"
   #'org-lint-missing-backend-in-export-block