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:
parent
e87ebca2a7
commit
2a293843ad
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue