[nongnu] elpa/toc-org 3dd30029b6 043/128: strip TODO and DONE states

[ELPA Syncer]

branch: elpa/toc-org
commit 3dd30029b61a7843ed5ff72bb7365400e3133d4f
Author: Sergei Nosov <sergei.nosov@gmail.com>
Commit: Sergei Nosov <sergei.nosov@gmail.com>

    strip TODO and DONE states
---
 toc-org.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/toc-org.el b/toc-org.el
index dc66b8d40f..62511c6ce6 100644
--- a/toc-org.el
+++ b/toc-org.el
@@ -57,6 +57,8 @@ files on GitHub)"
   "Regexp to find the heading with the :toc: tag")
 (defconst toc-org-tags-regexp "\s*:[[:word:]:@]*:\s*$"
   "Regexp to find tags on the line")
+(defconst toc-org-states-regexp "^*+\s+\\(TODO\s+\\|DONE\s+\\)"
+  "Regexp to find states on the line")
 (defconst toc-org-special-chars-regexp "[][~`!@#$%^&*()+={}|\:;\"'<,>.?/]"
   "Regexp with the special characters (which are omitted in hrefs
   by GitHub)")
@@ -98,6 +100,11 @@ tags."
       (beginning-of-line)
       (delete-region (point) (progn (forward-line 1) (point)))
 
+      ;; strip states
+      (goto-char (point-min))
+      (while (re-search-forward toc-org-states-regexp nil t)
+        (replace-match "" nil nil nil 1))
+
       ;; strip tags
 
       ;; TODO :export: and :noexport: tags semantic should be probably
@@ -120,7 +127,7 @@ tags."
              gold)))
   (declare-function toc-org-test-raw-toc-gold-test "toc-org") ;; suppress 
compiler warning
 
-  (let ((beg "* About\n:TOC:\n drawer\n:END:\n\ntoc-org is a utility to have 
an up-to-date table of contents in the\norg files without exporting (useful 
primarily for readme files on\nGitHub).\n\nIt is similar to the 
[[https://github.com/ardumont/markdown-toc][markdown-toc]] package, but works 
for org files.\n:TOC:\n  drawer\n:END:\n\n* Table of Contents                   
                                  ")
+  (let ((beg "* TODO About\n:TOC:\n drawer\n:END:\n\ntoc-org is a utility to 
have an up-to-date table of contents in the\norg files without exporting 
(useful primarily for readme files on\nGitHub).\n\nIt is similar to the 
[[https://github.com/ardumont/markdown-toc][markdown-toc]] package, but works 
for org files.\n:TOC:\n  drawer\n:END:\n\n* Table of Contents                   
                                  ")
         (gold "* About\n"))
 
     ;; different TOC styles