commit 6a5f2ecb18d0bd2ac8e530de9f0cb71dc855c483 parent c4af9e0599a876bac0083d37b59f6e31fd1af044 Author: Samuel Dionne-Riel <samuel@dionne-riel.com> Date: Mon, 17 Jan 2022 20:57:26 -0500 saturn: Provide more dbus constant names Makes reading the code easier^W possible. Diffstat:
| M | saturn/main.fnl | | | 11 | ++++++++--- |
1 file changed, 8 insertions(+), 3 deletions(-)
diff --git a/saturn/main.fnl b/saturn/main.fnl @@ -25,12 +25,17 @@ (local DBUS_NAME_FLAG_DO_NOT_QUEUE 4) +(local DBUS_REQUEST_NAME_REPLY_PRIMARY_OWNER 1) +(local DBUS_REQUEST_NAME_REPLY_IN_QUEUE 2) +(local DBUS_REQUEST_NAME_REPLY_EXISTS 3) +(local DBUS_REQUEST_NAME_REPLY_ALREADY_OWNER 4) + (let [ret (bus:RequestName "net.telent.saturn" DBUS_NAME_FLAG_DO_NOT_QUEUE)] - (if (or (= ret 1) (= ret 4)) + (if (or (= ret DBUS_REQUEST_NAME_REPLY_PRIMARY_OWNER) (= ret DBUS_REQUEST_NAME_REPLY_ALREADY_OWNER)) true - (= ret 2) + (= ret DBUS_REQUEST_NAME_REPLY_IN_QUEUE) (error "unexpected DBUS_REQUEST_NAME_REPLY_IN_QUEUE") - (= ret 3) + (= ret DBUS_REQUEST_NAME_REPLY_EXISTS) (do (print "already running") (os.exit 0))))