mirror of
https://github.com/ebeem/guile-swayer.git
synced 2024-12-25 21:59:00 +01:00
53 lines
1.5 KiB
Scheme
Executable file
53 lines
1.5 KiB
Scheme
Executable file
#!/usr/bin/guile
|
|
!#
|
|
|
|
(add-to-load-path
|
|
(dirname (or (current-filename)
|
|
(string-append (getenv "HOME") "/.config/sway/init.scm"))))
|
|
|
|
(use-modules (oop goops)
|
|
(srfi srfi-18)
|
|
(modules workspace-groups)
|
|
(modules workspace-grid)
|
|
(swayipc connection)
|
|
(swayipc records)
|
|
(swayipc info)
|
|
(swayipc events)
|
|
(swayipc dispatcher))
|
|
|
|
(load "behavior.scm")
|
|
;; init keybindings
|
|
(load "keybindings.scm")
|
|
(keybindings-init)
|
|
|
|
;; subscribe to all events
|
|
(sway-subscribe-all)
|
|
|
|
(define OUTPUTS '("HDMI-A-2" "DP-1" "DP-2"))
|
|
(define GROUPS
|
|
'(("11-browser" "21-browser" "31-browser")
|
|
("12-development" "22-development" "32-development")
|
|
("13-databases" "23-databases" "33-databases")
|
|
("14-communication" "24-communication" "34-communication")
|
|
("15-development" "25-development" "35-development")
|
|
("16-gaming" "26-gaming" "36-gaming")
|
|
("17-mail" "27-mail" "37-mail")
|
|
("18-development" "28-development" "38-development")
|
|
("19-media" "29-media" "39-media")))
|
|
|
|
(workspace-groups-configure #:groups GROUPS #:outputs OUTPUTS)
|
|
(workspace-groups-init)
|
|
|
|
(define ROWS 3)
|
|
(define COLUMNS 3)
|
|
(define WORKSPACES (apply map list GROUPS))
|
|
|
|
(workspace-grid-configure #:rows ROWS #:columns COLUMNS #:workspaces WORKSPACES)
|
|
(workspace-grid-init)
|
|
|
|
;; TODO: load which key module
|
|
|
|
(start-commands-listener-thread)
|
|
(start-event-listener-thread)
|
|
(thread-join! LISTENER-THREAD)
|
|
(thread-join! COMMANDS-LISTENER-THREAD)
|