[elpa] externals/olivetti 997ae52 001/134: Initial

[Stefan Monnier]

branch: externals/olivetti
commit 997ae52da79ac9242b254a76c16fadc018e88167
Author: Paul Rankin <address@hidden>
Commit: Paul Rankin <address@hidden>

    Initial
---
 .gitignore  |  1 +
 olivetti.el | 88 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 89 insertions(+)

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..c531d98
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1 @@
+*.elc
diff --git a/olivetti.el b/olivetti.el
new file mode 100644
index 0000000..431cba3
--- /dev/null
+++ b/olivetti.el
@@ -0,0 +1,88 @@
+;;; olivetti.el --- Minor mode for a nice writing environment
+
+;; Copyright (C) 2014  Paul Rankin
+
+;; Author: Paul Rankin <address@hidden>
+;; Keywords: wp
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; 
+
+;;; Code:
+
+(defgroup olivetti ()
+  "Minor mode for a nice writing environment"
+  :prefix "olivetti-"
+  :group 'wp
+  :group 'fountain
+  :group 'markdown)
+
+(defcustom olivetti-body-width 66
+  "Text body width in columns to which to adjust margin width.
+
+Does not affect file contents."
+  :type 'integer
+  :group 'olivetti)
+
+(defcustom olivetti-hide-mode-line t
+  "Hide the mode line."
+  :type 'boolean
+  :group 'olivetti)
+
+(defun olivetti-set-window-margins ()
+  "Set window-body-width to `olivetti-body-width' with relative margins."
+  (let ((margin
+         (/ (- (window-total-width) olivetti-body-width) 2)))
+    (set-window-margins (selected-window) margin margin)))
+
+;; (easy-menu-define olivetti-mode-menu olivetti-mode-map
+;;   "Menu for Olivetti Mode."
+;;   '("Olivetti"
+;;     ["Use Clean Margins" ignore]
+;;     ["Hide Mode Line" ignore
+;;      :style toggle
+;;      :selected olivetti-hide-mode-line]))
+
+;; (defvar olivetti-mode-map nil
+;;   "Mode map for `olivetti-mode'.")
+
+;;;###autoload
+(defun turn-on-olivetti-mode ()
+  "Turn on `olivetti-mode' unconditionally."
+  (interactive)
+  (olivetti-mode 1))
+
+;;;###autoload
+(define-minor-mode olivetti-mode
+  ""
+  :init-value nil
+  :lighter " Olv"
+  (if olivetti-mode
+      (progn
+        (setq-local scroll-conservatively 101)
+        (when olivetti-hide-mode-line
+          (setq-local mode-line-format nil))
+        (add-hook 'window-configuration-change-hook
+                  'olivetti-set-window-margins nil t)
+        (run-hook-with-args 'window-configuration-change-hook))
+    (kill-local-variable 'mode-line-format)
+    (remove-hook 'window-configuration-change-hook
+                 'olivetti-set-window-margins t)
+    (set-window-margins nil nil)))
+
+(provide 'olivetti)
+;;; olivetti.el ends here