Update wallpaper, mouse bindings and icons

init.sh

 #!/bin/sh
-
-# export GTK_IM_MODULE=ibus
-# export XMODIFIERS=@im=ibus
-# export QT_IM_MODULES=ibus
-ibus-daemon -drx
-ibus engine anthy
-# xrdb $HOME/.Xresources
-# feh --bg-scale /home/kubat/.xmonad/wallpaper &
+#ibus-daemon -drx
+#ibus engine anthy
+fcitx5&
 pulseaudio &
 setxkbmap kubat
-#
-# ps aux | grep twmnd | grep -v grep
-# [ "$?" == "0" ] && twmnd &

xmobar.hs

@@ -14,7 +14,7 @@ Config { font     = "xft:HackNerdFont:size=10:antialias=true,IPAPGothic:size=10:
                                      , "--"
                                      , "-o"   , "<icon=bat_0.xpm/> <left>%"
                                      , "-O"   , "<icon=bat_1.xpm/> <left>%"
-                                     , "-i"   , "<icon=bat_1.xpm/>"
+                                     , "-i"   , "<icon=bat_2.xpm/>"
                                      ] 50
                      , Run Com "/home/kubat/.local/libexec/get_pa_volume.sh" [] "volume" 2
                      , Run Com "/home/kubat/.local/libexec/is_vpn_running.sh" [] "vpn" 50
@@ -25,5 +25,5 @@ Config { font     = "xft:HackNerdFont:size=10:antialias=true,IPAPGothic:size=10:
        , allDesktops    = False
        , sepChar        = "%"
        , alignSep       = "}{"
-       , template       = " <icon=haskell_20.xpm/> %StdinReader% } %lektor% { %cpu% %coretemp% %memory% <fc=#b58900>Vol</fc> %volume% %vpn%%battery% | <fc=#b58900>%date%</fc> %trayerpad%"
+       , template       = " <icon=haskell_20.xpm/> %StdinReader% } { %cpu% %coretemp% %memory% <fc=#b58900>Vol</fc> %volume% %vpn%%battery% | <fc=#b58900>%date%</fc> |%trayerpad%"
 }

xmonad.hs

@@ -77,10 +77,10 @@ import XMonad.Layout.PerWorkspace
 -- The main --
 --------------
 
+--  putEnv "GTK_IM_MODULE=ibus"
+--  putEnv "XMODIFIERS=@im=ibus"
+--  putEnv "QT_IM_MODULES=ibus"
 main = do
-  putEnv "GTK_IM_MODULE=ibus"
-  putEnv "XMODIFIERS=@im=ibus"
-  putEnv "QT_IM_MODULES=ibus"
   path <- getEnv "PATH"
   (\path -> if (isJust path) then setEnv "PATH" ("/home/kubat/.local/bin/:" ++ (fromJust path)) True else print "No path defined") path
   xmproc <- spawnPipe "/usr/bin/xmobar -x 0 /home/kubat/.xmonad/xmobar.hs"
@@ -105,6 +105,7 @@ main = do
                               <+> serverModeEventHookF "XMONAD_PRINT" (io . putStrLn)
     , layoutHook            = myLayoutHook
     , borderWidth           = 3
+    , mouseBindings         = myMouseBindings
     , logHook               = do
         takeTopFocus
         dynamicLogWithPP xmobarPP
@@ -127,15 +128,28 @@ main = do
 -- My variables --
 ------------------
 
+--    spawn       "/home/kubat/.xmonad/init.sh"
+--    spawnOnce   "dbus-daemon --fork"
 myStartupHook = do
-    spawnOnce   "/home/kubat/.local/bin/xbanish"
-    spawn       "/home/kubat/.xmonad/init.sh"
     spawn       "xrdb /home/kubat/.Xresources"
+    spawn       "setxkbmap kubat"
+    spawnOnce   "/home/kubat/.local/bin/xbanish"
+    spawnOnce   "pulseaudio &"
     spawnOnce   "twmnd &"
     spawnOnce   "nm-applet &"
     spawnOnce   "feh --bg-scale /home/kubat/.xmonad/wallpaper &"
