| 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!\203I AA\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 \202D D\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) | |
