mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-18 21067e7cbe6d7a0f65ff5c317a96b5c337b0b3d8
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)