Allow hide/show mode-line on floating frames

* exwm-core.el: new buffer-local variable exwm--floating-mode-line-format for
  saving mode-line-format when mode-line is hidden
* exwm-floating.el (exwm-floating--fit-frame-to-window)
  (exwm-floating-hide-mode-line, exwm-floating-show-mode-line): new functions
  for resizing frames, hiding/showing mode-line respectively;
  (exwm-floating--set-floating): use exwm-floating--fit-frame-to-window to
  resize frames

1 files changed, 8 insertions, 7 deletions

diff --git a/exwm-core.el b/exwm-core.el
index 9810de4f749e..74eb94fc4969 100644
--- a/exwm-core.el
+++ b/exwm-core.el
@@ -78,13 +78,14 @@
   "Event mask set on all managed windows.")
 
 ;; Internal variables
-(defvar-local exwm--id nil)                      ;window ID
-(defvar-local exwm--frame nil)                   ;workspace frame
-(defvar-local exwm--floating-frame nil)          ;floating frame
-(defvar-local exwm--floating-edges nil)          ;four edges
-(defvar-local exwm--fullscreen nil)              ;used in fullscreen
-(defvar-local exwm--floating-frame-geometry nil) ;in fullscreen
-(defvar-local exwm--fixed-size nil)              ;fixed size
+(defvar-local exwm--id nil)                        ;window ID
+(defvar-local exwm--frame nil)                     ;workspace frame
+(defvar-local exwm--floating-frame nil)            ;floating frame
+(defvar-local exwm--floating-edges nil)            ;four edges
+(defvar-local exwm--floating-mode-line-format nil) ;save mode-line-format
+(defvar-local exwm--fullscreen nil)                ;used in fullscreen
+(defvar-local exwm--floating-frame-geometry nil)   ;in fullscreen
+(defvar-local exwm--fixed-size nil)                ;fixed size
 (defvar-local exwm--on-KeyPress         ;KeyPress event handler
   #'exwm-input--on-KeyPress-line-mode)
 ;; Properties