Re: [Orgmode] org-hide-entry
On Oct 15, 2010, at 1:03 PM, Andreas Röhler wrote: Am 15.10.2010 09:47, schrieb Carsten Dominik: On Oct 14, 2010, at 9:04 PM, Andreas Röhler wrote: Hi. as org-mode knows a command `org-show-entry' looked for `org-hide-entry', but couldn't get it. So here it is. This will leave the buffer in a pretty messy state. Indeed, thanks. It's cured already. Please try patch attached. I still think this does something bad to the buffer. - Carsten ___ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
Re: [Orgmode] org-hide-entry
Am 15.10.2010 09:47, schrieb Carsten Dominik:
On Oct 14, 2010, at 9:04 PM, Andreas Röhler wrote:
Hi.
as org-mode knows a command `org-show-entry' looked for
`org-hide-entry', but couldn't get it.
So here it is.
This will leave the buffer in a pretty messy state.
Indeed, thanks. It's cured already.
Please try patch attached.
Andreas
It will hide a headline and the text below it, but not the subtree. The
ellipsis will be on the text belonging to the entry before.
For example
* test
aaa
** sub 1
bbb
** sub2
ccc
Call this command on sub one, and you get
* test
aaa
** sub2
ccc
This is not good. So I don't understand what this might be useful for.
Maybe there are outline-... commands which do what you really mean?
- Carsten
- Carsten
Andreas
--
https://code.launchpad.net/~a-roehler/python-mode/python-mode-components
https://code.launchpad.net/s-x-emacs-werkstatt/
___
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
- Carsten
diff --git a/lisp/org.el b/lisp/org.el
index a80286f..7c589e6 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -19391,6 +19391,24 @@ Stop at the first and last subheadings of a superior heading."
(org-end-of-subtree t t))
nil))
+(defun org-hide-entry ()
+ "Hide the body directly following this heading. "
+ (interactive)
+ (save-excursion
+(condition-case nil
+ (progn
+ (org-back-to-heading t)
+ (outline-flag-region
+ (max (point-min) (point))
+ (save-excursion
+ (if (re-search-forward
+ (concat "[\r\n]\\(" outline-regexp "\\)") nil t)
+ (1- (match-beginning 1))
+ (point-max)))
+ t)
+ (org-cycle-hide-drawers 'children))
+ (error nil
+
(defun org-show-entry ()
"Show the body directly following this heading.
Show the heading too, if it is currently invisible."
___
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
Re: [Orgmode] org-hide-entry
On Oct 14, 2010, at 9:04 PM, Andreas Röhler wrote: Hi. as org-mode knows a command `org-show-entry' looked for `org-hide-entry', but couldn't get it. So here it is. This will leave the buffer in a pretty messy state. It will hide a headline and the text below it, but not the subtree. The ellipsis will be on the text belonging to the entry before. For example * test aaa ** sub 1 bbb ** sub2 ccc Call this command on sub one, and you get * test aaa ** sub2 ccc This is not good. So I don't understand what this might be useful for. Maybe there are outline-... commands which do what you really mean? - Carsten - Carsten Andreas -- https://code.launchpad.net/~a-roehler/python-mode/python-mode- components https://code.launchpad.net/s-x-emacs-werkstatt/ ___ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode - Carsten ___ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] org-hide-entry
Hi.
as org-mode knows a command `org-show-entry' looked for
`org-hide-entry', but couldn't get it.
So here it is.
Andreas
--
https://code.launchpad.net/~a-roehler/python-mode/python-mode-components
https://code.launchpad.net/s-x-emacs-werkstatt/
diff --git a/lisp/org.el b/lisp/org.el
index a80286f..df9ae99 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -19391,6 +19391,24 @@ Stop at the first and last subheadings of a superior heading."
(org-end-of-subtree t t))
nil))
+(defun org-hide-entry ()
+ "Hide the body directly following this heading. "
+ (interactive)
+ (save-excursion
+(condition-case nil
+ (progn
+ (org-back-to-heading t)
+ (outline-flag-region
+ (max (point-min) (1- (point)))
+ (save-excursion
+ (if (re-search-forward
+ (concat "[\r\n]\\(" outline-regexp "\\)") nil t)
+ (1- (match-beginning 1))
+ (point-max)))
+ t)
+ (org-cycle-hide-drawers 'children))
+ (error nil
+
(defun org-show-entry ()
"Show the body directly following this heading.
Show the heading too, if it is currently invisible."
___
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
