(defun mk-write-mode-enable ()
  (setq olivetti-body-width 73)
  (setq mode-line-format nil)
  (olivetti-mode))
(defun mk-write-mode-disable ()
  (setq mode-line-format '(("-" mode-line-mule-info mode-line-modified mode-line-frame-identification mode-line-buffer-identification " " mode-line-position mode-line-modes (which-func-mode ("" which-func-format "--")) (global-mode-string ("--" global-mode-string)) "-%-")))
  (olivetti-mode)
  (defvar mode-line-format-current
    (symbol-value 'mode-line-format)))

(defun me/split-windows-horizontal ()
  "Split windows horizontal by equal width."
  (interactive)
  (setq count-windows 3)
  (delete-other-windows)
  (let ((width (/ (window-total-width) count-windows)))
    (setq count 0)
    (while (< count (1- count-windows))
      (split-window-right (- 0 width))
      (setq count (1+ count)))))

(defun me/split-windows-vertical ()
  "Split windows vertical by equal width."
  (interactive)
  (setq count-windows 3)
  (delete-other-windows)
  (let ((height (/ (window-total-height) count-windows)))
    (setq count 0)
    (while (< count (1- count-windows))
      (split-window-below (- 0 height))
      (setq count (1+ count)))))