Re: Re: Speed commands

From: Dan Davison <davison@stats.ox.ac.uk>
To: Benjamin Andresen <benny@in-ulm.de>
Cc: Emacs-orgmode mailing list <emacs-orgmode@gnu.org>
Subject: Re: Re: Speed commands
Date: Sat, 14 Nov 2009 10:48:00 -0500	[thread overview]
Message-ID: <87tywx2jm7.fsf@stats.ox.ac.uk> (raw)
In-Reply-To: <87my2ph7ci.fsf@in-ulm.de> (Benjamin Andresen's message of "Sat, 14 Nov 2009 08:51:41 +0100")

Benjamin Andresen <benny@in-ulm.de> writes:

> Hey Dan,
>
> Dan Davison <davison@stats.ox.ac.uk> writes:
>
>>       (unless (org-heading-has-child-p) (org-cycle))
>
> There is no function by the name of org-heading-has-child-p in the
> current org-mode tree. I'd like to try the above code.

Thanks Benny.

Here's a new version. There could also be a reverse direction version if
people think this might be useful.

-----------------------------------------------------------
(defun ded/org-show-next-heading-tidily ()
  "Show next entry, keeping all other entries closed."
  (if (save-excursion (end-of-line) (outline-invisible-p))
      (org-cycle)
    (let ((pos (point))
          (level (org-current-level))
          (next-level
           (progn (outline-next-heading) (org-current-level))))
      (cond ((< next-level level)
             (save-excursion
               (outline-backward-same-level 1) (org-cycle)))
            ((= next-level level)
             (save-excursion (goto-char pos) (org-cycle))))
      (if (and (bolp) (org-on-heading-p))
          (org-cycle)
        (outline-up-heading 1 t)
        (org-cycle)
        (error "Boundary reached")))))

(setq org-use-speed-commands t)
(add-to-list 'org-speed-commands-user 
             '(" " ded/org-show-next-heading-tidily))
-----------------------------------------------------------

Dan

>
>>
>> Dan
>
> br,
> benny
>
>
> _______________________________________________
> 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