Re: [bug?] org-repair-property-drawers does not repair whole file

[Nicolas Goaziou <mail@nicolasgoaziou.fr>]

Gregor Zattler <telegraph@gmx.net> writes:

> Sadly no: I reapplied `org-repair-property-drawers' on my org
> file with no customisation at all:
>
> emacs-snapshot -Q -nw -L /home/grfz/src/org-mode/lisp/ file.org ~/src/org-mode/etc/ORG-NEWS
>
> I loaded `org-repair-property-drawers' from
> ~/src/org-mode/etc/ORG-NEWS and executed it in file.org.  Result
> is ’(nil nil nil nil nil nil nil nil nil nil nil nil ... )’ and
> the buffer file.org remains unmodified.

Doesn't the function fix the "anon" file you sent?

Is it possible to have access to the file? You might want to hide
contents first with the following function

  (defun scramble-contents ()
    (interactive)
    (let ((tree (org-element-parse-buffer)))
      (org-element-map tree '(code comment comment-block example-block fixed-width
                                   keyword link node-property plain-text verbatim)
        (lambda (obj)
          (cl-case (org-element-type obj)
            ((code comment comment-block example-block fixed-width keyword
                   node-property verbatim)
             (let ((value (org-element-property :value obj)))
               (org-element-put-property
                obj :value (replace-regexp-in-string "[[:alnum:]]" "x" value))))
            (link
             (unless (string= (org-element-property :type obj) "radio")
               (org-element-put-property obj :raw-link "http://orgmode.org")))
            (plain-text
             (org-element-set-element
              obj (replace-regexp-in-string "[[:alnum:]]" "x" obj)))))
        nil nil nil t)
      (let ((buffer (get-buffer-create "*Scrambled text*")))
        (with-current-buffer buffer
          (insert (org-element-interpret-data tree))
          (goto-char (point-min)))
        (switch-to-buffer buffer))))

Regards,