| 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\316\317\320\321\322\323\312\324&\210\302\325\304\305\326DD\327\310\330\312\317\314\331\332\333\334\335& \210\302\336\304\305\337DD\340\310\341\312\317\314\342& \207" [require magit-core custom-declare-variable magit-repository-directories funcall function #[0 "\300\207" [(("~/.emacs.d/" . 0) ("~/.emacs.d/lib/" . 1))] 1] "List of directories that are or contain Git repositories.\n\nEach element has the form (DIRECTORY . DEPTH). DIRECTORY has\nto be a directory or a directory file-name, a string. DEPTH,\nan integer, specifies the maximum depth to look for Git\nrepositories. If it is 0, then only add DIRECTORY itself." :package-version (magit . "2.90.0") :group magit-essentials :type (repeat (cons directory (integer :tag "Depth"))) custom-declare-group magit-repolist nil "List repositories in a buffer." :link (info-link "(magit)Repository List") magit-modes magit-repolist-mode-hook #[0 "\300\207" [(hl-line-mode)] 1] "Hook run after entering Magit-Repolist mode." (magit . "2.9.0") hook :get magit-hook-custom-get :options (hl-line-mode) magit-repolist-columns #[0 "\300\207" [(("Name" 25 magit-repolist-column-ident nil) ("Version" 25 magit-repolist-column-version nil) ("B<U" 3 magit-repolist-column-unpulled-from-upstream ((:right-align t) (:help-echo "Upstream changes not in branch"))) ("B>U" 3 magit-repolist-column-unpushed-to-upstream ((:right-align t) (:help-echo "Local changes not in upstream"))) ("Path" 99 magit-repolist-column-path nil))] 1] "List of columns displayed by `magit-list-repositories'.\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'.\nSome entries also use `:help-echo', but `tabulated-list' does not\nactually support that yet." (magit . "2.12.0") (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")))))] 14) | |
| 16 | #@126 Display a list of repositories. | |
| 17 | ||
| 18 | Use the options `magit-repository-directories' to control which | |
| 19 | repositories are displayed. | |
| 20 | (defalias 'magit-list-repositories #[0 "\203 r\301\302!q\210\303 \210\304 \210\305 \210\306p!)\207\307\310\311\"\207" [magit-repository-directories get-buffer-create "*Magit Repositories*" magit-repolist-mode magit-repolist-refresh tabulated-list-print switch-to-buffer message "You need to customize `magit-repository-directories' %s" "before you can list repositories"] 3 (#$ . 2845) nil]) | |
| 21 | #@47 Local keymap for Magit-Repolist mode buffers. | |
| 22 | (defvar magit-repolist-mode-map (byte-code "\301 \302\"\210\303\304\305!\203 \306\202 \307\310#\210\211\207" [tabulated-list-mode-map make-sparse-keymap set-keymap-parent define-key featurep jkl [return] " " magit-repolist-status] 5) (#$ . 3370)) | |
| 23 | #@69 Show the status for the repository at point. | |
| 24 | ||
| 25 | (fn &optional BUTTON) | |
| 26 | (defalias 'magit-repolist-status #[256 "\300\301\206 `\302\"\262\211\203 \303\304!!\202 \305\306!\207" [nil get-text-property tabulated-list-id magit-status-internal expand-file-name user-error "There is no repository at point"] 5 (#$ . 3674) nil]) | |
| 27 | (defvar magit-repolist-mode-hook nil) | |
| 28 | (byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [magit-repolist-mode-hook variable-documentation put "Hook run after entering Repos 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-repolist-mode-map definition-name magit-repolist-mode] 4) | |
| 29 | (defvar magit-repolist-mode-map (make-sparse-keymap)) | |
| 30 | (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#\207" [magit-repolist-mode-abbrev-table magit-repolist-mode-map variable-documentation put purecopy "Keymap for `magit-repolist-mode'." boundp magit-repolist-mode-syntax-table definition-name magit-repolist-mode (lambda (#1=#:def-tmp-var) (defvar magit-repolist-mode-syntax-table #1#)) make-syntax-table "Syntax table for `magit-repolist-mode'." (lambda (#1#) (defvar magit-repolist-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `magit-repolist-mode'." derived-mode-parent tabulated-list-mode] 5) | |
| 31 | #@269 Major mode for browsing a list of Git repositories. | |
| 32 | ||
| 33 | In addition to any hooks its parent mode `tabulated-list-mode' might have run, | |
| 34 | this mode runs the hook `magit-repolist-mode-hook', as the final or penultimate step | |
| 35 | during initialization. | |
| 36 | ||
| 37 | \{magit-repolist-mode-map} | |
| 38 | (defalias 'magit-repolist-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-\344.)\345\346!\207" [delay-mode-hooks major-mode mode-name magit-repolist-mode-map magit-repolist-mode-syntax-table magit-repolist-mode-abbrev-table make-local-variable t tabulated-list-mode magit-repolist-mode "Repos" 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-repolist-refresh magit-imenu--repolist-prev-index-position-function magit-imenu--repolist-extract-index-name-function run-mode-hooks magit-repolist-mode-hook local-abbrev-table x-stretch-cursor tabulated-list-padding tabulated-list-sort-key magit-repolist-columns tabulated-list-format imenu-prev-index-position-function imenu-extract-index-name-function] 5 (#$ . 5263) nil]) | |
| 39 | (defalias 'magit-repolist-refresh #[0 "\301\302\303\301\304\305 \"!\"\211\207" [tabulated-list-entries mapcar #[257 "\211@A\211\302\303\304\305\306\302\307!\310\"\311\312% \"!)D\266\202\207" [default-directory magit-repolist-columns vconcat mapcar make-byte-code 257 "\3018\300!\206 \302\207" vector [2 ""] 3 "\n\n(fn IT)"] 14 "\n\n(fn ARG0)"] magit-list-repos-uniquify #[257 "\300\301!!B\207" [file-name-nondirectory directory-file-name] 4 "\n\n(fn IT)"] magit-list-repos] 6]) | |
| 40 | #@90 Insert the identification of the repository. | |
| 41 | Usually this is just its basename. | |
| 42 | ||
| 43 | (fn ID) | |
| 44 | (defalias 'magit-repolist-column-ident #[257 "\207" [] 2 (#$ . 7390)]) | |
| 45 | #@54 Insert the absolute path of the repository. | |
| 46 | ||
| 47 | (fn ID) | |
| 48 | (defalias 'magit-repolist-column-path #[257 "\301!\207" [default-directory abbreviate-file-name] 3 (#$ . 7556)]) | |
| 49 | #@68 Insert a description of the repository's `HEAD' revision. | |
| 50 | ||
| 51 | (fn ID) | |
| 52 | (defalias 'magit-repolist-column-version #[257 "\300\301\302\303#\206 \300\304\305\306\307$\310 \311\312\313\314\315!\316\"\317$\216\320\321\"\203/ \322\312\224TG\323\324%\210\203@ \320\325\"\203@ \326P\202A )\262\207" [magit-git-string "describe" "--tags" "--dirty" "show" "--no-patch" "--format=%cd-g%h" "--date=format:%Y%m%d.%H%M" match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 string-match "-dirty\\'" put-text-property face error "\\`[0-9]" " "] 9 (#$ . 7729)]) | |
| 53 | #@37 Insert the current branch. | |
| 54 | ||
| 55 | (fn ID) | |
| 56 | (defalias 'magit-repolist-column-branch #[257 "\300 \207" [magit-get-current-branch] 2 (#$ . 8326)]) | |
| 57 | #@60 Insert the upstream branch of the current branch. | |
| 58 | ||
| 59 | (fn ID) | |
| 60 | (defalias 'magit-repolist-column-upstream #[257 "\300 \207" [magit-get-upstream-branch] 2 (#$ . 8469)]) | |
| 61 | #@251 Insert a letter if there are uncommitted changes. | |
| 62 | ||
| 63 | Show N if there is at least one untracked file. | |
| 64 | Show U if there is at least one unstaged file. | |
| 65 | Show S if there is at least one staged file. | |
| 66 | Only one letter is shown, the first that applies. | |
| 67 | ||
| 68 | (fn ID) | |
| 69 | (defalias 'magit-repolist-column-dirty #[257 "\300 \203 \301\207\302 \203 \303\207\304 \205 \305\207" [magit-untracked-files "N" magit-unstaged-files "U" magit-staged-files "S"] 2 (#$ . 8639)]) | |
| 70 | #@71 Insert number of upstream commits not in the current branch. | |
| 71 | ||
| 72 | (fn ID) | |
| 73 | (defalias 'magit-repolist-column-unpulled-from-upstream #[257 "\300\301\302\"\211\205! \303\304\"A@\305\306!\307\310V\203 \311\202 \312#\262\207" [magit-get-upstream-branch nil t magit-rev-diff-count "HEAD" propertize number-to-string face 0 bold shadow] 8 (#$ . 9092)]) | |
| 74 | #@82 Insert number of commits in the push branch but not the current branch. | |
| 75 | ||
| 76 | (fn ID) | |
| 77 | (defalias 'magit-repolist-column-unpulled-from-pushremote #[257 "\300\301\302\"\211\205! \303\304\"A@\305\306!\307\310V\203 \311\202 \312#\262\207" [magit-get-push-branch nil t magit-rev-diff-count "HEAD" propertize number-to-string face 0 bold shadow] 8 (#$ . 9445)]) | |
| 78 | #@79 Insert number of commits in the current branch but not its upstream. | |
| 79 | ||
| 80 | (fn ID) | |
| 81 | (defalias 'magit-repolist-column-unpushed-to-upstream #[257 "\300\301\302\"\211\205 \303\304\"@\305\306!\307\310V\203 \311\202 \312#\262\207" [magit-get-upstream-branch nil t magit-rev-diff-count "HEAD" propertize number-to-string face 0 bold shadow] 8 (#$ . 9807)]) | |
| 82 | #@82 Insert number of commits in the current branch but not its push branch. | |
| 83 | ||
| 84 | (fn ID) | |
| 85 | (defalias 'magit-repolist-column-unpushed-to-pushremote #[257 "\300\301\302\"\211\205 \303\304\"@\305\306!\307\310V\203 \311\202 \312#\262\207" [magit-get-push-branch nil t magit-rev-diff-count "HEAD" propertize number-to-string face 0 bold shadow] 8 (#$ . 10165)]) | |
| 86 | #@37 Insert number of branches. | |
| 87 | ||
| 88 | (fn ID) | |
| 89 | (defalias 'magit-repolist-column-branches #[257 "\300 G\301\302!\303\304V\203 \305\202 \306#\207" [magit-list-local-branches propertize number-to-string face 1 bold shadow] 7 (#$ . 10525)]) | |
| 90 | #@36 Insert number of stashes. | |
| 91 | ||
| 92 | (fn ID) | |
| 93 | (defalias 'magit-repolist-column-stashes #[257 "\300 G\301\302!\303\304V\203 \305\202 \306#\207" [magit-list-stashes propertize number-to-string face 0 bold shadow] 7 (#$ . 10761)]) | |
| 94 | #@497 Read a Git repository in the minibuffer, with completion. | |
| 95 | ||
| 96 | The completion choices are the basenames of top-levels of | |
| 97 | repositories found in the directories specified by option | |
| 98 | `magit-repository-directories'. In case of name conflicts | |
| 99 | the basenames are prefixed with the name of the respective | |
| 100 | parent directories. The returned value is the actual path | |
| 101 | to the selected repository. | |
| 102 | ||
| 103 | With prefix argument simply read a directory name using | |
| 104 | `read-directory-name'. | |
| 105 | ||
| 106 | (fn &optional READ-DIRECTORY-NAME) | |
| 107 | (defalias 'magit-read-repository #[256 "\211?\205 \205 \302\303\304\305 \"!\211\2037 \306\307\"\310\311\"A\2061 \312!\203- \313!\2021 \314\315\"!\262\202B \310\316\317\320 \206@ \"!\207" [magit-repository-directories default-directory magit-list-repos-uniquify mapcar #[257 "\300\301!!B\207" [file-name-nondirectory directory-file-name] 4 "\n\n(fn IT)"] magit-list-repos magit-completing-read "Git repository" file-name-as-directory assoc file-directory-p expand-file-name user-error "Not a repository or a directory: %s" read-directory-name "Git repository: " magit-toplevel] 7 (#$ . 10989)]) | |
| 108 | (defalias 'magit-list-repos #[0 "\301\302\"\207" [magit-repository-directories cl-mapcan #[257 "\211@A\211\300\"\266\202\207" [magit-list-repos-1] 8 "\n\n(fn ARG0)"]] 3]) | |
| 109 | #@24 | |
| 110 | ||
| 111 | (fn DIRECTORY DEPTH) | |
| 112 | (defalias 'magit-list-repos-1 #[514 "\301\302\303\"!\203\f C\207\211\304V\2051 \305!\2051 \306\307\310\311\312\313\314\315!\316\"\317\320%\321\322\322$\"\"\207" [directory-files-no-dot-files-regexp file-readable-p expand-file-name ".git" 0 magit-file-accessible-directory-p apply append mapcar make-byte-code 257 "\301!\205 \302\300S\"\207" vconcat vector [file-directory-p magit-list-repos-1] 4 "\n\n(fn IT)" directory-files t] 11 (#$ . 12274)]) | |
| 113 | #@14 | |
| 114 | ||
| 115 | (fn ALIST) | |
| 116 | (defalias 'magit-list-repos-uniquify #[257 "\300C\301\302\303\"\304!\211\203% \211@\305@A\306@\"B#\210A\266\202\202 \210\307\310\311\312\313\314!\315\"\316\317%\"\210\242\207" [nil make-hash-table :test equal delete-dups puthash gethash maphash make-byte-code 514 "\211G\301U\203 \300@B\300\242B\240\207\300\302\300\242\303\304\305\306\307\310\311 !\312\"\313\314%\"!\"\240\207" vconcat vector [1 append magit-list-repos-uniquify mapcar make-byte-code 257 "\300\301\302\303\304\300GT[O!!QB\207" vconcat vector ["\\" file-name-nondirectory directory-file-name 0] 8 "\n\n(fn IT)"] 13 "\n\n(fn KEY VALUE)"] 11 (#$ . 12761)]) | |
| 117 | (provide 'magit-repos) | |
