Re: Electric insert of headline stars

From: Carsten Dominik <carsten.dominik@gmail.com>
To: Piotr Zielinski <piotr.zielinski@gmail.com>
Cc: emacs-orgmode@gnu.org
Subject: Re: Electric insert of headline stars
Date: Thu, 25 Oct 2007 12:59:36 +0200	[thread overview]
Message-ID: <19A00E1C-EC56-40EA-9EB5-966D6B60B0C2@science.uva.nl> (raw)
In-Reply-To: <3c12eb8d0710250315r633d0c9au1fdcc8c8000437b@mail.gmail.com>

On Oct 25, 2007, at 12:15 PM, Piotr Zielinski wrote:

> Hi,
>
> Here's a small piece of elisp code that might be useful to some of  
> you.
> Pressing '*' now inserts '*' as before, but if there are only spaces
> between the beginning of the current line and the point, then all of
> them are converted to stars.  Useful for inserting new headlines.
>
> Longer explanaition: assume you have the following structure:
>
> * first level headline
> _* second level headline
> __* third level headline
>
> (_ denotes an invisible star) Since stars are invisible, I often find
> myself trying to create a new subheadline by just inserting a single
> star
>
> * first level headline
> _* second level headline
> __* third level headline
>    *
>
> which of course doesn't normally work, hence this elisp code.

hmm, intresting.

>
> (defun local-org-insert-stars ()
>   (interactive)
>   (when (looking-back "^ *" (point-at-bol))
>     (replace-string " " "*" nil (point-at-bol) (point)))
>   (insert "*"))

like this it will break table alignment.  it is better to use

(org-self-insert-command 1)

     instead of

(insert "*")

- Carsten

>
> (define-key org-mode-map "*" 'local-org-insert-stars)
>
> Haven't thoroughly tested it, but it seems to work ok.
>
> Piotr
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Remember: use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode