Modify last commit's message and push to upstream

Question

I'm thinking about automating my following git workflow in emacs:

1. checkout to a new branch
2. remove some pattern in the last commit message
3. commit (amend) it
4. push it to upstream

How could I automate 4 steps in emacs?

And I've tried to combine step 2 and step 3 into one key in magit by:

(defun magit-commit-append-new-msg ()
  (interactive)
  (let* ((git-dir (magit-toplevel))
    ;; get last commit msg
    ;; TODO handle remote dir
    (msg (shell-command-to-string (format "git -C \"%s\" log -1 --format=\"%%B\"" git-dir)))
    ;; remove changeid and jira line in msg
    (msg-new (concat msg "[MYTEST]")))
    (magit-git-command-topdir (format "git -C \"%s\" commit --amend -m \"%s\"" git-dir msg-new))))

(magit-define-popup-action 'magit-commit-popup
  ?i
  "Commit with new msg"
  'magit-commit-append-new-msg)

But I've not found a way do all 4 steps yet.

Answer 1

Something like this might work.

(defun my-fixup-head-message-and-publish (remote branch)
  (interactive
   ;; TODO I don't know your needs you should probably adjust this.
   (list "public"
         (concat "publish/" (magit-get-current-branch))))
  (magit-with-toplevel
    (magit-call-git "branch" branch (magit-get-current-branch))
    (magit-call-git "commit" "--amend" "-m"
                    (concat "[MYTEST]"
                            (magit-rev-format "%B")))
    (magit-call-git "push" branch (concat remote "/" branch)
    (magit-refresh))))

You are probably better off asking "please implement this for me" questions on r/emacs.