Function: forge--msg

forge--msg is a byte-compiled function defined in forge-repo.el.

Signature

(forge--msg REPO ECHO DONE FORMAT &rest ARGS)

Source Code

;; Defined in ~/.emacs.d/elpa/forge-20260408.1922/forge-repo.el
(defun forge--msg (repo echo done format &rest args)
  (let ((msg (apply #'format format args)))
    (when repo
      (setq msg (string-replace
                 "REPO"
                 (concat (oref repo owner) "/" (oref repo name))
                 msg)))
    (when (and echo msg)
      (message "%s%s" msg (if done "...done" "...")))
    (when (buffer-live-p forge--mode-line-buffer)
      (with-current-buffer forge--mode-line-buffer
        (setq mode-line-process
              (if done
                  nil
                (concat " " (propertize msg 'font-lock-face
                                        'magit-mode-line-process)))))
      (force-mode-line-update t))))