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.
This commit is contained in:
Nicolas Goaziou 2018-04-18 23:15:44 +02:00
parent e87ebca2a7
commit 2a293843ad
2 changed files with 1 additions and 26 deletions

View File

@ -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

View File

@ -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