magit: commit labels

magit.el

(defun su/magit/commit-message-template (&rest discard)
  "Have a template for the commit message"
  (unless current-prefix-arg ;; ignore commit amends
    (let ((tag (format "%s: " (magit-get-current-branch))))
      (goto-char (point-min))
      (unless (search-forward tag nil t)
        (insert tag))
      (goto-char (point-max))
      )))
(add-hook 'magit-log-edit-mode-hook 'su/magit/commit-message-template)