(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 (count-windows)
  "Split windows horizontal by equal width."
  (interactive "nHow many splits? ")
  (delete-other-windows)
  (let ((width (/ (window-total-width) count-windows)))
    (let ((count 0))
      (while (< count (1- count-windows))
        (split-window-right (- 0 width))
        (setf count (1+ count))))))

(defun me/split-h3 ()
  (interactive)
  (me/split-windows-horizontal 3))

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

;; Set transparency of emacs
(defun transparency (value)
  "Sets the transparency of the frame window. 0=transparent/100=opaque"
  (interactive "nTransparency Value 0 - 100 opaque: ")
  (set-frame-parameter (selected-frame) 'alpha value))

(defun start-irc ()
  (interactive)
  (setq erc-track-shorten-start 8
        erc-kill-buffer-on-part t
        erc-auto-query 'bury)
  (erc-tls :server "irc.libera.chat"
           :port 6697
           :nick "optimoron"
           :full-name "emacs-user"))