Better .newsrc.eld formating

Better .newsrc.eld formating

[Jérôme Marant]

Hi,

  I'd like to know if it could be possible to improve the formatting
  of .newsrc.eld. It is made of few but very long lines and it is very
  difficult to check.  I also feel sometimes frustrated, for that
  reason, not being able to edit it by hand, for example in order to
  add myself Group parameters.

  Cheers,

-- 
Jérôme Marant <jerome@marant.org>
              <jerome.marant@free.fr>

HTTP://marant.org
              

Re: Better .newsrc.eld formating

[François Pinard]

[Jérôme Marant]

>   I'd like to know if it could be possible to improve the formatting
>   of .newsrc.eld. It is made of few but very long lines and it is very
>   difficult to check.  I also feel sometimes frustrated, for that
>   reason, not being able to edit it by hand, for example in order to
>   add myself Group parameters.

A while ago, someone submitted a piece of Emacs LISP code for this, which
I use since then (maybe modified a bit locally).



;; Idée de Dan Christensen <jdc@chow.mat.jhu.edu>
;; Save the .newsrc.eld file with extra line breaks.
(defun fp-gnus-save-quick-newsrc-routine ()
  (gnus-message 4 "Adding whitespace to .newsrc.eld")
  (save-excursion
    (goto-char (point-min))
    (while (re-search-forward "^(\\|(\\\"" nil t)
      (replace-match "\n\\&" t))
    (goto-char (point-min))
    (while (re-search-forward " $" nil t)
      (replace-match "" t t))))
(add-hook 'gnus-save-quick-newsrc-hook 'fp-gnus-save-quick-newsrc-routine)

-- 
François Pinard   http://www.iro.umontreal.ca/~pinard

Re: Better .newsrc.eld formating

[Kai Großjohann]

pinard@iro.umontreal.ca (François Pinard) writes:

> ;; Idée de Dan Christensen <jdc@chow.mat.jhu.edu>
> ;; Save the .newsrc.eld file with extra line breaks.
> (defun fp-gnus-save-quick-newsrc-routine ()
>   (gnus-message 4 "Adding whitespace to .newsrc.eld")
>   (save-excursion
>     (goto-char (point-min))
>     (while (re-search-forward "^(\\|(\\\"" nil t)
>       (replace-match "\n\\&" t))

Whee.  Why not just use `pp' to print the stuff out?

kai
-- 
Linux provides a nice `poweroff' command, but where is `poweron'?

Re: Better .newsrc.eld formating

[François Pinard]

[Kai Großjohann]

> Whee.  Why not just use `pp' to print the stuff out?

Surely, `pp' would do a better job, but also, would burn a lot more CPU.
The code given is fast enough to not be much noticeable in practice, and
that's may be why I never discontinued its use. ;-)

-- 
François Pinard   http://www.iro.umontreal.ca/~pinard

Re: Better .newsrc.eld formating

[Jérôme Marant]

Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann) writes:

> pinard@iro.umontreal.ca (François Pinard) writes:
> 
> > ;; Idée de Dan Christensen <jdc@chow.mat.jhu.edu>
> > ;; Save the .newsrc.eld file with extra line breaks.
> > (defun fp-gnus-save-quick-newsrc-routine ()
> >   (gnus-message 4 "Adding whitespace to .newsrc.eld")
> >   (save-excursion
> >     (goto-char (point-min))
> >     (while (re-search-forward "^(\\|(\\\"" nil t)
> >       (replace-match "\n\\&" t))
> 
> Whee.  Why not just use `pp' to print the stuff out?

  What is the way to use pp on file like .newsrc.eld?

-- 
Jérôme Marant <jerome@marant.org>
              <jerome.marant@free.fr>

HTTP://marant.org
              

Re: Better .newsrc.eld formating

[Kai Großjohann]

jerome.marant@free.fr (Jérôme Marant) writes:

>   What is the way to use pp on file like .newsrc.eld?

There is some spot in the Gnus Lisp code which inserts the code into
.newsrc.eld.  This spot should be changed to use pp.

But as others have mentioned, pp is slow, so the code given in this
thread is probably better...  Sorry for not thinking of this originally.

kai
-- 
Linux provides a nice `poweroff' command, but where is `poweron'?

Re: Better .newsrc.eld formating

[Jérôme Marant]

Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann) writes:

> jerome.marant@free.fr (Jérôme Marant) writes:
> 
> >   What is the way to use pp on file like .newsrc.eld?
> 
> There is some spot in the Gnus Lisp code which inserts the code into
> .newsrc.eld.  This spot should be changed to use pp.
> 
> But as others have mentioned, pp is slow, so the code given in this
> thread is probably better...  Sorry for not thinking of this originally.

  At least, I know what pp is now ;-)

  Cheers,

-- 
Jérôme Marant <jerome@marant.org>
              <jerome.marant@free.fr>

Re: Better .newsrc.eld formating

[Randal L. Schwartz]

>>>>> "Kai" == Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> writes:

Kai> pinard@iro.umontreal.ca (François Pinard) writes:
>> ;; Idée de Dan Christensen <jdc@chow.mat.jhu.edu>
>> ;; Save the .newsrc.eld file with extra line breaks.
>> (defun fp-gnus-save-quick-newsrc-routine ()
>> (gnus-message 4 "Adding whitespace to .newsrc.eld")
>> (save-excursion
>> (goto-char (point-min))
>> (while (re-search-forward "^(\\|(\\\"" nil t)
>> (replace-match "\n\\&" t))

Kai> Whee.  Why not just use `pp' to print the stuff out?

Cuz PP is slow. :)

/me ducks, being the author of said routine

-- 
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!

Re: Better .newsrc.eld formating

[Jérôme Marant]

pinard@iro.umontreal.ca (François Pinard) writes:

> [Jérôme Marant]
> 
> >   I'd like to know if it could be possible to improve the formatting
> >   of .newsrc.eld. It is made of few but very long lines and it is very
> >   difficult to check.  I also feel sometimes frustrated, for that
> >   reason, not being able to edit it by hand, for example in order to
> >   add myself Group parameters.
> 
> A while ago, someone submitted a piece of Emacs LISP code for this, which
> I use since then (maybe modified a bit locally).
> 
> 
> 
> ;; Idée de Dan Christensen <jdc@chow.mat.jhu.edu>
> ;; Save the .newsrc.eld file with extra line breaks.
> (defun fp-gnus-save-quick-newsrc-routine ()
>   (gnus-message 4 "Adding whitespace to .newsrc.eld")
>   (save-excursion
>     (goto-char (point-min))
>     (while (re-search-forward "^(\\|(\\\"" nil t)
>       (replace-match "\n\\&" t))
>     (goto-char (point-min))
>     (while (re-search-forward " $" nil t)
>       (replace-match "" t t))))
> (add-hook 'gnus-save-quick-newsrc-hook 'fp-gnus-save-quick-newsrc-routine)

  Thanks.

-- 
Jérôme Marant <jerome@marant.org>
              <jerome.marant@free.fr>

HTTP://marant.org