StumpWM: command to toggle window floating
This commit is contained in:
parent
433e6e1a07
commit
60bfaa9e49
1 changed files with 10 additions and 0 deletions
|
@ -208,6 +208,16 @@
|
|||
(run-commands (concatenate 'string "gselect " n))
|
||||
(echo (concatenate 'string "Switched to " n)))
|
||||
|
||||
;; toggle window floating
|
||||
(defcommand toggle-float ()
|
||||
()
|
||||
"Toggle weather window is floating or not"
|
||||
(if (typep (current-window) 'STUMPWM::FLOAT-WINDOW)
|
||||
(unfloat-this)
|
||||
(float-this)))
|
||||
|
||||
;; and the key for it
|
||||
(define-key *root-map* (kbd "C-f") "toggle-float")
|
||||
;; working with emacsclient
|
||||
(defvar *es-win* nil
|
||||
"to hold the window called emacsclient")
|
||||
|
|
Loading…
Reference in a new issue