From: "Carsten Dominik" <dominik@science.uva.nl>
To: "Miguel A. Figueroa-Villanueva" <miguelf@ieee.org>
Cc: emacs-orgmode@gnu.org
Subject: Re: Patch to support nested checkbox statistics.
Date: Fri, 21 Dec 2007 09:58:39 +0100 [thread overview]
Message-ID: <acf852aa0712210058y18646896x5ced2ef72d58935e@mail.gmail.com> (raw)
In-Reply-To: <17f71bca0712201005s4079dddcqce0a7fb252017217@mail.gmail.com>
Hi Miguel,
very nice indeed. Have you, by any chance, signed the papers with the FSF?
- Carsten
On Dec 20, 2007 7:05 PM, Miguel A. Figueroa-Villanueva <miguelf@ieee.org> wrote:
> Hello all,
>
> I have implemented the change below to my org.el file to support
> nested checkbox statistics computation. That is, I can have things
> like this:
>
> ** General Tasks [1/4]
> SCHEDULED: <2007-12-19 Wed>
> - [ ] Simple task 1.
> - [-] Complex task with sub-items. Dash for partially complete. [1/2]
> - [X] subtask 1
> - [ ] subtask 2
> - [ ] Simple task 2.
> - [X] Complex task 2: [2/2]
> - [X] subtask 1
> - [X] subtask 2
> - [ ] Complex task 3: [0/2]
> - [ ] subtask 1
> - [ ] subtask 2
>
> All the counts are updated automatically with the function below.
> Also, if the item that has a count also has a checkbox it will update
> the status according to it's sub-tasks (none ' ', partial '-',
> complete 'X').
>
> Hope this finds its way into the org distribution :)
>
> --Miguel
>
> ------------
> (defun org-update-checkbox-count (&optional all)
> "Update the checkbox statistics in the current section.
> This will find all statistic cookies like [57%] and [6/12] and update them
> with the current numbers. With optional prefix argument ALL, do this for
> the whole buffer."
> (interactive "P")
> (save-excursion
> (let* ((buffer-invisibility-spec (org-inhibit-invisibility)) ; Emacs 21
> (beg (condition-case nil
> (progn (outline-back-to-heading) (point))
> (error (point-min))))
> (end (move-marker (make-marker)
> (progn (outline-next-heading) (point))))
> (re "\\(\\[[0-9]*%\\]\\)\\|\\(\\[[0-9]*/[0-9]*\\]\\)")
> (re-box "^[ \t]*\\([-+*]\\|[0-9]+[.)]\\) +\\(\\[[- X]\\]\\)")
> beg-cookie end-cookie is-percent c-on c-off lim
> eline curr-ind next-ind
> (cstat 0)
> )
> (when all
> (goto-char (point-min))
> (outline-next-heading)
> (setq beg (point) end (point-max)))
> (goto-char end)
> ;; find each statistic cookie
> (while (re-search-backward re beg t)
> (setq cstat (1+ cstat)
> beg-cookie (match-beginning 0)
> end-cookie (match-end 0)
> is-percent (match-beginning 1)
> lim (cond
> ((org-on-heading-p) (outline-next-heading) (point))
> ((org-at-item-p) (org-end-of-item) (point))
> (t nil))
> c-on 0
> c-off 0
> )
> (when lim
> ;; find first checkbox for this cookie and gather
> ;; statistics from all that are at this indentation level
> (goto-char end-cookie)
> (if (re-search-forward re-box lim t)
> (progn
> (org-beginning-of-item)
> (setq curr-ind (org-get-indentation))
> (setq next-ind curr-ind)
> (while (= curr-ind next-ind)
> (save-excursion (end-of-line) (setq eline (point)))
> (if (re-search-forward re-box eline t)
> (if (member (match-string 2) '("[ ]" "[-]"))
> (setq c-off (1+ c-off))
> (setq c-on (1+ c-on))
> )
> )
> (org-end-of-item)
> (setq next-ind (org-get-indentation))
> )))
> ;; update cookie
> (delete-region beg-cookie end-cookie)
> (goto-char beg-cookie)
> (insert
> (if is-percent
> (format "[%d%%]" (/ (* 100 c-on) (max 1 (+ c-on c-off))))
> (format "[%d/%d]" c-on (+ c-on c-off))))
> ;; update items checkbox if it has one
> (when (org-at-item-p)
> (org-beginning-of-item)
> (save-excursion (end-of-line) (setq eline (point)))
> (when (re-search-forward re-box eline t)
> (setq beg-cookie (match-beginning 2)
> end-cookie (match-end 2))
> (delete-region beg-cookie end-cookie)
> (goto-char beg-cookie)
> (cond ((= c-off 0) (insert "[X]"))
> ((= c-on 0) (insert "[ ]"))
> (t (insert "[-]")))
> )))
> (goto-char beg-cookie)
> )
> (when (interactive-p)
> (message "Checkbox satistics updated %s (%d places)"
> (if all "in entire file" "in current outline entry") cstat)))))
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Remember: use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
>
prev parent reply other threads:[~2007-12-21 8:58 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2007-12-20 18:05 Patch to support nested checkbox statistics Miguel A. Figueroa-Villanueva
2007-12-21 8:58 ` Carsten Dominik [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=acf852aa0712210058y18646896x5ced2ef72d58935e@mail.gmail.com \
--to=dominik@science.uva.nl \
--cc=emacs-orgmode@gnu.org \
--cc=miguelf@ieee.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.