From mboxrd@z Thu Jan  1 00:00:00 1970
From: Derek Feichtinger <dfeich@gmail.com>
Subject: Re: whether in drawer?
Date: Thu, 28 Apr 2016 05:38:33 +0000 (UTC)
Message-ID: <loom.20160428T073630-585@post.gmane.org>
References: <CAJcAo8u-E1DSPZvcQB5JNP2bZvGFw2A8HKym1Dr142QaAJKk8Q@mail.gmail.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:4830:134:3::10]:53471)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <geo-emacs-orgmode@m.gmane.org>) id 1avef1-0006d7-7e
	for emacs-orgmode@gnu.org; Thu, 28 Apr 2016 01:38:47 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <geo-emacs-orgmode@m.gmane.org>) id 1aveey-0005Kn-1D
	for emacs-orgmode@gnu.org; Thu, 28 Apr 2016 01:38:47 -0400
Received: from plane.gmane.org ([80.91.229.3]:56905)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <geo-emacs-orgmode@m.gmane.org>) id 1aveex-0005KY-R2
	for emacs-orgmode@gnu.org; Thu, 28 Apr 2016 01:38:43 -0400
Received: from list by plane.gmane.org with local (Exim 4.69)
	(envelope-from <geo-emacs-orgmode@m.gmane.org>) id 1aveet-0005Al-Q7
	for emacs-orgmode@gnu.org; Thu, 28 Apr 2016 07:38:39 +0200
Received: from 185.32.106.92.dynamic.wline.res.cust.swisscom.ch
	([92.106.32.185]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian))
	id 1AlnuQ-0007hv-00
	for <emacs-orgmode@gnu.org>; Thu, 28 Apr 2016 07:38:39 +0200
Received: from dfeich by 185.32.106.92.dynamic.wline.res.cust.swisscom.ch with
	local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00
	for <emacs-orgmode@gnu.org>; Thu, 28 Apr 2016 07:38:39 +0200
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode/>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Sender: "Emacs-orgmode"
	<emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
To: emacs-orgmode@gnu.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