branch: elpa/magit
commit 864fc0a6e197ea8a45aa62e793e881f74536514e
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
magit-margin.el: Add new Settings section
---
lisp/magit-margin.el | 34 ++++++++++++++++++----------------
1 file changed, 18 insertions(+), 16 deletions(-)
diff --git a/lisp/magit-margin.el b/lisp/magit-margin.el
index c43e2985455..45cb58f453d 100644
--- a/lisp/magit-margin.el
+++ b/lisp/magit-margin.el
@@ -49,10 +49,27 @@ does not carry to other options."
:link '(info-link "(magit)Log Margin")
:group 'magit-log)
+;;; Settings
+
+(defvar-local magit-set-buffer-margin-refresh nil)
+
(defvar-local magit-buffer-margin nil)
(put 'magit-buffer-margin 'permanent-local t)
-(defvar-local magit-set-buffer-margin-refresh nil)
+(defun magit-buffer-margin-p ()
+ (car magit-buffer-margin))
+
+(defun magit-margin-option ()
+ (pcase major-mode
+ ('magit-cherry-mode 'magit-cherry-margin)
+ ('magit-log-mode 'magit-log-margin)
+ ('magit-log-select-mode 'magit-log-select-margin)
+ ('magit-reflog-mode 'magit-reflog-margin)
+ ('magit-refs-mode 'magit-refs-margin)
+ ('magit-stashes-mode 'magit-stashes-margin)
+ ('magit-status-mode 'magit-status-margin)
+ ('forge-notifications-mode 'magit-status-margin)
+ ('forge-topics-mode 'magit-status-margin)))
;;; Commands
@@ -112,21 +129,6 @@ does not carry to other options."
;;; Core
-(defun magit-buffer-margin-p ()
- (car magit-buffer-margin))
-
-(defun magit-margin-option ()
- (pcase major-mode
- ('magit-cherry-mode 'magit-cherry-margin)
- ('magit-log-mode 'magit-log-margin)
- ('magit-log-select-mode 'magit-log-select-margin)
- ('magit-reflog-mode 'magit-reflog-margin)
- ('magit-refs-mode 'magit-refs-margin)
- ('magit-stashes-mode 'magit-stashes-margin)
- ('magit-status-mode 'magit-status-margin)
- ('forge-notifications-mode 'magit-status-margin)
- ('forge-topics-mode 'magit-status-margin)))
-
(defun magit-set-buffer-margin (&optional reset refresh)
(when-let ((option (magit-margin-option)))
(let* ((default (symbol-value option))
