Function: majutsu-diff--git-header-status-match-p

majutsu-diff--git-header-status-match-p is a natively compiled function defined in majutsu-diff.el.

Signature

(majutsu-diff--git-header-status-match-p HEADER STATUS)

Documentation

Return non-nil when extended Git HEADER agrees with structured STATUS.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-diff.el
(defun majutsu-diff--git-header-status-match-p (header status)
  "Return non-nil when extended Git HEADER agrees with structured STATUS."
  (let ((added (or (string-match-p "^new file mode " header)
                   (string-match-p "^--- /dev/null$" header)))
        (removed (or (string-match-p "^deleted file mode " header)
                     (string-match-p "^+++ /dev/null$" header)))
        (renamed (and (string-match-p "^rename from " header)
                      (string-match-p "^rename to " header)))
        (copied (and (string-match-p "^copy from " header)
                     (string-match-p "^copy to " header))))
    (pcase status
      ("added" added)
      ("removed" removed)
      ("renamed" renamed)
      ("copied" copied)
      ("modified" (not (or added removed renamed copied)))
      (_ nil))))