diff --git a/bundle/bundle--defaults.el b/bundle/bundle--defaults.el index c9427ea2..b520d00e 100644 --- a/bundle/bundle--defaults.el +++ b/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) diff --git a/bundle/bundle--mk.el b/bundle/bundle--mk.el index 9fd30022..8046689b 100644 --- a/bundle/bundle--mk.el +++ b/bundle/bundle--mk.el @@ -1,13 +1,34 @@ -(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) +(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) @@ -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}"