Re: Pretty-printing .newsrc.eld

[Reiner Steib <reinersteib+gmane@imap.cc>]

On Thu, Jun 14 2007, Katsumi Yamaoka wrote:

> (add-hook
>  'gnus-save-quick-newsrc-hook
>  (lambda nil
>    "Pretty print Lisp objects in the .newsrc.eld file."
[...]
>        (pp obj cur)))))
>
> It works, however it takes too much time and the ones it makes
> are not very easy to read. :<

I have the following poor man's pretty print in this hook:

(defun rs-gnus-save-newsrc-with-whitespace-1 ()
  "Save ~/.newsrc.eld with extra whitespace."
  ;; <oq1ykgajdm.fsf@carouge.sram.qc.ca>
  (gnus-message 5 "Adding whitespace to .newsrc.eld")
  (save-excursion
    (goto-char (point-min))
    (while (re-search-forward "(\\\"\\| ((\\| (nn" nil t)
      (replace-match "\n  \\&" t))
    (delete-trailing-whitespace)))

Additionally, I added newlines to make `forward-paragraph' work.  I
think this one could be installed in the trunk.

--8<---------------cut here---------------start------------->8---
--- gnus-start.el	7 Jun 2007 11:59:35 -0000	7.50
+++ gnus-start.el	14 Jun 2007 19:22:37 -0000
@@ -2866,7 +2866,7 @@
       (while variables
 	(when (and (boundp (setq variable (pop variables)))
 		   (symbol-value variable))
-	  (princ "(setq ")
+	  (princ "\n(setq ")
           (princ (symbol-name variable))
           (princ " '")
 	  (prin1 (symbol-value variable))
--8<---------------cut here---------------end--------------->8---

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/