;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; 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) (defalias 'magit-tag #[0 "\300\301!\207" [transient-setup magit-tag] 2 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312$#\210\300\301\313\314#\207" [put magit-tag interactive-only t function-documentation "Create or delete a tag." transient--prefix transient-prefix :command :man-page "git-tag" transient--layout ([1 transient-column (:description "Arguments") ((1 transient-switch (:key "-f" :description "Force" :shortarg "-f" :argument "--force" :command transient:magit-tag:--force)) (1 transient-switch (:key "-a" :description "Annotate" :shortarg "-a" :argument "--annotate" :command transient:magit-tag:--annotate)) (1 transient-switch (:key "-s" :description "Sign" :shortarg "-s" :argument "--sign" :command transient:magit-tag:--sign)) (1 transient-suffix (:command magit-tag:--local-user)))] [1 transient-columns nil ([1 transient-column (:description "Create") ((1 transient-suffix (:key "t" :description "tag" :command magit-tag-create)) (1 transient-suffix (:key "r" :description "release" :command magit-tag-release)))] [1 transient-column (:description "Do") ((1 transient-suffix (:key "k" :description "delete" :command magit-tag-delete)) (1 transient-suffix (:key "p" :description "prune" :command magit-tag-prune)))])])] 8) (defalias 'magit-tag-arguments #[0 "\300\301!\207" [transient-args magit-tag] 2]) (defalias 'magit-tag:--local-user #[0 "\300 \301\302!\"\266\303 \207" [transient-suffix-object transient-infix-set transient-infix-read transient--show] 5 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314\315\316\317\320\321\322&\f#\207" [put magit-tag:--local-user interactive-only t function-documentation nil transient--suffix transient-option :command :description "Sign as" :shortarg "-u" :argument "--local-user=" :reader magit-read-gpg-secret-key :history-key magit:--gpg-sign] 16) #@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 (#$ . 2346) (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 (#$ . 2823) (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 (#$ . 3324) (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)]) #@142 Regexp used to parse release tag names. The first submatch must match the prefix, if any. The second submatch must match the version string. (defvar magit-release-tag-regexp "\\`\\(?1:\\(?:v\\(?:ersion\\)?\\|r\\(?:elease\\)?\\)?[-_]?\\)?\\(?2:[0-9]+\\(?:\\.[0-9]+\\)*\\)\\'" (#$ . 4168)) #@856 Create an annotated release tag. Assume that release tags match `magit-release-tag-regexp'. First prompt for the name of the new tag using the highest existing tag as initial input and leaving it to the user to increment the desired part of the version string. Then prompt for the message of the new tag. Base the proposed tag message on the message of the highest tag, provided that that contains the corresponding version string and substituting the new version string for that. Otherwise propose something like "Foo-Bar 1.2.3", given, for example, a TAG "v1.2.3" and a repository located at something like "/path/to/foo-bar". Then call "git tag --annotate --sign -m MSG TAG" to create the, tag, regardless of whether these arguments are enabled in the popup. Finally show the refs buffer to let the user quickly review the result. (fn TAG MSG) (defalias 'magit-tag-release #[514 "\301\302\303\304\305&\210\306\307\"\207" [magit-this-process magit-run-git-async "tag" "--annotate" "--sign" "-m" set-process-sentinel #[514 "\300!\301>\205\302\"\210\303\304\305 \"\207" [process-status (exit signal) magit-process-sentinel magit-refs-setup-buffer "HEAD" magit-show-refs-arguments] 5 "\n\n(fn PROCESS EVENT)"]] 9 (#$ . 4463) (byte-code "\301 \302\303\304\305\306!\307\"\310$\216\311 @\211@A\211@A\211@A\312\313\"\314\"\2050\315\316\"\203H\314\317!\"\203H\320\321\211$\202l\203`\314\317!\"\203`\320\321\211$\202l\322\323\324\325\326\327 !!!#\312\322\330\"\"D\266\203\266\203\266\207)\207" [magit-release-tag-regexp match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 magit--list-releases read-string "Create release tag: " string-match match-string 2 regexp-quote replace-match t format "%s %s" capitalize file-name-nondirectory directory-file-name magit-toplevel "Message for %S: "] 19)]) #@232 Return a list of releases. The list is ordered, beginning with the highest release. Each release element has the form (VERSION TAG MESSAGE). `magit-release-tag-regexp' is used to determine whether a tag qualifies as a release tag. (defalias 'magit--list-releases #[0 "\300 \301\302\303\304\305!\306\"\307$\216\310\311\312\313\314\315\316\317\"\"\320\321\322$\237\")\207" [match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 mapcar cdr cl-sort cl-mapcan #[257 "\301\302\"\205(\211\303\211\224O\303\225\304O\301\"\205&\305\306\"\307!FC\262\266\202\207" [magit-release-tag-regexp string-match " +" 0 nil match-string 2 version-to-list] 8 "\n\n(fn LINE)"] magit-git-lines "tag" "-n" version-list-< :key car] 9 (#$ . 6355)]) (provide 'magit-tag)