[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [O] Return Top-Level Heading
From: |
Myles English |
Subject: |
Re: [O] Return Top-Level Heading |
Date: |
Mon, 19 Oct 2015 23:24:23 +0100 |
User-agent: |
mu4e 0.9.13; emacs 24.5.1 |
Hello Zach,
Zach Sheffler writes:
> Is there a way to reference the top-level heading that a lower-level
> heading belongs to? For instance:
>
> * One
> ** Two
> *** Three
>
> If I have "Three", how can I get it to tell me that the top-level is "One"?
> For reference, this is for an org-agenda-prefix.
Perhaps this:
(defun findTop()
(interactive)
(let* ((tree (org-element-parse-buffer))
(curs_pos (point))
(up_tree (org-element-map tree 'headline
(lambda (hl)
(and (> curs_pos (org-element-property :begin hl))
(= (org-element-property :level hl) 1)
(org-element-property :raw-value hl) ))))
(local_up_tree (last up_tree)))
local_up_tree))
Myles