1
0
Fork 0
dotfiles/configs/config-files/bspwm-config

52 lines
1.4 KiB
Plaintext
Raw Permalink Normal View History

2024-11-17 07:25:48 -05:00
#!/usr/bin/env bb
(require '[babashka.process :refer [shell process exec]])
;; setup screens
;; todo: check if file exists, get home dir
(shell "/home/schrofi/.screenlayout/default.sh")
;; bspwm configuration
(defn- bspc [& commands]
(apply shell (cons "bspc" commands)))
(defn- config [key value]
(apply bspc (vector "config" key value)))
;; setup desktops
;; todo: handle no external display gracefully
(bspc "wm" "-O" "HDMI-A-0" "DisplayPort-2")
(->> (range 1 10)
(map str)
(concat ["monitor" "DisplayPort-2" "-d"])
(apply bspc))
(bspc "monitor" "HDMI-A-0" "-d" "X")
(config "border_width" "2")
(config "window_gap" "12")
(config "split_ratio" "0.52")
(config "borderless_monocle" "true")
(config "focus_follows_pointer" "true")
;; todo
(bspc "rule" "-a" "alacritty:scratchpad" "-o" "state=floating" "sticky=on" "layer=above")
;; autostart
(defn- if-not-running [service run-command]
(if (empty? (:out (shell {:out :string :continue true} "pgrep" "-x" service)))
(run-command)))
(shell "setxkbmap" "de")
(if-not-running "sxhkd" #(process "sxhkd"))
(if-not-running "nitrogen" #(process "nitrogen" "--restore"))
(if-not-running "picom" #(process "picom" "--config" "/home/schrofi/.config/picom/picom.conf"))
(if-not-running "polybar" #(process "polybar"))
(if-not-running "flameshot" #(process "flameshot"))
;; start pipewire
;;(process "pipewire")