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 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ main.scm | 83 ---------------------------------------------------------------- 2 files changed, 83 insertions(+), 83 deletions(-) create mode 100644 init.scm delete mode 100644 main.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)) diff --git a/main.scm b/main.scm deleted file mode 100644 index 8f3d023..0000000 --- a/main.scm +++ /dev/null @@ -1,83 +0,0 @@ -(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