about summary refs log tree commit diff
path: root/exwm-core.el
diff options
context:
space:
mode:
authorChris Feng <chris.w.feng@gmail.com>2015-09-07T09·33+0800
committerChris Feng <chris.w.feng@gmail.com>2015-09-07T09·33+0800
commiteafd031c556ecfe986c656ca72fcde7e06ac819a (patch)
treed814f9b2d18cfd5b0a38ffe06f4e57c8e0f8ab4b /exwm-core.el
parent637ac157192dcae0785cc27a613bc59626950592 (diff)
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
Diffstat (limited to 'exwm-core.el')
-rw-r--r--exwm-core.el15
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