1 files changed, 73 insertions, 5 deletions

diff --git a/emacs/.emacs.d/lisp/my/my-buffer.el b/emacs/.emacs.d/lisp/my/my-buffer.el
index ef988f8..a8683de 100644
--- a/emacs/.emacs.d/lisp/my/my-buffer.el
+++ b/emacs/.emacs.d/lisp/my/my-buffer.el
@@ -239,12 +239,52 @@ that point."
       (setq buffer temp-buffer))
     (set-window-buffer first-window buffer)))
 
-(defun my-focus-write ()
-  "Make the current window the only one centered with width 80."
+(defun my-set-left-buffer ()
+  "Generate and switch to an empty buffer."
   (interactive)
-  (delete-other-windows)
-  (let ((margin (/ (- (window-width) 80) 2)))
-    (set-window-margins nil margin margin)))
+  (set-window-buffer
+   (window-left (get-buffer-window))
+   (with-current-buffer (get-buffer-create "*my-left*")
+     (read-only-mode t)
+     (current-buffer))))
+
+(defun my-set-right-buffer ()
+  "Generate and switch to an empty buffer."
+  (interactive)
+  (set-window-buffer
+   (window-right (get-buffer-window))
+   (with-current-buffer (get-buffer-create "*my-right*")
+     (read-only-mode t)
+     (current-buffer))))
+
+(defun my-toggle-focus-write ()
+  "Toggle focus write mode.
+
+Focus write: make the current window the only one centered with
+width 80. If in org-mode, also narrow to current subtree. Make
+buffers on both sides empty read-only buffers."
+  (interactive)
+  (if (and (equal
+            (buffer-name
+             (window-buffer (window-left (get-buffer-window))))
+            "*my-left*")
+           (equal
+            (buffer-name
+             (window-buffer (window-right (get-buffer-window))))
+            "*my-right*"))
+      (progn
+        (winner-undo)
+        (when (derived-mode-p 'org-mode)
+          (widen)))
+    (when (derived-mode-p 'org-mode)
+      (org-narrow-to-subtree))
+    (my-set-left-buffer)
+    (my-set-right-buffer)
+    (let ((margin (/ (- 80 (window-width)) 2)))
+      (enlarge-window margin t)
+      (windmove-left)
+      (enlarge-window (- margin) t)
+      (windmove-right))))
 
 (defun my-select-new-window-matching-mode (mode)
   "Select a new window."
@@ -403,6 +443,11 @@ for the given MAJOR-MODE, any text is appended to it."
       (4 (my-buffer-scratch-setup region default-mode))
       (_ (my-buffer-scratch-setup region)))))
 
+(defun my-new-empty-buffer ()
+  "Generate and switch to an empty buffer."
+  (interactive)
+  (switch-to-buffer (generate-new-buffer "empty")))
+
 (defcustom my-scratch-buffer-default-mode 'org-mode
   "Default major mode for `my-buffer-create-scratch'."
   :type 'symbol
@@ -458,5 +503,28 @@ With double prefix arguments, create a new indirect buffer."
     (4 (my-switch-indirect-buffer))
     (_ (my-cycle-indirect-buffer))))
 
+(defun my-save-text-and-switch-to-buffer (text file-name)
+  "Save TEXT to FILE-NAME and switch to buffer."
+  (let ((buffer (find-file-noselect file-name))
+        (coding-system-for-write 'utf-8))
+    (with-current-buffer buffer
+      (let ((inhibit-read-only t))
+        (erase-buffer)
+        (insert text))
+      (goto-char (point-min))
+      (save-buffer)
+      (revert-buffer t t))
+    (switch-to-buffer buffer)))
+
+(defun my-fontify-with-mode (text mode)
+  "Fontify TEXT with MODE."
+  (with-temp-buffer
+    (funcall mode)
+    (insert text)
+    (if (fboundp 'font-lock-ensure)
+        (font-lock-ensure)
+      (with-no-warnings (font-lock-fontify-buffer)))
+    (buffer-string)))
+
 (provide 'my-buffer)
 ;;; my-buffer.el ends here