Function: majutsu-op--wash-diff-group

majutsu-op--wash-diff-group is a natively compiled function defined in majutsu-op.el.

Signature

(majutsu-op--wash-diff-group)

Documentation

Wash one top-level operation diff group at point.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-op.el
(defun majutsu-op--wash-diff-group ()
  "Wash one top-level operation diff group at point."
  (let* ((line (majutsu-op--diff-line-string))
         (plain (substring-no-properties line))
         (title (string-trim plain))
         (kind (majutsu-op--diff-group-kind plain)))
    (majutsu-op--delete-line)
    (magit-insert-section (jj-op-group (list :kind kind :title title))
      (magit-insert-heading line)
      (while (and (not (eobp))
                  (not (majutsu-op--diff-group-boundary-p)))
        (if (and (majutsu-op--diff-ref-group-p kind)
                 (let* ((next-line (majutsu-op--diff-line-string))
                        (next-plain (substring-no-properties next-line)))
                   (majutsu-op--diff-ref-header-p next-plain kind)))
            (majutsu-op--wash-diff-ref kind)
          (majutsu-op--wash-diff-line kind))))))