[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/olivetti 4bec5f2 022/134: Added expand/shrink interacti
From: |
Stefan Monnier |
Subject: |
[elpa] externals/olivetti 4bec5f2 022/134: Added expand/shrink interactive funs |
Date: |
Thu, 25 Apr 2019 09:57:20 -0400 (EDT) |
branch: externals/olivetti
commit 4bec5f243fe88703fe6c3f3d062afb1899c2033f
Author: Paul Rankin <address@hidden>
Commit: Paul Rankin <address@hidden>
Added expand/shrink interactive funs
---
olivetti.el | 22 +++++++++++++++++++++-
1 file changed, 21 insertions(+), 1 deletion(-)
diff --git a/olivetti.el b/olivetti.el
index 5ebdda4..f80f0bc 100644
--- a/olivetti.el
+++ b/olivetti.el
@@ -182,7 +182,27 @@ Toggles the value of `olivetti-hide-mode-line' and runs
(interactive)
(olivetti-set-mode-line 'toggle))
-;; Mode Definition
=============================================================
+(defun olivetti-expand (&optional arg)
+ "Incrementally increase the value of `olivetti-body-width'.
+If prefixed with ARG, incrementally decrease."
+ (interactive "P")
+ (let* ((p (if arg -1 1))
+ (n (cond ((integerp olivetti-body-width)
+ (+ olivetti-body-width (* 2 p)))
+ ((floatp olivetti-body-width)
+ (+ olivetti-body-width (* 0.01 p))))))
+ (setq olivetti-body-width (olivetti-safe-width n)))
+ (olivetti-set-environment)
+ (message "Text body width set to %s" olivetti-body-width))
+
+(defun olivetti-shrink (&optional arg)
+ "incrementally decrease the value of `olivetti-body-width'.
+If prefixed with ARG, incrementally increase."
+ (interactive "P")
+ (let ((p (unless arg t)))
+ (olivetti-expand p)))
+
+;; Mode Definition =====================================================
;;;###autoload
(defun turn-on-olivetti-mode ()
- [elpa] externals/olivetti 4252fe4 026/134: Deleted unneeded .gitignore, (continued)
- [elpa] externals/olivetti 4252fe4 026/134: Deleted unneeded .gitignore, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti b42eb3e 029/134: Allow set-width to accept any number, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti 34b8a54 032/134: Added doc string, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti 7b215a7 037/134: Fixes #7, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti 41c6642 039/134: Update MELPA URL, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti 947b1c0 044/134: Custom option to recall visual-line-mode entry state, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti 0653b07 043/134: Make olivetti-set-environment act on the list of all buffer windows, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti 42d5822 048/134: Add keymap, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti 6a8f400 021/134: Added set-width interactive fun, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti 3c60908 023/134: Made set-environment use safe-width, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti 4bec5f2 022/134: Added expand/shrink interactive funs,
Stefan Monnier <=
- [elpa] externals/olivetti bd24fae 027/134: Removed erroneous mode-hook, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti 99a8b3d 034/134: Changed email, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti bd672e5 052/134: Make it easier to adjust olivetti-body-width, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti be11f32 055/134: Fixing typo, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti bb2e0cf 056/134: set-temporary-overlay-map -> set-transient-map, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti 4a6197f 064/134: Merge branch 'master' of https://github.com/rnkn/olivetti, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti e7b7169 063/134: Using page delimiters, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti 4095b76 053/134: Merge pull request #10 from larstvei/master, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti 7f8e44b 061/134: Custom lighter, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti 90cf062 065/134: Added C-c \, Stefan Monnier, 2019/04/25