org-hide-entry

org-hide-entry

[Andreas Röhler]

[-- Attachment #1: Type: text/plain, Size: 251 bytes --]

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/


[-- Attachment #2: org-hide-entry.patch --]
[-- Type: text/x-patch, Size: 835 bytes --]

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."

[-- Attachment #3: Type: text/plain, Size: 201 bytes --]

_______________________________________________
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: org-hide-entry

[Noorul Islam K M]

Andreas Röhler <andreas.roehler@easy-emacs.de> writes:

> 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
>
>
> 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."

Are you going to use it in org-mode code base in future?

Thanks and Regards
Noorul

Re: org-hide-entry

[Andreas Röhler]

Am 15.10.2010 08:25, schrieb Noorul Islam K M:
> Andreas Röhler<andreas.roehler@easy-emacs.de>  writes:
>
>> 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
>>
>>
>> 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."
>
> Are you going to use it in org-mode code base in future?
>
> Thanks and Regards
> Noorul
>


Hi,

telling the future is hard.
Concerning the present state, I'd say programm should follow certain 
rules, meet expectations.

Which one is hard to say again. So it's rather my personal view: if a 
forward- function exists, I expect a backward-.

If hide-something exists I expect show-something.

And so on.

With Emacs in general it's better to expect the uncommon rather than the 
common, but why not have both?

Yours

Andreas

Re: org-hide-entry

[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.

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/
>
> <org-hide-entry.patch>_______________________________________________
> 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

Re: org-hide-entry

[Andreas Röhler]

[-- Attachment #1: Type: text/plain, Size: 1246 bytes --]

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/
>>
>> <org-hide-entry.patch>_______________________________________________
>> 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
>
>
>
>


[-- Attachment #2: 20101015_org-hide-entry.patch --]
[-- Type: text/x-patch, Size: 830 bytes --]

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."

[-- Attachment #3: Type: text/plain, Size: 201 bytes --]

_______________________________________________
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: org-hide-entry

[Carsten Dominik]

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