mirror of
https://github.com/ebeem/guile-swayer.git
synced 2024-12-25 21:59:00 +01:00
88 lines
2.6 KiB
Scheme
Executable file
88 lines
2.6 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)
|
|
(modules auto-reload)
|
|
(modules which-key)
|
|
(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)
|
|
|
|
(auto-reload-configure #:directories
|
|
`(,(string-append (getenv "HOME") "/.config/sway/")))
|
|
(auto-reload-init)
|
|
|
|
;; init which-key
|
|
(which-key-configure #:delay-idle 1.2)
|
|
(which-key-init)
|
|
|
|
(define (show-rofi-message msg)
|
|
(hide-rofi-message)
|
|
(display (format #f "rofi -e \"~a\"" msg))
|
|
(system (format #f "rofi -e \"~a\"" msg)))
|
|
|
|
(define (hide-rofi-message)
|
|
(system "pkill -f '.*rofi -e.*'"))
|
|
|
|
(define (show-which-key submap bindings)
|
|
;; show your which-key viewer (rofi, eww, etc.)
|
|
(format #t "Displaying Submap ~a Bindings:\n" submap)
|
|
(let ((message ""))
|
|
(for-each
|
|
(lambda (ls)
|
|
(let ((nmsg (format #f " - ~a -> ~a\n" (list-ref ls 1) (list-ref ls 3))))
|
|
(display nmsg)
|
|
(set! message (string-append message nmsg))))
|
|
bindings)
|
|
(show-rofi-message message)))
|
|
|
|
(define (hide-which-key submap)
|
|
;; hide your which-key viewer (rofi, eww, etc.)
|
|
(format #t "Hiding Submap Bindings:\n")
|
|
(hide-rofi-message))
|
|
|
|
(add-hook! which-key-display-keybindings-hook show-which-key)
|
|
(add-hook! which-key-hide-keybindings-hook hide-which-key)
|
|
|
|
(start-event-listener-thread)
|
|
(thread-join! LISTENER-THREAD)
|