diff options
| author | Chris Feng <chris.w.feng@gmail.com> | 2016-02-07T02·45+0800 |
|---|---|---|
| committer | Chris Feng <chris.w.feng@gmail.com> | 2016-02-07T02·45+0800 |
| commit | e2edf81271e1a7dd148aa7386b730ae2838c2860 (patch) | |
| tree | eb89d010d631444cd2ac8cce377f2724092e6a5e /exwm-floating.el | |
| parent | 3d643fafbe58d9b3e2dc9e864cbf05a2d911e1b2 (diff) | |
Add some useful key bindings
* exwm-core.el (exwm--floating-mode-line-format, exwm--mode-line-format) (exwm-mode-map): * exwm-floating.el (exwm-floating-hide-mode-line) (exwm-floating-show-mode-line): * exwm-layout.el (exwm-layout-hide-mode-line, exwm-layout-show-mode-line) (exwm-layout-toggle-mode-line): Allow hide/show mode-line for all `exwm-mode' buffers with 'C-c M'. * exwm-config.el (exwm-config-default): Add simulation keys for 'C-d' and 'C-k'.
Diffstat (limited to 'exwm-floating.el')
| -rw-r--r-- | exwm-floating.el | 28 |
1 files changed, 4 insertions, 24 deletions
diff --git a/exwm-floating.el b/exwm-floating.el index ff584c03ee..34e9f947e7 100644 --- a/exwm-floating.el +++ b/exwm-floating.el @@ -248,30 +248,10 @@ are provided. You should call `xcb:flush' and restore the value of (window-mode-line-height) (window-header-line-height))))) -(defun exwm-floating-hide-mode-line () - "Hide mode-line of a floating frame." - (interactive) - (unless (eq major-mode 'exwm-mode) - (user-error "[EXWM] Please use this command with EXWM buffers")) - (when (and exwm--floating-frame mode-line-format) - (setq exwm--floating-mode-line-format mode-line-format - mode-line-format nil) - (exwm-floating--fit-frame-to-window) - (xcb:flush exwm--connection) - (setq window-size-fixed exwm--fixed-size))) - -(defun exwm-floating-show-mode-line () - "Show mode-line of a floating frame." - (interactive) - (unless (eq major-mode 'exwm-mode) - (user-error "[EXWM] Please use this command with EXWM buffers")) - (when (and exwm--floating-frame (not mode-line-format)) - (setq mode-line-format exwm--floating-mode-line-format - exwm--floating-mode-line-format nil) - (exwm-floating--fit-frame-to-window) - (exwm-input-grab-keyboard) ;mode-line-format may be outdated - (xcb:flush exwm--connection) - (setq window-size-fixed exwm--fixed-size))) +(define-obsolete-function-alias 'exwm-floating-hide-mode-line + 'exwm-layout-hide-mode-line "25.1" "Hide mode-line of a floating frame.") +(define-obsolete-function-alias 'exwm-floating-show-mode-line + 'exwm-layout-show-mode-line "25.1" "Show mode-line of a floating frame.") (defvar exwm-floating--moveresize-calculate nil "Calculate move/resize parameters [buffer event-mask x y width height].") |