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))
|
(run-commands (concatenate 'string "gselect " n))
|
||||||
(echo (concatenate 'string "Switched to " 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
|
;; working with emacsclient
|
||||||
(defvar *es-win* nil
|
(defvar *es-win* nil
|
||||||
"to hold the window called emacsclient")
|
"to hold the window called emacsclient")
|
||||||
|
|
Loading…
Reference in a new issue