Hi SAmuel,
On Nov 6, 2010, at 12:47 AM, Samuel Wales wrote:
Having trouble with setting a restriction lock and also with
searching quickly.
Can somebody kindly respond to the questions in the comments below?
(defun alpha-org-agenda-parent-subtree ()
"Show agenda for all tasks in subtree above point. This means
all /siblings/ of point and everything beneath them.
If the region is active, operate only on the region.
You can get a fast sorted view with this command. In this
example, the agenda will show tasks under my subtree.
* top level 1 -- not shown
* my subtree -- shown
* TODO a
* some other headline | (<- point is here)
* TODO [#A] b
* top level 2 -- not shown
If you sort by priority, b will sort above a.
This allows you to organize nodes hierarchically instead of
keeping things at the same level merely to allow sorting.
"
(interactive)
(save-excursion
;;unwind-protect
(if (not (org-up-heading-safe))
(message "top level is nyi")
;;is this the right way to do it? i tried
;;(let (org-agenda-overriding-restriction ...
;;
;;how do i make this work for the active region?
(org-agenda-set-restriction-lock 'subtree)
;;is there a less kludgey way to specify all tasks in the
restriction?
;;more importantly, what is the absolutely /fastest/ way?
I guess you could remember start and end of the region
and the implement a skipping function the checks if the
match is in the range. If you are in a large file, this
would still be somewhat wasteful.
The fastest way for a region would be (untested)
(setq org-agenda-restrict t)
(setq org-agenda-overriding-restriction 'region)
(put 'org-agenda-files 'org-restrict
(list (buffer-file-name (buffer-base-buffer))))
(move-marker org-agenda-restrict-begin (region-beginning))
(move-marker org-agenda-restrict-end (region-end))
;;
;;this seems to take forever even for a single node
(org-search-view nil "{.}"))))
Try a tags/property match with "LEVEL>0", that
should be more efficient.
Thanks.
Samuel
--
Q: How many CDC "scientists" does it take to change a lightbulb?
A: "You only think it's dark." [CDC has denied a deadly serious
disease for 25 years]
==========
HIV-like virus: http://www.wpinstitute.org/xmrv/index.html -- PLEASE
DONATE
===
I want to see the original (pre-hold) Lo et al. 2010 NIH/FDA/Harvard
MLV paper.
_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
