From ee83fa44ae0e634fe7fbd94d7fd1b83d534e0437 Mon Sep 17 00:00:00 2001 From: Samuel Fadel Date: Mon, 19 Dec 2022 10:14:52 +0100 Subject: Renamed init/config main.scm file into init.scm. --- init.scm | 83 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 83 insertions(+) create mode 100644 init.scm (limited to 'init.scm') diff --git a/init.scm b/init.scm new file mode 100644 index 0000000..8f3d023 --- /dev/null +++ b/init.scm @@ -0,0 +1,83 @@ +(use-modules (wm)) + +(define config + (make-config + ;; Border sizes + 2 ; inner-border-width + 0 ; outer-border-width + 16 ; magnet-border-width + ;; Margins + 0 ; offset-x + 0 ; offset-y + 0 ; offset-width + 0 ; offset-height + ;; Colors + "#35586c" ; focused-color + "#333333" ; unfocused-color + "#ff6666" ; unkillable-color + "#000000" ; empty-color + "#0d131a" ; outer-color + )) + +(define (make-callback proc arg) + (lambda () (proc arg))) + +(define wm-keybindings + `((,(make-shift-key "q") . ,wm-quit) + (,(make-key "q") . ,wm-focus-close) + ;; Focus + (,(make-key "Tab") . ,wm-focus-prev) + (,(make-shift-key "Tab") . ,wm-focus-next) + (,(make-key "k") . ,wm-focus-prev) + (,(make-key "j") . ,wm-focus-next) + ;; Packing + (,(make-shift-key "Left") . ,wm-pack-left) + (,(make-shift-key "Right") . ,wm-pack-left) + (,(make-shift-key "Up") . ,wm-pack-top) + (,(make-shift-key "Down") . ,wm-pack-bottom) + ;; Toggle between normal and tiled in a certain position + (,(make-key "s") . ,wm-toggle-maximize) + (,(make-key "a") . ,wm-toggle-half-left) + (,(make-key "Left") . ,wm-toggle-half-left) + (,(make-key "d") . ,wm-toggle-half-right) + (,(make-key "Right") . ,wm-toggle-half-right) + (,(make-key "w") . ,wm-toggle-half-top) + (,(make-key "Up") . ,wm-toggle-half-top) + (,(make-key "x") . ,wm-toggle-half-bottom) + (,(make-key "Down") . ,wm-toggle-half-bottom) + (,(make-key "q") . ,wm-toggle-top-left) + (,(make-key "e") . ,wm-toggle-top-right) + (,(make-key "z") . ,wm-toggle-bottom-left) + (,(make-key "c") . ,wm-toggle-bottom-right) + ;; Set current workspace + (,(make-key "1") . ,(make-callback wm-set-workspace 1)) + (,(make-key "2") . ,(make-callback wm-set-workspace 2)) + (,(make-key "3") . ,(make-callback wm-set-workspace 3)) + (,(make-key "4") . ,(make-callback wm-set-workspace 4)) + (,(make-key "5") . ,(make-callback wm-set-workspace 5)) + (,(make-key "6") . ,(make-callback wm-set-workspace 6)) + (,(make-key "7") . ,(make-callback wm-set-workspace 7)) + (,(make-key "8") . ,(make-callback wm-set-workspace 8)) + (,(make-key "9") . ,(make-callback wm-set-workspace 9)) + ;; Send client to workspace + (,(make-shift-key "1") . ,(make-callback wm-set-focused-client-workspace 1)) + (,(make-shift-key "2") . ,(make-callback wm-set-focused-client-workspace 2)) + (,(make-shift-key "3") . ,(make-callback wm-set-focused-client-workspace 3)) + (,(make-shift-key "4") . ,(make-callback wm-set-focused-client-workspace 4)) + (,(make-shift-key "5") . ,(make-callback wm-set-focused-client-workspace 5)) + (,(make-shift-key "6") . ,(make-callback wm-set-focused-client-workspace 6)) + (,(make-shift-key "7") . ,(make-callback wm-set-focused-client-workspace 7)) + (,(make-shift-key "8") . ,(make-callback wm-set-focused-client-workspace 8)) + (,(make-shift-key "9") . ,(make-callback wm-set-focused-client-workspace 9)) + ;; Send client to monitor + (,(make-shift-key "i") . ,wm-client-monitor-prev) + (,(make-shift-key "o") . ,wm-client-monitor-next))) + +(when (wm-init) + (wm-reconfigure config) + (wm-grab-keys wm-keybindings) + (wm-set-key-press-handler! + (lambda (mod keysym) + (display (list mod keysym)) + (newline))) + (wm-run)) -- cgit v1.2.3