| commit | author | age | ||
| 5cb5f7 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (require 'magit) | |
| 16 | #@53 Popup console for tag commands. | |
| 17 | ||
| 18 | (fn &optional ARG) | |
| 19 | (defalias 'magit-tag-popup #[256 "\300\301\302#\207" [magit-invoke-popup magit-tag-popup nil] 5 (#$ . 425) "P"]) | |
| 20 | (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)) | |
| 21 | (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) | |
| 22 | (defalias 'magit-tag-arguments #[0 "\303=\203 \207\n\207" [magit-current-popup magit-current-popup-args magit-tag-arguments magit-tag-popup] 2]) | |
| 23 | (put 'magit-tag-arguments 'definition-name 'magit-tag-popup) | |
| 24 | #@150 Create a new tag with the given NAME at REV. | |
| 25 | With a prefix argument annotate the tag. | |
| 26 | ||
| 27 | (git tag [--annotate] NAME REV) | |
| 28 | ||
| 29 | (fn NAME REV &optional ARGS) | |
| 30 | (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)]) | |
| 31 | #@219 Delete one or more tags. | |
| 32 | If the region marks multiple tags (and nothing else), then offer | |
| 33 | to delete those, otherwise prompt for a single tag to be deleted, | |
| 34 | defaulting to the tag at point. | |
| 35 | ||
| 36 | (git tag -d TAGS) | |
| 37 | ||
| 38 | (fn TAGS) | |
| 39 | (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)]) | |
| 40 | #@97 Offer to delete tags missing locally from REMOTE, and vice versa. | |
| 41 | ||
| 42 | (fn TAGS REMOTE-TAGS REMOTE) | |
| 43 | (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)]) | |
| 44 | #@494 Create an opinionated release tag. | |
| 45 | ||
| 46 | Assume version tags that match "\\`v?[0-9]\\(\\.[0-9]\\)*\\'". | |
| 47 | Prompt for the name of the new tag using the highest existing tag | |
| 48 | as initial input and call "git tag --annotate --sign -m MSG" TAG, | |
| 49 | regardless of whether these arguments are enabled in the popup. | |
| 50 | Given a TAG "v1.2.3" and a repository "/path/to/foo-bar", the | |
| 51 | MESSAGE would be "Foo-Bar 1.2.3". | |
| 52 | ||
| 53 | Because it is so opinionated, this command is not available from | |
| 54 | the tag popup by default. | |
| 55 | ||
| 56 | (fn TAG) | |
| 57 | (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)]) | |
| 58 | (provide 'magit-tag) | |
