From cdc9bac15809f3b2570a50396929eea93177d10e Mon Sep 17 00:00:00 2001
From: Rutherther <rutherther@protonmail.com>
Date: Fri, 16 Aug 2024 13:55:18 +0200
Subject: [PATCH] feat: add dwl start scripts

---
 home/dotfiles/dwl/start-dwl          |  9 +++++++++
 home/dotfiles/dwl/start-dwl-internal | 28 ++++++++++++++++++++++++++++
 home/dotfiles/dwl/wlopm-all-screens  |  4 ++++
 home/home-configuration.scm          |  6 ++++++
 4 files changed, 47 insertions(+)
 create mode 100755 home/dotfiles/dwl/start-dwl
 create mode 100755 home/dotfiles/dwl/start-dwl-internal
 create mode 100755 home/dotfiles/dwl/wlopm-all-screens

diff --git a/home/dotfiles/dwl/start-dwl b/home/dotfiles/dwl/start-dwl
new file mode 100755
index 0000000..d704320
--- /dev/null
+++ b/home/dotfiles/dwl/start-dwl
@@ -0,0 +1,9 @@
+#!/usr/bin/env bash
+
+export XDG_CURRENT_DESKTOP="wlroots"
+export XDG_BACKEND="wayland"
+export QT_QPA_PLATFORM="wayland"
+export MOZ_ENABLE_WAYLAND="1"
+export _JAVA_AWT_WM_NONREPARENTING="1"
+
+dwl -s "~/.sessions/start-dwl-internal"
diff --git a/home/dotfiles/dwl/start-dwl-internal b/home/dotfiles/dwl/start-dwl-internal
new file mode 100755
index 0000000..4444ab5
--- /dev/null
+++ b/home/dotfiles/dwl/start-dwl-internal
@@ -0,0 +1,28 @@
+#!/usr/bin/env bash
+
+dbus-update-activation-environment WAYLAND_DISPLAY XDG_CURRENT_DESKTOP DISPLAY
+waybar &
+# wlr-randr ...
+nm-applet &
+blueman-applet &
+emacs --daemon &
+
+# do not error! Also turn on the internal monitor if this failed.
+wlr-randr \
+  --output DP-9 --pos 0,0 \
+  --output DP-8 --pos 3840,0 \
+  --output DP-7 --pos 1920,0 \
+  --output eDP-1 --off || \
+\ #or
+  wlr-randr --output eDP-1 --on
+
+swayidle -w \
+  timeout 300 '~/.sessions/wlopm-all-screens off' \
+  resume '~/.sessions/wlopm-all-screens on' \
+\
+  timeout 1800 'loginctl suspend' \
+  timeout 30 'makoctl mode -a idle' \
+  resume 'makoctl mode -r idle' \
+\
+  before-sleep 'swaylock -Ff' \
+  lock 'swaylock -Ff' &
\ No newline at end of file
diff --git a/home/dotfiles/dwl/wlopm-all-screens b/home/dotfiles/dwl/wlopm-all-screens
new file mode 100755
index 0000000..8c4ebfa
--- /dev/null
+++ b/home/dotfiles/dwl/wlopm-all-screens
@@ -0,0 +1,4 @@
+#!/usr/bin/env bash
+
+screens=$(wlopm | awk '{print $1}')
+echo "$screens" | xargs -l wlopm --$1
diff --git a/home/home-configuration.scm b/home/home-configuration.scm
index 041261e..d73ecba 100644
--- a/home/home-configuration.scm
+++ b/home/home-configuration.scm
@@ -94,6 +94,12 @@
                     (".config/mako/config" ,(local-file "dotfiles/mako"))
                     (".config/mimeapps.list" ,(local-file "dotfiles/mimeapps.list"))
 
+                    ;; Temporary until I figure out how to write those in Guile,
+                    ;; and put services into shepherd ones
+                    (".sessions/start-dwl" ,(local-file "dotfiles/dwl/start-dwl"))
+                    (".sessions/start-dwl-internal" ,(local-file "dotfiles/dwl/start-dwl-internal"))
+                    (".sessions/wlopm-all-screens" ,(local-file "dotfiles/dwl/wlopm-all-screens"))
+
                     (".config/dwl/scripts/print.sh" ,(local-file "dotfiles/dwl/print.sh"))
 
                     (".config/zsh/plugins" ,#~(string-append #$(directory-union
-- 
2.48.1