[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 4dc83ad 05/26: darkroom-mode added
From: |
João Távora |
Subject: |
[elpa] master 4dc83ad 05/26: darkroom-mode added |
Date: |
Fri, 19 Dec 2014 19:07:24 +0000 |
branch: master
commit 4dc83ad2a7aeba9818143e9444353251d12ec7a0
Author: Joao Tavora <address@hidden>
Commit: Joao Tavora <address@hidden>
darkroom-mode added
---
darkroom.el | 39 +++++++++++++++------------------------
1 files changed, 15 insertions(+), 24 deletions(-)
diff --git a/darkroom.el b/darkroom.el
index 792badb..d43b369 100644
--- a/darkroom.el
+++ b/darkroom.el
@@ -12,14 +12,14 @@ It's value can be:
- a function that returns a cons cell interpreted like the
previous option.
-Value is effective when `darkroom-minor-mode' is toggled, when
+Value is effective when `darkroom-mode' is toggled, when
changing window or by calling `darkroom-set-margins'")
(defvar darkroom-turns-on-visual-line-mode t
"If non-nil pair `visual-line-mode' with
- `darkroom-minor-mode'")
+ `darkroom-mode'")
(defvar darkroom-fringes-outside-margins t
- "If non-nil use fringes outside margins for `darkroom-minor-mode'")
+ "If non-nil use fringes outside margins for `darkroom-mode'")
(defun darkroom-margins ()
(cond ((functionp darkroom-margins)
@@ -56,50 +56,41 @@ changing window or by calling `darkroom-set-margins'")
(setq darkroom-margins (- darkroom-margins 0.05))
(darkroom-set-margins)))
-(defun darkroom-fill-paragraph-maybe (really)
- (interactive "P")
- (cond (visual-line-mode
- (if (not really)
- (message "not filling paragraph")
- (call-interactively 'fill-paragraph)
- (message "filled paragraph even in visual-line-mode")))
- (t
- (call-interactively 'fill-paragraph))))
+(defun darkroom-confirm-fill-paragraph ()
+ (interactive)
+ (when (yes-or-no-p "Really fill paragraph?")
+ (call-interactively 'fill-paragraph)))
-(defvar darkroom-minor-mode-map (let ((map (make-sparse-keymap)))
+(defvar darkroom-mode-map (let ((map (make-sparse-keymap)))
(define-key map (kbd "C-M-+")
'darkroom-increase-margins)
(define-key map (kbd "C-M--")
'darkroom-decrease-margins)
- (define-key map (kbd "M-q")
'darkroom-fill-paragraph-maybe)
+ (define-key map (kbd "M-q")
'darkroom-confirm-fill-paragraph)
map))
(defvar darkroom-saved-mode-line-format nil)
(defvar darkroom-saved-visual-mode nil)
-(define-minor-mode darkroom-minor-mode
+(define-minor-mode darkroom-mode
"A minor mode that emulates the darkroom editor."
nil
" dark"
nil
- (cond (darkroom-minor-mode
+ (cond (darkroom-mode
(setq darkroom-saved-mode-line-format mode-line-format
- mode-line-format nil
- darkroom-saved-header-line-format header-line-format
- header-line-format "")
+ mode-line-format nil)
(setq fringes-outside-margins darkroom-fringes-outside-margins)
(add-hook 'window-configuration-change-hook 'darkroom-set-margins nil
t)
(darkroom-set-margins)
+ (setq header-line-format t)
;; a hack shoulnd't be needed but apparently is
(set-window-buffer (selected-window) (current-buffer))
(when darkroom-turns-on-visual-line-mode
(visual-line-mode 1)))
(t
- (setq mode-line-format darkroom-saved-mode-line-format
- header-line-format darkroom-saved-header-line-format)
+ (setq header-line-format nil)
+ (setq mode-line-format darkroom-saved-mode-line-format)
(when darkroom-turns-on-visual-line-mode
(visual-line-mode -1))
(remove-hook 'window-configuration-change-hook 'darkroom-set-margins
t)
(set-window-margins (selected-window) 0 0))))
-
-
-
(provide 'darkroom)
- [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 <=
- [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, 2014/12/19
- [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