;ELC
|
;;; Compiled
|
;;; in Emacs version 26.1
|
;;; with all optimizations.
|
|
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
|
|
;;; This file does not contain utf-8 non-ASCII characters,
|
;;; and so can be loaded in Emacs versions earlier than 23.
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
(require 'magit)
|
#@53 Popup console for tag commands.
|
|
(fn &optional ARG)
|
(defalias 'magit-tag-popup #[256 "\300\301\302#\207" [magit-invoke-popup magit-tag-popup nil] 5 (#$ . 425) "P"])
|
(defvar magit-tag-popup (list :variable 'magit-tag-arguments :man-page "git-tag" :switches '((97 "Annotate" "--annotate") (102 "Force" "--force") (115 "Sign" "--sign")) :options '((102 "Sign" "--local-user=" magit-read-gpg-secret-key)) :actions '((116 "Create" magit-tag-create) (107 "Delete" magit-tag-delete) (112 "Prune" magit-tag-prune)) :default-action 'magit-tag-create))
|
(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\207" [magit-define-popup-keys-deferred magit-tag-popup custom-declare-variable magit-tag-arguments funcall function #[0 "\301\302\"\207" [magit-tag-popup plist-get :default-arguments] 3] "" :group magit-git-arguments :type (repeat (string :tag "Argument"))] 8)
|
(defalias 'magit-tag-arguments #[0 "\303=\203 \207\n\207" [magit-current-popup magit-current-popup-args magit-tag-arguments magit-tag-popup] 2])
|
(put 'magit-tag-arguments 'definition-name 'magit-tag-popup)
|
#@150 Create a new tag with the given NAME at REV.
|
With a prefix argument annotate the tag.
|
|
(git tag [--annotate] NAME REV)
|
|
(fn NAME REV &optional ARGS)
|
(defalias 'magit-tag-create #[770 "\300\301$\207" [magit-run-git-with-editor "tag"] 8 (#$ . 1517) (byte-code "\301\302!\303\304!\305 \203 \306\307\"\204 \307B\262\211\262E\207" [current-prefix-arg magit-read-tag "Tag name" magit-read-branch-or-commit "Place tag on" magit-tag-arguments memql "--annotate"] 6)])
|
#@219 Delete one or more tags.
|
If the region marks multiple tags (and nothing else), then offer
|
to delete those, otherwise prompt for a single tag to be deleted,
|
defaulting to the tag at point.
|
|
(git tag -d TAGS)
|
|
(fn TAGS)
|
(defalias 'magit-tag-delete #[257 "\300\301\302#\207" [magit-run-git "tag" "-d"] 5 (#$ . 1994) (byte-code "\300\301!\211\203 \302\303\304\305\304%\202 \306\307\303\"\262C\207" [magit-region-values tag magit-confirm t nil "Delete %i tags" magit-read-tag "Delete tag"] 7)])
|
#@97 Offer to delete tags missing locally from REMOTE, and vice versa.
|
|
(fn TAGS REMOTE-TAGS REMOTE)
|
(defalias 'magit-tag-prune #[771 "\203\n \300\301\302#\210\205 \303\304\305\306\"#\207" [magit-call-git "tag" "-d" magit-run-git-async "push" mapcar #[257 "\300P\207" [":"] 3 "\n\n(fn IT)"]] 9 (#$ . 2495) (byte-code "\300\301!\302 \303\304!\210\305!\303\306!\210\307\"\307\"\204$ \211\204$ \303\310!\210\311\312\313\314\315%\2042 \316\262\311\312\317\320\315%\204? \316\262E\207" [magit-read-remote "Prune tags using remote" magit-list-tags message "Determining remote tags..." magit-remote-list-tags "Determining remote tags...done" -difference "Same tags exist locally and remotely" magit-confirm t "Delete %s locally" "Delete %i tags locally" noabort nil "Delete %s from remote" "Delete %i tags from remote"] 11)])
|
#@494 Create an opinionated release tag.
|
|
Assume version tags that match "\\`v?[0-9]\\(\\.[0-9]\\)*\\'".
|
Prompt for the name of the new tag using the highest existing tag
|
as initial input and call "git tag --annotate --sign -m MSG" TAG,
|
regardless of whether these arguments are enabled in the popup.
|
Given a TAG "v1.2.3" and a repository "/path/to/foo-bar", the
|
MESSAGE would be "Foo-Bar 1.2.3".
|
|
Because it is so opinionated, this command is not available from
|
the tag popup by default.
|
|
(fn TAG)
|
(defalias 'magit-tag-release #[257 "\300\301\302\303\304\305\306\307\310\311\312 !!!\313\314\n\"\203 \315\316O\202! #&\210\317 \207" [magit-run-git "tag" "--annotate" "--sign" "-m" format "%s %s" capitalize file-name-nondirectory directory-file-name magit-toplevel string-prefix-p "v" 1 nil magit-show-refs] 12 (#$ . 3339) (byte-code "\300\301\302\303 \304\305\306$\237@\"C\207" [read-string "Create tag: " cl-sort magit-list-tags version< :key #[257 "\300\301\"\203\f \211\302\303O\207\207" [string-prefix-p "v" 1 nil] 4 "\n\n(fn TAG)"]] 7)])
|
(provide 'magit-tag)
|
