diff options
Diffstat (limited to 'oni/home/config/common.scm')
| -rw-r--r-- | oni/home/config/common.scm | 24 |
1 files changed, 15 insertions, 9 deletions
diff --git a/oni/home/config/common.scm b/oni/home/config/common.scm index f41b826..3593a11 100644 --- a/oni/home/config/common.scm +++ b/oni/home/config/common.scm @@ -55,9 +55,12 @@ ((mod4 k) . "hersbtclient close") ((mod4 mod1 k) . "herbstclient remove") ((mod4 Return) . "herbstclient spawn kitty") - ((mod4 t) . "herbstclient spawn hlwm-run-or-raise \"\\(URxvt\\|Hyper\\|kitty\\)\" kitty") - ((mod4 b) . "herbstclient spawn hlwm-run-or-raise \"\\(Conkeror\\|[Ff]irefox\\|Chromium\\|Next\\|qutebrowser\\)\" firefox") - ((mod4 e) . "herbstclient spawn hlwm-run-or-raise Emacs emacsclient --create-frame") + ((mod4 t) + . "herbstclient spawn hlwm-run-or-raise \"\\(URxvt\\|Hyper\\|kitty\\)\" kitty") + ((mod4 b) + . "herbstclient spawn hlwm-run-or-raise \"\\(Conkeror\\|[Ff]irefox\\|Chromium\\|Next\\|qutebrowser\\)\" firefox") + ((mod4 e) + . "herbstclient spawn hlwm-run-or-raise Emacs emacsclient --create-frame") ((control mod1 l) . "herbstclient spawn i3lock --color=000000") ((mod4 x) . "herbstclient spawn hlwm-switch-tags") ((mod4 shift b) . "herbstclient shift left") @@ -76,7 +79,8 @@ ((mod4 f) . "herbstclient cycle_layout 1 vertical max") ((mod4 m) . "herbstclient fullscreen toggle") ((mod4 p) . "herbstclient pseudotile toggle") - ((mod4 space) . "herbstclient or , and . compare tags.focus.curframe_wcount = 2 . cycle_layout +1 vertical horizontal max vertical grid , cycle_layout +1") + ((mod4 space) + . "herbstclient or , and . compare tags.focus.curframe_wcount = 2 . cycle_layout +1 vertical horizontal max vertical grid , cycle_layout +1") ((mod4 BackSpace) . "herbstclient cycle_monitor") ((mod4 u) . "herbstclient jumpto urgent") ((mod4 c) @@ -107,9 +111,9 @@ (extra '("remove Mod5 = ISO_Level3_Shift" "keycode 108 = Alt_L" "add Mod1 = Alt_L" - "remove mod4 = Super_R" - "keycode 134 = Hyper_R" - "add mod3 = Hyper_R"))))) + "remove mod4 = Super_R" + "keycode 134 = Hyper_R" + "add mod3 = Hyper_R"))))) (define home-openssh-service (service home-openssh-service-type @@ -188,7 +192,8 @@ LocalForward 19999 localhost:19999")) (map . "alt+0 close_window") ;; Find any "View build log messages" from guix and open the ;; build log in Emacs. - (map . "ctrl+shift+g kitten hints --type=regex --regex=\\\"View build log at '([^']+)'\\.\\\" --program=\\\"emacsclient\\\"") + (map + . "ctrl+shift+g kitten hints --type=regex --regex=\\\"View build log at '([^']+)'\\.\\\" --program=\\\"emacsclient\\\"") (map . "alt+o next_window")))))) (define home-channels-service @@ -334,7 +339,8 @@ LocalForward 19999 localhost:19999")) (".zsh/functions/unzip" ,(local-file "../../../zsh/.zsh/functions/unzip")) (".zsh/functions/x-copy-region-as-kill" - ,(local-file "../../../zsh/.zsh/functions/x-copy-region-as-kill")) + ,(local-file + "../../../zsh/.zsh/functions/x-copy-region-as-kill")) (".zsh/functions/x-kill-region" ,(local-file "../../../zsh/.zsh/functions/x-kill-region")) (".zsh/functions/x-yank" |