Re: 31.0.50; Org Persist file formatting

[Michael Mauger]

Sorry for not getting back to you sooner. This change has seemed to work, but I 
haven't been playing with my Org Babel config much lately. I'll let you know if 
I see it again.

Thanks for your help.

--
MICHAEL@MAUGER.COM // FSF and SFConservancy member // GNU Emacs sql.el 
maintainer


On Monday, July 8th, 2024 at 1:39 PM, Ihor Radchenko <yantar92@posteo.net> 
wrote:

> Michael Mauger michael.mauger@protonmail.com writes:
> 
> > > > (Note: the "..." in the last entry; sometimes it showed up as "\...".)
> > > 
> > > This is curious. May it be that you have non-default value of
> > > `pp-default-function'?
> > 
> > I don't touch `pp-default-function' and I've confirmed that it is set to` 
> > pp-fill' in my instance.
> 
> 
> Then, what if you re-define `org-persist-write:index' to
> 
> (defun org-persist-write:index (container _)
> "Write index CONTAINER."
> (org-persist--get-collection container)
> (unless (file-exists-p org-persist-directory)
> (condition-case nil
> (make-directory org-persist-directory 'parent)
> (t
> (warn "Failed to create org-persist storage in %s."
> org-persist-directory)
> (org-persist--check-write-access org-persist-directory))))
> (when (file-exists-p org-persist-directory)
> (let ((index-file
> (org-file-name-concat org-persist-directory org-persist-index-file)))
> (org-persist--merge-index-with-disk)
> ;; CHANGED: disable pretty-printing
> (org-persist--write-elisp-file index-file org-persist--index t nil)
> (setq org-persist--index-age
> (file-attribute-modification-time (file-attributes index-file)))
> index-file)))
> 
> --
> Ihor Radchenko // yantar92,
> Org mode contributor,
> Learn more about Org mode at https://orgmode.org/.
> 
> Support Org development at https://liberapay.com/org-mode,
> 
> or support my work at https://liberapay.com/yantar92