all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* Patch to support nested checkbox statistics.
@ 2007-12-20 18:05 Miguel A. Figueroa-Villanueva
  2007-12-21  8:58 ` Carsten Dominik
  0 siblings, 1 reply; 2+ messages in thread
From: Miguel A. Figueroa-Villanueva @ 2007-12-20 18:05 UTC (permalink / raw)
  To: emacs-orgmode

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

^ permalink raw reply	[flat|nested] 2+ messages in thread

* Re: Patch to support nested checkbox statistics.
  2007-12-20 18:05 Patch to support nested checkbox statistics Miguel A. Figueroa-Villanueva
@ 2007-12-21  8:58 ` Carsten Dominik
  0 siblings, 0 replies; 2+ messages in thread
From: Carsten Dominik @ 2007-12-21  8:58 UTC (permalink / raw)
  To: Miguel A. Figueroa-Villanueva; +Cc: emacs-orgmode

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
>

^ permalink raw reply	[flat|nested] 2+ messages in thread

end of thread, other threads:[~2007-12-21  8:58 UTC | newest]

Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2007-12-20 18:05 Patch to support nested checkbox statistics Miguel A. Figueroa-Villanueva
2007-12-21  8:58 ` Carsten Dominik

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.