ledger-account-rename

ledger-account.el

(defun ledger-account--rename (account-old account-new)
  "Rename account in ledger file."
  (let ((count 0))
    (beginning-of-buffer)
    (while (not (eobp))
      (let* ((left-point (point))
             (next-change
              (or (next-single-property-change (point) 'face (current-buffer))
                  (point-max)))
             (face (face-at-point left-point))
             (right-point next-change))
        ;; Are we looking at Account Name?
        (when (member face '(ledger-font-posting-account-face
                             ledger-font-account-name-face))
          ;; Virtual Posting?
          (when (member (string (char-after left-point)) '("(" "["))
            (incf left-point)
            (decf right-point))
          ;; Replace Account Name
          (when (string-equal account-old
                              (buffer-substring left-point right-point))
            (delete-region left-point right-point)
            (insert account-new)
            (incf count)))
        (goto-char next-change)))
    (message "Renamed at %s places (%s -> %s)" count account-old account-new)))

(defun ledger-account-rename ()
  "Command to rename accounts in current ledger buffer"
  (interactive)
  (let* ((account-old (completing-read "Old account> "
                                       (ledger-accounts-list-in-buffer)))
         (account-new (read-from-minibuffer
                       "New account name> "
                       account-old)))
    (save-excursion
      (ledger-account--rename account-old account-new))))