[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/olivetti 7c4410f 133/134: Rename olivetti-set-environme

From: Stefan Monnier
Subject: [elpa] externals/olivetti 7c4410f 133/134: Rename olivetti-set-environment -> olivetti-set-margins
Date: Thu, 25 Apr 2019 09:57:45 -0400 (EDT)

branch: externals/olivetti
commit 7c4410f5d8f6c57c32ec400f2c375c25f28c27fa
Author: Paul W. Rankin <address@hidden>
Commit: Paul W. Rankin <address@hidden>

    Rename olivetti-set-environment -> olivetti-set-margins
 olivetti.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/olivetti.el b/olivetti.el
index e7e3568..d5421f7 100644
--- a/olivetti.el
+++ b/olivetti.el
@@ -167,7 +167,7 @@ exiting. The reverse is not true."
 ;;; Set Environment
-(defun olivetti-set-environment (&optional frame)
+(defun olivetti-set-margins (&optional frame)
   "Set text body width to `olivetti-body-width' with relative margins.
 Cycle through all windows displaying current buffer and first
@@ -267,7 +267,7 @@ fraction of the window width."
              (read-number "Set text body width (integer or float): "
   (setq olivetti-body-width n)
-  (olivetti-set-environment)
+  (olivetti-set-margins)
   (message "Text body width set to %s" olivetti-body-width))
 (defun olivetti-expand (&optional arg)
@@ -281,7 +281,7 @@ If prefixed with ARG, incrementally decrease."
                   ((floatp olivetti-body-width)
                    (+ olivetti-body-width (* 0.01 p))))))
     (setq olivetti-body-width (olivetti-safe-width n (selected-window))))
-  (olivetti-set-environment)
+  (olivetti-set-margins)
   (message "Text body width set to %s" olivetti-body-width)
    (let ((map (make-sparse-keymap)))
@@ -322,17 +322,17 @@ body width set with `olivetti-body-width'."
         (dolist (hook '(post-command-hook
-          (add-hook hook 'olivetti-set-environment t t))
+          (add-hook hook 'olivetti-set-margins t t))
         (add-hook 'change-major-mode-hook
                   'olivetti-reset-all-windows nil t)
         (setq-local split-window-preferred-function
         (setq olivetti--visual-line-mode visual-line-mode)
         (unless olivetti--visual-line-mode (visual-line-mode 1))
-        (olivetti-set-environment))
+        (olivetti-set-margins))
     (dolist (hook '(post-command-hook
-      (remove-hook hook 'olivetti-set-environment t))
+      (remove-hook hook 'olivetti-set-margins t))
     (when (and olivetti-recall-visual-line-mode-entry-state
                (not olivetti--visual-line-mode))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]