Read and set power profiles over D-Bus

bin/blob-power-list

@@ -8,10 +8,13 @@ if [[ ${1:-} != "" && ${1:-} != "--active-state" ]]; then
   exit 1
 fi
 
-powerprofilesctl list 2>/dev/null |
-  awk -v with_state="${1:+1}" '/^\s*[* ]\s*[a-zA-Z0-9-]+:$/ {
-    active = ($1 == "*") ? 1 : 0
-    gsub(/^[*[:space:]]+|:$/, "")
-    print $0 (with_state ? "\t" active : "")
-  }' |
-  tac
+service=org.freedesktop.UPower.PowerProfiles
+object=/org/freedesktop/UPower/PowerProfiles
+
+profiles_json=$(busctl --json=short get-property "$service" "$object" "$service" Profiles 2>/dev/null) || exit 0
+active_profile=$(busctl --json=short get-property "$service" "$object" "$service" ActiveProfile 2>/dev/null | jq -r '.data // ""')
+
+jq -r --arg active "$active_profile" --arg with_state "${1:+1}" '
+  .data[].Profile.data
+  | if $with_state == "1" then "\(.)\t\(if . == $active then 1 else 0 end)" else . end
+' <<<"$profiles_json"

bin/blob-power-set

@@ -55,7 +55,8 @@ if [[ -z ${profile:-} ]] || ! profile_available "$profile"; then
   fi
 fi
 
-powerprofilesctl set "$profile" || exit
+busctl set-property org.freedesktop.UPower.PowerProfiles /org/freedesktop/UPower/PowerProfiles \
+  org.freedesktop.UPower.PowerProfiles ActiveProfile s "$profile" || exit
 
 if [[ -n $requested_profile ]]; then
   mkdir -p "$state_dir"