Requested function: just-one-empty-line()

Requested function: just-one-empty-line()

[Nordlöw]

I'm looking for a function just-one-empty-line(), or empty-lines() for
the multi-line-variant, that does kind of what just-one-space() does
but instead works on empty lines. Any suggestions?

Example:

pre;\n
\n
\n
post;

is converted to

pre;\n
\n
post;

Thanks in advance,
Nordlöw

Re: Requested function: just-one-empty-line()

[Bernardo Bacic]

> I'm looking for a function just-one-empty-line(), or empty-lines() for
> the multi-line-variant, that does kind of what just-one-space() does
> but instead works on empty lines. Any suggestions?
> 
> Example:
> 
> pre;\n
> \n
> \n
> post;
> 
> is converted to
> 
> pre;\n
> \n
> post;

a regexp search (for ^J\{2,\}) and replace comes to mind ...

Re: Requested function: just-one-empty-line()

[Nordlöw]

On 6 Okt, 13:15, Bernardo Bacic <bernardo.ba...@pobox.com> wrote:
> > I'm looking for a function just-one-empty-line(), or empty-lines() for
> > the multi-line-variant, that does kind of what just-one-space() does
> > but instead works on empty lines. Any suggestions?
>
> > Example:
>
> > pre;\n
> > \n
> > \n
> > post;
>
> > is converted to
>
> > pre;\n
> > \n
> > post;
>
> a regexp search (for ^J\{2,\}) and replace comes to mind ...

Which search and replace functions should I use?

/Nordlöw

Re: Requested function: just-one-empty-line()

[Sergei]

On Oct 6, 3:50 pm, Nordlöw <per.nord...@gmail.com> wrote:
> I'm looking for a function just-one-empty-line(), or empty-lines() for
> the multi-line-variant, that does kind of what just-one-space() does
> but instead works on empty lines. Any suggestions?

> Example:

> pre;\n
> \n
> \n
> post;

> is converted to

> pre;\n
> \n
> post;

"C-h k C-x C-o" tells me that


