diff --git a/xmobarrc b/xmobarrc
index 639f827..69204fc 100644
--- a/xmobarrc
+++ b/xmobarrc
@@ -1,10 +1,10 @@
Config {
- font = "xft:Fira Code:style=Regular:size=9"
- , template = " %StdinReader%}{%battery% • %date% "
+ font = "xft:Fira Code:style=Regular:size=9"
+ , template = " %UnsafeStdinReader%}{%battery% • %date% "
, commands =
- [ Run StdinReader
- , Run Date "%F %a • %T" "date" 10
- , Run Battery [ "--template", " %/ • • W"
+ [ Run UnsafeStdinReader
+ , Run Date "%A %d %B %H:%M %Z" "date" 10
+ , Run Battery [ "--template", " % () • • W"
, "-L", "25"
, "-H", "35"
, "-l", "#FF0000"
@@ -22,7 +22,7 @@ Config {
, borderColor = "#859900"
, position = TopSize L 100 29
, textOffset = 16
- , additionalFonts = [ "xft:DejaVu Sans Mono:style=Regular:size=9" ]
+ , additionalFonts = [ "xft:FontAwesome:style=Regular:size=10" ]
-- , sepChar
-- , alignSep
-- , iconOffset
diff --git a/xmonad.hs b/xmonad.hs
index 1d85316..2bebb8c 100755
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -2,7 +2,7 @@
-- including best practises.
-- https://github.com/xmonad/xmonad-contrib/blob/master/XMonad/Config/Example.hs
-{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE FlexibleContexts, OverloadedStrings #-}
module Main (main) where
@@ -33,7 +33,18 @@ import XMonad.Layout.LayoutModifier (ModifiedLayout)
wkspcs :: [String]
-------- ["●", "◕", "◑", "◔", "◯", "◐", "◒", "◓", "☦", "λ"]
-wkspcs = ["α", "β", "γ", "δ", "ε", "ζ", "η", "θ", "ι", "κ"]
+-------- ["α", "β", "γ", "δ", "ε", "ζ", "η", "θ", "ι", "κ"]
+wkspcs = [ wrap "" "" "\xF0E0" -- email
+ , wrap "" "" "\xF086" -- chat
+ , wrap "" "" "\xF121" -- work
+ , wrap "" "" "\xF126" -- work
+ , wrap "" "" "\xF120" -- work
+ , wrap "" "" "\xF09C" -- password
+ , wrap "" "" "\xF16C" -- web work
+ , wrap "" "" "\xF025" -- sound
+ , wrap "" "" "\xF269" -- web perso
+ , wrap "" "" "\xF03D" -- movie
+ ]
barPP = def
{ ppCurrent = xmobarColor' S.orange
@@ -41,6 +52,7 @@ barPP = def
, ppHidden = xmobarColor' S.foreground -- other workspaces with windows
, ppHiddenNoWindows = xmobarColor' S.foregroundll -- other workspaces
, ppSep = " "
+ , ppWsSep = " "
, ppLayout = printLayout
, ppTitle = printTitle
}
@@ -88,6 +100,8 @@ myConfig = desktopConfig
, ("M-S-", shiftToNext >> nextWS)
, ("M-p", fuzzyPrompt myXPConfig)
, ("-b", sendMessage (Toggle "Full"))
+ , ("M-s", spawn "/run/current-system/sw/bin/scrot /tmp/screen.png")
+ , ("M-S-s", spawn "sleep 0.2 ; /run/current-system/sw/bin/scrot -s /tmp/screenSel.png")
]
`additionalKeys`-- Add some more (automatic) key bindings: