(fix) watcher: don't spam flatpak command; fixes #11

This causes the system to OOM since we constantly force PolicyKit to
perform allocations by running `flatpak ps`, for some bizzare reason.

src/commands/run.nim

@@ -200,10 +200,20 @@ proc eventWatcher*(
     startedPlayingAt = 0.0
     startingTime = 0.0
     hasntStarted = true
+
+    soberIsRunning = false
+    ticksUntilSoberRunCheck = 0
 
-  while hasntStarted or flatpakRunning(SOBER_APP_ID):
+  while hasntStarted or soberIsRunning:
     let logFile = readFile(getSoberLogPath()).splitLines()
 
+    if ticksUntilSoberRunCheck < 1:
+      debug "lucem: checking if sober is still running"
+      soberIsRunning = soberRunning()
+      ticksUntilSoberRunCheck = 5000
+
+    dec ticksUntilSoberRunCheck
+
     if logFile.len - 1 < line:
       continue
 

src/flatpak.nim

@@ -21,8 +21,8 @@ proc flatpakInstall*(id: string, user: bool = true): bool {.inline, discardable.
     info "flatpak: successfully installed \"" & id & "\"!"
     true
 
-proc flatpakRunning*(id: string): bool {.inline.} =
-  execCmdEx("flatpak ps --columns=application").output.contains(id)
+proc soberRunning*: bool {.inline.} =
+  execCmdEx("pidof sober").output.len > 2
 
 proc flatpakRun*(
     id: string, path: string = "/dev/stdout", launcher: string = ""