From: Carsten Dominik Date: Fri, 30 Jan 2009 08:32:49 +0000 (+0000) Subject: 2009-01-30 Carsten Dominik X-Git-Tag: emacs-pretest-23.0.90~62 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a2a2e7fb019afda8ae3d650f9b5563fad20e90aa;p=emacs.git 2009-01-30 Carsten Dominik * org-timer.el (org-timer): Provide the timer feature. * org.el (org-require-autoloaded-modules): Add a few more files to the list of autoloaded modules. * org-agenda.el (org-agenda-todo): Pass ARG to `org-todo'. * org-exp.el (org-export-remove-or-extract-drawers): Only remove drawers that are unprotected. (org-export-html-format-image): Make sure inlined LaTeX fragment images remain inlined. * org.el (org-toggle-ordered-property): New function. (org-mode-map): Add a key for `org-toggle-ordered-property'. (org-org-menu): Add menu entries for TODO dependencies. * org.el (org-default-properties): Add ORDERED to the default properties, to get completion support for it. * org-list.el (org-update-checkbox-count): Update more than one cookie. * org.el (org-update-parent-todo-statistics): Update more than one cookie. --- diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog index d52c5a204b7..a9b17374c01 100644 --- a/lisp/org/ChangeLog +++ b/lisp/org/ChangeLog @@ -1,3 +1,29 @@ +2009-01-30 Carsten Dominik + + * org-timer.el (org-timer): Provide the timer feature. + + * org.el (org-require-autoloaded-modules): Add a few more files to + the list of autoloaded modules. + + * org-agenda.el (org-agenda-todo): Pass ARG to `org-todo'. + + * org-exp.el (org-export-remove-or-extract-drawers): Only remove + drawers that are unprotected. + (org-export-html-format-image): Make sure inlined LaTeX fragment + images remain inlined. + + * org.el (org-toggle-ordered-property): New function. + (org-mode-map): Add a key for `org-toggle-ordered-property'. + (org-org-menu): Add menu entries for TODO dependencies. + + * org.el (org-default-properties): Add ORDERED to the default + properties, to get completion support for it. + + * org-list.el (org-update-checkbox-count): Update more than one cookie. + + * org.el (org-update-parent-todo-statistics): Update more than one + cookie. + 2009-01-28 Carsten Dominik * org-agenda.el (org-agenda-get-todos): Start search from correct diff --git a/lisp/org/org-agenda.el b/lisp/org/org-agenda.el index 091366ebaab..c84c7a72f0b 100644 --- a/lisp/org/org-agenda.el +++ b/lisp/org/org-agenda.el @@ -6,7 +6,7 @@ ;; Author: Carsten Dominik ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.20c +;; Version: 6.20g ;; ;; This file is part of GNU Emacs. ;; @@ -5131,7 +5131,8 @@ the same tree node, and the headline of the tree node in the Org-mode file." (save-excursion (and (outline-next-heading) (org-flag-heading nil))) ; show the next heading - (call-interactively 'org-todo) + (let ((current-prefix-arg arg)) + (call-interactively 'org-todo)) (and (bolp) (forward-char 1)) (setq newhead (org-get-heading)) (when (and (org-bound-and-true-p diff --git a/lisp/org/org-archive.el b/lisp/org/org-archive.el index ff4c0f65e5d..bee2fa09f89 100644 --- a/lisp/org/org-archive.el +++ b/lisp/org/org-archive.el @@ -6,7 +6,7 @@ ;; Author: Carsten Dominik ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.20c +;; Version: 6.20g ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-attach.el b/lisp/org/org-attach.el index 3af6d645c5f..2d4229b09dc 100644 --- a/lisp/org/org-attach.el +++ b/lisp/org/org-attach.el @@ -4,7 +4,7 @@ ;; Author: John Wiegley ;; Keywords: org data task -;; Version: 6.20c +;; Version: 6.20g ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-bbdb.el b/lisp/org/org-bbdb.el index f2f6d9cadd4..58fc0dd019c 100644 --- a/lisp/org/org-bbdb.el +++ b/lisp/org/org-bbdb.el @@ -7,7 +7,7 @@ ;; Thomas Baumann ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.20c +;; Version: 6.20g ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-bibtex.el b/lisp/org/org-bibtex.el index d5026b9cca8..0392cfeaaa2 100644 --- a/lisp/org/org-bibtex.el +++ b/lisp/org/org-bibtex.el @@ -5,7 +5,7 @@ ;; Author: Bastien Guerry ;; Carsten Dominik ;; Keywords: org, wp, remember -;; Version: 6.20c +;; Version: 6.20g ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-clock.el b/lisp/org/org-clock.el index b800285153a..170cb53a128 100644 --- a/lisp/org/org-clock.el +++ b/lisp/org/org-clock.el @@ -6,7 +6,7 @@ ;; Author: Carsten Dominik ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.20c +;; Version: 6.20g ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-colview.el b/lisp/org/org-colview.el index 64dcf2326ed..94785ce7765 100644 --- a/lisp/org/org-colview.el +++ b/lisp/org/org-colview.el @@ -6,7 +6,7 @@ ;; Author: Carsten Dominik ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.20c +;; Version: 6.20g ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-compat.el b/lisp/org/org-compat.el index 21445c835a2..6c5acbbec3b 100644 --- a/lisp/org/org-compat.el +++ b/lisp/org/org-compat.el @@ -6,7 +6,7 @@ ;; Author: Carsten Dominik ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.20c +;; Version: 6.20g ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-exp.el b/lisp/org/org-exp.el index 3b2fbbe45d1..a9fb6ecda5e 100644 --- a/lisp/org/org-exp.el +++ b/lisp/org/org-exp.el @@ -6,7 +6,7 @@ ;; Author: Carsten Dominik ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.20c +;; Version: 6.20g ;; ;; This file is part of GNU Emacs. ;; @@ -384,20 +384,6 @@ This option can also be set with the +OPTIONS line, e.g. \"^:nil\"." (const :tag "Only with braces" {}) (const :tag "Never interpret" nil))) -(defcustom org-export-with-special-strings t - "Non-nil means, interpret \"\-\", \"--\" and \"---\" for export. -When this option is turned on, these strings will be exported as: - -\\- : ­ --- : – ---- : — - -Not all export backends support this, but HTML does. - -This option can also be set with the +OPTIONS line, e.g. \"-:nil\"." - :group 'org-export-translation - :type 'boolean) - (defcustom org-export-with-TeX-macros t "Non-nil means, interpret simple TeX-like macros when exporting. For example, HTML export converts \\alpha to α and \\AA to Å. @@ -1767,7 +1753,8 @@ whose content to keep." "\\|") "\\):[ \t]*\n\\([^@]*?\n\\)?[ \t]*:END:[ \t]*\n"))) (while (re-search-forward re nil t) - (replace-match ""))))) + (org-if-unprotected + (replace-match "")))))) (defun org-export-handle-export-tags (select-tags exclude-tags) "Modify the buffer, honoring SELECT-TAGS and EXCLUDE-TAGS. @@ -2618,7 +2605,6 @@ underlined headlines. The default is 3." "\n")) thetoc have-headings first-heading-pos table-open table-buffer link desc) - (let ((inhibit-read-only t)) (org-unmodified (remove-text-properties (point-min) (point-max) @@ -2776,7 +2762,7 @@ underlined headlines. The default is 3." (if (string-match "\\\\\\\\[ \t]*$" line) (setq line (replace-match "" t t line))) (if (and org-export-with-fixed-width - (string-match "^\\([ \t]*\\)\\(:\\)" line)) + (string-match "^\\([ \t]*\\)\\(:\\( \\|$\\)\\)" line)) (setq line (replace-match "\\1" nil nil line))) (insert line "\n")))) @@ -4036,18 +4022,20 @@ lang=\"%s\" xml:lang=\"%s\"> (defun org-export-html-format-image (src) "Create image tag with source and attributes." (save-match-data - (let* ((caption (org-find-text-property-in-string 'org-caption src)) - (attr (org-find-text-property-in-string 'org-attributes src)) - (label (org-find-text-property-in-string 'org-label src))) - (format "
+ (if (string-match "^ltxpng/" src) + (format "" src) + (let* ((caption (org-find-text-property-in-string 'org-caption src)) + (attr (org-find-text-property-in-string 'org-attributes src)) + (label (org-find-text-property-in-string 'org-label src))) + (format "

%s
" - (if label (format "id=\"%s\" " label) "") - src - (if (string-match "\\" caption "

") ""))))) + (if label (format "id=\"%s\" " label) "") + src + (if (string-match "\\" caption "

") "")))))) (defvar org-table-colgroup-info nil) (defun org-format-table-ascii (lines) diff --git a/lisp/org/org-export-latex.el b/lisp/org/org-export-latex.el index 945dee0a5f3..7e0c929ca4b 100644 --- a/lisp/org/org-export-latex.el +++ b/lisp/org/org-export-latex.el @@ -4,7 +4,7 @@ ;; ;; Emacs Lisp Archive Entry ;; Filename: org-export-latex.el -;; Version: 6.20c +;; Version: 6.20g ;; Author: Bastien Guerry ;; Maintainer: Bastien Guerry ;; Keywords: org, wp, tex diff --git a/lisp/org/org-faces.el b/lisp/org/org-faces.el index 18b169bebf7..f6548d03580 100644 --- a/lisp/org/org-faces.el +++ b/lisp/org/org-faces.el @@ -6,7 +6,7 @@ ;; Author: Carsten Dominik ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.20c +;; Version: 6.20g ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-footnote.el b/lisp/org/org-footnote.el index 94112d0f450..7ea076db4b3 100644 --- a/lisp/org/org-footnote.el +++ b/lisp/org/org-footnote.el @@ -5,7 +5,7 @@ ;; Author: Carsten Dominik ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.20c +;; Version: 6.20g ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-gnus.el b/lisp/org/org-gnus.el index ee5fcbcfb81..2a6aa0f34fc 100644 --- a/lisp/org/org-gnus.el +++ b/lisp/org/org-gnus.el @@ -7,7 +7,7 @@ ;; Tassilo Horn ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.20c +;; Version: 6.20g ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-id.el b/lisp/org/org-id.el index b68241d7257..6ab4a546289 100644 --- a/lisp/org/org-id.el +++ b/lisp/org/org-id.el @@ -5,7 +5,7 @@ ;; Author: Carsten Dominik ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.20c +;; Version: 6.20g ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-info.el b/lisp/org/org-info.el index 223248f568a..025145942bc 100644 --- a/lisp/org/org-info.el +++ b/lisp/org/org-info.el @@ -6,7 +6,7 @@ ;; Author: Carsten Dominik ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.20c +;; Version: 6.20g ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-irc.el b/lisp/org/org-irc.el index d9ecf6524ce..cd3b02fd9c9 100644 --- a/lisp/org/org-irc.el +++ b/lisp/org/org-irc.el @@ -4,7 +4,7 @@ ;; ;; Author: Philip Jackson ;; Keywords: erc, irc, link, org -;; Version: 6.20c +;; Version: 6.20g ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-jsinfo.el b/lisp/org/org-jsinfo.el index b74122b9cf9..172592be42d 100644 --- a/lisp/org/org-jsinfo.el +++ b/lisp/org/org-jsinfo.el @@ -6,7 +6,7 @@ ;; Author: Carsten Dominik ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.20c +;; Version: 6.20g ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-list.el b/lisp/org/org-list.el index 78f3552e9b3..13f54dc83a7 100644 --- a/lisp/org/org-list.el +++ b/lisp/org/org-list.el @@ -7,7 +7,7 @@ ;; Bastien Guerry ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.20c +;; Version: 6.20g ;; ;; This file is part of GNU Emacs. ;; @@ -253,7 +253,9 @@ Return t when things worked, nil when we are not in an item." With prefix arg TOGGLE-PRESENCE, add or remove checkboxes. When there is an active region, toggle status or presence of the checkbox in the first line, and make every item in the region have the same -status or precence, respectively." +status or precence, respectively. +If the cursor is in a headline, apply this to all checkbox items in the +text below the heading." (interactive "P") (catch 'exit (let (beg end status first-present first-status) @@ -286,7 +288,10 @@ status or precence, respectively." (save-excursion (goto-char beg) (setq first-present (org-at-item-checkbox-p) - first-status (and first-present (equal (match-string 0) "[X]"))) + first-status + (save-excursion + (and (re-search-forward "[ \t]\\(\\[[ X]\\]\\)" end t) + (equal (match-string 1) "[X]")))) (while (< (point) end) (if toggle-presence (cond @@ -343,7 +348,7 @@ the whole buffer." end-cookie (match-end 1) cstat (+ cstat (if end-cookie 1 0)) startsearch (point-at-eol) - continue-from (point-at-bol) + continue-from (match-beginning 0) is-percent (match-beginning 2) lim (cond ((org-on-heading-p) (outline-next-heading) (point)) diff --git a/lisp/org/org-mac-message.el b/lisp/org/org-mac-message.el index 6d721261fec..6b068382e82 100644 --- a/lisp/org/org-mac-message.el +++ b/lisp/org/org-mac-message.el @@ -3,7 +3,7 @@ ;; Copyright (C) 2008, 2009 Free Software Foundation, Inc. ;; Author: John Wiegley -;; Version: 6.20c +;; Version: 6.20g ;; Keywords: outlines, hypermedia, calendar, wp ;; This file is part of GNU Emacs. diff --git a/lisp/org/org-macs.el b/lisp/org/org-macs.el index 5f8c5cf07c8..87f44c6b095 100644 --- a/lisp/org/org-macs.el +++ b/lisp/org/org-macs.el @@ -6,7 +6,7 @@ ;; Author: Carsten Dominik ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.20c +;; Version: 6.20g ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-mew.el b/lisp/org/org-mew.el index 99678a348ae..329a47f84c1 100644 --- a/lisp/org/org-mew.el +++ b/lisp/org/org-mew.el @@ -5,7 +5,7 @@ ;; Author: Tokuya Kameshima ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.20c +;; Version: 6.20g ;; This file is part of GNU Emacs. diff --git a/lisp/org/org-mhe.el b/lisp/org/org-mhe.el index 7333e146c7b..b8faeb34751 100644 --- a/lisp/org/org-mhe.el +++ b/lisp/org/org-mhe.el @@ -6,7 +6,7 @@ ;; Author: Thomas Baumann ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.20c +;; Version: 6.20g ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-mouse.el b/lisp/org/org-mouse.el index 2fef3c5aa89..c291fa36a5a 100644 --- a/lisp/org/org-mouse.el +++ b/lisp/org/org-mouse.el @@ -4,7 +4,7 @@ ;; ;; Author: Piotr Zielinski ;; Maintainer: Carsten Dominik -;; Version: 6.20c +;; Version: 6.20g ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-plot.el b/lisp/org/org-plot.el index 9c0bb14e495..392f0b2eac6 100644 --- a/lisp/org/org-plot.el +++ b/lisp/org/org-plot.el @@ -5,7 +5,7 @@ ;; Author: Eric Schulte ;; Keywords: tables, plotting ;; Homepage: http://orgmode.org -;; Version: 6.20c +;; Version: 6.20g ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-publish.el b/lisp/org/org-publish.el index d08a1ce5cc5..8d44521ebae 100644 --- a/lisp/org/org-publish.el +++ b/lisp/org/org-publish.el @@ -4,7 +4,7 @@ ;; Author: David O'Toole ;; Maintainer: Bastien Guerry ;; Keywords: hypermedia, outlines, wp -;; Version: 6.20c +;; Version: 6.20g ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-remember.el b/lisp/org/org-remember.el index a16d3bdea0a..f6d07691eb3 100644 --- a/lisp/org/org-remember.el +++ b/lisp/org/org-remember.el @@ -6,7 +6,7 @@ ;; Author: Carsten Dominik ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.20c +;; Version: 6.20g ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-rmail.el b/lisp/org/org-rmail.el index e24815c99e8..068f4fe9707 100644 --- a/lisp/org/org-rmail.el +++ b/lisp/org/org-rmail.el @@ -6,7 +6,7 @@ ;; Author: Carsten Dominik ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.20c +;; Version: 6.20g ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-table.el b/lisp/org/org-table.el index 0b369a73adf..ddd56d9949d 100644 --- a/lisp/org/org-table.el +++ b/lisp/org/org-table.el @@ -6,7 +6,7 @@ ;; Author: Carsten Dominik ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.20c +;; Version: 6.20g ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-timer.el b/lisp/org/org-timer.el index 632fe6d8fd0..a06a157dc14 100644 --- a/lisp/org/org-timer.el +++ b/lisp/org/org-timer.el @@ -5,7 +5,7 @@ ;; Author: Carsten Dominik ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.20c +;; Version: 6.20g ;; ;; This file is part of GNU Emacs. ;; @@ -253,6 +253,8 @@ VALUE can be `on', `off', or `pause'." (concat " <" (substring (org-timer-value-string) 0 -1) ">")) (force-mode-line-update))) +(provide 'org-timer) + ;; arch-tag: 97538f8c-3871-4509-8f23-1e7b3ff3d107 ;;; org-timer.el ends here diff --git a/lisp/org/org-vm.el b/lisp/org/org-vm.el index cd625248a95..191e4006612 100644 --- a/lisp/org/org-vm.el +++ b/lisp/org/org-vm.el @@ -6,7 +6,7 @@ ;; Author: Carsten Dominik ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.20c +;; Version: 6.20g ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-w3m.el b/lisp/org/org-w3m.el index f466fc34b32..d6ab9185b87 100644 --- a/lisp/org/org-w3m.el +++ b/lisp/org/org-w3m.el @@ -5,7 +5,7 @@ ;; Author: Andy Stewart ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.20c +;; Version: 6.20g ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org-wl.el b/lisp/org/org-wl.el index ffbfee42e3d..1de5c3a6216 100644 --- a/lisp/org/org-wl.el +++ b/lisp/org/org-wl.el @@ -6,7 +6,7 @@ ;; Author: Tokuya Kameshima ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.20c +;; Version: 6.20g ;; ;; This file is part of GNU Emacs. ;; diff --git a/lisp/org/org.el b/lisp/org/org.el index c99159c754f..956a4f529c7 100644 --- a/lisp/org/org.el +++ b/lisp/org/org.el @@ -6,7 +6,7 @@ ;; Author: Carsten Dominik ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.20c +;; Version: 6.20g ;; ;; This file is part of GNU Emacs. ;; @@ -94,7 +94,7 @@ ;;; Version -(defconst org-version "6.20c" +(defconst org-version "6.20g" "The version number of the file org.el.") (defun org-version (&optional here) @@ -8561,6 +8561,18 @@ changes. Such blocking occurs when: (throw 'dont-block nil))))))) t)) ; don't block +(defun org-toggle-ordered-property () + "Toggle the ORDERED property of the current entry." + (interactive) + (save-excursion + (org-back-to-heading) + (if (org-entry-get nil "ORDERED") + (progn + (org-delete-property "ORDERED") + (message "Subtasks can be completed in arbitrary order or parallel")) + (org-entry-put nil "ORDERED" "t") + (message "Subtasks must be completed in sequence")))) + (defun org-update-parent-todo-statistics () "Update any statistics cookie in the parent of the current headline." (interactive) @@ -8569,24 +8581,24 @@ changes. Such blocking occurs when: (catch 'exit (save-excursion (setq level (org-up-heading-safe)) - (unless (and level - (re-search-forward box-re (point-at-eol) t)) + (unless level (throw 'exit nil)) - (setq is-percent (match-end 2)) - (save-match-data - (unless (outline-next-heading) (throw 'exit nil)) - (while (looking-at org-todo-line-regexp) - (setq kwd (match-string 2)) - (and kwd (setq cnt-all (1+ cnt-all))) - (and (member kwd org-done-keywords) - (setq cnt-done (1+ cnt-done))) - (condition-case nil - (org-forward-same-level 1) - (error (end-of-line 1))))) - (replace-match - (if is-percent - (format "[%d%%]" (/ (* 100 cnt-done) (max 1 cnt-all))) - (format "[%d/%d]" cnt-done cnt-all))) + (while (re-search-forward box-re (point-at-eol) t) + (setq is-percent (match-end 2)) + (save-match-data + (unless (outline-next-heading) (throw 'exit nil)) + (while (looking-at org-todo-line-regexp) + (setq kwd (match-string 2)) + (and kwd (setq cnt-all (1+ cnt-all))) + (and (member kwd org-done-keywords) + (setq cnt-done (1+ cnt-done))) + (condition-case nil + (org-forward-same-level 1) + (error (end-of-line 1))))) + (replace-match + (if is-percent + (format "[%d%%]" (/ (* 100 cnt-done) (max 1 cnt-all))) + (format "[%d/%d]" cnt-done cnt-all)))) (run-hook-with-args 'org-after-todo-statistics-hook cnt-done (- cnt-all cnt-done)))))) @@ -10342,7 +10354,7 @@ but in some other way.") '("ARCHIVE" "CATEGORY" "SUMMARY" "DESCRIPTION" "LOCATION" "LOGGING" "COLUMNS" "VISIBILITY" "TABLE_EXPORT_FORMAT" "TABLE_EXPORT_FILE" - "EXPORT_FILE_NAME" "EXPORT_TITLE") + "EXPORT_FILE_NAME" "EXPORT_TITLE" "ORDERED") "Some properties that are used by Org-mode for various purposes. Being in this list makes sure that they are offered for completion.") @@ -12876,6 +12888,7 @@ The images can be removed again with \\[org-ctrl-c-ctrl-c]." (org-defkey org-mode-map "\C-c\C-x\C-l" 'org-preview-latex-fragment) (org-defkey org-mode-map "\C-c\C-x\C-b" 'org-toggle-checkbox) (org-defkey org-mode-map "\C-c\C-xp" 'org-set-property) +(org-defkey org-mode-map "\C-c\C-xo" 'org-toggle-ordered-property) (org-defkey org-mode-map "\C-c\C-xi" 'org-insert-columns-dblock) (org-defkey org-mode-map "\C-c\C-x." 'org-timer) @@ -13715,6 +13728,16 @@ See the individual commands for more information." ["Show TODO Tree" org-show-todo-tree t] ["Global TODO list" org-todo-list t] "--" + ["Enforce dependencies" (customize-variable 'org-enforce-todo-dependencies) + :selected org-enforce-todo-dependencies :style toggle :active t] + "Settings for tree at point" + ["Do Children sequentially" org-toggle-ordered-property :style radio + :selected (ignore-errors (org-entry-get nil "ORDERED")) + :active org-enforce-todo-dependencies :keys "C-c C-x o"] + ["Do Children parallel" org-toggle-ordered-property :style radio + :selected (ignore-errors (not (org-entry-get nil "ORDERED"))) + :active org-enforce-todo-dependencies :keys "C-c C-x o"] + "--" ["Set Priority" org-priority t] ["Priority Up" org-shiftup t] ["Priority Down" org-shiftdown t]) @@ -13849,9 +13872,9 @@ With optional NODE, go directly to that node." (defun org-require-autoloaded-modules () (interactive) (mapc 'require - '(org-agenda org-archive org-clock org-colview + '(org-agenda org-archive org-attach org-clock org-colview org-exp org-id org-export-latex org-publish - org-remember org-table))) + org-remember org-table org-timer))) ;;;###autoload (defun org-customize ()