-    spawn       "setxkbmap kubat"
-    spawnOnce   "trayer --edge top --align right --widthtype request --padding 6 --SetDockType true --SetPartialStrut true --expand true --monitor 1 --tint 0x002b36 --transparent true --alpha 0 --height 18 &"
+    spawnOnce   "fcitx &"
+    spawnOnce   (  "trayer --edge top --align right --widthtype request --padding 6 --SetDockType true "
+                ++ "--SetPartialStrut true --expand true --monitor 1 --tint 0x002b36 --transparent true "
+                ++ "--alpha 0 --height 18 &"
+                )
+
+-- you may also bind events to the mouse scroll wheel (button4 and button5)
+myMouseBindings (XConfig {XMonad.modMask = modMask}) = M.fromList $
+  [ ((mod4Mask, button1),   (\w -> focus w >> mouseMoveWindow w))       -- mod-button1, Set the window to floating mode and move by dragging
+  , ((mod4Mask, button2),   (\w -> focus w >> windows W.swapMaster))    -- mod-button2, Raise the window to the top of the stack
+  , ((mod4Mask, button3),   (\w -> focus w >> mouseResizeWindow w))     -- mod-button3, Set the window to floating mode and resize by dragging
+  ]
 
 myLayoutHook =
     minimize $ boringAuto (toggleLayouts (noBorders Full) others)
@@ -152,9 +166,9 @@ myManageHook = do
         , [ isDialog                        --> doCenterFloat                ]
         , [ manageDocks                                                      ]
         ] where myIgnores = [ "desktop", "desktop_window" ]
-                myFloats  = [ "Xmessage", "Unity", "Display" ]
+                myFloats  = [ "Xmessage", "Unity", "Display", "Nm-connection-editor" ]
 
-myTerm     = "st"
+myTerm     = "konsole"
 myXPConfig = def { font     = "xft:Hack Nerd Font Mono:size=9"
                  , bgColor  = "#073642"
                  , fgColor  = "#b9baba"
@@ -208,9 +222,9 @@ myAdditionalKeys =
   , ((mod4Mask .|. controlMask,     xK_space),      withFocused $ windows . W.sink)
 
   , ((mod4Mask,                     xK_comma),      moveTo  Prev HiddenWS)
-  , ((mod4Mask,                     xK_period), moveTo  Next HiddenWS)
+  , ((mod4Mask,                     xK_semicolon),  moveTo  Next HiddenWS)
   , ((mod4Mask .|. shiftMask,       xK_comma),      shiftTo Prev HiddenWS)
-  , ((mod4Mask .|. shiftMask,       xK_period), shiftTo Next HiddenWS)
+  , ((mod4Mask .|. shiftMask,       xK_semicolon),  shiftTo Next HiddenWS)
   , ((mod4Mask,                     xK_slash),      focusMaster)
   , ((mod4Mask .|. shiftMask,       xK_slash),      windows W.swapMaster)
 
@@ -254,6 +268,7 @@ myAdditionalKeys =
   , ((mod4Mask,                     xK_x),          submap . M.fromList $
     [ ((0, xK_Return),                              do { scratchpadAction myScratchPads "terminal" ; focusMaster })
     , ((0, xK_d),                                   do { scratchpadAction myScratchPads "discord"  ; focusMaster })
+    , ((0, xK_c),                                   do { scratchpadAction myScratchPads "element"  ; focusMaster })
     , ((0, xK_x),                                   hideAll myScratchPads)
     ])
   ]
@@ -264,6 +279,7 @@ myAdditionalKeys =
 
 myScratchPads = mkXScratchpads [ ("terminal", "st.sh",           resource  =? "terminal")
                                , ("discord",  "discord",         className =? "discord" )
+                               , ("element",  "element-desktop", className =? "Element" )
                                ] $ customFloating $ W.RationalRect l t w h
                                where h = 0.9
                                      w = 0.9

xpm/bat_1.xpm

 /* XPM */
 static char *bat_1_xpm[] = {
-"24 16 2 1",
+"24 16 3 1",
 "  c None",
 "w c #b58900",
+". c #839496",
 "                        ",
 " wwwwwwwwwwwwwwwwwwww   ",
 " w                  w   ",
 " w                  w   ",
 " w                  www ",
-" w    wwwwwwwww       w ",
-" w   wwwwwwwww        w ",
-" w        www         w ",
-" w       www          w ",
-" w      wwwwwwwww     w ",
-" w     wwwwwwwww      w ",
+" w    .........       w ",
+" w   .........        w ",
+" w        ...         w ",
+" w       ...          w ",
+" w      .........     w ",
+" w     .........      w ",
 " w                  www ",
 " w                  w   ",
 " w                  w   ",

xpm/bat_2.xpm

+/* XPM */
+static char *bat_2_xpm[] = {
+"24 16 2 1",
+"  c None",
+"w c #b58900",
+"                        ",
+" wwwwwwwwwwwwwwwwwwww   ",
+" w                  w   ",
+" w                  w   ",
+" w                  www ",
+" w    wwwwwwwww       w ",
+" w   wwwwwwwww        w ",
+" w        www         w ",
+" w       www          w ",
+" w      wwwwwwwww     w ",
+" w     wwwwwwwww      w ",
+" w                  www ",
+" w                  w   ",
+" w                  w   ",
+" wwwwwwwwwwwwwwwwwwww   ",
+"                        ",
+};