| 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 | (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\327\314\315\330\331\332\333& \210\302\334\304\305\335DD\336\310\337\312\340\314\341& \210\302\342\304\305\343DD\344\310\345\312\346\314\322& \207" [require magit custom-declare-variable magit-module-sections-hook funcall function #[0 "\300\207" [(magit-insert-modules-overview magit-insert-modules-unpulled-from-upstream magit-insert-modules-unpulled-from-pushremote magit-insert-modules-unpushed-to-upstream magit-insert-modules-unpushed-to-pushremote)] 1] "Hook run by `magit-insert-modules'.\n\nThat function isn't part of `magit-status-sections-hook's default\nvalue, so you have to add it yourself for this hook to have any\neffect." :package-version (magit . "2.11.0") :group magit-status :type hook magit-module-sections-nested #[0 "\300\207" [t] 1] "Whether `magit-insert-modules' wraps inserted sections.\n\nIf this is non-nil, then only a single top-level section\nis inserted. If it is nil, then all sections listed in\n`magit-module-sections-hook' become top-level sections." (magit . "2.11.0") boolean magit-submodule-list-mode-hook #[0 "\300\207" [(hl-line-mode)] 1] "Hook run after entering Magit-Submodule-List mode." (magit . "2.9.0") magit-repolist :get magit-hook-custom-get :options (hl-line-mode) magit-submodule-list-columns #[0 "\300\207" [(("Path" 25 magit-modulelist-column-path nil) ("Version" 25 magit-repolist-column-version nil) ("Branch" 20 magit-repolist-column-branch nil) ("B<U" 3 magit-repolist-column-unpulled-from-upstream ((:right-align t))) ("B>U" 3 magit-repolist-column-unpushed-to-upstream ((:right-align t))) ("B<P" 3 magit-repolist-column-unpulled-from-pushremote ((:right-align t))) ("B>P" 3 magit-repolist-column-unpushed-to-pushremote ((:right-align t))) ("B" 3 magit-repolist-column-branches ((:right-align t))) ("S" 3 magit-repolist-column-stashes ((:right-align t))))] 1] "List of columns displayed by `magit-list-submodules'.\n\nEach element has the form (HEADER WIDTH FORMAT PROPS).\n\nHEADER is the string displayed in the header. WIDTH is the width\nof the column. FORMAT is a function that is called with one\nargument, the repository identification (usually its basename),\nand with `default-directory' bound to the toplevel of its working\ntree. It has to return a string to be inserted or nil. PROPS is\nan alist that supports the keys `:right-align' and `:pad-right'." (magit . "2.8.0") magit-repolist-mode (repeat (list :tag "Column" (string :tag "Header Label") (integer :tag "Column Width") (function :tag "Inserter Function") (repeat :tag "Properties" (list (choice :tag "Property" (const :right-align) (const :pad-right) (symbol)) (sexp :tag "Value"))))) magit-submodule-remove-trash-gitdirs #[0 "\300\207" [nil] 1] "Whether `magit-submodule-remove' offers to trash module gitdirs.\n\nIf this is nil, then that command does not offer to do so unless\na prefix argument is used. When this is t, then it does offer to\ndo so even without a prefix argument.\n\nIn both cases the action still has to be confirmed unless that is\ndisabled using the option `magit-no-confirm'. Doing the latter\nand also setting this variable to t will lead to tears." (magit . "2.90.0") magit-commands] 14) | |
| 16 | #@59 Popup console for submodule commands. | |
| 17 | ||
| 18 | (fn &optional ARG) | |
| 19 | (defalias 'magit-submodule-popup #[256 "\300\301\302#\207" [magit-invoke-popup magit-submodule-popup nil] 5 (#$ . 3739) "P"]) | |
| 20 | (defvar magit-submodule-popup (list :variable 'magit-submodule-arguments :man-page "git-submodule" :switches '((102 "Force" "--force") (114 "Recursive" "--recursive") (78 "Do not fetch" "--no-fetch") (67 "Checkout tip" "--checkout") (82 "Rebase onto tip" "--rebase") (77 "Merge tip" "--merge") (85 "Use upstream tip" "--remote")) :actions '((97 "Add git submodule add [--force]" magit-submodule-add) (114 "Register git submodule init" magit-submodule-register) (112 "Populate git submodule update --init" magit-submodule-populate) (117 "Update git submodule update [--force] [--no-fetch]\n [--remote] [--recursive] [--checkout|--rebase|--merge]" magit-submodule-update) (115 "Synchronize git submodule sync [--recursive]" magit-submodule-synchronize) (100 "Unpopulate git submodule deinit [--force]" magit-submodule-unpopulate) (107 "Remove" magit-submodule-remove) nil (108 "List all modules" magit-list-submodules) (102 "Fetch all modules" magit-fetch-modules)) :max-action-columns 1)) | |
| 21 | (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\207" [magit-define-popup-keys-deferred magit-submodule-popup custom-declare-variable magit-submodule-arguments funcall function #[0 "\301\302\"\207" [magit-submodule-popup plist-get :default-arguments] 3] "" :group magit-git-arguments :type (repeat (string :tag "Argument"))] 8) | |
| 22 | (defalias 'magit-submodule-arguments #[0 "\303=\203 \207\n\207" [magit-current-popup magit-current-popup-args magit-submodule-arguments magit-submodule-popup] 2]) | |
| 23 | (put 'magit-submodule-arguments 'definition-name 'magit-submodule-popup) | |
| 24 | #@22 | |
| 25 | ||
| 26 | (fn &rest FILTERS) | |
| 27 | (defalias 'magit-submodule-filtered-arguments #[128 "\300\301 \302\203% @\211\235\203 \211\203 \211B\262\210\211T\262A\262\202 \266\211\237\207" [nil magit-submodule-arguments 0] 7 (#$ . 5565)]) | |
| 28 | #@309 Add the repository at URL as a module. | |
| 29 | ||
| 30 | Optional PATH is the path to the module relative to the root of | |
| 31 | the superproject. If it is nil, then the path is determined | |
| 32 | based on the URL. Optional NAME is the name of the module. If | |
| 33 | it is nil, then PATH also becomes the name. | |
| 34 | ||
| 35 | (fn URL &optional PATH NAME ARGS) | |
| 36 | (defalias 'magit-submodule-add #[1025 "\302 \211\2035 \211\303\"\210\304\305\306\205 \307D\310\n\n&\210\311 \312\313\314\315\316\n!\317\"\320\321%\")\2027 \322 \207" [default-directory magit-this-process magit-toplevel magit-submodule--maybe-reuse-gitdir magit-run-git-async "submodule" "add" "--name" "--" set-process-sentinel make-byte-code 514 "\301!\302>\2050 \303!\304V\203 \305\"\207\306\307\310#\210\305\"\210\311\312 \313\"\204. \314\315\316\300#\210\317 \207" vconcat vector [process-status (exit signal) process-exit-status 0 magit-process-sentinel process-put inhibit-refresh t version< magit-git-version "2.12.0" magit-call-git "submodule" "absorbgitdirs" magit-refresh] 6 "\n\n(fn PROCESS EVENT)" magit--not-inside-repository-error] 13 (#$ . 5800) (byte-code "\302 \211\203G \211\303\304! \305=\204 \306\305 \"\203 \307\202 \310\311\312\313\314\211\211\315\316 \"\2052 \317\320 \"%!!)\310!\321!\322\323!F\266\202)\202I \324 \207" [default-directory read-file-name-function magit-toplevel magit-read-string-ns "Add submodule (remote url)" ido-read-file-name advice-function-member-p read-file-name-default directory-file-name file-relative-name read-directory-name "Add submodules at path: " nil string-match "\\([^./]+\\)\\(\\.git\\)?$" match-string 1 magit-submodule-read-name-for-path magit-submodule-filtered-arguments "--force" magit--not-inside-repository-error] 12)]) | |
| 37 | #@36 | |
| 38 | ||
| 39 | (fn PATH &optional PREFER-SHORT) | |
| 40 | (defalias 'magit-submodule-read-name-for-path #[513 "\301\302!!\303!\203 \202 \211B\304\305\306\300\307B\306\310\311\312\313\314$\315\203] @\316\317\"\211@A\211@A\232\205C \316\320\"A@\266\202\266\205\211\203P \211B\262\266\211T\262A\262\202\" \266\211\237\262\206p \203o \202p $\207" [minibuffer-history directory-file-name file-relative-name file-name-nondirectory magit-read-string-ns "Submodule name" nil 2 magit-git-lines "config" "--list" "-f" ".gitmodules" 0 split-string "=" "\\."] 22 (#$ . 7532)]) | |
| 41 | #@256 Register MODULES. | |
| 42 | ||
| 43 | With a prefix argument act on all suitable modules. Otherwise, | |
| 44 | if the region selects modules, then act on those. Otherwise, if | |
| 45 | there is a module at point, then act on that. Otherwise read a | |
| 46 | single module from the user. | |
| 47 | ||
| 48 | (fn MODULES) | |
| 49 | (defalias 'magit-submodule-register #[257 "\301 \211\203 \211\302\303\304\305$)\202 \306 \207" [default-directory magit-toplevel magit-run-git-async "submodule" "init" "--" magit--not-inside-repository-error] 7 (#$ . 8112) (byte-code "\300\301\302\"C\207" [magit-module-confirm "Register" magit-module-no-worktree-p] 3)]) | |
| 50 | #@309 Create MODULES working directories, checking out the recorded commits. | |
| 51 | ||
| 52 | With a prefix argument act on all suitable modules. Otherwise, | |
| 53 | if the region selects modules, then act on those. Otherwise, if | |
| 54 | there is a module at point, then act on that. Otherwise read a | |
| 55 | single module from the user. | |
| 56 | ||
| 57 | (fn MODULES) | |
| 58 | (defalias 'magit-submodule-populate #[257 "\301 \211\203 \211\302\303\304\305\306%)\202 \307 \207" [default-directory magit-toplevel magit-run-git-async "submodule" "update" "--init" "--" magit--not-inside-repository-error] 8 (#$ . 8700) (byte-code "\300\301\302\"C\207" [magit-module-confirm "Populate" magit-module-no-worktree-p] 3)]) | |
| 59 | #@296 Update MODULES by checking out the recorded commits. | |
| 60 | ||
| 61 | With a prefix argument act on all suitable modules. Otherwise, | |
| 62 | if the region selects modules, then act on those. Otherwise, if | |
| 63 | there is a module at point, then act on that. Otherwise read a | |
| 64 | single module from the user. | |
| 65 | ||
| 66 | (fn MODULES ARGS) | |
| 67 | (defalias 'magit-submodule-update #[514 "\301 \211\203 \211\302\303\304\305%)\202 \306 \207" [default-directory magit-toplevel magit-run-git-async "submodule" "update" "--" magit--not-inside-repository-error] 9 (#$ . 9357) (byte-code "\300\301\302\"\303\304\305\306\307\310\311\312&D\207" [magit-module-confirm "Update" magit-module-worktree-p magit-submodule-filtered-arguments "--force" "--remote" "--recursive" "--checkout" "--rebase" "--merge" "--no-fetch"] 9)]) | |
| 68 | #@285 Synchronize url configuration of MODULES. | |
| 69 | ||
| 70 | With a prefix argument act on all suitable modules. Otherwise, | |
| 71 | if the region selects modules, then act on those. Otherwise, if | |
| 72 | there is a module at point, then act on that. Otherwise read a | |
| 73 | single module from the user. | |
| 74 | ||
| 75 | (fn MODULES ARGS) | |
| 76 | (defalias 'magit-submodule-synchronize #[514 "\301 \211\203 \211\302\303\304\305%)\202 \306 \207" [default-directory magit-toplevel magit-run-git-async "submodule" "sync" "--" magit--not-inside-repository-error] 9 (#$ . 10133) (byte-code "\300\301\302\"\303\304!D\207" [magit-module-confirm "Synchronize" magit-module-worktree-p magit-submodule-filtered-arguments "--recursive"] 3)]) | |
| 77 | #@282 Remove working directories of MODULES. | |
| 78 | ||
| 79 | With a prefix argument act on all suitable modules. Otherwise, | |
| 80 | if the region selects modules, then act on those. Otherwise, if | |
| 81 | there is a module at point, then act on that. Otherwise read a | |
| 82 | single module from the user. | |
| 83 | ||
| 84 | (fn MODULES ARGS) | |
| 85 | (defalias 'magit-submodule-unpopulate #[514 "\301 \211\203 \211\302\303\304\305%)\202 \306 \207" [default-directory magit-toplevel magit-run-git-async "submodule" "deinit" "--" magit--not-inside-repository-error] 9 (#$ . 10814) (byte-code "\300\301!\302\303!D\207" [magit-module-confirm "Unpopulate" magit-submodule-filtered-arguments "--force"] 3)]) | |
| 86 | #@642 Unregister MODULES and remove their working directories. | |
| 87 | ||
| 88 | For safety reasons, do not remove the gitdirs and if a module has | |
| 89 | uncomitted changes, then do not remove it at all. If a module's | |
| 90 | gitdir is located inside the working directory, then move it into | |
| 91 | the gitdir of the superproject first. | |
| 92 | ||
| 93 | With the "--force" argument offer to remove dirty working | |
| 94 | directories and with a prefix argument offer to delete gitdirs. | |
| 95 | Both actions are very dangerous and have to be confirmed. There | |
| 96 | are additional safety precautions in place, so you might be able | |
| 97 | to recover from making a mistake here, but don't count on it. | |
| 98 | ||
| 99 | (fn MODULES ARGS TRASH-GITDIRS) | |
| 100 | (defalias 'magit-submodule-remove #[771 "\302\303 \304\"\203\f \305\306!\210\203 \307\262\310 \211\203\353 \211\311\312\"\211\203{ \313\235\203\\ \314\315\316\317\307%\203S \211\211\203O \211@\320\321!!\322\323\324\325\326$\210)A\266\202\2024 \210\202{ \327\"\262\202{ \211A\203o \330\331G\332\333\334##\210\202u \330\335@\"\210\327\"\262\210\205\347 \205\215 \336\337\340\341\342\343\344$\"\322\341\345\346$\210\322\341\347\346 %\210\322\350\346$\210\203\344 \314\351\352\353\307 %\203\344 \211\203\343 \211@\354\"A@\211\203\326 \355\356\357\360P!!\307\211#\210\202\333 \305\361\"\210\210A\266\202\202\267 \210\210\362 )\202\355 \363 \207" [magit-submodule-remove-trash-gitdirs default-directory version< magit-git-version "2.12.0" error "This command requires Git v2.12.0" t magit-toplevel -filter #[257 "\301\302!!\303!AA\205 \304 )\207" [default-directory file-name-as-directory expand-file-name directory-files magit-anything-modified-p] 4 "\n\n(fn MODULE)"] "--force" magit-confirm remove-dirty-modules "Remove dirty module %s" "Remove %i dirty modules" file-name-as-directory expand-file-name magit-git "stash" "push" "-m" "backup before removal of this module" cl-set-difference message "Omitting %s modules with uncommitted changes: %s" mapconcat identity ", " "Omitting module %s, it has uncommitted changes" mapcar #[257 "\300\301\"\207" [split-string " "] 4 "\n\n(fn IT)"] magit-git-lines "submodule" "foreach" "-q" "printf \"$sm_path\\0$name\n\"" "absorbgitdirs" "--" "deinit" "rm" trash-module-gitdirs "Trash gitdir of module %s" "Trash gitdirs of %i modules" assoc delete-directory magit-git-dir convert-standard-filename "modules/" "BUG: Weird module name and/or path for %s" magit-refresh magit--not-inside-repository-error] 13 (#$ . 11459) (byte-code "\301\302\303\"\211\203 \304\305\306\307\306%\202 \310\311!C\262\312\313!E\207" [current-prefix-arg magit-region-values magit-module-section t magit-confirm remove-modules nil "Remove %i modules" magit-read-module-path "Remove module" magit-submodule-filtered-arguments "--force"] 7)]) | |
| 101 | #@209 Insert submodule sections. | |
| 102 | Hook `magit-module-sections-hook' controls which module sections | |
| 103 | are inserted, and option `magit-module-sections-nested' controls | |
| 104 | whether they are wrapped in an additional section. | |
| 105 | (defalias 'magit-insert-modules #[0 "\306 \211\205q\203o\307\310!\203 \211\202 \211 \236A\206 \311\312\310!\2034 \313 \"@\2065 \314\315\301#\2025 \316\317\320\321 \322\n&\323\324\325\326\"\211\203O \211\327=\202\205 \205Z \330\331! \"\211\203e \332\324\"\202\203 \333\f\"\211\203\200 \334!\203z \211!\262\211\327=\202\201 \335\262\262\262#\210\211 \206\227 \n?\205\227 ;\3362h\211\337\340\341\342\343\344\345#G#!\210\332\324\"\203\276 \323\346\347#\210\202\301 \347 \210\210\350\351!\210\352!\210\353\332\354\"\335\"\210\323\355\321 #\356\357\"\360\340\361\332\362\"\"!\360\340\363\332\362\"\"!\203\371 J\206\f\364!\203J\206\f\364!\205\f\211J\212\332\354\"b\210`W\203C\365`\311\"\206\"\366`\311\"\204<\367`\311\n$\210\203<\367`\357$\210\211b\266\202)\266\211 =\203V\317 <\370!)\202g\323\332\371\"\372\332\211\371\"\372\"C\244#0\210+\262\202q\347 \207" [magit-module-sections-nested magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-root-section magit-list-module-paths modules class-p magit-section :type rassq error "BUG: No entry for %s in %s" :value nil :start point-marker :parent eieio-oset hidden run-hook-with-args-until-success magit-section-set-visibility-hook hide magit-get-section magit-section-ident eieio-oref magit-section-match-assoc functionp t cancel-section magit-insert-heading format "%s (%s)" propertize "Modules" face magit-section-heading washer magit--insert-modules run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start end eieio-oref-default keymap intern "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property magit-section-show parent children magit-insert-section--current magit-section-cache-visibility] 14 (#$ . 14209)]) | |
| 106 | #@26 | |
| 107 | ||
| 108 | (fn &optional SECTION) | |
| 109 | (defalias 'magit--insert-modules #[256 "\300\301!\207" [magit-run-section-hook magit-module-sections-hook] 3 (#$ . 16344)]) | |
| 110 | #@160 Insert sections for all modules. | |
| 111 | For each section insert the path and the output of `git describe --tags', | |
| 112 | or, failing that, the abbreviated HEAD commit hash. | |
| 113 | (defalias 'magit-insert-modules-overview #[0 "\306 \211\205g\307\310!\203 \211\202 \211\236A\206 \311\312\310!\2030 \313\"@\2061 \314\315\300#\2021 \316\317\320\321 \322 &\323\324\325\326\"\211\203K \211\327=\202\201 \n\205V \330\331!\n\"\211\203a \332\324\"\202 \333 \"\211\203| \334!\203v \211!\262\211\327=\202} \335\262\262\262#\210\211\n\206\223 ?\205\223 \f \3362c\211\337\340\341\342\343\344\345#G#!\210\332\324\"\203\271 \323\346\347#\210\202\274 \347 \210\210\350\351!\210\352!\210\353\332\354\"\335\"\210\323\355\321 #\356\357\"\360\340\361\332\362\"\"!\360\340\363\332\362\"\"!\203\364 J\206\364!\203\377 J\206\364!\205\211J\212\332\354\"b\210`W\203>\365`\311\"\206 \366`\311\"\2047\367`\311\n$\210\2037\367`\357$\210\211b\266\202)\266\211\f=\203Q\317 ;\370!)\202b\323\332\371\"\372\332\211\371\"\372\"C\244#0\210+\262\207" [magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-root-section magit-insert-section--current magit-list-module-paths modules class-p magit-section :type rassq error "BUG: No entry for %s in %s" :value nil :start point-marker :parent eieio-oset hidden run-hook-with-args-until-success magit-section-set-visibility-hook hide magit-get-section magit-section-ident eieio-oref magit-section-match-assoc functionp t cancel-section magit-insert-heading format "%s (%s)" propertize "Modules overview" face magit-section-heading washer magit--insert-modules-overview run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start end eieio-oref-default keymap intern "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property magit-section-show parent children magit-section-cache-visibility] 14 (#$ . 16500)]) | |
| 114 | (defvar magit-modules-overview-align-numbers t) | |
| 115 | #@26 | |
| 116 | ||
| 117 | (fn &optional SECTION) | |
| 118 | (defalias 'magit--insert-modules-overview #[256 "\306 \211\203$\211\307 \310\311\312\313\314\315\"\"\316 \317\245^\"\310\311\320\316 \321\245^\"\211\203 \211@\322\323!!\324\325!\203; \211\202C \211 \236A\206C \326\327\325!\203Z \330 \"@\206[ \331\332\301#\202[ \333\334\335 \336\n&\337\340\341\342\"\211\203u \211\343=\202\253 \205\200 \344\345! \"\211\203\213 \346\340\"\202\251 \347\f\"\211\203\246 \350!\203\240 \211!\262\211\343=\202\247 \351\262\262\262#\210\211 \206\275 \n?\205\275 @\3522\353\310\"\354\355#c\210\356\357!\204\334 \360c\210\2021\310\361 \211\203\354 \353\354\362#\202\361 \353\363\354\364#\262\"c\210\365\366\367\"\211\203!A\203\370\371\351 B\372#)\266\203\203\373c\210\353\354\374#c\210\2020\375\376!\211\203/\353\354\377#c\210\210\210\201D c\210\201E \201F !\210\201G !\210\201H \346\201I \"\351\"\210\337\201J \335 #\201K \201L \"\201M \310\201N \346\201O \"\"!\201M \310\201P \346\201O \"\"!\203\211J\206\240\201Q !\203\226J\206\240\201Q !\205\240\211J\212\346\201I \"b\210`W\203\343\201R `\326\"\206\272\201S `\326\"\204\334\201T `\326\n$\210\203\334\201T `\201L $\210\211b\266\202\252)\266\211 =\203\370\371 C\201U !)\202\337\346\201V \"\201W \346\211\201V \"\201W \"C\244#0\210+\266)A\266\202\202$ \266)\202)\201X \210\210\201D c\207" [default-directory magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-root-section magit-toplevel magit-list-module-paths format "%%-%is " apply max mapcar length window-width 2 25 3 expand-file-name file-name-as-directory magit-module-section class-p magit-section :type rassq error "BUG: No entry for %s in %s" :value :start point-marker :parent eieio-oset hidden run-hook-with-args-until-success magit-section-set-visibility-hook hide magit-get-section magit-section-ident eieio-oref magit-section-match-assoc functionp t cancel-section propertize face magit-diff-file-heading file-exists-p ".git" "(unpopulated)" magit-get-current-branch magit-branch-local "(detached)" warning magit-git-string "describe" "--tags" "\\`[0-9]" nil string-match 32 magit-tag magit-rev-format "%h" magit-hash magit-insert-section--current magit-modules-overview-align-numbers inhibit-changing-match-data magit-section-cache-visibility 10 run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start end eieio-oref-default keymap intern "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property magit-section-show parent children magit--not-inside-repository-error] 20 (#$ . 18605)]) | |
| 119 | #@32 Keymap for `modules' sections. | |
| 120 | (defvar magit-modules-section-map (byte-code "\300 \301\302\303#\210\211\207" [make-sparse-keymap define-key [remap magit-visit-thing] magit-list-submodules] 5) (#$ . 21349)) | |
| 121 | #@31 Keymap for `module' sections. | |
| 122 | (defvar magit-module-section-map (byte-code "\301 \302\"\210\303\304!\204 \305\306\307#\210\305\310\307#\210\305\311\307#\210\305\312\313#\210\305\314\315#\210\305\316\317#\210\211\207" [magit-file-section-map make-sparse-keymap set-keymap-parent featurep jkl define-key "\n" magit-submodule-visit [C-return] [remap magit-visit-thing] [remap magit-delete-thing] magit-submodule-unpopulate "K" magit-file-untrack "R" magit-file-rename] 5) (#$ . 21562)) | |
| 123 | #@188 Visit MODULE by calling `magit-status' on it. | |
| 124 | Offer to initialize MODULE if it's not checked out yet. | |
| 125 | With a prefix argument, visit in another window. | |
| 126 | ||
| 127 | (fn MODULE &optional OTHER-WINDOW) | |
| 128 | (defalias 'magit-submodule-visit #[513 "\302 \211\203V \211\303!\304\303\305\"!\203 \306\"\202P \307\310\311\"!\203D \312\313\314\315\316%\210\317 \320\321\322\323\324 \"\325\"\326\327%\"\202P \304!\205P \330\331P\"\262)\202X \332 \207" [default-directory magit-this-process magit-toplevel expand-file-name file-exists-p ".git" magit-diff-visit-directory y-or-n-p format "Initialize submodule '%s' first?" magit-run-git-async "submodule" "update" "--init" "--" set-process-sentinel make-byte-code 514 "\303\304\"\210)\305!\306=\205 \307!\310U\205 \311\301\300\"\207" vconcat vector [magit-process-raise-error t magit-process-sentinel process-status exit process-exit-status 0 magit-diff-visit-directory] 5 "\n\n(fn PROCESS EVENT)" dired-jump "/." magit--not-inside-repository-error] 13 (#$ . 22060) (byte-code "\301\302!\206 \303\304!D\207" [current-prefix-arg magit-section-value-if module magit-read-module-path "Visit module"] 2)]) | |
| 129 | #@136 Insert sections for modules that haven't been pulled from the upstream. | |
| 130 | These sections can be expanded to show the respective commits. | |
| 131 | (defalias 'magit-insert-modules-unpulled-from-upstream #[0 "\300\301\302\303#\207" [magit--insert-modules-logs "Modules unpulled from @{upstream}" modules-unpulled-from-upstream "HEAD..@{upstream}"] 4 (#$ . 23216)]) | |
| 132 | #@139 Insert sections for modules that haven't been pulled from the push-remote. | |
| 133 | These sections can be expanded to show the respective commits. | |
| 134 | (defalias 'magit-insert-modules-unpulled-from-pushremote #[0 "\300\301\302\303#\207" [magit--insert-modules-logs "Modules unpulled from @{push}" modules-unpulled-from-pushremote "HEAD..@{push}"] 4 (#$ . 23574)]) | |
| 135 | #@134 Insert sections for modules that haven't been pushed to the upstream. | |
| 136 | These sections can be expanded to show the respective commits. | |
| 137 | (defalias 'magit-insert-modules-unpushed-to-upstream #[0 "\300\301\302\303#\207" [magit--insert-modules-logs "Modules unmerged into @{upstream}" modules-unpushed-to-upstream "@{upstream}..HEAD"] 4 (#$ . 23931)]) | |
| 138 | #@137 Insert sections for modules that haven't been pushed to the push-remote. | |
| 139 | These sections can be expanded to show the respective commits. | |
| 140 | (defalias 'magit-insert-modules-unpushed-to-pushremote #[0 "\300\301\302\303#\207" [magit--insert-modules-logs "Modules unpushed to @{push}" modules-unpushed-to-pushremote "@{push}..HEAD"] 4 (#$ . 24283)]) | |
| 141 | #@65 For internal use, don't add to a hook. | |
| 142 | ||
| 143 | (fn HEADING TYPE RANGE) | |
| 144 | (defalias 'magit--insert-modules-logs #[771 "\306 ?\205\204\307 \211\205\202\310!\203 \211\202 \211\236A\206 \311\312\310!\2036 \313\"@\2067 \314\315\300#\2027 \316\317\320\321 \322 &\323\324\325\326\"\211\203Q \211\327=\202\207 \n\205\\ \330\331!\n\"\211\203g \332\324\"\202\205 \333 \"\211\203\202 \334!\203| \211!\262\211\327=\202\203 \335\262\262\262#\210\211\n\206\231 ?\205\231 \f \3362~\211\337\340\"\210\341\342\343\344\n\"\345\346#\347\342\343\350\f\"\345\351#\352$\210\353 \211\203\207\211 @\211\203\202\211@\354!\203{\355\356!! @\357@!\203z\360\310!\203\355 \211\202\365 \211\236A\206\365 \311\312\310!\203\f\313\"@\206 \314\315\300#\202 \316\320\321 \322 &\323\324\325\326\"\211\203'\211\327=\202]\n\2052\330\331!\n\"\211\203=\332\324\"\202[\333 \"\211\203X\334!\203R\211!\262\211\327=\202Y\335\262\262\262#\210\211\n\206o ?\205o\f \3362v\211\341\342\345\361#\352\"\210\362\363\364\365\"\366\367\370\371&\210`\332\372\"V\203\233\373\374!\210\210\375\376!\210\377!\210\201B \332\201C \"\335\"\210\323\201D \321 #\201E \201F \"\201G \201H \201I \332\201J \"\"!\201G \201H \201K \332\201J \"\"!\203\355J\206\201L !\203\372J\206\201L !\205\211J\212\332\201C \"b\210`W\203G\201M `\311\"\206 \201N `\311\"\204@\201O `\311\n$\210\203@\201O `\201F $\210\211b\266\202)\266\211\f=\203\\\317 A\201P !)\202u\323\332\201Q \"\201R \332\211\201Q \"\201R \"C\244#0\210+\266)A\266\202\202\310 \210)\202\214\201S \210\210`\332\372\"V\203\236\201T c\210\202\243\201U \210\210\375\376!\210\377!\210\201B \332\201C \"\335\"\210\323\201D \321 #\201E \201F \"\201G \201H \201I \332\201J \"\"!\201G \201H \201K \332\201J \"\"!\203\365J\206\f\201L !\203J\206\f\201L !\205\f\211J\212\332\201C \"b\210`W\203O\201M `\311\"\206&\201N `\311\"\204H\201O `\311\n$\210\203H\201O `\201F $\210\211b\266\202)\266\211\f=\203d\317 A\201P !)\202}\323\332\201Q \"\201R \332\211\201Q \"\201R \"C\244#0\210+\262\262\207" [magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-root-section magit-insert-section--current magit-ignore-submodules-p magit-list-module-paths class-p magit-section :type rassq error "BUG: No entry for %s in %s" :value nil :start point-marker :parent eieio-oset hidden run-hook-with-args-until-success magit-section-set-visibility-hook hide magit-get-section magit-section-ident eieio-oref magit-section-match-assoc functionp t cancel-section string-match "\\`\\(.+\\) \\([^ ]+\\)\\'" magit-insert-heading propertize match-string 1 face magit-section-heading " " 2 magit-branch-remote ":" magit-toplevel magit-module-worktree-p expand-file-name file-name-as-directory magit-file-accessible-directory-p magit-module-section magit-diff-file-heading magit-git-wash apply-partially magit-log-wash-log module "-c" "push.default=current" "log" "--oneline" content delete-char -1 run-hooks magit-insert-section-hook magit-insert-child-count default-directory magit-section-cache-visibility set-marker-insertion-type start end eieio-oref-default keymap intern format "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property magit-section-show parent children magit--not-inside-repository-error 10 magit-cancel-section] 23 (#$ . 24631)]) | |
| 145 | #@56 Display a list of the current repository's submodules. | |
| 146 | (defalias 'magit-list-submodules #[0 "\301\302\303!\206 \304 \211\203 \211\305\303!)\202 \306 \262!\210\303 \210\307 \210\310 \207" [default-directory magit-display-buffer magit-mode-get-buffer magit-submodule-list-mode magit-toplevel magit-generate-new-buffer magit--not-inside-repository-error magit-submodule-list-refresh tabulated-list-print] 4 (#$ . 28158) nil]) | |
| 147 | #@53 Local keymap for Magit-Submodule-List mode buffers. | |
| 148 | (defvar magit-submodule-list-mode-map (byte-code "\301 \302\"\210\211\207" [magit-repolist-mode-map make-sparse-keymap set-keymap-parent] 4) (#$ . 28592)) | |
| 149 | (defvar magit-submodule-list-mode-hook nil) | |
| 150 | (byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [magit-submodule-list-mode-hook variable-documentation put "Hook run after entering Modules mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp magit-submodule-list-mode-map definition-name magit-submodule-list-mode] 4) | |
| 151 | (defvar magit-submodule-list-mode-map (make-sparse-keymap)) | |
| 152 | (byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\210\303\311\323\324#\207" [magit-submodule-list-mode-abbrev-table magit-submodule-list-mode-map variable-documentation put purecopy "Keymap for `magit-submodule-list-mode'." boundp magit-submodule-list-mode-syntax-table definition-name magit-submodule-list-mode (lambda (#1=#:def-tmp-var) (defvar magit-submodule-list-mode-syntax-table #1#)) make-syntax-table "Syntax table for `magit-submodule-list-mode'." (lambda (#1#) (defvar magit-submodule-list-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `magit-submodule-list-mode'." derived-mode-parent tabulated-list-mode custom-mode-group magit-repolist-mode] 5) | |
| 153 | #@279 Major mode for browsing a list of Git submodules. | |
| 154 | ||
| 155 | In addition to any hooks its parent mode `tabulated-list-mode' might have run, | |
| 156 | this mode runs the hook `magit-submodule-list-mode-hook', as the final or penultimate step | |
| 157 | during initialization. | |
| 158 | ||
| 159 | \{magit-submodule-list-mode-map} | |
| 160 | (defalias 'magit-submodule-list-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324 \325\"\204R )=\204R \326 \325)C#\210\327 !\210\330\f!\210 )\331*\332+\333\331B,\334\335\336-\"!.\337 \210\340\341\342\331\307$\210\343/\3440\306\345!\210\346%)\347\350!\207" [delay-mode-hooks major-mode mode-name magit-submodule-list-mode-map magit-submodule-list-mode-syntax-table magit-submodule-list-mode-abbrev-table make-local-variable t tabulated-list-mode magit-submodule-list-mode "Modules" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table nil 0 "Path" vconcat mapcar #[257 "\211@A\211@A\211@A\211@A\n\211\300E\301!\244\266\204\207" [t -flatten] 16 "\n\n(fn ARG0)"] tabulated-list-init-header add-hook tabulated-list-revert-hook magit-submodule-list-refresh magit-imenu--submodule-prev-index-position-function magit-imenu--submodule-extract-index-name-function bookmark-make-record-function magit-bookmark--submodules-make-record run-mode-hooks magit-submodule-list-mode-hook local-abbrev-table x-stretch-cursor tabulated-list-padding tabulated-list-sort-key magit-submodule-list-columns tabulated-list-format imenu-prev-index-position-function imenu-extract-index-name-function] 5 (#$ . 30212) nil]) | |
| 161 | (defalias 'magit-submodule-list-refresh #[0 "\301\302\303 \"\211\207" [tabulated-list-entries -keep #[257 "\302\303!!\304\305!\205 \211\306\307\310\311\312\306\313!\314\"\315\316% \"!D)\207" [default-directory magit-submodule-list-columns expand-file-name file-name-as-directory file-exists-p ".git" vconcat mapcar make-byte-code 257 "\3018\300!\206 \302\207" vector [2 ""] 3 "\n\n(fn IT)"] 10 "\n\n(fn MODULE)"] magit-list-module-paths] 3]) | |
| 162 | #@55 Insert the relative path of the submodule. | |
| 163 | ||
| 164 | (fn PATH) | |
| 165 | (defalias 'magit-modulelist-column-path #[257 "\207" [] 2 (#$ . 32450)]) | |
| 166 | #@18 | |
| 167 | ||
| 168 | (fn NAME PATH) | |
| 169 | (defalias 'magit-submodule--maybe-reuse-gitdir #[514 "\300\301\302P!!\303!\205E \303!?\205E \304\305\306\307\310\311\260\312\"\211\313\267\202B \314\315!\"\202C \316\211\317\320\321!Q\"\202C \322\323\211#\202C \324\262\207" [magit-git-dir convert-standard-filename "modules/" file-exists-p read-char-choice " already exists.\n" "Type [u] to use the existing gitdir and create the working tree\n" " [r] to rename the existing gitdir and clone again\n" " [t] to trash the existing gitdir and clone again\n" " [C-g] to abort " (117 114 116) #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (117 37 114 46 116 58)) magit-submodule--restore-worktree expand-file-name rename-file "-" format-time-string "%F-%T" delete-directory t nil] 10 (#$ . 32583)]) | |
| 170 | #@24 | |
| 171 | ||
| 172 | (fn WORKTREE GITDIR) | |
| 173 | (defalias 'magit-submodule--restore-worktree #[514 "\301\302\"\210\303\304\"\305\306\307!!\310\311\312\313\314!\315\"\316$\216r\211q\210\317\320\"\321\261\210)r\211q\210\322\323\211\323\311%\210*\266\324\325\326\327#)\207" [default-directory make-directory t expand-file-name ".git" get-buffer-create generate-new-buffer-name " *temp file*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "gitdir: " file-relative-name "\n" write-region nil magit-call-git "reset" "--hard" "HEAD"] 10 (#$ . 33409)]) | |
| 174 | (provide 'magit-submodule) | |
