1 files changed, 50 insertions, 5 deletions

diff --git a/emacs/.emacs.d/lisp/my/my-buffer.el b/emacs/.emacs.d/lisp/my/my-buffer.el
index f06956f..f2da7f5 100644
--- a/emacs/.emacs.d/lisp/my/my-buffer.el
+++ b/emacs/.emacs.d/lisp/my/my-buffer.el
@@ -239,24 +239,54 @@ that point."
       (setq buffer temp-buffer))
     (set-window-buffer first-window buffer)))
 
+(defun my-set-left-buffer ()
+  "Generate and switch to an empty buffer."
+  (interactive)
+  (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."
+width 80. If in org-mode, also narrow to current subtree. Make
+buffers on both sides empty read-only buffers."
   (interactive)
   ;; Only one window in the current frame indicates we are in focus
   ;; write mode.
-  (if (length= (window-list) 1)
+  (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))
-    (delete-other-windows)
-    (let ((margin (/ (- (window-width) 80) 2)))
-      (set-window-margins nil margin margin))))
+    (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."
@@ -415,6 +445,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
@@ -483,5 +518,15 @@ With double prefix arguments, create a new indirect 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