C-x C-o runs the command delete-blank-lines, which is an interactive
compiled Lisp function in `emacs/lisp/simple.el'.

It is bound to C-x C-o.

(delete-blank-lines)

On blank line, delete all surrounding blank lines, leaving just one.
On isolated blank line, delete that one.
On nonblank line, delete any immediately following blank lines.

Re: Requested function: just-one-empty-line()

[Andreas Politz]

Nordlöw wrote:
> I'm looking for a function just-one-empty-line(), or empty-lines() for
> the multi-line-variant, that does kind of what just-one-space() does
> but instead works on empty lines. Any suggestions?
> 
> Example:
> 
> pre;\n
> \n
> \n
> post;
> 
> is converted to
> 
> pre;\n
> \n
> post;
> 
> Thanks in advance,
> Nordlöw


,----[ C-h f delete-blank-lines RET ]
| delete-blank-lines is an interactive compiled Lisp function in `simple.el'.
| It is bound to C-x C-o.
| (delete-blank-lines)
|
| On blank line, delete all surrounding blank lines, leaving just one.
| On isolated blank line, delete that one.
| On nonblank line, delete any immediately following blank lines.
`----

-ap

Re: Requested function: just-one-empty-line()

[Nordlöw]

On 6 Okt, 13:50, Andreas Politz <poli...@fh-trier.de> wrote:
> Nordlöw wrote:
> > I'm looking for a function just-one-empty-line(), or empty-lines() for
> > the multi-line-variant, that does kind of what just-one-space() does
> > but instead works on empty lines. Any suggestions?
>
> > Example:
>
> > pre;\n
> > \n
> > \n
> > post;
>
> > is converted to
>
> > pre;\n
> > \n
> > post;
>
> > Thanks in advance,
> > Nordlöw
>
> ,----[ C-h f delete-blank-lines RET ]
> | delete-blank-lines is an interactive compiled Lisp function in `simple.el'.
> | It is bound to C-x C-o.
> | (delete-blank-lines)
> |
> | On blank line, delete all surrounding blank lines, leaving just one.
> | On isolated blank line, delete that one.
> | On nonblank line, delete any immediately following blank lines.
> `----
>
> -ap

Great!

Thanks a lot!

/Nordlöw

Re: Requested function: just-one-empty-line()

[Xah]

On Oct 6, 5:14 am, Nordlöw <per.nord...@gmail.com> wrote:
> On 6 Okt, 13:50, Andreas Politz <poli...@fh-trier.de> wrote:

> > Nordlöw wrote:
> > > I'm looking for a function just-one-empty-line(), or empty-lines() for
> > > the multi-line-variant, that does kind of what just-one-space() does
> > > but instead works on empty lines. Any suggestions?
>
> > > Example:
>
> > > pre;\n
> > > \n
> > > \n
> > > post;
>
> > > is converted to
>
> > > pre;\n
> > > \n
> > > post;
>
> > > Thanks in advance,
> > > Nordlöw
>
> > ,----[ C-h f delete-blank-lines RET ]
> > | delete-blank-lines is an interactive compiled Lisp function in `simple.el'.
> > | It is bound to C-x C-o.
> > | (delete-blank-lines)
> > |
> > | On blank line, delete all surrounding blank lines, leaving just one.
> > | On isolated blank line, delete that one.
> > | On nonblank line, delete any immediately following blank lines.
> > `----

Since delete-blank-lines and just-one-space are similar in function
from user point of view, i combined them into one single function,
that calls each depending on the context. So, a single key is assigned
to this command, saving up shortcut spaces.

(defun shrink-whitespaces ()
  "Collapse all white spaces around point, depending on context.
White space here includes space, tabs, and any end of line char.
This commands either calls just-one-space or delete-blank-lines."
  (interactive)
  (let (p1 p2 mytext)
    (save-excursion
      (skip-chars-backward "\t \n")
      (setq p1 (point))
      (skip-chars-forward "\t \n")
      (setq p2 (point))
      (setq mytext (buffer-substring-no-properties p1 p2))
      )
    (if (string-match "[\t ]*\n[\t ]*\n" mytext)
        (progn (delete-blank-lines))
      (progn (just-one-space))
      )
    )
  )

http://xahlee.org/emacs/ergonomic_emacs_keybinding.html

  Xah
∑ http://xahlee.org/

☄

Re: Requested function: just-one-empty-line()

[Andreas Politz]

Xah wrote:
> On Oct 6, 5:14 am, Nordlöw <per.nord...@gmail.com> wrote:
>> On 6 Okt, 13:50, Andreas Politz <poli...@fh-trier.de> wrote:
> 
>>> Nordlöw wrote:
>>>> I'm looking for a function just-one-empty-line(), or empty-lines() for
>>>> the multi-line-variant, that does kind of what just-one-space() does
>>>> but instead works on empty lines. Any suggestions?
>>>> Example:
>>>> pre;\n
>>>> \n
>>>> \n
>>>> post;
>>>> is converted to
>>>> pre;\n
>>>> \n
>>>> post;
>>>> Thanks in advance,
>>>> Nordlöw
>>> ,----[ C-h f delete-blank-lines RET ]
>>> | delete-blank-lines is an interactive compiled Lisp function in `simple.el'.
>>> | It is bound to C-x C-o.
>>> | (delete-blank-lines)
>>> |
>>> | On blank line, delete all surrounding blank lines, leaving just one.
>>> | On isolated blank line, delete that one.
>>> | On nonblank line, delete any immediately following blank lines.
>>> `----
> 
> Since delete-blank-lines and just-one-space are similar in function
> from user point of view, i combined them into one single function,
> that calls each depending on the context. So, a single key is assigned
> to this command, saving up shortcut spaces.
> 
> (defun shrink-whitespaces ()
>   "Collapse all white spaces around point, depending on context.
> White space here includes space, tabs, and any end of line char.
> This commands either calls just-one-space or delete-blank-lines."
>   (interactive)
>   (let (p1 p2 mytext)
>     (save-excursion
>       (skip-chars-backward "\t \n")
>       (setq p1 (point))
>       (skip-chars-forward "\t \n")
>       (setq p2 (point))
>       (setq mytext (buffer-substring-no-properties p1 p2))
>       )
>     (if (string-match "[\t ]*\n[\t ]*\n" mytext)
>         (progn (delete-blank-lines))
>       (progn (just-one-space))
>       )
>     )
>   )
> 
> http://xahlee.org/emacs/ergonomic_emacs_keybinding.html
> 
>   Xah
> ∑ http://xahlee.org/
> 
> ☄

Is the parenstyle part of your 'Modernization of emacs' program or
are you just trying to offend 'tech-geekers' ? ;O)

-ap

Re: Requested function: just-one-empty-line()

[Xah]

On Oct 6, 8:24 am, Andreas Politz <poli...@fh-trier.de> wrote:
> > Since delete-blank-lines and just-one-space are similar in function
> > from user point of view, i combined them into one single function,
> > that calls each depending on the context. So, a single key is assigned
> > to this command, saving up shortcut spaces.
>
> > (defun shrink-whitespaces ()
> >   "Collapse all white spaces around point, depending on context.
> > White space here includes space, tabs, and any end of line char.
> > This commands either calls just-one-space or delete-blank-lines."
> >   (interactive)
> >   (let (p1 p2 mytext)
> >     (save-excursion
> >       (skip-chars-backward "\t \n")
> >       (setq p1 (point))
> >       (skip-chars-forward "\t \n")
> >       (setq p2 (point))
> >       (setq mytext (buffer-substring-no-properties p1 p2))
> >       )
> >     (if (string-match "[\t ]*\n[\t ]*\n" mytext)
> >         (progn (delete-blank-lines))
> >       (progn (just-one-space))
> >       )
> >     )
> >   )
>
> >http://xahlee.org/emacs/ergonomic_emacs_keybinding.html
>
> >   Xah
> > ∑http://xahlee.org/
>
> > ☄
>
> Is the parenstyle part of your 'Modernization of emacs' program or
> are you just trying to offend 'tech-geekers' ? ;O)

The quick answer is that i'm just lazy.

The full answer is that i think programers should never spend time to
manually format his code. In fact this is one of my big gribe, and has
wrote several articles about it, several of which are results of
newsgroup flamewars.

See

• A Simple Lisp Code Formatter
http://xahlee.org/emacs/lisp_formatter.html

• The Harm of Hard-wrapping Lines
http://xahlee.org/UnixResource_dir/writ/hard-wrap.html

• Fundamental Problems of Lisp
http://xahlee.org/UnixResource_dir/writ/lisp_problems.html
(see the section “Automatic, Uniform, Universal, Source Code Display”
about the relation of fully regular syntax and code formatting)

In emacs, in just about any language mode, despite elisp power and 3
decades of code, programers basically still manually format each line
of code. It would be much better, if programer can press a button, and
emacs will call pretty-reformat-current-block similar to fill-
paragraph or unfill-paragraph.

A algorithm for formatting of source code is a trivial problem in the
theoretical sense, it's just tedious to code it. The formatting of
mostly regular syntax such as lisp is more trivial. I do hope down the
road i'll write such a function for at least lisp.

  Xah
∑ http://xahlee.org/

☄