dan/eufon
1
0
Fork 0
Code Issues Pull Requests Releases Activity

saturn: Show current instance on re-exec

Browse Source 
Allows "less dbus-enthusiastic" setups to *just* re-run the saturn
executable to show it.
This commit is contained in:
Samuel Dionne-Riel 2022-01-17 21:13:11 -05:00 committed by Daniel Barlow
parent 6a5f2ecb18
commit 38f62baa82
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
saturn/main.fnl
View File

@ -36,9 +36,17 @@
(= ret DBUS_REQUEST_NAME_REPLY_IN_QUEUE) (= ret DBUS_REQUEST_NAME_REPLY_IN_QUEUE)
(error "unexpected DBUS_REQUEST_NAME_REPLY_IN_QUEUE") (error "unexpected DBUS_REQUEST_NAME_REPLY_IN_QUEUE")
(= ret DBUS_REQUEST_NAME_REPLY_EXISTS) (= ret DBUS_REQUEST_NAME_REPLY_EXISTS)
(do ;; Show the currently running instance
(print "already running") (let [saturn (dbus.Proxy:new
(os.exit 0)))) {
:bus dbus.Bus.SESSION
:name "net.telent.saturn"
:interface "net.telent.saturn"
:path "/net/telent/saturn"
})]
(saturn:SetVisible true)
(os.exit 0)
)))
(local lfs (require :lfs)) (local lfs (require :lfs))