emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* finding a parent node
@ 2013-07-02  7:56 Łukasz Stelmach
  2013-07-02  9:40 ` Thorsten Jolitz
  2013-07-02 11:06 ` Thorsten Jolitz
  0 siblings, 2 replies; 5+ messages in thread
From: Łukasz Stelmach @ 2013-07-02  7:56 UTC (permalink / raw)
  To: emacs-orgmode

Hello All.

What is the best way to iterate over ((great)*grand)?parent headlines of
the current one (at point), that meets some criteria.

--8<---------------cut here---------------start------------->8---
* Projects
  I am working on.

** Project for Mondays

*** tasks

*** resources

** Project for the rest of the week

*** tasks                        :TASKS:
^                      <------ (3) I'd like it to move here
    If I do this stuff I will rule the world.
                             ^       <----- (2) or it may be here.
**** TODO do this                  

**** TODO do that                  
     I am trying.
                 ^     <------ (1) point is here
**** TODO WAT?

*** resources
--8<---------------cut here---------------end--------------->8---

With my point somewher deep I'like to find the closest parent heading
tagged :TASKS:.

If that helps, I'd like to export the subtree of the heading I find by
simply running the export function at any point of the subtree.

Kind regards,
-- 
Łukasz Stelmach
Samsung R&D Institute Poland
Samsung Electronics

^ permalink raw reply	[flat|nested] 5+ messages in thread

* Re: finding a parent node
  2013-07-02  7:56 finding a parent node Łukasz Stelmach
@ 2013-07-02  9:40 ` Thorsten Jolitz
  2013-07-02 11:06 ` Thorsten Jolitz
  1 sibling, 0 replies; 5+ messages in thread
From: Thorsten Jolitz @ 2013-07-02  9:40 UTC (permalink / raw)
  To: emacs-orgmode

l.stelmach@samsung.com (Łukasz Stelmach) writes:

Hello,

> What is the best way to iterate over ((great)*grand)?parent headlines of
> the current one (at point), that meets some criteria.

not an answer to your question, but rather a related question I wanted
to post anyway, so I do it in this thread:

simple-test.org:
#+begin_src org
* header 1
  :PROPERTIES:
  :CUSTOM_ID: XYZ22
  :END:
* header 2
  [2013-06-28 Fr 11:01]
** subheader 1
Some text
** subheader 2

More text and a table

| label  | col1 | col2 |
|--------+------+------|
| string | 3    | 4    |

Text and a src-block

#+begin_src emacs-lisp
 (+ 3 4)
#+end_src

#+end_src

parse buffer:
#+begin_src emacs-lisp
(progn
  (goto-char (point-max))
  (newline 2)
  (insert
   (format "%s"
           (with-current-buffer
               (find-file-noselect
                "/path/to/simple-test.org")
             (setq tree (org-element-parse-buffer))))) )
#+end_src

