Re: [O] Insert subheading at top respect content
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 wrote: > > > On Wed, Aug 21, 2019 at 12:28 AM Carsten Dominik 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 >> wrote: >> >>> >>> >>> On Fri, Aug 16, 2019 at 4:03 AM Carsten Dominik wrote: >>> On Fri, Aug 16, 2019 at 10:21 AM Nathan Neff 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 >
Re: [O] Insert subheading at top respect content
On Wed, Aug 21, 2019 at 12:28 AM Carsten Dominik 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 > wrote: > >> >> >> On Fri, Aug 16, 2019 at 4:03 AM Carsten Dominik wrote: >> >>> >>> >>> On Fri, Aug 16, 2019 at 10:21 AM Nathan Neff >>> 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 >>>
Re: [O] Insert subheading at top respect content
Hi Nate, What do you mean by passing "the right argument". Which argument do you want to pass? 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. Hope this helps. - Carsten On Wed, Aug 21, 2019 at 12:43 AM Nathan Neff wrote: > > > On Fri, Aug 16, 2019 at 4:03 AM Carsten Dominik wrote: > >> >> >> On Fri, Aug 16, 2019 at 10:21 AM Nathan Neff >> 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 >>> >>
Re: [O] Insert subheading at top respect content
On Tue, Aug 20, 2019 at 5:42 PM Nathan Neff wrote: > > > On Fri, Aug 16, 2019 at 4:03 AM Carsten Dominik wrote: > >> >> >> On Fri, Aug 16, 2019 at 10:21 AM Nathan Neff >> 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 >>> >>
Re: [O] Insert subheading at top respect content
On Fri, Aug 16, 2019 at 4:03 AM Carsten Dominik wrote: > > > On Fri, Aug 16, 2019 at 10:21 AM Nathan Neff > 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 >> >
Re: [O] Insert subheading at top respect content
On Fri, Aug 16, 2019 at 10:21 AM Nathan Neff 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 Carsten > > Thanks, > --Nate >
[O] Insert subheading at top respect content
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. Thanks, --Nate
