From f51ba4c8c5d3d0f6b22b2ba6233b25c4efe07b5d Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Wed, 18 Jan 2012 11:55:38 +0100 Subject: .config/herbstluftwm/autostart --- .config/herbstluftwm/autostart | 222 +++++++++++++++++------------------------ 1 file changed, 89 insertions(+), 133 deletions(-) (limited to '.config/herbstluftwm') diff --git a/.config/herbstluftwm/autostart b/.config/herbstluftwm/autostart index f270b0e..ccb3fe0 100755 --- a/.config/herbstluftwm/autostart +++ b/.config/herbstluftwm/autostart @@ -1,133 +1,89 @@ -#!/usr/local/bin/guile -!# - -(define (hc command) - "Calls the herbstclient program to execute a command" - (system (string-append "herbstclient " command))) - -(define (keybind modkey key command) - "Binds a keyboard key to a command, also prints it for testing -purposes" - (display (string-append "keybind " modkey "-" key " " command "\n")) - (hc (string-append "keybind " modkey "-" key " " command))) - -(define (mousebind modkey button command) - "Binds a mouse button to a command" - (hc (string-append "mousebind " modkey "-" button " " command))) - -(define (add-tag name) - "Create a new tag" - (hc (string-append "add " name))) - -(define (set variable value) - "Set the value of a variable" - (hc (string-append "set " variable " " value))) - -(define (unrule) - "Clear all rules from memory" - (hc "unrule -F")) - -(define (rule spec) - "Add a new rule" - (hc (string-append "rule " spec))) - -(define modkey "Mod4") - -(define (create-tag name) - (add-tag name) - (keybind modkey name (string-append "use " name)) - (keybind modkey - (string-append "Shift-" name) - (string-append "move " name))) - -(define (dmenu-command fn nb nf) - (string-append "dmenu_run -fn '" fn "' -nb '" nb "' -nf '" nf "'")) - -(define (set-layout layout) - (display (string-append "set_layout " layout "\n")) - (hc (string-append "set_layout " layout))) - -;; colors -(set "frame_bg_normal_color" "\\#0c191c") -(set "frame_bg_active_color" "\\#000000") -(set "frame_border_width" "0") -(set "window_border_width" "1") -(set "window_border_normal_color" "\\#0c191c") -(set "window_border_active_color" "\\#15abc3") - -;; other settings -(set "default_frame_layout" "2") -(set-layout "max") - -;; keybindings -(keybind modkey "Mod1-q" "quit") -(keybind modkey "Mod1-r" "reload") -(keybind modkey "Shift-Mod1-c" "close") -(keybind modkey "Return" "spawn urxvt") -(keybind modkey "r" - (string-append - "spawn " - (dmenu-command - "-misc-tamsyn-medium-r-normal-*-14-*-*-*-*-*-iso8859-*" - "#000000" "#15abc3"))) -(keybind "Control" "Mod1-l" "spawn i3lock -c 000000") -(keybind modkey "t" "spawn ~/bin/hlwm/capture-todo") -(keybind modkey "Shift-t" "spawn ~/bin/hlwm/show-todo") - -;; tags -(hc "rename default q") -(for-each create-tag '("q" "w" "e" "a" "s" "d" "z" "x" "c")) - -;; layout -(hc "remove_monitor 1") -(hc "move_monitor 0 1680x1050+0+0") -(hc "add_monitor 1280x1024+1680+0 w") - -;; layouting -(keybind modkey "Shift-r" "remove") -(keybind modkey "space" "cycle_layout 1") -(keybind modkey "u" "split vertical 0.5") -(keybind modkey "o" "split horizontal 0.5") -(keybind modkey "Mod1-f" "floating toggle") -(keybind modkey "Mod1-Shift-f" "fullscreen toggle") -(keybind modkey "Mod1-p" "pseudotile toggle") - -;; resizing -(define resizestep "0.05") -(keybind modkey "Control-b" (string-append "resize left +" resizestep)) -(keybind modkey "Control-n" (string-append "resize down +" resizestep)) -(keybind modkey "Control-p" (string-append "resize up +" resizestep)) -(keybind modkey "Control-f" (string-append "resize right +" resizestep)) - -;; mouse -(mousebind modkey "Button1" "move") -(mousebind modkey "Button2" "resize") -(mousebind modkey "Button3" "zoom") - -;; focus -(keybind modkey "BackSpace" "cycle_monitor") -(keybind modkey "Tab" "cycle_all +1") -(keybind modkey "Shift-Tab" "cycle_all -1") -(keybind modkey "Mod1-c" "cycle") -(keybind modkey "b" "focus left") -(keybind modkey "n" "focus down") -(keybind modkey "p" "focus up") -(keybind modkey "f" "focus right") -(keybind modkey "Shift-b" "shift left") -(keybind modkey "Shift-n" "shift down") -(keybind modkey "Shift-p" "shift up") -(keybind modkey "Shift-f" "shift right") - -;; rules -(unrule) -(rule "focus=on") ; normally do not focus new clients -(rule "windowtype=_NET_WM_WINDOW_TYPE_DIALOG focus=on pseudotile=on") -(rule "class=Xephyr pseudotile=on") - -;; Show panel - -(system "~/.config/herbstluftwm/panel.sh &") - -;; Local Variables: -;; eval: (git-auto-commit-mode 1) -;; End: +#!/bin/zsh + +function hc () { + herbstclient $@ +} + +modkey="Mod4" + +# Looks +hc set frame_bg_normal_color "#0c191c" +hc set frame_bg_active_color "#000000" +hc set frame_border_width 0 +hc set window_border_width 1 +hc set window_border_normal_color "#15abc3" +hc set window_border_active_color "#e0c625" + +# Layout +hc set default_frame_layout 2 +hc set_layout max + +# Tags +hc rename default q +tagnames=(q w e a s d z x c) +for tag in ${tagnames[@]}; do + hc add $tag + hc keybind $modkey-$tag use $tag + hc keybind $modkey-Shift-$tag move $tag +done + +# Monitors +hc remove_monitor 1 +hc move_monitor 0 1920x1080+0+0 +hc add_monitor 1680x1050+1920+0 w + +# Keys +hc keybind $modkey-Mod1-q quit +hc keybind $modkey-Mod1-r reload +hc keybind $modkey-Shift-Mod1-c close +hc keybind $modkey-Return spawn urxvt +hc keybind $modkey-r spawn dmenu_run \ + -fn "-misc-tamsyn-medium-r-normal-*-14-*-*-*-*-*-iso8859-*" \ + -nb "#000000" -nf "#15abc3" +hc keybind Control-Mod1-l spawn i3lock -c 000000 +hc keybind $modkey-t spawn ~/bin/hlwm/capture-todo +hc keybind $modkey-Shift-t spawn ~/bin/hlwm/show-todo + +hc keybind $modkey-Shift-r remove +hc keybind $modkey-space cycle_layout 1 +hc keybind $modkey-u split vertical 0.5 +hc keybind $modkey-o split horizontal 0.5 +hc keybind $modkey-Mod1-f floating toggle +hc keybind $modkey-Mod1-Shift-f fullscreen toggle +hc keybind $modkey-Mod1-p pseudotile toggle + +hc keybind $modkey-Control-b resize left +0.05 +hc keybind $modkey-Control-n resize down +0.05 +hc keybind $modkey-Control-p resize up +0.05 +hc keybind $modkey-Control-f resize right +0.05 + +hc keybind $modkey-BackSpace cycle_monitor +hc keybind $modkey-Tab cycle_all +1 +hc keybind $modkey-Shift-Tab cycle_all -1 +hc keybind $modkey-Mod1-c cycle +hc keybind $modkey-b focus left +hc keybind $modkey-n focus down +hc keybind $modkey-p focus up +hc keybind $modkey-f focus right +hc keybind $modkey-Shift-b shift left +hc keybind $modkey-Shift-n shift down +hc keybind $modkey-Shift-p shift up +hc keybind $modkey-Shift-f shift right + +# Mouse +hc mousebind $modkey-Button1 move +hc mousebind $modkey-Button2 resize +hc mousebind $modkey-Button3 zoom + +# Rules +hc unrule -F +hc rule focus=on +hc rule windowtype=_NET_WM_WINDOW_TYPE_DIALOG focus=on pseudotile=on +hc rule class=Xephyr pseudotile=on + +# Panel +~/.config/herbstluftwm/panel.sh & + +# Local Variables: +# eval: (git-auto-commit-mode 1) +# End: -- cgit v1.2.3-54-g00ecf