From c0c128ca9c2597e645f0a840d10cb5f1c49260e1 Mon Sep 17 00:00:00 2001
From: Jeremy Dormitzer <jeremy.dormitzer@gmail.com>
Date: Sat, 10 Oct 2020 09:55:42 -0400
Subject: [PATCH] Run blueman-applet on startup

---
 stumpwm/.stumpwm.d/init.lisp | 20 ++++++++++++--------
 1 file changed, 12 insertions(+), 8 deletions(-)

diff --git a/stumpwm/.stumpwm.d/init.lisp b/stumpwm/.stumpwm.d/init.lisp
index 3bc2f59..a1d4737 100644
--- a/stumpwm/.stumpwm.d/init.lisp
+++ b/stumpwm/.stumpwm.d/init.lisp
@@ -237,17 +237,21 @@
 ;; Polybar
 (run-shell-command "polybar top --reload >> /tmp/polybar.top.log 2>&1")
 
-;; Syncthing Tray
-(run-shell-command "syncthingtray --wait")
-
-;; NetworkManager applet
-(run-shell-command "nm-applet")
-
 ;; Hack to get polybar to appear on startup
 (defcommand poke-modeline () ()
   (mode-line)
   (mode-line))
 (define-key *root-map* (kbd "C-m") "poke-modeline")
 
-;; (sleep 1)
-;; (poke-modeline)
+;; Sleep to allow polybar to start before starting tray apps
+(sleep 1)
+
+;; Syncthing Tray
+(run-shell-command "syncthingtray --wait")
+
+;; NetworkManager applet
+(run-shell-command "nm-applet")
+
+;; Blueman applet
+(run-shell-command "blueman-applet")
+