From 2a92e8869bf6b33e7edfbb5c0d07a22f0b3777cb Mon Sep 17 00:00:00 2001 From: Kjetil Orbekk Date: Sun, 3 Jul 2016 11:07:51 -0400 Subject: Add xmonad config. --- xmonad/xmobar.hs | 154 +++++++++++++++++++++++++++++++++++++++++++++++++++++++ xmonad/xmonad.hs | 24 +++++++++ xsession | 13 +++++ 3 files changed, 191 insertions(+) create mode 100644 xmonad/xmobar.hs create mode 100644 xmonad/xmonad.hs create mode 100755 xsession diff --git a/xmonad/xmobar.hs b/xmonad/xmobar.hs new file mode 100644 index 0000000..2c7a257 --- /dev/null +++ b/xmonad/xmobar.hs @@ -0,0 +1,154 @@ +Config { font = "xft:Source Code Pro:size=8:bold:antialias=true" -- "-*-Fixed-Bold-R-Normal-*-13-*-*-*-*-*-*-*" + , lowerOnStart = True + , overrideRedirect = True + , persistent = False + , bgColor = "black" + , fgColor = "grey" + , position = TopP 0 100 -- TopW L 95 + , commands = [ + -- Run Weather "EGPF" ["-t"," °C","-L","64","-H","77","--normal","green","--high","red","--low","lightblue"] 36000 + Run Weather "KNYC" + ["-t", "NYC: °C %" + , "-L", "15", "-H", "25", "--normal", "green" + , "--high", "red", "--low", "lightblue"] 36000 + , Run Cpu ["-L","3","-H","50","--normal","green","--high","red"] 10 + , Run Memory ["-t","Mem: %"] 10 + , Run Swap [] 10 + , Run Date "%a %b %_d %l:%M" "date" 10 + , Run DiskU [("/", "/: /")] + ["-L", "20", "-H", "50", "-m", "1", "-p", "3"] 20 + , Run StdinReader + , Run DynNetwork [ + "--template" , ": kB/s|kB/s" + , "--Low" , "1000" -- units: kB/s + , "--High" , "5000" -- units: kB/s + , "--low" , "green" + , "--normal" , "orange" + , "--high" , "red" + ] 10 + , Run BatteryP ["BAT0"] [ + "--template" , "Batt: " + , "--Low" , "10" -- units: % + , "--High" , "80" -- units: % + , "--low" , "darkred" + , "--normal" , "darkorange" + , "--high" , "darkgreen" + , "--" -- battery specific options + -- discharging status + , "-o" , "% ()" + -- AC "on" status + , "-O" , "Charging" + -- charged status + , "-i" , "Charged" + ] 50 + ] + , sepChar = "%" + , alignSep = "}{" + , template = "%StdinReader% }{ %battery% | %dynnetwork% | %disku% | %cpu% | %memory% * %swap% %date% | %KNYC%" + } + +-- Config { +-- +-- -- appearance +-- font = "xft:Source Code Pro:size=9:bold:antialias=true" +-- , bgColor = "black" +-- , fgColor = "#646464" +-- , position = Top +-- , border = BottomB +-- , borderColor = "#646464" +-- +-- -- layout +-- , sepChar = "%" -- delineator between plugin names and straight text +-- , alignSep = "}{" -- separator between left-right alignment +-- , template = "%StdinReader% | %battery% | %multicpu% | %coretemp% | %memory% | %dynnetwork% }{ %RJTT% | %date% || %kbd% " +-- +-- -- general behavior +-- , lowerOnStart = True -- send to bottom of window stack on start +-- , hideOnStart = False -- start with window unmapped (hidden) +-- , allDesktops = True -- show on all desktops +-- , overrideRedirect = False -- set the Override Redirect flag (Xlib) +-- , pickBroadest = False -- choose widest display (multi-monitor) +-- , persistent = True -- enable/disable hiding (True = disabled) +-- +-- -- plugins +-- -- Numbers can be automatically colored according to their value. xmobar +-- -- decides color based on a three-tier/two-cutoff system, controlled by +-- -- command options: +-- -- --Low sets the low cutoff +-- -- --High sets the high cutoff +-- -- +-- -- --low sets the color below --Low cutoff +-- -- --normal sets the color between --Low and --High cutoffs +-- -- --High sets the color above --High cutoff +-- -- +-- -- The --template option controls how the plugin is displayed. Text +-- -- color can be set by enclosing in tags. For more details +-- -- see http://projects.haskell.org/xmobar/#system-monitor-plugins. +-- , commands = +-- -- weather monitor +-- [ Run Weather "RJTT" [ "--template", " | °C | % | hPa" +-- ] 36000 +-- +-- -- network activity monitor (dynamic interface resolution) +-- , Run DynNetwork [ "--template" , ": kB/s|kB/s" +-- , "--Low" , "1000" -- units: kB/s +-- , "--High" , "5000" -- units: kB/s +-- , "--low" , "darkgreen" +-- , "--normal" , "darkorange" +-- , "--high" , "darkred" +-- ] 10 +-- +-- -- cpu activity monitor +-- , Run MultiCpu [ "--template" , "Cpu: %|%" +-- , "--Low" , "50" -- units: % +-- , "--High" , "85" -- units: % +-- , "--low" , "darkgreen" +-- , "--normal" , "darkorange" +-- , "--high" , "darkred" +-- ] 10 +-- +-- -- cpu core temperature monitor +-- , Run CoreTemp [ "--template" , "Temp: °C|°C" +-- , "--Low" , "70" -- units: °C +-- , "--High" , "80" -- units: °C +-- , "--low" , "darkgreen" +-- , "--normal" , "darkorange" +-- , "--high" , "darkred" +-- ] 50 +-- +-- -- memory usage monitor +-- , Run Memory [ "--template" ,"Mem: %" +-- , "--Low" , "20" -- units: % +-- , "--High" , "90" -- units: % +-- , "--low" , "darkgreen" +-- , "--normal" , "darkorange" +-- , "--high" , "darkred" +-- ] 10 +-- +-- -- battery monitor +-- , Run Battery [ "--template" , "Batt: " +-- , "--Low" , "10" -- units: % +-- , "--High" , "80" -- units: % +-- , "--low" , "darkred" +-- , "--normal" , "darkorange" +-- , "--high" , "darkgreen" +-- +-- , "--" -- battery specific options +-- -- discharging status +-- , "-o" , "% ()" +-- -- AC "on" status +-- , "-O" , "Charging" +-- -- charged status +-- , "-i" , "Charged" +-- ] 50 +-- +-- -- time and date indicator +-- -- (%F = y-m-d date, %a = day of week, %T = h:m:s time) +-- , Run Date "%F (%a) %T" "date" 10 +-- +-- -- keyboard layout indicator +-- , Run Kbd [ ("us(dvorak)" , "DV") +-- , ("us" , "US") +-- ] +-- ] +-- } diff --git a/xmonad/xmonad.hs b/xmonad/xmonad.hs new file mode 100644 index 0000000..fdc6dd6 --- /dev/null +++ b/xmonad/xmonad.hs @@ -0,0 +1,24 @@ +import XMonad +import XMonad.Hooks.DynamicLog +import XMonad.Hooks.ManageDocks +import XMonad.Util.Run (spawnPipe) +import XMonad.Util.EZConfig (additionalKeys) +import XMonad.Layout.NoBorders +import System.IO + +main = do + xmproc <- spawnPipe "/usr/bin/env xmobar /home/orbekk/.xmonad/xmobar.hs" + xmonad $ defaultConfig + { manageHook = manageDocks <+> manageHook defaultConfig + , layoutHook = smartBorders . avoidStruts $ layoutHook defaultConfig + , logHook = dynamicLogWithPP xmobarPP + { ppOutput = hPutStrLn xmproc + , ppTitle = xmobarColor "green" "" . shorten 50 + } + , modMask = mod4Mask + , terminal = "termite" + , borderWidth = 2 + } `additionalKeys` + [ ((mod4Mask .|. shiftMask, xK_z), spawn "xscreensaver-command -lock") + , ((mod4Mask, xK_b), sendMessage ToggleStruts) + ] diff --git a/xsession b/xsession new file mode 100755 index 0000000..f836e4c --- /dev/null +++ b/xsession @@ -0,0 +1,13 @@ +#!/usr/bin/env bash + +xrdb -merge $HOME/.Xresources +setxkbmap us -variant dvorak -option compose:ralt -option caps:ctrl_modifier +$HOME/bin/keyboard_setup.sh +/usr/bin/env xscreensaver -no-splash & +/usr/bin/env xbindkeys +/usr/bin/env xset -b +/usr/bin/env xss-lock -- /usr/bin/env xscreensaver-command --lock & +/usr/bin/env pasystray & +/usr/bin/env xsetroot -solid midnightblue +/usr/bin/env trayer --edge top --align right --SetDockType true --SetPartialStrut true --expand true --width 100 --widthtype pixel --transparent true --alpha 0 --tint 0x000000 --height 18 & +exec xmonad -- cgit v1.2.3