Re: Making TAB a touch more magical

From: Carsten Dominik <carsten.dominik@gmail.com>
To: John Wiegley <jwiegley@gmail.com>
Cc: Org-mode Mode <emacs-orgmode@gnu.org>
Subject: Re: Making TAB a touch more magical
Date: Sat, 17 Oct 2009 08:55:53 +0200	[thread overview]
Message-ID: <53E70D7A-DCAC-4CFB-8CD1-5D43A73B8C08@gmail.com> (raw)
In-Reply-To: <F423AE52-4791-478E-AE96-5B80B088FF30@gmail.com>

On Oct 17, 2009, at 2:59 AM, John Wiegley wrote:

> In most "power" outliners on the Mac, pressing TAB indents the  
> outline level of the current item.  This lets you add subnotes very  
> quickly by typing M-RET TAB.  (I find M-S-<right> way too cumbersome  
> to use while typing).
>
> Since pressing TAB on a new entry (one with no body) doesn't do  
> anything right now, I think TAB in that case should do what M-S- 
> <right> does.  This little snippet achieves that:
>
> (defun org-indent-empty-items (arg)
>  (when (eq arg 'empty)
>    (goto-char (line-end-position))
>    (cond
>     ((org-at-item-p) (org-indent-item 1))
>     ((org-on-heading-p) (org-demote-subtree)))))
>
> (add-hook 'org-pre-cycle-hook 'org-indent-empty-items)

If going this crazy, how about (extension for plain list still missing)

(defun org-indent-empty-items (arg)
  (when (eq arg 'empty)
    (goto-char (line-end-position))
    (cond
     ((org-at-item-p) (org-indent-item 1))
     ((org-on-heading-p)
      (if (equal this-command last-command)
	 (condition-case nil
	     (org-promote-subtree)
	   (error
	    (save-excursion
	      (goto-char (point-at-bol))
	      (and (looking-at "\\*+") (replace-match ""))
	      (org-insert-heading)
	      (org-demote-subtree))))
        (org-demote-subtree))))))

(add-hook 'org-pre-cycle-hook 'org-indent-empty-items)

- carsten

>
> This also works for regular lists.
>
> John
>
>
> _______________________________________________
> 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

- Carsten