excerpts form parse-tree:
#+begin_src emacs-lisp
  (org-data
   nil
   ;; first headline
   (headline
    (:raw-value header 1 :begin 1 :end55 :pre-blank0 :hiddenp
  outline :contents-begin 12 :contents-end 55 :level 1 :priority
  nil :tags nil :todo-keyword nil :todo-type nil :post-blank
  1 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp
  nil :CUSTOM_ID XYZ22 :CATEGORY simple-test :title (header
  1) :parent #0)

    (section (:begin 12 :end 55 :contents-begin 12 :contents-end
  55 :post-blank 0 :parent #1)

     (property-drawer (:begin 12 :end 55 :hiddenp
  outline :contents-begin 27 :contents-end 47 :post-blank
  0 :post-affiliated 12 :parent #2) (node-property (:key
  CUSTOM_ID :value XYZ22 :begin 27 :end 47 :post-blank 0 :parent
  #3)))))

   ;; second headline
   (headline (:raw-value header 2 :begin 55 :end 295 :pre-blank
  0 :hiddenp outline :contents-begin 66 :contents-end 295 :level
  1 :priority nil :tags nil :todo-keyword nil :todo-type
  nil :post-blank 0 :footnote-section-p nil :archivedp
  nil :commentedp nil :quotedp nil :CATEGORY
  simple-test :title (header 2) :parent #0)

    (section (:begin 66 :end 90 :contents-begin 66 :contents-end
  90 :post-blank 0 :parent #1) (paragraph (:begin 66 :end
  90 :contents-begin 66 :contents-end 90 :post-blank
  0 :post-affiliated 66 :parent #2)

     (timestamp (:type inactive :raw-value [2013-06-28 Fr
  11:01] :year-start 2013 :month-start 6 :day-start 28 :hour-start
  11 :minute-start 1 :year-end 2013 :month-end 6 :day-end
  28 :hour-end 11 :minute-end 1 :begin 68 :end 89 :post-blank
  0 :parent #3)) )) ...) )

#+end_src

now I can use `org-element-map' to access the elements and their attributes:

#+begin_src emacs-lisp
(insert
 (format "\n\n%s"
         (org-element-map
             tree
             'timestamp
           '(lambda (X) (org-element-property :raw-value X)))))

;; => ([2013-06-28 Fr 11:01])

#+end_src

this gives me the first timestamp element and its property list:
#+begin_src emacs-lisp
(setq stamp1
      (org-element-map
          tree
          'timestamp
        'identity nil t))
#+end_src

but for further processing I always struggle with the :parent attribute and
the circularities in the list. 

I often would like to use just a sublist like this, with :parent being a Link
or ID and not the parent object that refers to its parent object and so on ...

#+begin_src emacs-lisp
(timestamp (:type inactive :raw-value [2013-06-28 Fr
  11:01] :year-start 2013 :month-start 6 :day-start 28 :hour-start
  11 :minute-start 1 :year-end 2013 :month-end 6 :day-end
  28 :hour-end 11 :minute-end 1 :begin 68 :end 89 :post-blank
  0 :parent <<ID of or LINK to #3>>))
#+end_src

I tried to use the NO-RECURSION arg of `org-element-map' for this, but often
the parent is a headline or section, and then 'org-element-map' doesn't enter
headlines or sections and returns nil, i.e. the timestamp is never found. 

Is there a way - using the parser/export framework toolbox - to avoid these
circularities, i.e. to either ignore the :parent attribute or better replace
the list object in it by something else that nevertheless identifies the
parent unmistakenly? 

I know that with special bookkeeping while walking the tree one can deal with
these circularities, maybe I'm just new to this stuff, but I feel they make
the usual processing of such a nested list a bit complicated. 

--
cheers,
Thorsten

^ permalink raw reply	[flat|nested] 5+ messages in thread

* Re: finding a parent node
  2013-07-02  7:56 finding a parent node Łukasz Stelmach
  2013-07-02  9:40 ` Thorsten Jolitz
@ 2013-07-02 11:06 ` Thorsten Jolitz
  2013-07-02 11:35   ` Łukasz Stelmach
  1 sibling, 1 reply; 5+ messages in thread
From: Thorsten Jolitz @ 2013-07-02 11:06 UTC (permalink / raw)
  To: emacs-orgmode

l.stelmach@samsung.com (Łukasz Stelmach) writes:

Hello Lukasz, 

assume my simple-test.org with a :TASK: tag:

#+begin_src org
* header 1
  :PROPERTIES:
  :CUSTOM_ID: XYZ22
  :END:
* header 2                             :TASK:
  [2013-06-28 Fr 11:01]
** subheader 1
Some text
** subheader 2

More text and a table

| label  | col1 | col2 |
|--------+------+------|
| string | 3    | 4    |

Text and a src-block

#+begin_src emacs-lisp 
 (+ 3 4)
#+end_src

#+end_src

> With my point somewher deep I'like to find the closest parent heading
> tagged :TASKS:.

Lets move point to the source-block and get `org-element-context':

#+begin_src emacs-lisp
(with-current-buffer
    (find-file
     "/path/to/simple-test.org")
    (goto-char (point-min))
    (org-babel-next-src-block)
    (message "%s" (point))
     (format "%s"
     (org-element-context)))
#+end_src

#+begin_quote
"(src-block (:language emacs-lisp :switches nil :parameters nil :begin 319
 :end 362 :number-lines nil :preserve-indent nil :retain-labels t :use-labels
 t :label-fmt nil :hiddenp nil :value (+ 3 4) :post-blank 0 :post-affiliated
 319 :parent nil))"
#+end_quote

too bad, does not work in isolated use, :parent is nil. Othewise one could
get the parent(s) and check for the :TASK: tag. 

So the only way to find this headline I know of would be:

#+begin_src emacs-lisp
(with-current-buffer
  (find-file-noselect
     "/path/to/simple-test.org")
  (let ((tree (org-element-parse-buffer)))
  (org-element-map tree 'headline
   (lambda (hl)
     (and
      (member "TASK" (org-element-property :tags hl))
      (list (org-element-property :begin hl)
            (org-element-property :end hl)))))))
#+end_src

returns

,-----------
| ((55 362))
`-----------

so you could at least find out if (point) is inside a headline with a :TASK:
tag, then get this headline and use its attribute list to move to some place
inside of it. 

But I'm sure Nicolas can give you a much better solution (I would be
interested in that solution too). 

-- 
cheers,
Thorsten

^ permalink raw reply	[flat|nested] 5+ messages in thread

* Re: finding a parent node
  2013-07-02 11:06 ` Thorsten Jolitz
@ 2013-07-02 11:35   ` Łukasz Stelmach
  2013-07-02 12:12     ` Thorsten Jolitz
  0 siblings, 1 reply; 5+ messages in thread
From: Łukasz Stelmach @ 2013-07-02 11:35 UTC (permalink / raw)
  To: emacs-orgmode

It was <2013-07-02 wto 13:06>, when Thorsten Jolitz wrote:
> l.stelmach@samsung.com (Łukasz Stelmach) writes:
>
> Hello Lukasz, 
>
> assume my simple-test.org with a :TASK: tag:
>
> #+begin_src org
> * header 1
>   :PROPERTIES:
>   :CUSTOM_ID: XYZ22
>   :END:
> * header 2                             :TASK:
>   [2013-06-28 Fr 11:01]
> ** subheader 1
> Some text
> ** subheader 2
>
> More text and a table
>
> | label  | col1 | col2 |
> |--------+------+------|
> | string | 3    | 4    |
>
> Text and a src-block
>
> #+begin_src emacs-lisp 
>  (+ 3 4)
> #+end_src
>
> #+end_src
>
>> With my point somewher deep I'like to find the closest parent heading
>> tagged :TASKS:.
>
> Lets move point to the source-block and get `org-element-context':
>
> #+begin_src emacs-lisp
> (with-current-buffer
>     (find-file
>      "/path/to/simple-test.org")
>     (goto-char (point-min))
>     (org-babel-next-src-block)
>     (message "%s" (point))
>      (format "%s"
>      (org-element-context)))
> #+end_src
> #+begin_quote
> "(src-block (:language emacs-lisp :switches nil :parameters nil :begin 319
>  :end 362 :number-lines nil :preserve-indent nil :retain-labels t :use-labels
>  t :label-fmt nil :hiddenp nil :value (+ 3 4) :post-blank 0 :post-affiliated
>  319 :parent nil))"
> #+end_quote
>
> too bad, does not work in isolated use, :parent is nil. Othewise one could
> get the parent(s) and check for the :TASK: tag. 
>
> So the only way to find this headline I know of would be:
>
> #+begin_src emacs-lisp
> (with-current-buffer
>   (find-file-noselect
>      "/path/to/simple-test.org")
>   (let ((tree (org-element-parse-buffer)))
>   (org-element-map tree 'headline
>    (lambda (hl)
>      (and
>       (member "TASK" (org-element-property :tags hl))
>       (list (org-element-property :begin hl)
>             (org-element-property :end hl)))))))
> #+end_src
>
> returns
>
> ,-----------
> | ((55 362))
> `-----------
>
> so you could at least find out if (point) is inside a headline with a :TASK:
> tag, then get this headline and use its attribute list to move to some place
> inside of it. 
>
> But I'm sure Nicolas can give you a much better solution (I would be
> interested in that solution too). 

This might be enough for me as I get the tree in the exporting
code.  However, this way is far from efficient. If only there was a way
to find the current element in the tree.

I am not sure yet, but a sequence of org-back-to-heading  and
re-search-backward inside a save-excursion may be the easiest way to
place the point where I want it.

Any other thoughts?
-- 
Łukasz Stelmach
Samsung R&D Institute Poland
Samsung Electronics

^ permalink raw reply	[flat|nested] 5+ messages in thread

* Re: finding a parent node
  2013-07-02 11:35   ` Łukasz Stelmach
@ 2013-07-02 12:12     ` Thorsten Jolitz
  0 siblings, 0 replies; 5+ messages in thread
From: Thorsten Jolitz @ 2013-07-02 12:12 UTC (permalink / raw)
  To: emacs-orgmode

l.stelmach@samsung.com (Łukasz Stelmach) writes:

> It was <2013-07-02 wto 13:06>, when Thorsten Jolitz wrote:
>> l.stelmach@samsung.com (Łukasz Stelmach) writes:
> This might be enough for me as I get the tree in the exporting
> code.  However, this way is far from efficient. If only there was a way
> to find the current element in the tree.
>
> I am not sure yet, but a sequence of org-back-to-heading  and
> re-search-backward inside a save-excursion may be the easiest way to
> place the point where I want it.
>
> Any other thoughts?


#+begin_src emacs-lisp
(defun tj/export-enclosing-header (tag backend)
  "Export enclosing header with TAG member of tags."
  (save-excursion
    (unless (org-on-heading-p)
      (outline-previous-heading))
    (while (not (member tag (org-get-tags)))
      (outline-up-heading 1))
    (org-export-as backend 'SUBTREEP)))
#+end_src


then doing (with point e.g. at the src-block)

,------------------------------------------
| M-: (tj/export-enclosing-header "TASK" 'html)
`------------------------------------------

works in my sample org file. Not sure if this what you are looking for

-- 
cheers,
Thorsten

^ permalink raw reply	[flat|nested] 5+ messages in thread

end of thread, other threads:[~2013-07-02 12:13 UTC | newest]

Thread overview: 5+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2013-07-02  7:56 finding a parent node Łukasz Stelmach
2013-07-02  9:40 ` Thorsten Jolitz
2013-07-02 11:06 ` Thorsten Jolitz
2013-07-02 11:35   ` Łukasz Stelmach
2013-07-02 12:12     ` Thorsten Jolitz

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).