some colorscheme updates

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=#83a598>——{</fc>%StdinReader%<fc=#83a598>}—————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————</fc>][%xmobarstatus%"
+   , template = "<fc=#a89984>——{</fc>%StdinReader%<fc=#a89984>}—————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————</fc>][%xmobarstatus%"
 
    -- general behavior
    , lowerOnStart =     False    -- send to bottom of window stack on start
@@ -106,7 +106,7 @@ Config {
         , Run Date           "<fc=#b16286>%F (%a) %T</fc>" "date" 10
 
         -- keyboard layout indicator
-        , Run Kbd            [ ("us" , "<fc=#83a598>EN</fc>")
+        , Run Kbd            [ ("us" , "<fc=#a89984>EN</fc>")
                              , ("ru"         , "<fc=#fb4934>RU</fc>")
                              ]
         , Run StdinReader

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

@@ -1,4 +1,4 @@
-Config {
+ Config {
 
    -- appearance
      font =         "xft:Mononoki Nerd Font-11:bold:antialias=true:hinting=true"
@@ -16,7 +16,7 @@ Config {
    -- layout
    , sepChar =  "%"   -- delineator between plugin names and straight text
    , alignSep = "]["  -- separator between left-right alignment
-   , template = "<fc=#83a598>--{</fc>%StdinReader%<fc=#83a598>}————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————</fc>][%xmobarstatus2%"
+   , template = "<fc=#a89984>--{</fc>%StdinReader%<fc=#a89984>}————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————</fc>][%xmobarstatus2%"
 
    -- general behavior
    , lowerOnStart =     False    -- send to bottom of window stack on start
@@ -104,7 +104,7 @@ Config {
         , Run Date           "<fc=#b16286>%F (%a) %T</fc>" "date" 10
 
         -- keyboard layout indicator
-        , Run Kbd            [ ("us" , "<fc=#83a598>EN</fc>")
+        , Run Kbd            [ ("us" , "<fc=#a89984>EN</fc>")
                              , ("ru"         , "<fc=#fb4934>RU</fc>")
                              ]
         , Run StdinReader

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

@@ -1,16 +1,19 @@
 module GruvboxColors where
 
 backgroundColor    = "#282828"
-currentLineColor   = "#504945"
+currentLineColor   = "#fabd2f"
-selectionColor     = "#504945"
+selectionColor     = "#665c54"
 foregroundColor    = "#ebdbb2"
+foregroundSecondColor    = "#fbf1c1"
 commentColor       = "#458588"
 cyanColor          = "#83a598"
-greenColor         = "#589d6a"
+greenColor         = "#8ec07c"
+greenDarkerColor   = "#689d6a"
 orangeColor        = "#fe8019"
 pinkColor          = "#d3869b"
-purpleColor        = "#bd93f9"
+purpleColor        = "#b16286"
 redColor           = "#cc241d"
 yellowColor        = "#fabd2f"
+grayColor          = "#a89984"
 
 

home/xmonad/.xmonad/.#xmonad.hs

@@ -1 +0,0 @@
-horhik@lap.12603:1614299246

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

@@ -14,5 +14,6 @@ pinkColor          = "#d3869b"
 purpleColor        = "#b16286"
 redColor           = "#cc241d"
 yellowColor        = "#fabd2f"
+grayColor          = "#a89984"
 
 

home/xmonad/.xmonad/xmonad.hs

@@ -22,6 +22,7 @@ import XMonad.Layout.Gaps
 import XMonad.Util.EZConfig
 import XMonad.Layout.Spacing
 import XMonad.Layout.NoBorders
+import XMonad.Layout.Tabbed
 import XMonad.Hooks.DynamicLog
 import XMonad.Util.Scratchpad
 import XMonad.Util.NamedScratchpad
@@ -53,7 +54,7 @@ myWorkspaces          = ["I","II","III","IV","V","VI","VII", "VIII","IX"]
 -- Border colors for unfocused and focused windows, respectively.
 --
 myNormalBorderColor  = backgroundColor
-myFocusedBorderColor = currentLineColor
+myFocusedBorderColor = grayColor
 
 
 ------------------------------------------------------------------------
@@ -64,12 +65,13 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
     [ ((modm .|. shiftMask, xK_Return), spawn $ XMonad.terminal conf)
 
     -- launch dmenu
-    , ((modm,               xK_p     ), spawn ("dmenu_run " ++ " -fn '" ++ myDmenuFont ++ "' -nb '" ++  backgroundColor ++  "' -nf '" ++ selectionColor ++ "' -sb '"++ selectionColor ++"' -sf '"++foregroundSecondColor++"' -shb '"++ greenDarkerColor ++ "' -c "++" -l "++" 20 "))
+--    , ((modm,               xK_p     ), spawn ("dmenu_run " ++ " -fn '" ++ myDmenuFont ++ "' -nb '" ++  backgroundColor ++  "' -nf '" ++ selectionColor ++ "' -sb '"++ selectionColor ++"' -sf '"++foregroundSecondColor++"' -shb '"++ greenDarkerColor ++ "' -c "++" -l "++" 20 "))
+    -- launch emoji picker
+    , ((modm              , xK_e     ), spawn "emoji-menu")
+    , ((modm              , xK_p     ), spawn "rofi -show drun")
 
+    , ((modm .|. shiftMask , xK_p     ), spawn "rofi -show window")
   
-    -- launch gmrun
-    , ((modm .|. shiftMask, xK_p     ), spawn "gmrun")
-
     -- close focused window
     , ((modm .|. shiftMask, xK_c     ), kill)
 
@@ -145,6 +147,7 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
     , ((modm .|. mod1Mask         , xK_space ),  spawn "$HOME/.local/scripts/deadd_notify")
     -- change lang
     , ((modm, xK_Control_R)       , spawn "xkblayout-state set +1")
+    , ((modm, xK_d)               , spawn "eww-toggl")
     -- toggle fullscreen
     , ((mod4Mask .|. shiftMask, xK_f), sendMessage ToggleStruts)
 
@@ -155,7 +158,6 @@ 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                  , xK_d),  namedScratchpadAction myScratchpads "pomo")
 
     -- | Programs
     , ((modm .|. shiftMask, xK_z), spawn "zathura &")                                                                            -- book reader (zathura)
@@ -231,7 +233,7 @@ defaultGaps = gaps [(U,defaultGapSize), (R,defaultGapSize), (D, defaultGapSize),
 defaultSpaces = spacingRaw True (Border 10 10 10 10) True (Border 10 10 10 10) True
 spacesAndGaps = defaultSpaces . defaultGaps
 
-myLayout =   smartBorders . avoidStruts $ spacesAndGaps $ tiled ||| Mirror tiled ||| Full
+myLayout =   smartBorders . avoidStruts $ spacesAndGaps $ tiled ||| Mirror tiled ||| Full ||| simpleTabbed 
   where
      -- default tiling algorithm partitions the screen into two panes
      tiled   = Tall nmaster delta ratio
@@ -390,10 +392,12 @@ myStartupHook = do
   spawnOnce "picom --experimental-backends &"
   spawnOnce "deadd-notification-center &"
   spawnOnce "setxkbmap us,ru &"
+  spawnOnce "eww daemon"
+  spawnOnce "nextcloud"
   spawnOnce "sh ssh-agent bash ; ssh-add ~/.ssh/arch"
   spawnOnce "eval '$(ssh-agent -s)'; ssh-add ~/.ssh/id_rsa"
-  spawnOnce ("enact --pos top --watch &")
+  spawnOnce ("enact --pos left --watch &")
-  spawnOnce ("xrandr --output HDMI1 --above eDP1&")
+  spawnOnce ("xrandr --output HDMI1 --left-of eDP1&")
   spawnOnce (home ++ ".local/scripts/status/launch &")
   spawnOnce (home ++ ".local/scripts/touchpad.sh &")
   -- spawnOnce ("cd /home/horhik/Freenet/downloads/fms; ./fms --daemon &")