Best way to check if a subtree with a property exists?

Best way to check if a subtree with a property exists?

[Kaushal Modi]

[-- Attachment #1: Type: text/plain, Size: 961 bytes --]

Hello,

I'd like to check if the current Org file has at least one subtree with a
specific property (EXPORT_FILE_NAME in my case).

What's the most efficient way to do that?

Below works.. but I can see that it's not efficient.. it maps through the
whole Org file:

(let ((total-valid-subtrees
       (let ((valid-subtrees (org-map-entries
                              (lambda ()
                                t) ;Return value does not matter here
                              ;; Only map through subtrees where
                              ;; EXPORT_FILE_NAME property is not
                              ;; empty.
                              "EXPORT_FILE_NAME<>\"\"")))
         (safe-length valid-subtrees))))
  (if (= 0 total-valid-subtrees)
      (message "invalid")
    (message "valid")))

So,

- How can I quit out of org-map-entries as soon as the first matching entry
is found?
- What's a better way to do the same?

Thanks.
-- 

Kaushal Modi

[-- Attachment #2: Type: text/html, Size: 1541 bytes --]

Re: Best way to check if a subtree with a property exists?

[Kaushal Modi]

[-- Attachment #1: Type: text/plain, Size: 603 bytes --]

On Fri, Dec 1, 2017 at 9:00 AM Kaushal Modi <kaushal.modi@gmail.com> wrote:

> - How can I quit out of org-map-entries as soon as the first matching
> entry is found?
>

I think this is much better:

(let ((valid-found
       (catch 'break
         (org-map-entries
          (lambda ()
            (throw 'break t))
          ;; Only map through subtrees where
          ;; EXPORT_FILE_NAME property is not
          ;; empty.
          "EXPORT_FILE_NAME<>\"\""))))
  (message "valid-found: %S" valid-found))

- What's a better way to do the same?
>

Comments are welcome :)

Thanks.
-- 

Kaushal Modi

[-- Attachment #2: Type: text/html, Size: 1420 bytes --]