Faster theme and bg changes

2026-05-17 16:41:44 +02:00
parent 19a3622e7e
commit 4e50960c54
9 changed files with 251 additions and 36 deletions
@@ -0,0 +1,61 @@
+#!/bin/bash
+
+# omarchy:summary=Send a fire-and-forget IPC call to a running omarchy-shell
+# omarchy:hidden=true
+
+OMARCHY_PATH=${OMARCHY_PATH:-$HOME/.local/share/omarchy}
+SHELL_QML="$OMARCHY_PATH/default/quickshell/omarchy-shell/shell.qml"
+
+if (( $# < 2 )); then
+  echo "Usage: omarchy-shell-ipc-fast <target> <function> [args...]" >&2
+  exit 1
+fi
+
+perl -MCwd=abs_path -MEncode=encode,decode -MSocket \
+  -e '
+    sub read_qstring {
+      my ($data, $offset) = @_;
+      return ("", $offset) if $offset + 4 > length($data);
+      my $length = unpack("N", substr($data, $offset, 4));
+      $offset += 4;
+      return ("", $offset) if $length == 0xffffffff || $offset + $length > length($data);
+      return (decode("UTF-16BE", substr($data, $offset, $length)), $offset + $length);
+    }
+
+    sub qstring {
+      my $encoded = encode("UTF-16BE", $_[0] // "");
+      return pack("N", length($encoded)) . $encoded;
+    }
+
+    my $shell_qml = abs_path(shift @ARGV);
+    my $target = shift @ARGV;
+    my $function = shift @ARGV;
+    my @args = @ARGV;
+    my $runtime_dir = $ENV{"XDG_RUNTIME_DIR"} || "/run/user/$<";
+    my $payload = chr(3) . qstring($target) . qstring($function) . pack("N", scalar @args) . join("", map { qstring($_) } @args);
+    my @candidates;
+
+    for my $lock_path (glob("$runtime_dir/quickshell/by-id/*/instance.lock")) {
+      my $data;
+      next unless open(my $lock, "<:raw", $lock_path);
+      { local $/; $data = <$lock>; }
+      close($lock);
+      my (undef, $offset) = read_qstring($data, 0);
+      my ($path) = read_qstring($data, $offset);
+      next unless $path && abs_path($path) eq $shell_qml;
+      (my $socket_path = $lock_path) =~ s{/instance\.lock$}{/ipc.sock};
+      push @candidates, [(stat($lock_path))[9] || 0, $socket_path];
+    }
+
+    for my $candidate (sort { $b->[0] <=> $a->[0] } @candidates) {
+      socket(my $client, AF_UNIX, SOCK_STREAM, 0) || next;
+      if (connect($client, sockaddr_un($candidate->[1]))) {
+        syswrite($client, $payload);
+        close($client);
+        exit 0;
+      }
+      close($client);
+    }
+
+    exit 1;
+  ' "$SHELL_QML" "$@"