Renamed init/config main.scm file into init.scm.

1 files changed, 83 insertions, 0 deletions

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))