Function: majutsu-squash--diff-default-args

majutsu-squash--diff-default-args is a natively compiled function defined in majutsu-squash.el.

Signature

(majutsu-squash--diff-default-args)

Documentation

Return default squash args from a diff buffer context.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-squash.el
;;; Defaults

(defun majutsu-squash--diff-default-args ()
  "Return default squash args from a diff buffer context."
  (let* ((range majutsu-buffer-diff-range)
         (from (transient-arg-value "--from=" range))
         (to (transient-arg-value "--to=" range))
         (revisions (seq-keep (lambda (arg)
                                (transient-arg-value "--revisions=" (list arg)))
                              range)))
    (cond
     ;; Arbitrary --from/--to diff buffers do not describe a squash source.
     ((or from to) nil)
     (revisions
      (mapcar (lambda (rev) (concat "--from=" rev)) revisions)))))