change soft to hard lines and back

change soft to hard lines and back

[Uwe Brauer]

Hi

For email I start to use messages-are-flowing.el (for example in 
this message) which insert and display hardlines. (This is useful 
when sending message to devices with small screens since then the 
line ending is better displayed).

However sometimes it is a bit too much. So I still have a function 
which replaces softline by hardlines, namely

(defun harden-newlines () (interactive) 
  (save-excursion 
;    (goto-char (point-min)) 
    (mail-text) (while (search-forward "\n" nil t) 
      (put-text-property (1- (point)) (point) 'hard t)))) 

So I thought the inverse operation could be
(defun soften-newlines () (interactive) 
  (save-excursion 
;    (goto-char (point-min)) 
    (mail-text) (while (search-forward "\n" nil t) 
      (put-text-property (1- (point)) (point) 'soft t)))) 

But unfortunately this did not work out. I tried to google for the 
put-text-property function but did not find anything useful.

Somebody has an idea how to do that, replace hardlines again by 
softlines?

Thanks

Uwe Brauer 

Re: change soft to hard lines and back

[Hinrik Örn Sigurðsson]

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

You can use the function set-hard-newline-properties to mark all newlines
in some range as hard. For the inverse you can remove the 'hard property
with (remove-text-property START END '(hard nil)).

On Thu, Dec 14, 2017 at 2:44 PM, Uwe Brauer <oub@mat.ucm.es> wrote:


> Hi
>
> For email I start to use messages-are-flowing.el (for example in this
> message) which insert and display hardlines. (This is useful when sending
> message to devices with small screens since then the line ending is better
> displayed).
>
> However sometimes it is a bit too much. So I still have a function which
> replaces softline by hardlines, namely
>
> (defun harden-newlines () (interactive)  (save-excursion ;    (goto-char
> (point-min))    (mail-text) (while (search-forward "\n" nil t)
> (put-text-property (1- (point)) (point) 'hard t))))
> So I thought the inverse operation could be
> (defun soften-newlines () (interactive)  (save-excursion ;    (goto-char
> (point-min))    (mail-text) (while (search-forward "\n" nil t)
> (put-text-property (1- (point)) (point) 'soft t))))
> But unfortunately this did not work out. I tried to google for the
> put-text-property function but did not find anything useful.
>
> Somebody has an idea how to do that, replace hardlines again by softlines?
>
> Thanks
>
> Uwe Brauer
>
> ​

[-- Attachment #2: Type: text/html, Size: 5312 bytes --]

Re: change soft to hard lines and back

[Uwe Brauer]

>>> "Hinrik" == Hinrik Örn Sigurðsson <hinrik.sig@gmail.com> 
>>> writes: 
 
   > You can use the function set-hard-newline-properties to mark 
   > all newlines in some range as hard. For the inverse you can 
   > remove the 'hard property with (remove-text-property START 
   > END '(hard nil)). 


Thanks but that function must be very new. For GNU emacs 26 I 
obtain

Debugger entered--Lisp error: (void-function remove-text-property) 
  remove-text-property(83 84 hard t) soften-newlines() 
  funcall-interactively(soften-newlines) 
  call-interactively(soften-newlines record nil) 
  command-execute(soften-newlines record) 
  execute-extended-command(nil "soften-newlines" "soft") 
  funcall-interactively(execute-extended-command nil 
  "soften-newlines" "soft") 
  call-interactively(execute-extended-command nil nil) 
  command-execute(execute-extended-command) 
 


So I tried remove-text-properties


(defun soften-newlines () (interactive) 
  (save-excursion 
;    (goto-char (point-min)) 
    (mail-text) (while (search-forward "\n" nil t) 
      (remove-text-properties (1- (point)) (point) 'hard nil))))

But it did not work, the hardlines were not removed.

Re: change soft to hard lines and back

[Michael Heerdegen]

Uwe Brauer <oub@mat.ucm.es> writes:

> >>> "Hinrik" == Hinrik Örn Sigurðsson <hinrik.sig@gmail.com> writes: 
>
>   > You can use the function set-hard-newline-properties to mark > all
> newlines in some range as hard. For the inverse you can > remove the
> 'hard property with (remove-text-property START > END '(hard nil)). 
>
>
> Thanks but that function must be very new. For GNU emacs 26 I obtain
>
> Debugger entered--Lisp error: (void-function remove-text-property)

I think this was a typo - you want `remove-text-properties'.


Michael.

Re: change soft to hard lines and back

[Uwe Brauer]

>>> "Michael" == Michael Heerdegen <michael_heerdegen@web.de> writes:

   > Uwe Brauer <oub@mat.ucm.es> writes:
   >> >>> "Hinrik" == Hinrik Örn Sigurðsson <hinrik.sig@gmail.com> writes: 
   >> 
   >> > You can use the function set-hard-newline-properties to mark > all
   >> newlines in some range as hard. For the inverse you can > remove the
   >> 'hard property with (remove-text-property START > END '(hard nil)). 
   >> 
   >> 
   >> Thanks but that function must be very new. For GNU emacs 26 I obtain
   >> 
   >> Debugger entered--Lisp error: (void-function remove-text-property)

   > I think this was a typo - you want `remove-text-properties'.


   > Michael.


Yes this I tried as well, but it did not work, that is hardlines were
not removed.

Re: change soft to hard lines and back

[Jorge A. Alfaro-Murillo]

Hi, Uwe.

Uwe Brauer writes:

> For email I start to use messages-are-flowing.el (for example in 
> this message) which insert and display hardlines. (This is 
> useful when sending message to devices with small screens since 
> then the line ending is better displayed). 
> 
> However sometimes it is a bit too much. So I still have a 
> function which replaces softline by hardlines, namely [...] 
> 
> But unfortunately this did not work out. I tried to google for 
> the put-text-property function but did not find anything useful. 
> 
> Somebody has an idea how to do that, replace hardlines again by 
> softlines?

Probably this would work:

#+BEGIN_SRC emacs-lisp
  (defun soften-hardlines ()
    (interactive)
    (save-excursion
      (goto-char (point-min))
      (mail-text)
      (while (search-forward hard-newline nil t)
        (replace-match "\n"))))
#+END_SRC

Best,
-- 
Jorge.

Re: change soft to hard lines and back

[Stefan Monnier]

> (remove-text-properties (1- (point)) (point) 'hard nil))))
                      ^^^
Handles a *list* of properties (well, actually for historical reasons
it's a plist), so you need '(hard).


        Stefan

Re: change soft to hard lines and back

[Uwe Brauer]

>>> "Stefan" == Stefan Monnier <monnier@iro.umontreal.ca> writes:

   >> (remove-text-properties (1- (point)) (point) 'hard nil))))
   >                       ^^^
   > Handles a *list* of properties (well, actually for historical reasons
   > it's a plist), so you need '(hard).

Ah ok, that settles it, thanks

Re: change soft to hard lines and back

[Uwe Brauer]

Hi Jorge,


   > Hi, Uwe.
   > Uwe Brauer writes:


   > Probably this would work:

   > #+BEGIN_SRC emacs-lisp
   >   (defun soften-hardlines ()
   >     (interactive)
   >     (save-excursion
   >       (goto-char (point-min))
   >       (mail-text)
   >       (while (search-forward hard-newline nil t)
   >         (replace-match "\n"))))
   > #+END_SRC

It does, thanks, I did not know about search-forward hard-newline 
works also nicely.