From 41ab4d7698a645c52e78bf69231c833d2409e361 Mon Sep 17 00:00:00 2001
From: Stefan Ellmauthaler <stefan.ellmauthaler@tu-dresden.de>
Date: Fri, 12 May 2023 10:58:28 +0200
Subject: [PATCH] add keepassxc to autostart of xmonad

---
 users/ellmau/conf/xmonad/xmonad.hs | 38 +++++++++++++++++++++++++++++-
 1 file changed, 37 insertions(+), 1 deletion(-)

diff --git a/users/ellmau/conf/xmonad/xmonad.hs b/users/ellmau/conf/xmonad/xmonad.hs
index 4cbdaae..69f58d5 100644
--- a/users/ellmau/conf/xmonad/xmonad.hs
+++ b/users/ellmau/conf/xmonad/xmonad.hs
@@ -37,6 +37,41 @@ main' :: D.Client -> IO ()
 main = mkDbusClient >>= main'
 
 workSpaces = ["code", "web", "misc", "comm"] ++ map show ([5 .. 9] ++ [0])
+layout :: XMonad.Layout.LayoutModifier.ModifiedLayout
+  SmartBorder
+  (XMonad.Layout.LayoutModifier.ModifiedLayout
+     AvoidStruts
+     (PerWorkspace
+        (Choose
+           (XMonad.Layout.LayoutModifier.ModifiedLayout Rename ThreeCol)
+           (Choose
+              Tall
+              (Choose
+                 (Mirror Tall)
+                 (Choose
+                    Grid
+                    (Choose
+                       Full
+                       (XMonad.Layout.LayoutModifier.ModifiedLayout
+                          (XMonad.Layout.Decoration.Decoration
+                             TabbedDecoration XMonad.Layout.Decoration.DefaultShrinker)
+                          XMonad.Layout.Simplest.Simplest))))))
+        (Choose
+           Tall
+           (Choose
+              (Mirror Tall)
+              (Choose
+                 Grid
+                 (Choose
+                    Full
+                    (Choose
+                       (XMonad.Layout.LayoutModifier.ModifiedLayout
+                          (XMonad.Layout.Decoration.Decoration
+                             TabbedDecoration XMonad.Layout.Decoration.DefaultShrinker)
+                          XMonad.Layout.Simplest.Simplest)
+                       (XMonad.Layout.LayoutModifier.ModifiedLayout
+                          Rename ThreeCol))))))))
+  Window
 layout = smartBorders $ avoidStruts $
   onWorkspace "comm" (threemid ||| tall ||| Mirror tall  ||| Grid ||| Full ||| simpleTabbed) $
   (tall ||| Mirror tall  ||| Grid ||| Full ||| simpleTabbed ||| threemid)
@@ -52,9 +87,10 @@ main' dbus = do
       , modMask = mod4Mask -- rebind mod to super key
       , keys = keyMap
       , manageHook = myHookManager
-      , startupHook = do
+      , startupHook = do -- autostart
           startupHook def
           spawn "autorandr -c"
+          spawn "keepassxc"
       , workspaces = workSpaces
       }