(require 'ox-latex)

(defun mk-show-modeline ()
  (interactive)
  (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)) "-%-")))
  (defvar mode-line-format-current
    (symbol-value 'mode-line-format)))

(defun mk-hide-modeline ()
  (interactive)
  (setq mode-line-format nil))

(defun mk-write-mode-enable ()
  (setq olivetti-body-width 73)
  (olivetti-mode)
  (mk-hide-modeline))

(defun mk-write-mode-disable ()
  (olivetti-mode)
  (mk-show-modeline))

(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)))))

(add-to-list 'org-latex-classes
             '("koma-article"
               "\\documentclass{scrartcl}"
               ("\\section{%s}" . "\\section*{%s}")
               ("\\subsection{%s}" . "\\subsection*{%s}")
               ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
               ("\\paragraph{%s}" . "\\paragraph*{%s}")
               ("\\subparagraph{%s}" . "\\subparagraph*{%s}")))