Dont show modeline by default

bundle/bundle--defaults.el

@@ -7,6 +7,7 @@
 (define-key menu-bar-tools-menu [games] nil)
 (display-time-mode 1)
 (global-prettify-symbols-mode 1)
+(setq-default mode-line-format nil)
 
 ;; Cursor and mouse
 (column-number-mode -1)

bundle/bundle--mk.el

@@ -1,13 +1,34 @@
-(defun mk-write-mode-enable ()
+(require 'ox-latex)
-  (setq olivetti-body-width 73)
+
-  (setq mode-line-format nil)
+(defun mk-show-modeline ()
-  (olivetti-mode))
+  (interactive)
-(defun mk-write-mode-disable ()
+  (setq mode-line-format
-  (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)) "-%-")))
+        '(("-" mode-line-mule-info
-  (olivetti-mode)
+           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)
@@ -30,7 +51,6 @@
       (split-window-below (- 0 height))
       (setq count (1+ count)))))
 
-(require 'ox-latex)
 (add-to-list 'org-latex-classes
              '("koma-article"
                "\\documentclass{scrartcl}"