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

Chizi123
2018-11-18 434b46beff1c5ec01cbefd5273d89971a82d6bab
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\300\302!\210\300\303!\210\304\305\306\307\310\311\312\313&\207" [require dash magit-section magit-mode custom-declare-group magit-margin nil "Information Magit displays in the margin.\n\nYou can change the STYLE and AUTHOR-WIDTH of all `magit-*-margin'\noptions to the same values by customizing `magit-log-margin'\n*before* `magit' is loaded.  If you do that, then the respective\nvalues for the other options will default to what you have set\nfor that variable.  Likewise if you set `magit-log-margin's INIT\nto nil, then that is used in the default of all other options.  But\nsetting it to t, i.e. re-enforcing the default for that option,\ndoes not carry to other options." :link (info-link "(magit)Log Margin") :group magit-log] 8)
16 (defvar magit-buffer-margin nil nil)
17 (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local magit-buffer-margin put permanent-local t] 4)
18 (defvar magit-set-buffer-margin-refresh nil nil)
19 (make-variable-buffer-local 'magit-set-buffer-margin-refresh)
20 #@74 Popup console for changing appearance of the margin.
21
22 (fn &optional ARG)
23 (defalias 'magit-margin-popup #[256 "\300\301\302#\207" [magit-invoke-popup magit-margin-popup nil] 5 (#$ . 1444) "P"])
24 (defvar magit-margin-popup (list :variable 'magit-margin-arguments :actions '("Margin" (76 "Toggle visibility" magit-toggle-margin) (108 "Cycle style" magit-cycle-margin-style) (100 "Toggle details" magit-toggle-margin-details) (lambda nil (and (with-current-buffer magit-pre-popup-buffer (derived-mode-p 'magit-refs-mode)) (propertize "Left edge" 'face 'magit-popup-heading))) (118 "Change verbosity" magit-refs-set-show-commit-count)) :max-action-columns 1))
25 (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\207" [magit-define-popup-keys-deferred magit-margin-popup custom-declare-variable magit-margin-arguments funcall function #[0 "\301\302\"\207" [magit-margin-popup plist-get :default-arguments] 3] "" :group magit-git-arguments :type (repeat (string :tag "Argument"))] 8)
26 (defalias 'magit-margin-arguments #[0 "\303=\203    \207\n\207" [magit-current-popup magit-current-popup-args magit-margin-arguments magit-margin-popup] 2])
27 (put 'magit-margin-arguments 'definition-name 'magit-margin-popup)
28 #@32 Show or hide the Magit margin.
29 (defalias 'magit-toggle-margin #[0 "\301 \204    \302\303!\210\304 ?\240\210\305 \207" [magit-buffer-margin magit-margin-option user-error "Magit margin isn't supported in this buffer" magit-buffer-margin-p magit-set-buffer-margin] 2 (#$ . 2670) nil])
30 #@40 Cycle style used for the Magit margin.
31 (defalias 'magit-cycle-margin-style #[0 "\301 \204    \302\303!\210\211AA@\211\304\267\202-\305\202.\301 JA@\211;\203'\211\202(\306\262\202.\307\262\240\266\310\311\312\"\207" [magit-buffer-margin magit-margin-option user-error "Magit margin isn't supported in this buffer" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (age 21 age-abbreviated 25)) age-abbreviated "%Y-%m-%d %H:%M " age magit-set-buffer-margin nil t] 5 (#$ . 2958) nil])
32 #@43 Show or hide details in the Magit margin.
33 (defalias 'magit-toggle-margin-details #[0 "\301 \204    \302\303!\210\304\233\211\3048?\240\266\305\306\307\"\207" [magit-buffer-margin magit-margin-option user-error "Magit margin isn't supported in this buffer" 3 magit-set-buffer-margin nil t] 4 (#$ . 3488) nil])
34 (defalias 'magit-buffer-margin-p #[0 "@\207" [magit-buffer-margin] 1])
35 (defalias 'magit-margin-option #[0 "\301\267\202\302\207\303\207\304\207\305\207\306\207\307\207\310\207\311\207" [major-mode #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (magit-cherry-mode 6 magit-log-mode 8 magit-log-select-mode 10 magit-reflog-mode 12 magit-refs-mode 14 magit-stashes-mode 16 magit-status-mode 18)) magit-cherry-margin magit-log-margin magit-log-select-margin magit-reflog-margin magit-refs-margin magit-stashes-margin magit-status-margin nil] 2])
36 #@32 
37
38 (fn &optional RESET REFRESH)
39 (defalias 'magit-set-buffer-margin #[512 "\302 \211\205\241\211J\3038\204\204\304!@A\211@A\211@A\211@A\211@A\n \305!\203IAA\211    #\240\266\306\307\211\310#\211\203\213\211@\311!r\312\310\313\314\315!\316\"\303$\216\317@\320\"\210\321!\210\203|\322\323\321\307\324$\210\202\202\325\323\321\324#\210*\210A\266\202\202N\210\211\205\233\204\231    \205\233\326 \266\205\266\212\266\202\207" [magit-buffer-margin magit-set-buffer-margin-refresh magit-margin-option 2 copy-sequence functionp get-buffer-window-list nil 0 internal--before-with-selected-window make-byte-code "\301\300!\207" vconcat vector [internal--after-with-selected-window] select-window norecord magit-set-window-margin add-hook window-configuration-change-hook t remove-hook magit-refresh-buffer] 29 (#$ . 4387)])
40 #@25 
41
42 (fn &optional WINDOW)
43 (defalias 'magit-set-window-margin #[256 "\211\204\f\301 \211\262\2053\302!r\303\304\305\306\307!\310\"\311$\216\312@\313\"\210\314\315\316 @\317 \205/\3118#*\262\207" [magit-buffer-margin get-buffer-window internal--before-with-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord set-window-margins nil window-margins magit-buffer-margin-p] 8 (#$ . 5248)])
44 #@39 
45
46 (fn &optional STRING PREVIOUS-LINE)
47 (defalias 'magit-make-margin-overlay #[512 "\211\203 \212\300y\210\301!)\207\302\303 T\304 \305\306$\307\310\306#\210\307\311\312\313\314\315\316D    \206+\317D##\207" [-1 magit-make-margin-overlay make-overlay line-beginning-position line-end-position nil t overlay-put evaporate before-string propertize "o" display margin right-margin " "] 11 (#$ . 5721)])
48 (defalias 'magit-maybe-make-margin-overlay #[0 "\302\303\"\204    \304=\205\302\305\"\205\306\307\310\"\207" [magit-insert-section--current major-mode magit-section-match (unpulled unpushed recent stashes local cherries) magit-refs-mode (remote commit tags) magit-make-margin-overlay nil t] 3])
49 #@26 
50
51 (fn MODE SYMBOL VALUE)
52 (defalias 'magit-margin-set-variable #[771 "\301\"\210\302\303\"\210\304 \211\203+\211@r\211q\210=\203#\305\306!\210\307 \210)A\266\202\202\f\210\302\310\"\207" [major-mode set-default message "Updating margins in %s buffers..." buffer-list magit-set-buffer-margin t magit-refresh "Updating margins in %s buffers...done"] 7 (#$ . 6428)])
53 (defconst magit-log-margin--custom-type '(list (boolean :tag "Show margin initially") (choice :tag "Show committer" (string :tag "date using time-format" "%Y-%m-%d %H:%M ") (const :tag "date's age" age) (const :tag "date's age (abbreviated)" age-abbreviated)) (const :tag "Calculate width using magit-log-margin-width" magit-log-margin-width) (boolean :tag "Show author name by default") (integer :tag "Show author name using width")))
54 #@510 Time units used when formatting relative commit ages.
55
56 The value is a list of time units, beginning with the longest.
57 Each element has the form (CHAR UNIT UNITS SECONDS).  UNIT is the
58 time unit, UNITS is the plural of that unit.  CHAR is a character
59 abbreviation.  And SECONDS is the number of seconds in one UNIT.
60
61 This is defined as a variable to make it possible to use time
62 units for a language other than English.  It is not defined
63 as an option, because most other parts of Magit are always in
64 English.
65 (defvar magit--age-spec (byte-code "\300\301\302\303\304!F\305\306\307\303\310!F\311\312\313\314F\315\316\317\320F\321\322\323\324F\325BBBBB\207" [89 "year" "years" round 31556952.0 77 "month" "months" 2629746.0 119 "week" "weeks" 604800 100 "day" "days" 86400 104 "hour" "hours" 3600 ((109 "minute" "minutes" 60) (115 "second" "seconds" 1))] 8) (#$ . 7244))
66 #@34 
67
68 (fn DATE &optional ABBREVIATE)
69 (defalias 'magit--age #[513 "\301C\211\302\303\304\305\306\"\307\"\310\311%\240\210\211\242\312\313 ;\203%\314!\202&Z!\"\207" [magit--age-spec nil make-byte-code 514 "\211@\211@A\211@A\211@A\211@A\n\302\303\304#!A\2030\245\305Y\203H\211\300\2039\202D\305U\203C\202DD\202P\301\242A\"\262\266\204\207" vconcat vector [round / 1.0 1] 20 "\n\n(fn AGE SPEC)" abs float-time string-to-number] 11 (#$ . 8118)])
70 (provide 'magit-margin)