Function: majutsu-squash

majutsu-squash is an interactive and natively compiled function defined in majutsu-squash.el.

Signature

(majutsu-squash)

Documentation

Internal transient for jj squash operations.

Key Bindings

majutsu-mode-map s

Source Code

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

;;;###autoload(autoload 'majutsu-squash "majutsu-squash" nil t)
(transient-define-prefix majutsu-squash ()
  "Internal transient for jj squash operations."
  :man-page "jj-squash"
  :description "JJ Squash"
  :class 'majutsu-jj-transient-prefix
  :jj-command "squash"
  :transient-non-suffix t
  :incompatible '(("--into=" "--onto=")
                  ("--into=" "--insert-after=")
                  ("--into=" "--insert-before=")
                  ("--onto=" "--insert-after=")
                  ("--onto=" "--insert-before="))
  [["Selection"
    (majutsu-squash:--from)
    (majutsu-squash:--into)
    (majutsu-squash:--onto)
    (majutsu-squash:--insert-after)
    (majutsu-squash:--insert-before)
    ("c" "Clear selections" majutsu-selection-clear :transient t)]
   ["Patch Selection" :if majutsu-squash-interactive-selection-available-p
    (majutsu-interactive:select-hunk)
    (majutsu-interactive:select-file)
    (majutsu-interactive:select-region)
    ("C" "Clear patch selections" majutsu-interactive-clear :transient t)]
   ["Paths" :if-not majutsu-squash-interactive-selection-available-p
    (majutsu-squash:--)]
   ["Options"
    ("-k" "Keep emptied commit" ("-k" "--keep-emptied"))
    ("-u" "Use destination message" ("-u" "--use-destination-message"))
    (majutsu-transient-arg-ignore-immutable)]
   ["Actions"
    ("s" "Execute squash" majutsu-squash-execute)]]
  (interactive)
  (transient-setup
   'majutsu-squash nil nil
   :scope
   (majutsu-selection-session-begin)))