You are welcome. Good to hear that you have a good solution now. Carsten
On Thu, Aug 22, 2019 at 9:14 PM Nathan Neff <nathan.n...@gmail.com> wrote: > > > On Wed, Aug 21, 2019 at 12:28 AM Carsten Dominik <domi...@uva.nl> wrote: > >> Hi Nate, >> >> What do you mean by passing "the right argument". Which argument do you >> want to pass? >> > > I mean the hard-coded 1 on org-next-visible-heading. > > >> >> At first, I thought the direct way to fix your function would be >> >> (defun njn-subheading-respect-content () >> (interactive "") >> (org-next-visible-heading 1) >> (org-insert-heading nil) >> ) >> >> because in your original example, the heading did already have a child. >> However, that is not guaranteed, and in the above implementation, the >> new heading is created with the level of the next headline, and that >> next headline might be a sibling, a child or a parent. So we need to >> explicitly set the level: >> >> (defun njn-subheading-respect-content () >> (interactive "") >> (let ((level (car (org-heading-components)))) >> (org-next-visible-heading 1) >> (org-insert-heading nil) >> (while (<= (car (org-heading-components)) level) >> (org-demote)))) >> >> I am using (possibly repeated) calls to `org-demote', because this will >> do everything correct, also with stuff like org-odd-levels only etc. >> >> > Cool! I tried the above solution and made some modifications: > > (defun njn-subheading-respect-content () > (interactive "") > (org-show-children) > (let > ((level (car (org-heading-components))) > ) > (outline-next-heading) > (org-insert-heading) > (while (<= (car (org-heading-components)) level) > (org-demote)) > )) > > > I added (org-show-children) to work when cursor is on a folded heading. > > I removed the 1 argument to org-next-visible-heading > > This appears to do what I want - thanks for the help! > > > > >> Hope this helps. >> >> - Carsten >> >> >> >> >> >> On Wed, Aug 21, 2019 at 12:43 AM Nathan Neff <nathan.n...@gmail.com> >> wrote: >> >>> >>> >>> On Fri, Aug 16, 2019 at 4:03 AM Carsten Dominik <domi...@uva.nl> wrote: >>> >>>> >>>> >>>> On Fri, Aug 16, 2019 at 10:21 AM Nathan Neff <nathan.n...@gmail.com> >>>> wrote: >>>> >>>>> Hello all, >>>>> >>>>> Something that's eluded me all this time has been an >>>>> "Insert subheading, after the content, but before other subheadings" >>>>> >>>>> For example: >>>>> If my cursor is anywhere between lines 1 and 4, I would like the >>>>> subheading >>>>> to be inserted at line 5. >>>>> >>>>> 1* Heading >>>>> :PROPERTIES:... >>>>> 2 Some content >>>>> 3 More content >>>>> 4 >>>>> 5** Subheading 1 >>>>> 6** Subheading 2 >>>>> 7 >>>>> I know there's org-insert-subheading and C-u which respects content, >>>>> but >>>>> respect-content will insert a subheading at line 7 in the example >>>>> above. I would >>>>> like to have a new subheading at line 4. >>>>> >>>> >>>> What about C-c C-n M-RET >>>> >>> >>> Thanks Carsten - I created a function: >>> (defun njn-subheading-respect-content () >>> (interactive "") >>> (org-next-visible-heading 1) >>> (org-insert-subheading 't) >>> ) >>> >>> But I'm trying to find out where to get the "correct" arg >>> to org-next-visible-heading - I have hard-coded a 1 in the >>> above example, but this produces the following subheading: >>> >>> * Heading <-exec when cursor on this heading >>> Some content about Heading >>> *** New heading is inserted here (and is the wrong level - should be 2 >>> instead of 3) >>> ** Sub1 >>> ** Sub2 >>> >>> I will mess with this function a bit and post if I find a solution. >>> >>> Thanks, >>> --Nate >>> >>>> >>>> Carsten >>>> >>>> >>>>> >>>>> Thanks, >>>>> --Nate >>>>> >>>>
