[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [O] whether in drawer?
From: |
Derek Feichtinger |
Subject: |
Re: [O] whether in drawer? |
Date: |
Thu, 28 Apr 2016 05:38:33 +0000 (UTC) |
User-agent: |
Loom/3.14 (http://gmane.org/) |
Hi
Samuel Wales <samologist <at> gmail.com> writes:
>
> can one tell whether point is in a drawer?
>
>
By coincidence just posted a patch request which contains the functionality
you desire. I use org-element-at-point and then test for drawer/property drawer:
(defun org-open-if-in-drawer ()
(let ((element (org-element-at-point)))
(while (and element
(not (memq (org-element-type element)
'(drawer property-drawer))))
(setq element (org-element-property :parent element)))
(when element
(let ((pos (point)))
(goto-char (org-element-property :begin element))
(org-flag-drawer nil)
(goto-char pos)))))
Cheers,
Derek