diff options
| -rwxr-xr-x | bin/gnome-move-windows | 24 | ||||
| -rwxr-xr-x | bin/gnome-set-config | 6 |
2 files changed, 29 insertions, 1 deletions
diff --git a/bin/gnome-move-windows b/bin/gnome-move-windows new file mode 100755 index 0000000..2eb9462 --- /dev/null +++ b/bin/gnome-move-windows @@ -0,0 +1,24 @@ +#!/bin/sh +# Move windows according to my workflow. Check bin/gnome-set-config to +# see its key-binding. Needs wmctrl. + +emacs_main="$(wmctrl -l | awk '/ main$/ {print $1}')" +emacs_communications="$(wmctrl -l | awk '/ communications$/ {print $1}')" +emacs_terminals="$(wmctrl -l | awk '/ terminals$/ {print $1}')" +browsers="$(wmctrl -l | grep -i -e firefox -e chrom | awk '{print $1}' | tr '\n' ' ')" + +if [ -n "$emacs_main" ]; then + wmctrl -i -r $emacs_main -t 0 +fi + +if [ -n "$emacs_communications" ]; then + wmctrl -i -r $emacs_communications -t 2 +fi + +if [ -n "$emacs_terminals" ]; then + wmctrl -i -r $emacs_terminals -t 3 +fi + +for browser in $browsers; do + wmctrl -i -r $browser -t 1 +done diff --git a/bin/gnome-set-config b/bin/gnome-set-config index 1ac9fc0..983bdee 100755 --- a/bin/gnome-set-config +++ b/bin/gnome-set-config @@ -15,7 +15,7 @@ for i in $(seq 1 $NUM_WORKSPACES); do done # This configuration is not present in gsettings; we need to fall back to dconf -bindings="emacs org-mode" +bindings="emacs org-mode move-windows" keybindings_key="/org/gnome/settings-daemon/plugins/media-keys/custom-keybindings" keybindings=$(echo $bindings | awk -v key="$keybindings_key" '{for(i=1;i<=NF;i++) printf("'\''" key "/" $i "/'\''%s", (i==NF ? "" : ","))}') keybindings="[$keybindings]" @@ -29,3 +29,7 @@ dconf write /org/gnome/settings-daemon/plugins/media-keys/custom-keybindings/ema dconf write /org/gnome/settings-daemon/plugins/media-keys/custom-keybindings/org-mode/binding "'<Shift><Super>o'" dconf write /org/gnome/settings-daemon/plugins/media-keys/custom-keybindings/org-mode/command "'emacsclient -e \"(prot-window-popup-org-capture)\"'" dconf write /org/gnome/settings-daemon/plugins/media-keys/custom-keybindings/org-mode/name "'org-capture'" + +dconf write /org/gnome/settings-daemon/plugins/media-keys/custom-keybindings/move-windows/binding "'<Shift><Super>m'" +dconf write /org/gnome/settings-daemon/plugins/media-keys/custom-keybindings/move-windows/command "'/home/rul/bin/gnome-move-windows'" +dconf write /org/gnome/settings-daemon/plugins/media-keys/custom-keybindings/move-windows/name "'move-windows'" |