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

1 files changed, 0 insertions, 83 deletions

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