[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 786b5a3 10/26: Integrate another comment from Rasmus
From: |
João Távora |
Subject: |
[elpa] master 786b5a3 10/26: Integrate another comment from Rasmus |
Date: |
Fri, 19 Dec 2014 19:07:26 +0000 |
branch: master
commit 786b5a397e7ec124b9bab77062feb9727e420b95
Author: João Távora <address@hidden>
Commit: João Távora <address@hidden>
Integrate another comment from Rasmus
* darkroom.el (darkroom-margin-increment): New defcustom.
(darkroom-increase-margins): Take a parameter.
(darkroom-decrease-margins): Use `darkroom-increase-margins'
---
darkroom.el | 19 +++++++++++--------
1 files changed, 11 insertions(+), 8 deletions(-)
diff --git a/darkroom.el b/darkroom.el
index 888059d..b973316 100644
--- a/darkroom.el
+++ b/darkroom.el
@@ -79,6 +79,11 @@ Value is passed to `text-scale-increase'."
:type 'boolean
:group 'darkroom)
+(defcustom darkroom-margin-increment 0.05
+ "Increment to add used in `darkroom-increase-margins'."
+ :type 'float
+ :group 'darkroom)
+
(defun darkroom-margins ()
(cond ((functionp darkroom-margins)
(funcall darkroom-margins))
@@ -110,17 +115,15 @@ Value is passed to `text-scale-increase'."
nil
'all-frames)))
-(defun darkroom-increase-margins ()
- (interactive)
+(defun darkroom-increase-margins (increment)
+ (interactive (list darkroom-margin-increment))
(when (floatp darkroom-margins)
- (setq darkroom-margins (+ 0.05 darkroom-margins))
+ (setq darkroom-margins (+ increment darkroom-margins))
(darkroom-set-margins)))
-(defun darkroom-decrease-margins ()
- (interactive)
- (when (floatp darkroom-margins)
- (setq darkroom-margins (- darkroom-margins 0.05))
- (darkroom-set-margins)))
+(defun darkroom-decrease-margins (decrement)
+ (interactive (list darkroom-margin-increment))
+ (darkroom-increase-margins (- decrement)))
(defvar darkroom-mode-map (let ((map (make-sparse-keymap)))
(define-key map (kbd "C-M-+")
'darkroom-increase-margins)
- [elpa] master updated (cbfc00f -> 96e61a9), João Távora, 2014/12/19
- [elpa] master 08e7be7 02/26: fix: DARKROOM-CONFIRM-FILL-PARAGRAPH -> DARKROOM-FILL-PARAGRAPH-MAYBE, João Távora, 2014/12/19
- [elpa] master 8d2ec73 03/26: fix: save HEADER-LINE-FORMAT as well, João Távora, 2014/12/19
- [elpa] master 21a7919 04/26: first commit, João Távora, 2014/12/19
- [elpa] master 4dc83ad 05/26: darkroom-mode added, João Távora, 2014/12/19
- [elpa] master c6e0c3a 07/26: Leave darkroom-mode when leaving tentative-mode, João Távora, 2014/12/19
- [elpa] master 744d72a 08/26: Add .gitignore, João Távora, 2014/12/19
- [elpa] master 9cd8dfd 06/26: Now works with multiple windows for same darkroom buffer, João Távora, 2014/12/19
- [elpa] master 786b5a3 10/26: Integrate another comment from Rasmus,
João Távora <=
- [elpa] master 6cbfebe 09/26: Integrate some comments from Rasmus, João Távora, 2014/12/19
- [elpa] master b36123e 11/26: Tidy up margin calculation, João Távora, 2014/12/19
- [elpa] master a16a665 01/26: Initial commit, João Távora, 2014/12/19
- [elpa] master 3a1db96 13/26: Add some docstrings, João Távora, 2014/12/19
- [elpa] master a39ab2e 15/26: Minor tweaks, João Távora, 2014/12/19
- [elpa] master 90f5299 14/26: Prefix internal symbols with "darkroom--", João Távora, 2014/12/19
- [elpa] master 8b0daf6 12/26: Add (still non-functioning) `darkroom-compute-margins', João Távora, 2014/12/19
- [elpa] master 13717fb 17/26: Attempt a clearer design of modes, João Távora, 2014/12/19
- [elpa] master 20d5539 21/26: load cl-lib, João Távora, 2014/12/19
- [elpa] master 4bf9c10 19/26: Fix `darkroom-tentative-mode', João Távora, 2014/12/19