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: