Function: majutsu-op--wash-diff-line

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

Signature

(majutsu-op--wash-diff-line GROUP-KIND &optional REF-NAME)

Documentation

Wash one operation diff line in GROUP-KIND under REF-NAME.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-op.el
(defun majutsu-op--wash-diff-line (group-kind &optional ref-name)
  "Wash one operation diff line in GROUP-KIND under REF-NAME."
  (let* ((colored-line (majutsu-op--diff-line-string))
         (plain-line (substring-no-properties colored-line))
         (trimmed (string-trim plain-line)))
    (cond
     ((string-empty-p trimmed)
      (majutsu-op--delete-line))
     ((majutsu-op--diff-warning-line-p plain-line)
      (majutsu-op--delete-line)
      (majutsu-op--insert-diff-node (list :type 'warning :text colored-line)))
     ((majutsu-op--diff-elision-line-p plain-line)
      (majutsu-op--delete-line)
      (majutsu-op--insert-diff-node (list :type 'elision :text colored-line)))
     ((majutsu-op--parse-diff-marker-line
       plain-line colored-line group-kind ref-name)
      (let ((node (majutsu-op--parse-diff-marker-line
                   plain-line colored-line group-kind ref-name)))
        (majutsu-op--delete-line)
        (majutsu-op--insert-diff-node node)))
     (t
      (majutsu-op--delete-line)
      (majutsu-op--insert-diff-node (list :type 'raw-line :text colored-line))))))