Create the hidden-mode-line-mode

It, well, hides the mode line!

Copied from http://emacs-doctor.com/emacs-strip-tease.html

init.el

@@ -814,6 +814,7 @@
 (load "buf-manipulation.el")
 (load "package-manip")
 (load "text-manip")
+(load "frame-manip")
 
 ;; Define aliases
 (defalias 'yes-or-no-p 'y-or-n-p)
@@ -869,8 +870,8 @@
 (global-set-key (kbd "C-x C-r") 'rename-current-buffer-file)
 (global-set-key (kbd "C-x C-d") 'delete-current-buffer-file)
 (global-set-key (kbd "C-x ~") 'toggle-char-case)
-(define-key isearch-mode-map (kbd "<C-return>")
-  #'isearch-exit-other-end)
+(define-key isearch-mode-map (kbd "<C-return>") #'isearch-exit-other-end)
+(define-key gpolonkai/pers-map (kbd "m") 'hidden-mode-line-mode)
 
 ;; Kudos goes to
 ;; http://endlessparentheses.com/leave-the-cursor-at-start-of-match-after-isearch.html

lisp/frame-manip.el

@@ -0,0 +1,24 @@
+;; Copied from http://emacs-doctor.com/emacs-strip-tease.html
+
+(defvar hidden-mode-line-mode nil)
+(defvar hide-mode-line nil)
+
+(define-minor-mode hidden-mode-line-mode
+  "Minor mode to hide the mode-line in the current buffer."
+  :init-value nil
+  :global nil
+  :variable hidden-mode-line-mode
+  :group 'editing-basics
+  (if hidden-mode-line-mode
+      (setq hide-mode-line mode-line-format
+            mode-line-format nil)
+    (setq mode-line-format hide-mode-line
+          hide-mode-line nil))
+  (force-mode-line-update)
+  (redraw-display)
+  (when (and (called-interactively-p 'interactive)
+             hidden-mode-line-mode)
+    (run-with-idle-timer
+     0 nil 'message
+     (concat "Hidden Mode Line Mode enabled.  "
+             "Use M-x hidden-mode-line-mode to make mode-line appear."))))