Function: majutsu-revert-execute

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

Signature

(majutsu-revert-execute ARG1)

Documentation

Execute jj revert with ARGS from the transient.

Key Bindings

This command is not in any keymaps.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-revert.el
;;;###autoload(autoload 'majutsu-revert-execute "majutsu-revert" nil t)
(transient-define-suffix majutsu-revert-execute (args)
  "Execute jj revert with ARGS from the transient."
  :description "Revert"
  :class 'majutsu-transient-default-action-suffix
  (interactive (list (majutsu-revert-arguments)))
  (let ((has-revision (transient-arg-value "--revision=" args))
        (has-destination (or (transient-arg-value "--onto=" args)
                             (transient-arg-value "--insert-after=" args)
                             (transient-arg-value "--insert-before=" args))))
    (cond
     ((not has-revision)
      (majutsu--message-with-log "Please select source revisions (-r) first"))
     ((not has-destination)
      (majutsu--message-with-log "Please select destination (-o/-A/-B) first"))
     ((zerop (apply #'majutsu-run-jj "revert" args))
      (message "Revert completed")))))