Sorry for a rudimentary question, but someone almost certainly has done this before: I'd like define a function that would: a) Create a new heading if the cursor is on a heading or the body of a heading. or b) Create a new TODO heading if the cursor is on a TODO heading or the body of a TODO heading. Essentially, it would be a "smart" function to either press M-Return or M-S-Return, depending on the context. I realize I can press M-Return to always create a new heading, and M-S-Return to always create a new TODO, but I'd like to eliminate an extra keypress for the most common cases. Any ideas? Thanks, --Nate
Sorry for the bump -- maybe I'll phrase the question differently ----
Is there a function in org-mode that returns the TODO
status of the heading that the cursor is currently in?
Thanks,
--Nate
On Thu, Aug 5, 2010 at 10:43 AM, Nathan Neff <nathan.neff@gmail.com> wrote:
> Sorry for a rudimentary question, but someone almost certainly has
> done this before:
>
> I'd like define a function that would:
> a) Create a new heading if the cursor is on a heading or the body of a heading.
> or
> b) Create a new TODO heading if the cursor is on a TODO heading or the body
> of a TODO heading.
>
> Essentially, it would be a "smart" function to either press M-Return
> or M-S-Return,
> depending on the context.
>
> I realize I can press M-Return to always create a new heading, and
> M-S-Return to always create a new TODO, but I'd like to eliminate
> an extra keypress for the most common cases.
>
> Any ideas?
>
> Thanks,
> --Nate
>
On 08/10/2010 11:41 PM, Nathan Neff wrote:
> Is there a function in org-mode that returns the TODO
> status of the heading that the cursor is currently in?
>
Yes, try "org-get-todo-state". (Found this using C-h f, typing "org",
then using I-Search in the completion buffer.)
This returns something like this:
#("NEXT" 0 4 (fontified t org-category #("org-dev" 0 7 (fontified t face
org-property-value org-category "projects")) face org-todo))
or nil if there is no TODO state.
This syntax is new to me (elisp noob here), but the elisp reference told
me it's just a string with text properties.
The following code seems to accomplish your goal:
(defun jb/smart-insert-heading ()
(if (org-get-todo-state)
(call-interactively 'org-insert-todo-heading)
(call-interactively 'org-insert-heading)))
HTH, Jan
On Tue, Aug 10, 2010 at 5:07 PM, Jan Böcker <jan.boecker@jboecker.de> wrote:
> On 08/10/2010 11:41 PM, Nathan Neff wrote:
>> Is there a function in org-mode that returns the TODO
>> status of the heading that the cursor is currently in?
>>
>
> Yes, try "org-get-todo-state". (Found this using C-h f, typing "org",
> then using I-Search in the completion buffer.)
> This returns something like this:
>
> #("NEXT" 0 4 (fontified t org-category #("org-dev" 0 7 (fontified t face
> org-property-value org-category "projects")) face org-todo))
>
> or nil if there is no TODO state.
>
> This syntax is new to me (elisp noob here), but the elisp reference told
> me it's just a string with text properties.
>
> The following code seems to accomplish your goal:
>
> (defun jb/smart-insert-heading ()
> (if (org-get-todo-state)
> (call-interactively 'org-insert-todo-heading)
> (call-interactively 'org-insert-heading)))
>
> HTH, Jan
>
Thanks Jan, this helped a lot! I appreciate the C-h f reminder -- I
have searched
through org.el and didn't come up with the right search terms. This
should help me in
the future.
BTW, your function works perfectly!
Thanks,
--Nate