Browse Source

org-lint: Remove useless checker

* lisp/org-lint.el (org-lint--checkers): Remove useless checker.
(org-lint-empty-headline-with-tags): Remove function.
* testing/lisp/test-org-lint.el (test-org-lint/empty-headline-with-tags):
  Remove test.
Nicolas Goaziou 7 years ago
parent
commit
2a293843ad
2 changed files with 1 additions and 26 deletions
  1. 1 15
      lisp/org-lint.el
  2. 0 11
      testing/lisp/test-org-lint.el

+ 1 - 15
lisp/org-lint.el

@@ -100,7 +100,6 @@
 ;;   - indented diary-sexps
 ;;   - obsolete QUOTE section
 ;;   - obsolete "file+application" link
-;;   - blank headlines with tags
 
 
 ;;; Code:
@@ -286,12 +285,7 @@
    (make-org-lint-checker
     :name 'file-application
     :description "Report obsolete \"file+application\" link"
-    :categories '(link obsolete))
-   (make-org-lint-checker
-    :name 'empty-headline-with-tags
-    :description "Report ambiguous empty headlines with tags"
-    :categories '(headline)
-    :trust 'low))
+    :categories '(link obsolete)))
   "List of all available checkers.")
 
 (defun org-lint--collect-duplicates
@@ -1037,14 +1031,6 @@ Use \"export %s\" instead"
 			   reports))))))))))))
     reports))
 
-(defun org-lint-empty-headline-with-tags (ast)
-  (org-element-map ast '(headline inlinetask)
-    (lambda (h)
-      (let ((title (org-element-property :raw-value h)))
-	(and (string-match-p "\\`:[[:alnum:]_@#%:]+:\\'" title)
-	     (list (org-element-property :begin h)
-		   (format "Headline containing only tags is ambiguous: %S"
-			   title)))))))
 
 
 ;;; Reports UI

+ 0 - 11
testing/lisp/test-org-lint.el

@@ -487,17 +487,6 @@ SCHEDULED: <2012-03-29 thu.>"
 #+end_src"
      (org-lint '(wrong-header-value)))))
 
-(ert-deftest test-org-lint/empty-headline-with-tags ()
-  "Test `org-lint-empty-headline-with-tags' checker."
-  (should
-   (org-test-with-temp-text "* :tag:"
-     (org-lint '(empty-headline-with-tags))))
-  (should
-   (org-test-with-temp-text "*   :tag: "
-     (org-lint '(empty-headline-with-tags))))
-  (should-not
-   (org-test-with-temp-text "* notag: "
-     (org-lint '(empty-headline-with-tags)))))
 
 (provide 'test-org-lint)
 ;;; test-org-lint.el ends here