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

Chizi123
2018-11-17 5cb5f70b1872a757e93ea333b0e2dca50c6c8957
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 "\203r\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\fC\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)