src/bindings-second-mode.lisp

   1 ;;; --------------------------------------------------------------------------
   2 ;;; CLFSWM - FullScreen Window Manager
   3 ;;;
   4 ;;; --------------------------------------------------------------------------
   5 ;;; Documentation: Bindings keys and mouse for second mode
   6 ;;;
   7 ;;; Note: Mod-1 is the Alt or Meta key, Mod-2 is the Numlock key.
   8 ;;; --------------------------------------------------------------------------
   9 ;;;
  10 ;;; (C) 2011 Philippe Brochard <hocwp@free.fr>
  11 ;;;
  12 ;;; This program is free software; you can redistribute it and/or modify
  13 ;;; it under the terms of the GNU General Public License as published by
  14 ;;; the Free Software Foundation; either version 3 of the License, or
  15 ;;; (at your option) any later version.
  16 ;;;
  17 ;;; This program is distributed in the hope that it will be useful,
  18 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  19 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20 ;;; GNU General Public License for more details.
  21 ;;;
  22 ;;; You should have received a copy of the GNU General Public License
  23 ;;; along with this program; if not, write to the Free Software
  24 ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  25 ;;;
  26 ;;; --------------------------------------------------------------------------
  27
  28 (in-package :clfswm)
  29
  30 ;;;,-----
  31 ;;;| Second keys
  32 ;;;|
  33 ;;;| CONFIG - Second mode bindings
  34 ;;;`-----
  35 (add-hook *binding-hook* 'init-*second-keys* 'init-*second-mouse*)
  36
  37
  38 (defun open-frame-menu ()
  39   "Open the frame menu"
  40   (open-menu (find-menu 'frame-menu)))
  41
  42 (defun open-window-menu ()
  43   "Open the window menu"
  44   (open-menu (find-menu 'window-menu)))
  45
  46 (defun open-action-by-name-menu ()
  47   "Open the action by name menu"
  48   (open-menu (find-menu 'action-by-name-menu)))
  49
  50 (defun open-action-by-number-menu ()
  51   "Open the action by number menu"
  52   (open-menu (find-menu 'action-by-number-menu)))
  53
  54 (defun open-frame-pack-menu ()
  55   "Open the frame pack menu"
  56   (open-menu (find-menu 'frame-pack-menu)))
  57
  58 (defun open-frame-fill-menu ()
  59   "Open the frame fill menu"
  60   (open-menu (find-menu 'frame-fill-menu)))
  61
  62 (defun open-frame-resize-menu ()
  63   "Open the frame resize menu"
  64   (open-menu (find-menu 'frame-resize-menu)))
  65
  66 (defun tile-current-frame ()
  67   "Tile the current frame"
  68   (set-layout-once #'tile-layout)
  69   (leave-second-mode))
  70
  71
  72 (defun stop-all-pending-actions ()
  73   "Stop all pending actions"
  74   (clear-all-nw-hooks)
  75   (leave-second-mode))
  76
  77
  78 ;;; default shell programs
  79 (defmacro define-shell (key name docstring cmd)
  80   "Define a second key to start a shell command"
  81   `(define-second-key ,key
  82        (defun ,name ()
  83          ,docstring
  84          (setf *second-mode-leave-function* (let ((cmd ,cmd))
  85                                               (lambda ()
  86                                                 (do-shell cmd))))
  87          (leave-second-mode))))
  88
  89 (defun sm-ask-close/kill-current-window ()
  90   "Close or kill the current window (ask before doing anything)"
  91   (setf *second-mode-leave-function* #'ask-close/kill-current-window)
  92   (leave-second-mode))
  93
  94
  95
  96 (defun set-default-second-keys ()
  97   (define-second-key ("F1" :mod-1) 'help-on-clfswm)
  98   (define-second-key ("m") 'open-menu)
  99   (define-second-key ("less") 'open-menu)
 100   (define-second-key ("less" :control) 'open-menu)
 101   (define-second-key ("f") 'open-frame-menu)
 102   (define-second-key ("w") 'open-window-menu)
 103   (define-second-key ("n") 'open-action-by-name-menu)
 104   (define-second-key ("u") 'open-action-by-number-menu)
 105   (define-second-key ("p") 'open-frame-pack-menu)
 106   (define-second-key ("l") 'open-frame-fill-menu)
 107   (define-second-key ("r") 'open-frame-resize-menu)
 108   (define-second-key ("x") 'update-layout-managed-children-position)
 109   (define-second-key ("g" :control) 'stop-all-pending-actions)
 110   (define-second-key ("q") 'sm-delete-focus-window)
 111   (define-second-key ("k") 'sm-ask-close/kill-current-window)
 112   (define-second-key ("i") 'identify-key)
 113   (define-second-key ("colon") 'eval-from-query-string)
 114   (define-second-key ("exclam") 'run-program-from-query-string)
 115   (define-second-key ("Return") 'leave-second-mode)
 116   (define-second-key ("Escape") 'leave-second-mode)
 117   (define-second-key ("t") 'tile-current-frame)
 118   (define-second-key ("Home" :mod-1 :control :shift) 'exit-clfswm)
 119   (define-second-key ("Right" :mod-1) 'select-next-brother)
 120   (define-second-key ("Left" :mod-1) 'select-previous-brother)
 121   (define-second-key ("Down" :mod-1) 'select-previous-level)
 122   (define-second-key ("Up" :mod-1) 'select-next-level)
 123   (define-second-key ("Left" :control :mod-1) 'select-brother-spatial-move-left)
 124   (define-second-key ("Right" :control :mod-1) 'select-brother-spatial-move-right)
 125   (define-second-key ("Up" :control :mod-1) 'select-brother-spatial-move-up)
 126   (define-second-key ("Down" :control :mod-1) 'select-brother-spatial-move-down)
 127
 128   (define-second-key ("Right") 'speed-mouse-right)
 129   (define-second-key ("Left") 'speed-mouse-left)
 130   (define-second-key ("Down") 'speed-mouse-down)
 131   (define-second-key ("Up") 'speed-mouse-up)
 132   (define-second-key ("Left" :control) 'speed-mouse-undo)
 133   (define-second-key ("Up" :control) 'speed-mouse-first-history)
 134   (define-second-key ("Down" :control) 'speed-mouse-reset)
 135
 136   (define-second-key ("Tab" :mod-1) 'select-next-child)
 137   (define-second-key ("Tab" :mod-1 :shift) 'select-previous-child)
 138   (define-second-key ("Tab" :mod-1 :control) 'select-next-subchild)
 139   (define-second-key ("Tab") 'switch-to-last-child)
 140   (define-second-key ("Return" :mod-1) 'enter-frame)
 141   (define-second-key ("Return" :mod-1 :shift) 'leave-frame)
 142   (define-second-key ("Return" :mod-5) 'frame-toggle-maximize)
 143   (define-second-key ("Page_Up" :mod-1) 'frame-lower-child)
 144   (define-second-key ("Page_Down" :mod-1) 'frame-raise-child)
 145   (define-second-key ("Home" :mod-1) 'switch-to-root-frame)
 146   (define-second-key ("Home" :mod-1 :shift) 'switch-and-select-root-frame)
 147   (define-second-key ("Menu") 'toggle-show-root-frame)
 148   (define-second-key ("b" :mod-1) 'banish-pointer)
 149   (define-second-key ("o") 'set-open-in-new-frame-in-parent-frame-nw-hook)
 150   (define-second-key ("o" :control) 'set-open-in-new-frame-in-root-frame-nw-hook)
 151   (define-second-key ("a") 'add-default-frame)
 152   ;; Escape
 153   (define-second-key ("Escape" :control) 'ask-close/kill-current-window)
 154   ;; Selection
 155   (define-second-key ("x" :control) 'cut-current-child)
 156   (define-second-key ("x" :control :mod-1) 'clear-selection)
 157   (define-second-key ("c" :control) 'copy-current-child)
 158   (define-second-key ("v" :control) 'paste-selection)
 159   (define-second-key ("v" :control :shift) 'paste-selection-no-clear)
 160   (define-second-key ("Delete" :control) 'remove-current-child)
 161   (define-second-key ("Delete") 'delete-current-child)
 162   (define-shell ("c") b-start-xterm "start an xterm" "cd $HOME && exec xterm")
 163   (define-shell ("e") b-start-emacs "start emacs" "cd $HOME && exec emacs")
 164   (define-shell ("e" :control) b-start-emacsremote
 165     "start an emacs for another user"
 166     "exec xterm -e emacsremote")
 167   (define-shell ("h") b-start-xclock "start an xclock" "exec xclock -d")
 168   (define-second-key ("F10" :mod-1) 'fast-layout-switch)
 169   (define-second-key ("F10" :shift :control) 'toggle-show-root-frame)
 170   (define-second-key ("F10") 'expose-windows-current-child-mode)
 171   (define-second-key ("F10" :control) 'expose-windows-mode)
 172   (define-second-key ("F10" :control :shift) 'expose-all-windows-mode)
 173   (define-second-key ("L2" :shift) 'show-all-frames-info-key)
 174   (define-second-key ("L2" :shift :mod-1) 'show-all-frames-info)
 175   ;; Bind or jump functions
 176   (define-second-key ("1" :mod-1) 'bind-or-jump 1)
 177   (define-second-key ("2" :mod-1) 'bind-or-jump 2)
 178   (define-second-key ("3" :mod-1) 'bind-or-jump 3)
 179   (define-second-key ("4" :mod-1) 'bind-or-jump 4)
 180   (define-second-key ("5" :mod-1) 'bind-or-jump 5)
 181   (define-second-key ("6" :mod-1) 'bind-or-jump 6)
 182   (define-second-key ("7" :mod-1) 'bind-or-jump 7)
 183   (define-second-key ("8" :mod-1) 'bind-or-jump 8)
 184   (define-second-key ("9" :mod-1) 'bind-or-jump 9)
 185   (define-second-key ("0" :mod-1) 'bind-or-jump 10))
 186
 187 (add-hook *binding-hook* 'set-default-second-keys)
 188
 189
 190
 191
 192 ;;; Mouse action
 193 (defun sm-mouse-click-to-focus-and-move (window root-x root-y)
 194   "Move and focus the current child - Create a new frame on the root window.
 195 Or do corners actions"
 196   (declare (ignore window))
 197   (or (do-corner-action root-x root-y *corner-second-mode-left-button*)
 198       (mouse-focus-move/resize-generic root-x root-y #'move-frame nil)))
 199
 200 (defun sm-mouse-click-to-focus-and-resize (window root-x root-y)
 201   "Resize and focus the current child - Create a new frame on the root window.
 202 Or do corners actions"
 203   (declare (ignore window))
 204   (or (do-corner-action root-x root-y *corner-second-mode-right-button*)
 205       (mouse-focus-move/resize-generic root-x root-y #'resize-frame nil)))
 206
 207
 208 (defun sm-mouse-middle-click (window root-x root-y)
 209   "Do actions on corners"
 210   (declare (ignore window))
 211   (or (do-corner-action root-x root-y *corner-second-mode-middle-button*)
 212       (replay-button-event)))
 213
 214
 215
 216
 217 (defun sm-mouse-select-next-level (window root-x root-y)
 218   "Select the next level in frame"
 219   (declare (ignore window root-x root-y))
 220   (select-next-level))
 221
 222
 223
 224
 225 (defun sm-mouse-select-previous-level (window root-x root-y)
 226   "Select the previous level in frame"
 227   (declare (ignore window root-x root-y))
 228   (select-previous-level))
 229
 230
 231
 232 (defun sm-mouse-enter-frame (window root-x root-y)
 233   "Enter in the selected frame - ie make it the root frame"
 234   (declare (ignore window root-x root-y))
 235   (enter-frame))
 236
 237
 238
 239 (defun sm-mouse-leave-frame (window root-x root-y)
 240   "Leave the selected frame - ie make its parent the root frame"
 241   (declare (ignore window root-x root-y))
 242   (leave-frame))
 243
 244
 245 (defun sm-mouse-click-to-focus-and-move-window (window root-x root-y)
 246   "Move and focus the current child - Create a new frame on the root window"
 247   (declare (ignore window))
 248   (mouse-focus-move/resize-generic root-x root-y #'move-frame t))
 249
 250
 251 (defun sm-mouse-click-to-focus-and-resize-window (window root-x root-y)
 252   "Resize and focus the current child - Create a new frame on the root window"
 253   (declare (ignore window))
 254   (mouse-focus-move/resize-generic root-x root-y #'resize-frame t))
 255
 256
 257 (defun sm-mouse-click-to-focus-and-move-window-constrained (window root-x root-y)
 258   "Move (constrained by other frames) and focus the current child - Create a new frame on the root window"
 259   (declare (ignore window))
 260   (mouse-focus-move/resize-generic root-x root-y #'move-frame-constrained t))
 261
 262
 263 (defun sm-mouse-click-to-focus-and-resize-window-constrained (window root-x root-y)
 264   "Resize (constrained by other frames) and focus the current child - Create a new frame on the root window"
 265   (declare (ignore window))
 266   (mouse-focus-move/resize-generic root-x root-y #'resize-frame-constrained t))
 267
 268
 269
 270 (defun set-default-second-mouse ()
 271   (define-second-mouse (1) 'sm-mouse-click-to-focus-and-move)
 272   (define-second-mouse (2) 'sm-mouse-middle-click)
 273   (define-second-mouse (3) 'sm-mouse-click-to-focus-and-resize)
 274   (define-second-mouse (1 :mod-1) 'sm-mouse-click-to-focus-and-move-window)
 275   (define-second-mouse (3 :mod-1) 'sm-mouse-click-to-focus-and-resize-window)
 276   (define-second-mouse (1 :mod-1 :shift) 'sm-mouse-click-to-focus-and-move-window-constrained)
 277   (define-second-mouse (3 :mod-1 :shift) 'sm-mouse-click-to-focus-and-resize-window-constrained)
 278   (define-second-mouse (1 :control :mod-1) 'mouse-move-child-over-frame)
 279   (define-second-mouse (4) 'sm-mouse-select-next-level)
 280   (define-second-mouse (5) 'sm-mouse-select-previous-level)
 281   (define-second-mouse (4 :mod-1) 'sm-mouse-enter-frame)
 282   (define-second-mouse (5 :mod-1) 'sm-mouse-leave-frame))
 283
 284 (add-hook *binding-hook* 'set-default-second-mouse)