From mboxrd@z Thu Jan 1 00:00:00 1970 From: Thorsten Jolitz Subject: Re: How to find the headline matching a string Date: Tue, 03 Jun 2014 11:05:56 +0200 Message-ID: <87r436mkgb.fsf@gmail.com> References: <87bnuedl38.fsf@ericabrahamsen.net> <87ha45r9hi.fsf@gmail.com> <874n05e0ls.fsf@ericabrahamsen.net> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:48743) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Wrkfj-0001Wd-Uv for emacs-orgmode@gnu.org; Tue, 03 Jun 2014 05:06:25 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Wrkfe-0000rZ-Ht for emacs-orgmode@gnu.org; Tue, 03 Jun 2014 05:06:19 -0400 Received: from plane.gmane.org ([80.91.229.3]:44293) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Wrkfe-0000rJ-8u for emacs-orgmode@gnu.org; Tue, 03 Jun 2014 05:06:14 -0400 Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1Wrkfc-0005PA-UE for emacs-orgmode@gnu.org; Tue, 03 Jun 2014 11:06:12 +0200 Received: from e178058078.adsl.alicedsl.de ([85.178.58.78]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 03 Jun 2014 11:06:12 +0200 Received: from tjolitz by e178058078.adsl.alicedsl.de with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 03 Jun 2014 11:06:12 +0200 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Eric Abrahamsen writes: > Thorsten Jolitz writes: > >> Chris Poole writes: >> >>> Eric Abrahamsen: >>>> the `org-map-entries' function can be given a scope of 'agenda >>> >>> That worked perfectly, thanks. Here's what I ended up with: >>> >>> (org-map-entries (lambda () >>> (when (equal title (org-get-heading t t)) >>> (org-entry-put (point) "TODO" "DONE"))) >>> tag 'agenda) >> >> As much as I like the powerful `org-map-entries', I wonder if it will >> coexist with `org-element-map' in the future, since it does not use the >> new parser. >> >> Whats the recommendation here? Should one rather use >> >> ,----------------------------------------------------------- >> | (org-element-map (org-element-parse-buffer) 'headline (lambda () ...)) >> `----------------------------------------------------------- >> >> nowadays, or do both functions serve different purposes, or is it just a >> matter of taste? > > Interesting! I wasn't even aware of org-element-map, thanks for that. > Obviously I don't know the answer to your question, but they do seem to > do very similar things. On the other hand, `org-element-map' won't do > multiple files, and if you want to restrict to certain elements you have > to do the matching logic yourself (as opposed to `org-map-entries's > agenda-style search string). > > I'd be curious, too, to hear if `org-map-entries' is going to get EOL'd > at some point. I suppose it's safe so long as `org-scan-tags' remains > the heart of the agenda process. > > Here's my stab at two roughly equivalent functions, one using > org-element, the other older function. Just for the hell of it I tried > using "benchmark" to profile them, but have no idea if the results mean > much of anything. Most importantly, I don't really know if > `org-element-parse-buffer' ends up using the cache or not -- I assume > not. > > (defun my-find-title-element-map (title) > (interactive "sTitle: ") > (let ((files (org-agenda-files)) > found) > (dolist (f files) > (with-current-buffer (org-get-agenda-file-buffer f) > (org-element-map (org-element-parse-buffer 'headline) > 'headline > (lambda (hl) > (when (string= title (org-element-property :title hl)) > (push (move-marker (make-marker) > (org-element-property :begin hl)) > found)))))) > found)) > > > (defun my-find-title-entries-map (title) > (interactive "sTitle: ") > (let (found) > (org-map-entries > (lambda () > (when (string= title (org-get-heading t t)) > (push (move-marker (make-marker) > (line-beginning-position)) > found))) > nil 'agenda) > found)) > > (benchmark-run 100 (my-find-title-element-map "Unique Heading Text")) > => (164.576821235 142 23.892782392000186) > > (benchmark-run 100 (my-find-title-entries-map "Unique Heading Text")) > => (58.111630133 36 6.047778745000016) This is interesting too - and a bit surprising. On my machine, the org-element based function takes almost 4 times as long as the org-map-entries based function: #+BEGIN_SRC emacs-lisp (defun my-find-title-element-map (title) (interactive "sTitle: ") (let ((files (org-agenda-files)) found) (dolist (f files) (with-current-buffer (org-get-agenda-file-buffer f) (org-element-map (org-element-parse-buffer 'headline) 'headline (lambda (hl) (when (string= title (org-element-property :title hl)) (push (move-marker (make-marker) (org-element-property :begin hl)) found)))))) found)) #+END_SRC #+results: : my-find-title-element-map #+BEGIN_SRC emacs-lisp (defun my-find-title-entries-map (title) (interactive "sTitle: ") (let (found) (org-map-entries (lambda () (when (string= title (org-get-heading t t)) (push (move-marker (make-marker) (line-beginning-position)) found))) nil 'agenda) found)) #+END_SRC #+results: : my-find-title-entries-map #+BEGIN_SRC emacs-lisp :results raw (benchmark-run 30 (my-find-title-element-map "Unique Heading Text")) #+END_SRC #+results: (160.439753043 735 76.66140414599985) # => (164.576821235 142 23.892782392000186) #+BEGIN_SRC emacs-lisp :results raw (benchmark-run 30 (my-find-title-entries-map "Unique Heading Text")) #+END_SRC #+results: (37.973595622000005 123 12.137436705999733) # => (58.111630133 36 6.047778745000016) -- cheers, Thorsten