Commit fbe9f99d authored by Philippe Brochard's avatar Philippe Brochard
Browse files

Change main mode alt-return/shift-alt-return behaviour

parent 5432ac9b
......@@ -64,8 +64,10 @@
(define-main-key ("Tab" :mod-1) 'select-next-child)
(define-main-key ("Tab" :mod-1 :shift) 'select-previous-child)
(define-main-key ("Tab" :mod-1 :control) 'select-next-subchild)
(define-main-key ("Return" :mod-1) 'enter-frame)
(define-main-key ("Return" :mod-1 :shift) 'leave-frame)
(define-main-key ("Return" :mod-1) 'select-next-level-and-enter-frame)
(define-main-key ("Return" :mod-1 :shift) 'leave-frame-and-select-previous-level)
(define-main-key ("Return" :mod-1 :control) 'frame-toggle-maximize)
(define-main-key ("Return" :mod-5) 'frame-toggle-maximize)
(define-main-key ("Page_Up" :mod-1) 'frame-select-previous-child)
......
......@@ -1424,6 +1424,17 @@ For window: set current child to window or its parent according to window-parent
(show-all-children))))
(defun select-next-level-and-enter-frame ()
"Select the next level and enter in the selected frame"
(select-next-level)
(enter-frame))
(defun leave-frame-and-select-previous-level ()
"Leave the selected frame and select the previous level"
(leave-frame)
(select-previous-level))
;;; Other actions (select-next-child, select-next-brother...) are in
;;; clfswm-circulate-mode.lisp
......
......@@ -174,7 +174,6 @@
(change-root (find-root parent) parent)
(setf (current-child) parent)
(set-layout-once #'tile-space-layout)
(setf (current-child) new-frame)
(default-window-placement new-frame window)
(show-all-children t)
t)))
......
......@@ -170,6 +170,10 @@ Write (defparameter *contrib-dir* \"/usr/local/lib/clfswm/\") in ~A.~%"
"Rotate root geometry to previous root"
(rotate-root-geometry-generic #'anti-rotate-root-geometry t))
(defun rotate-root-geometry-select-next-root ()
"Rotate root geometry and select the next root"
(rotate-root-geometry-next)
(select-next-root))
(defun exchange-root-geometry-with-mouse ()
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment