Re: [O] Checkbox difficulties

[Dave Abrahams]

on Thu Oct 06 2011, Dave Abrahams <dave-AT-boostpro.com> wrote:

> Here's a version that deals with at least one of your caveats:
>
> (defun ndk/checkbox-list-complete ()
>   (save-excursion
>     (org-back-to-heading t)
>     (when looking-at (concat 
>                       "^\\*+[ \t]+" 
>                       org-todo-regexp ;; first match group here
>                       "[ \t].*\\[" "\\(100%\\)\\|[0-9]+%" 
>                       "\\|" "\\([0-9]+\\)" "/" "\\([0-9]+\\)" "\\]")
>           (if (or (match-string 2)
>                   (and (match-string 3)
>                        (equal (match-string 3) (match-string 4))))
>               (org-todo 'done)
>             (org-todo 'todo)))))

Whoops!  Looks like I made some edits to that after my last test.
Please try this one instead:

--8<---------------cut here---------------start------------->8---
(defun dwa/checkbox-list-complete ()
  (save-excursion
    (org-back-to-heading t)
    (when (looking-at (concat 
                      "^\\*+[ \t]+" 
                      org-todo-regexp ;; first match group here
                      "[ \t].*\\[" "\\(?:" "\\(?2:100%\\)\\|[0-9]+%" 
                      "\\|" "\\(?3:[0-9]+\\)" "/" "\\(?4:[0-9]+\\)" "\\)" 
"\\]"))
          (if (or (match-string 2)
                  (and (match-string 3)
                       (equal (match-string 3) (match-string 4))))
              (org-todo 'done)
            (org-todo 'todo)))))
--8<---------------cut here---------------end--------------->8---

-- 
Dave Abrahams
BoostPro Computing
http://www.boostpro.com