;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311\312\313&\207" [require magit-section magit-transient 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) (defvar magit-buffer-margin nil nil) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local magit-buffer-margin put permanent-local t] 4) (defvar magit-set-buffer-margin-refresh nil nil) (make-variable-buffer-local 'magit-set-buffer-margin-refresh) (defalias 'magit-margin-settings #[0 "\300\301!\207" [transient-setup magit-margin-settings] 2 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312$#\210\300\301\313\314#\207" [put magit-margin-settings interactive-only t function-documentation "Change what information is displayed in the margin." transient--prefix transient-prefix :command :info-manual "(magit) Log Margin" transient--layout ([1 transient-column (:description "Margin") ((1 transient-suffix (:key "L" :description "Toggle visibility" :command magit-toggle-margin)) (1 transient-suffix (:key "l" :description "Cycle style" :command magit-cycle-margin-style)) (1 transient-suffix (:key "d" :description "Toggle details" :command magit-toggle-margin-details)) (1 transient-suffix (:key "v" :description "Change verbosity" :command magit-refs-set-show-commit-count :if-derived magit-refs-mode)))])] 8) #@32 Show or hide the Magit margin. (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 (#$ . 2046) nil]) #@40 Cycle style used for the Magit margin. (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 (#$ . 2334) nil]) #@43 Show or hide details in the Magit margin. (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 (#$ . 2864) nil]) (defalias 'magit-buffer-margin-p #[0 "@\207" [magit-buffer-margin] 1]) (defalias 'magit-margin-option #[0 "\301\267\202\302\207\303\207\304\207\305\207\306\207\307\207\310\207\310\207\311\207" [major-mode #s(hash-table size 8 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 forge-notifications-mode 20)) magit-cherry-margin magit-log-margin magit-log-select-margin magit-reflog-margin magit-refs-margin magit-stashes-margin magit-status-margin nil] 2]) #@32 (fn &optional RESET REFRESH) (defalias 'magit-set-buffer-margin #[512 "\302 \211\205\230\211J\3038\204\204\304!\210\242\243\211\242\243\211\242\243\211\242\243\211\242\243 \305\306!\203JAA\211#\240\266\307\305\211\310#\211\203\206\211@\311!r\312\313\"\216\314@\315\"\210\316!\210\203w\317\320\316\305\321$\210\202}\322\320\316\321#\210*\210A\266\202\202O\210\205\226\204\224 \205\226\323 \266\221\207" [magit-buffer-margin magit-set-buffer-margin-refresh magit-margin-option 2 copy-sequence nil functionp get-buffer-window-list 0 internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord magit-set-window-margin add-hook window-configuration-change-hook t remove-hook magit-refresh-buffer] 28 (#$ . 3799)]) #@25 (fn &optional WINDOW) (defalias 'magit-set-window-margin #[256 "\211\204\f\301 \211\262\205,\302!r\303\304\"\216\305@\306\"\210\307\310\311 @\312 \205(\3138#*\262\207" [magit-buffer-margin get-buffer-window internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord set-window-margins nil window-margins magit-buffer-margin-p 2] 7 (#$ . 4646)]) #@39 (fn &optional STRING PREVIOUS-LINE) (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 (#$ . 5088)]) (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]) #@26 (fn MODE SYMBOL VALUE) (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 (#$ . 5795)]) (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"))) #@510 Time units used when formatting relative commit ages. The value is a list of time units, beginning with the longest. Each element has the form (CHAR UNIT UNITS SECONDS). UNIT is the time unit, UNITS is the plural of that unit. CHAR is a character abbreviation. And SECONDS is the number of seconds in one UNIT. This is defined as a variable to make it possible to use time units for a language other than English. It is not defined as an option, because most other parts of Magit are always in English. (defvar magit--age-spec (byte-code "\300\301\302\303F\304\305\306\307F\310\311\312\313F\314\315\316\317F\320\321\322\323F\324BBBBB\207" [89 "year" "years" 31556952 77 "month" "months" 2629746 119 "week" "weeks" 604800 100 "day" "days" 86400 104 "hour" "hours" 3600 ((109 "minute" "minutes" 60) (115 "second" "seconds" 1))] 8) (#$ . 6611)) #@34 (fn DATE &optional ABBREVIATE) (defalias 'magit--age #[513 "\301\211\302\303 ;\203\304!\202Z!#\207" [magit--age-spec #[771 "\300\211@\211\242\243\211\242\243\211\242\243\211\242\243\301\302\303#!A\2032\245\304Y\203N\211\203<\202G\304U\203F\202GD\262\300\202X\262A\262\305\262\266\214\262\266\202\204\207" [nil round / 1.0 1 :recurse] 24 "\n\n(fn ABBREVIATE AGE SPEC)"] abs float-time string-to-number] 9 (#$ . 7465)]) (provide 'magit-margin)