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

Chizi123
2018-11-21 e75a20334813452c6912c090d70a0de2c805f94d
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
;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)