[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/olivetti f213afd 017/134: Added safe-width fun
From: |
Stefan Monnier |
Subject: |
[elpa] externals/olivetti f213afd 017/134: Added safe-width fun |
Date: |
Thu, 25 Apr 2019 09:57:19 -0400 (EDT) |
branch: externals/olivetti
commit f213afdca78f63772b2909f61c4a9f162514d789
Author: Paul Rankin <address@hidden>
Commit: Paul Rankin <address@hidden>
Added safe-width fun
---
olivetti.el | 23 +++++++++++++++++++++++
1 file changed, 23 insertions(+)
diff --git a/olivetti.el b/olivetti.el
index b7b9967..508816a 100644
--- a/olivetti.el
+++ b/olivetti.el
@@ -121,6 +121,29 @@ mode line. Finally redraw the frame."
(setq-local mode-line-format nil)))
(redraw-frame (selected-frame)))
+(defun olivetti-safe-width (n)
+ "Parse N to a safe value for `olivetti-body-width'."
+ (let ((window-width (- (window-total-width)
+ (% (window-total-width) 2)))
+ (min-width (+ olivetti-minimum-body-width
+ (% olivetti-minimum-body-width 2))))
+ (cond ((integerp n)
+ (let ((width (min n window-width)))
+ (max width min-width)))
+ ((floatp n)
+ (let ((min-width
+ (string-to-number (format "%0.2f"
+ (/ (float min-width)
+ window-width))))
+ (width
+ (string-to-number (format "%0.2f"
+ (min n 1.0)))))
+ (max width min-width)))
+ ((message "`olivetti-body-width' must be an integer or a float")
+ (setq olivetti-body-width
+ (car (get 'olivetti-body-width 'standard-value)))))))
+
+
(defun olivetti-set-environment ()
"Set text body width to `olivetti-body-width' with relative margins."
(let* ((n olivetti-body-width)
- [elpa] externals/olivetti af1d719 010/134: Revert "Using run-window-configuration-change-hook fn", (continued)
- [elpa] externals/olivetti af1d719 010/134: Revert "Using run-window-configuration-change-hook fn", Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti 5cfe277 020/134: Changed body-width standard-value to 80, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti 514bc46 009/134: Using run-window-configuration-change-hook fn, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti 2363de6 008/134: Fixed margin reset on exit, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti 885fb20 019/134: Added minimum-body-width, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti 06bf86f 016/134: Add hook when changing fonts, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti 30e3cbe 014/134: Added README/Commentary, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti 869221a 013/134: Removed delete-selection-mode, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti ea4a25f 011/134: Obsessive cleanliness, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti 554461c 012/134: Added toggle-hide-modeline, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti f213afd 017/134: Added safe-width fun,
Stefan Monnier <=
- [elpa] externals/olivetti 906974e 031/134: Fixes #5, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti 30b82ff 018/134: Made body-width buffer-local, Stefan Monnier, 2019/04/25
- [elpa] externals/olivetti e0dabc0 024/134: Obsessive cleanliness, Stefan Monnier, 2019/04/25
- [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