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
This commit is contained in:
		
							parent
							
								
									637ac15719
								
							
						
					
					
						commit
						eafd031c55
					
				
					 2 changed files with 62 additions and 18 deletions
				
			
		
							
								
								
									
										15
									
								
								exwm-core.el
									
										
									
									
									
								
							
							
						
						
									
										15
									
								
								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 | ||||
|  |  | |||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue