;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315& \210\302\316\304\305\317DD\320\310\321\312\313\314\322& \210\302\323\304\305\324DD\325\310\326\312\313\314\322& \207" [require magit custom-declare-variable magit-remote-add-set-remote\.pushDefault funcall function #[0 "\300\207" [ask-if-unset] 1] "Whether to set the value of `remote.pushDefault' after adding a remote.\n\nIf `ask', then always ask. If `ask-if-unset', then ask, but only\nif the variable isn't set already. If nil, then don't ever set.\nIf the value is a string, then set without asking, provided that\nthe name of the added remote is equal to that string and the\nvariable isn't already set." :package-version (magit . "2.4.0") :group magit-commands :type (choice (const :tag "ask if unset" ask-if-unset) (const :tag "always ask" ask) (string :tag "set if named") (const :tag "don't set")) magit-remote-direct-configure #[0 "\300\207" [t] 1] "Whether the command `magit-remote' shows Git variables.\nWhen set to nil, no variables are displayed by this transient\ncommand, instead the sub-transient `magit-remote-configure'\nhas to be used to view and change remote related variables." (magit . "2.12.0") boolean magit-prefer-push-default #[0 "\300\207" [nil] 1] "Whether to prefer `remote.pushDefault' over per-branch variables." (magit . "3.0.0")] 10) #@15 (fn REMOTE) (defalias 'magit-remote #[257 "\300\301\302\211\303%\207" [transient-setup magit-remote nil :scope] 7 (#$ . 1438) (byte-code "\300 C\207" [magit-get-current-remote] 1)]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314&#\210\300\301\315\316#\207" [put magit-remote interactive-only t function-documentation "Add, configure or remove a remote." transient--prefix transient-prefix :command :man-page "git-remote" :value ("-f") transient--layout ([1 transient-column (:description "Variables" :if (lambda nil (and magit-remote-direct-configure (oref transient--prefix scope)))) ((1 transient-suffix (:key "u" :command magit-remote\.\.url)) (1 transient-suffix (:key "U" :command magit-remote\.\.fetch)) (1 transient-suffix (:key "s" :command magit-remote\.\.pushurl)) (1 transient-suffix (:key "S" :command magit-remote\.\.push)) (1 transient-suffix (:key "O" :command magit-remote\.\.tagopt)))] [1 transient-column (:description "Arguments for add") ((1 transient-switch (:key "-f" :description "Fetch after add" :shortarg "-f" :argument "-f" :command transient:magit-remote:-f)))] [1 transient-columns (:description "Actions") ([1 transient-column nil ((1 transient-suffix (:key "a" :description "Add" :command magit-remote-add)) (1 transient-suffix (:key "r" :description "Rename" :command magit-remote-rename)) (1 transient-suffix (:key "k" :description "Remove" :command magit-remote-remove)))] [1 transient-column nil ((1 transient-suffix (:key "C" :description "Configure..." :command magit-remote-configure)) (1 transient-suffix (:key "p" :description "Prune stale branches" :command magit-remote-prune)) (1 transient-suffix (:key "P" :description "Prune stale refspecs" :command magit-remote-prune-refspecs)))])])] 10) #@39 (fn PROMPT &optional INITIAL-INPUT) (defalias 'magit-read-url #[513 "\300\"\301\302\"\203\303!\207\207" [magit-read-string-ns string-prefix-p "~" expand-file-name] 6 (#$ . 3271)]) #@73 Add a remote named REMOTE and fetch it. (fn REMOTE URL &optional ARGS) (defalias 'magit-remote-add #[770 "\301\302\303!D\211:\205\203\211\242\211;\203(\243\211:\205#\211\243\211?\205!\304\262\262\202\201\211\305\267\202i\243\211:\205B\211\243\211?\205@!\262\262\202\201\243\211:\205d\211\242\211?\205b\243\211?\205` !\262\262\262\202\201\211;\205\201\243\211:\205\211\243\211?\205}\304\262\262\262\266\202\203\232\306\307\310%\210\311\303\"\210\312 \207\313\307\310%\207" [magit-remote-add-set-remote\.pushDefault #[257 "\300\301\302\"!\207" [y-or-n-p format "Set `remote.pushDefault' to \"%s\"? "] 5 "\n\n(fn REMOTE)"] magit-get "remote.pushDefault" t #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (ask 46 ask-if-unset 71)) magit-call-git "remote" "add" magit-set magit-refresh magit-run-git-async] 11 (#$ . 3465) (byte-code "\300\301!\302\303!\211\304\305\205\306\307\"\205\310\311\211\312%\"\313\314!E\207" [magit-get "remote.origin.url" magit-read-string-ns "Remote name" magit-read-url "Remote url" string-match "\\([^:/]+\\)/[^/]+\\(\\.git\\)?\\'" replace-match t 1 transient-args magit-remote] 11)]) #@51 Rename the remote named OLD to NEW. (fn OLD NEW) (defalias 'magit-remote-rename #[514 "\230?\205\300\301\302$\210\303\"\210\304 \207" [magit-call-git "remote" "rename" magit-remote--cleanup-push-variables magit-refresh] 7 (#$ . 4679) (byte-code "\300\301!\211\302\303\304\"!D\207" [magit-read-remote "Rename remote" magit-read-string-ns format "Rename %s to"] 6)]) #@46 Delete the remote named REMOTE. (fn REMOTE) (defalias 'magit-remote-remove #[257 "\300\301\302#\210\303!\210\304 \207" [magit-call-git "remote" "rm" magit-remote--cleanup-push-variables magit-refresh] 5 (#$ . 5060) (byte-code "\300\301!C\207" [magit-read-remote "Delete remote"] 2)]) #@34 (fn REMOTE &optional NEW-NAME) (defalias 'magit-remote--cleanup-push-variables #[513 "\301 \211\203>\211\302\303!\232\203\304\303\"\210\305\306\307\310\311\312\313 \"%\211\205:\211@\314\306?\205.\315$\210A\266\202\202 \262)\207\316 \207" [default-directory magit-toplevel magit-get "remote.pushDefault" magit-set magit-git-lines "config" "--name-only" "--get-regexp" "^branch.[^.]*.pushRemote" format "^%s$" magit-call-git "--unset" magit--not-inside-repository-error] 11 (#$ . 5353)]) (defconst magit--refspec-re "\\`\\(\\+\\)?\\([^:]+\\):\\(.*\\)\\'") #@64 Remove stale remote-tracking branches for REMOTE. (fn REMOTE) (defalias 'magit-remote-prune #[257 "\300\301\302#\207" [magit-run-git-async "remote" "prune"] 5 (#$ . 5931) (byte-code "\300\301!C\207" [magit-read-remote "Prune stale branches of remote"] 2)]) #@562 Remove stale refspecs for REMOTE. A refspec is stale if there no longer exists at least one branch on the remote that would be fetched due to that refspec. A stale refspec is problematic because its existence causes Git to refuse to fetch according to the remaining non-stale refspecs. If only stale refspecs remain, then offer to either delete the remote or to replace the stale refspecs with the default refspec. Also remove the remote-tracking branches that were created due to the now stale refspecs. Other stale branches are not removed. (fn REMOTE) (defalias 'magit-remote-prune-refspecs #[257 "\302!\303!\304\305\"\306!\307\211\203\336\211@\310\"\203\327\311\312\"\311\313\"\310\314\"\203y\315\316\317\211$\307 \320\307\211\211\203o\211A\262\242\262\262\211\262\203o\307\317\310#)\266\203\211\262\204o\262\262T\262\2028\266\211\262\262\202}\235\204\325\310\314\"\203\312\315\316\317\211$\307 \320\307\211\203\277\211A\262\242\262\262T\262\307\317\310#)\266\203\203\224B\262\202\224\266\211\237\262\262\202\320\n\235@CBB\262\266A\266\202\202\210\211\204\351\321\322\"\207\211GGU\2033\323\304\324\"\325\326\327\330\331E\332#\333Q\334\"\211\335\267\210\202,\336\304\337 \"C\"\266\202,\340\341\342 #\266\202,\343\344!\266\202,\210\321\345!\210\202\260\211G\346U\203W\211@\211\242\243\347\350\304\351\"\304\352\"\307%\266\204\262\202j\347\350\307\304\353\354\355\"G\"\307\356\357\"%\203\254\211\211\203\250\211@\211\242\243\340\360\361 \362!$\210\363\364\365#\210\211\211\203\237\211@\340\366\367#\210A\266\202\202\214\266A\266\202\202n\210\202\260\343\344!\210\370 \207" [magit--refspec-re inhibit-changing-match-data magit-list-remote-branches magit-remote-list-refs format "remote.%s.fetch" magit-get-all nil string-match match-string 2 3 "\\*" replace-match ".*" t 0 message "No stale refspecs for remote %S" read-char-choice "All of %s's refspecs are stale. " mapconcat identity "replace with [d]efault refspec" "[r]emove remote" "or [a]abort" ", " " " (115 114 97) #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (115 266 114 280 97 291)) magit-set-all "+refs/heads/*:refs/remotes/%s/*" magit-call-git "remote" "rm" user-error "Abort" "" 1 magit-confirm prune-stale-refspecs "Prune stale refspec %s and branch %%s" "Prune stale refspec %s and %%i branches" "Prune %%i stale refspecs and %i branches" cl-mapcan #[257 "\300A!\207" [copy-sequence] 3 "\n\n(fn S)"] mapcar #[257 "\211\242\243\300\301\302\300#Q\207" ["\n" mapconcat #[257 "\300P\207" [" "] 3 "\n\n(fn B)"]] 11 "\n\n(fn ARG0)"] "config" "--unset" regexp-quote magit--log-action #[257 "\300\301G\"\207" [format "Deleting %i branches"] 4 "\n\n(fn REFS)"] #[257 "\300\301\302\303\"#\207" [format "Deleting branch %s (was %s)" magit-rev-parse "--short"] 7 "\n\n(fn REF)"] "update-ref" "-d" magit-refresh] 24 (#$ . 6197) (byte-code "\300\301!C\207" [magit-read-remote "Prune refspecs of remote"] 2)]) #@294 Set the local representation of REMOTE's default branch. Query REMOTE and set the symbolic-ref refs/remotes//HEAD accordingly. With a prefix argument query for the branch to be used, which allows you to select an incorrect value if you fancy doing that. (fn REMOTE &optional BRANCH) (defalias 'magit-remote-set-head #[513 "\300\301\302\206 \303$\207" [magit-run-git "remote" "set-head" "--auto"] 7 (#$ . 9258) (byte-code "\301\302!\211\205\303\304\305\"\306\211\307%D\207" [current-prefix-arg magit-read-remote "Set HEAD for remote" magit-read-remote-branch format "Set %s/HEAD to" nil t] 8)]) #@127 Unset the local representation of REMOTE's default branch. Delete the symbolic-ref "refs/remotes//HEAD". (fn REMOTE) (defalias 'magit-remote-unset-head #[257 "\300\301\302\303$\207" [magit-run-git "remote" "set-head" "--delete"] 6 (#$ . 9877) (byte-code "\300\301!C\207" [magit-read-remote "Unset HEAD for remote"] 2)]) #@15 (fn REMOTE) (defalias 'magit-remote-configure #[257 "\300\301\302\211\303%\207" [transient-setup magit-remote-configure nil :scope] 7 (#$ . 10213) (byte-code "\204 \203\n\303=\204\304 \206\305 C\207" [current-prefix-arg magit-remote-direct-configure transient-current-command magit-remote magit-get-current-remote magit--read-remote-scope] 2)]) (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-remote-configure interactive-only t function-documentation "Configure a remote." transient--prefix transient-prefix :command :man-page "git-remote" transient--layout ([1 transient-column (:description (lambda nil (concat (propertize "Configure " 'face 'transient-heading) (propertize (oref transient--prefix scope) 'face 'magit-branch-remote)))) ((1 transient-suffix (:key "u" :command magit-remote\.\.url)) (1 transient-suffix (:key "U" :command magit-remote\.\.fetch)) (1 transient-suffix (:key "s" :command magit-remote\.\.pushurl)) (1 transient-suffix (:key "S" :command magit-remote\.\.push)) (1 transient-suffix (:key "O" :command magit-remote\.\.tagopt)))])] 8) #@22 (fn &optional OBJ) (defalias 'magit--read-remote-scope #[256 "\300\203\301\302\301\303\304\"\305\"\"\202\306!\207" [magit-read-remote format "Set %s for remote" eieio-oref variable "" "Configure remote"] 8 (#$ . 11411)]) (defalias 'magit-remote\.\.url #[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\303\316\317&\n#\207" [put magit-remote\.\.url interactive-only t function-documentation nil transient--suffix magit--git-variable:urls :command :scope magit--read-remote-scope :variable "remote.%s.url" :multi-value :history-key magit-remote\.\.*url] 14) (defalias 'magit-remote\.\.fetch #[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\303&#\207" [put magit-remote\.\.fetch interactive-only t function-documentation nil transient--suffix magit--git-variable :command :scope magit--read-remote-scope :variable "remote.%s.fetch" :multi-value] 12) (defalias 'magit-remote\.\.pushurl #[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\303\316\317\320\321&\f#\207" [put magit-remote\.\.pushurl interactive-only t function-documentation nil transient--suffix magit--git-variable:urls :command :scope magit--read-remote-scope :variable "remote.%s.pushurl" :multi-value :history-key magit-remote\.\.*url :seturl-arg "--push"] 16) (defalias 'magit-remote\.\.push #[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&#\207" [put magit-remote\.\.push interactive-only t function-documentation nil transient--suffix magit--git-variable :command :scope magit--read-remote-scope :variable "remote.%s.push"] 10) (defalias 'magit-remote\.\.tagopt #[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&#\207" [put magit-remote\.\.tagopt interactive-only t function-documentation nil transient--suffix magit--git-variable:choices :command :scope magit--read-remote-scope :variable "remote.%s.tagOpt" :choices ("--no-tags" "--tags")] 12) #@31 (fn &optional BRANCH SHORT) (defalias 'magit--push-remote-variable #[512 "\204\301 \262\302\203\203\203\303\202)\304\202)\203%\305\202)\306\307\"\310\"\207" [magit-prefer-push-default magit-get-current-branch magit--propertize-face "pushDefault" "remote.pushDefault" "pushRemote" format "branch.%s.pushRemote" bold] 6 (#$ . 14259)]) #@22 (fn PROMPT-SUFFIX) (defalias 'magit--select-push-remote #[257 "\301 \206\302\303!\304!\305\204\203\306 \235\2042\307\262\310\311\312\313 #!\262\313!\314\"\266E\207" [current-prefix-arg magit-get-current-branch user-error "No branch is checked out" magit-get-push-remote nil magit-list-remotes t magit-read-remote format "Set %s and %s" magit--push-remote-variable magit-set] 9 (#$ . 14619)]) (provide 'magit-remote)