udpate xmonad config

home/xmonad/.config/xmobar/bin/xmobarstatus

@@ -113,6 +113,7 @@ echo   "<fc=$greenDarkerColor>—{$toggl_description(</fc>"$duration"<fc=$greenD
 
 
 
-echo "$(toggl_timer)$(wifi)$(battery)$(volume)$(layout)$(diskspace)$(timeanddate)<fc=$greenDarkerColor>—{</fc>$(calendar)<fc=$greenDarkerColor>}—-</fc>"
+echo "$(toggl_timer)$(wifi)$(battery)$(volume)$(layout)$(diskspace)$(timeanddate)<fc=$greenDarkerColor>—{</fc>$(calendar)<fc=$greenDarkerColor>}——</fc>"
 
 #echo "                                          "
+

home/xmonad/.config/xmobar/config.hs

@@ -17,7 +17,7 @@ Config {
    , sepChar =  "%"   -- delineator between plugin names and straight text
    , alignSep = "]["  -- separator between left-right alignment
    
-   , template = "<fc=#a89984>——{</fc>%StdinReader%<fc=#a89984>}—————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————</fc>][%xmobarstatus%"
+   , template = "<fc=#83a598>——{</fc>%StdinReader%<fc=#83a598>}—————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————</fc>][%xmobarstatus%"
 
    -- general behavior
    , lowerOnStart =     False    -- send to bottom of window stack on start

home/xmonad/.config/xmobar/lib/GruvboxColors.hs

@@ -7,8 +7,8 @@ foregroundColor    = "#ebdbb2"
 foregroundSecondColor    = "#fbf1c1"
 commentColor       = "#458588"
 cyanColor          = "#83a598"
-greenColor         = "#8ec07c"
+greenColor         = "#98971a"
-greenDarkerColor   = "#689d6a"
+greenDarkerColor   = "#98971a"
 orangeColor        = "#fe8019"
 pinkColor          = "#d3869b"
 purpleColor        = "#b16286"

home/xmonad/.xmonad/lib/GruvboxColors.hs

@@ -7,11 +7,11 @@ foregroundColor    = "#ebdbb2"
 foregroundSecondColor    = "#fbf1c1"
 commentColor       = "#458588"
 cyanColor          = "#83a598"
-greenColor         = "#8ec07c"
+greenColor         = "#98971a"
-greenDarkerColor   = "#689d6a"
+greenDarkerColor   = "#98971a"
-orangeColor        = "#fe8019"
+orangeColor        = "#fabd2f"
 pinkColor          = "#d3869b"
-purpleColor        = "#b16286"
+purpleColor        = "#83a598"
 redColor           = "#cc241d"
 yellowColor        = "#fabd2f"
 grayColor          = "#a89984"

home/xmonad/.xmonad/xmonad.hs

@@ -158,11 +158,11 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
     , ((modm .|. shiftMask    , xK_m),  namedScratchpadAction myScratchpads "pulse")
     , ((modm .|. shiftMask    , xK_n),  namedScratchpadAction myScratchpads "notion")
     , ((modm .|. shiftMask    , xK_d),  namedScratchpadAction myScratchpads "todoist")
+    , ((modm .|. controlMask, xK_e),    namedScratchpadAction myScratchpads "emacs")
 
     -- | Programs
     , ((modm .|. shiftMask, xK_z), spawn "zathura &")                                                                            -- book reader (zathura)
     , ((modm .|. shiftMask, xK_b), spawn "firefox"                                       )                                       -- browser
-    , ((modm .|. controlMask, xK_e), spawn "/usr/bin/emacs &"                                                           )        -- editor (emacs)
 
 
 
@@ -292,6 +292,7 @@ myScratchpads = [
   , NS "anki" spawnAnki findAnki manageAnki
   , NS "pulse" spawnPulse findPulse managePulse
   , NS "todoist" spawnTodoist findTodoist manageTodoist
+  , NS "emacs" spawnEmacs findEmacs manageEmacs
     ]
   where
     classTerm     = "TerminalDropdown"
@@ -335,6 +336,19 @@ myScratchpads = [
         t = (1 - h) / 2     -- bottom edge
         l = (1 - w) / 2     -- centered left/right
 
+    classEmacs     = "EmacsDropDown"
+    titleEmacs     = "emacs@dropdown"
+    spawnEmacs     = "emacs --title emacs@dropdown "
+    findEmacs      = title =? titleEmacs
+    manageEmacs    = customFloating $ W.RationalRect l t w h
+      where
+        h = 0.7             -- height, 50%
+        w = 0.6             -- width, 50%
+        t = (1 - h) / 2     -- bottom edge
+        l = (1 - w) / 2     -- centered left/right
+
+
+
 
 
 
@@ -394,6 +408,7 @@ myStartupHook = do
   spawnOnce "setxkbmap us,ru &"
   spawnOnce "eww daemon"
   spawnOnce "nextcloud"
+  spawnOnce "syncthing"
   spawnOnce "sh ssh-agent bash ; ssh-add ~/.ssh/arch"
   spawnOnce "eval '$(ssh-agent -s)'; ssh-add ~/.ssh/id_rsa"
   spawnOnce ("enact --pos left --watch &")