first commit
This commit is contained in:
Snorky
commit
9bc6a0ddda
|
|
@ -0,0 +1,102 @@
|
|||
Config {
|
||||
|
||||
-- appearance
|
||||
font = "Bitstream Vera Sans Mono Bold 9"
|
||||
, 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 = "%battery% | %multicpu% | %coretemp% | %memory% | %dynnetwork% }{ %RJTT% | %date% || %kbd% "
|
||||
|
||||
-- general behavior
|
||||
, lowerOnStart = False -- send to bottom of window stack on start
|
||||
, hideOnStart = False -- start with window unmapped (hidden)
|
||||
, allDesktops = True -- show on all desktops
|
||||
, overrideRedirect = True -- set the Override Redirect flag (Xlib)
|
||||
, pickBroadest = False -- choose widest display (multi-monitor)
|
||||
, persistent = False -- 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 <fc></fc> tags. For more details
|
||||
-- see http://projects.haskell.org/xmobar/#system-monitor-plugins.
|
||||
, commands =
|
||||
|
||||
-- network activity monitor (dynamic interface resolution)
|
||||
[ Run DynNetwork [ "--template" , "<dev>: <tx>kB/s|<rx>kB/s"
|
||||
, "--Low" , "1000" -- units: B/s
|
||||
, "--High" , "5000" -- units: B/s
|
||||
, "--low" , "darkgreen"
|
||||
, "--normal" , "darkorange"
|
||||
, "--high" , "darkred"
|
||||
] 10
|
||||
|
||||
-- cpu activity monitor
|
||||
, Run MultiCpu [ "--template" , "Cpu: <total0>%|<total1>%|<total2>%|<total3>%|<total4>%|<total5>%|<total6>%|<total7>%|<total8>%|<total9>%|<total10>%|<total11>%|<total12>%|<total13>%|<total14>%|<total15>%"
|
||||
, "--Low" , "50" -- units: %
|
||||
, "--High" , "85" -- units: %
|
||||
, "--low" , "darkgreen"
|
||||
, "--normal" , "darkorange"
|
||||
, "--high" , "darkred"
|
||||
] 10
|
||||
|
||||
-- cpu core temperature monitor
|
||||
, Run CoreTemp [ "--template" , "Temp: <core0>°C|<core1>°C"
|
||||
, "--Low" , "70" -- units: °C
|
||||
, "--High" , "80" -- units: °C
|
||||
, "--low" , "darkgreen"
|
||||
, "--normal" , "darkorange"
|
||||
, "--high" , "darkred"
|
||||
] 50
|
||||
|
||||
-- memory usage monitor
|
||||
, Run Memory [ "--template" ,"Mem: <usedratio>%"
|
||||
, "--Low" , "20" -- units: %
|
||||
, "--High" , "90" -- units: %
|
||||
, "--low" , "darkgreen"
|
||||
, "--normal" , "darkorange"
|
||||
, "--high" , "darkred"
|
||||
] 10
|
||||
|
||||
-- battery monitor
|
||||
, Run Battery [ "--template" , "Batt: <acstatus>"
|
||||
, "--Low" , "10" -- units: %
|
||||
, "--High" , "80" -- units: %
|
||||
, "--low" , "darkred"
|
||||
, "--normal" , "darkorange"
|
||||
, "--high" , "darkgreen"
|
||||
|
||||
, "--" -- battery specific options
|
||||
-- discharging status
|
||||
, "-o" , "<left>% (<timeleft>)"
|
||||
-- AC "on" status
|
||||
, "-O" , "<fc=#dAA520>Charging</fc>"
|
||||
-- charged status
|
||||
, "-i" , "<fc=#006000>Charged</fc>"
|
||||
] 50
|
||||
|
||||
-- time and date indicator
|
||||
-- (%F = y-m-d date, %a = day of week, %T = h:m:s time)
|
||||
, Run Date "<fc=#ABABAB>%F (%a) %T</fc>" "date" 10
|
||||
|
||||
-- keyboard layout indicator
|
||||
, Run Kbd [ ("us(dvorak)" , "<fc=#00008B>DV</fc>")
|
||||
, ("us" , "<fc=#8B0000>US</fc>")
|
||||
]
|
||||
]
|
||||
}
|
||||
|
|
@ -0,0 +1,72 @@
|
|||
--
|
||||
-- Configuration file for XMonad + MATE
|
||||
--
|
||||
-- Usage:
|
||||
-- * Copy this file to ~/.xmonad/
|
||||
-- * Run: $ xmonad --recompile
|
||||
-- * Launch: $ xmonad --replace
|
||||
-- [Optional] Create an autostart to command with "xmonad --replace"
|
||||
--
|
||||
-- Author: Arturo Fernandez <arturo at bsnux dot com>
|
||||
-- Inspired by:
|
||||
-- Spencer Janssen <spencerjanssen@gmail.com>
|
||||
-- rfc <reuben.fletchercostin@gmail.com>
|
||||
-- License: BSD
|
||||
--
|
||||
import XMonad
|
||||
import XMonad.Config.Desktop
|
||||
import XMonad.Util.Run (safeSpawn)
|
||||
import qualified Data.Map as M
|
||||
import qualified XMonad.StackSet as W
|
||||
import System.Exit
|
||||
import System.Environment (getEnvironment)
|
||||
import XMonad.Util.EZConfig
|
||||
|
||||
myWorkspaces = ["1","2","3","4","5","6","7","8"]
|
||||
|
||||
mateConfig = desktopConfig
|
||||
{ terminal = "mate-terminal"
|
||||
, keys = mateKeys <+> keys desktopConfig
|
||||
}
|
||||
|
||||
mateKeys (XConfig {modMask = modm}) = M.fromList $
|
||||
[ ((modm, xK_p), mateRun)
|
||||
, ((modm .|. shiftMask, xK_q), spawn "mate-session-save --kill") ]
|
||||
|
||||
mateRun :: X ()
|
||||
mateRun = withDisplay $ \dpy -> do
|
||||
rw <- asks theRoot
|
||||
mate_panel <- getAtom "_MATE_PANEL_ACTION"
|
||||
panel_run <- getAtom "_MATE_PANEL_ACTION_RUN_DIALOG"
|
||||
|
||||
io $ allocaXEvent $ \e -> do
|
||||
setEventType e clientMessage
|
||||
setClientMessageEvent e rw mate_panel 32 panel_run 0
|
||||
sendEvent dpy rw False structureNotifyMask e
|
||||
sync dpy False
|
||||
|
||||
main = do
|
||||
xmonad $ mateConfig
|
||||
{ modMask = mod4Mask
|
||||
, borderWidth = 2
|
||||
, workspaces = myWorkspaces
|
||||
, focusedBorderColor = "#FF0000"
|
||||
} `additionalKeysP` myKeys
|
||||
|
||||
|
||||
myKeys = [ (("M4-f"), spawn "brave-bin")
|
||||
,(("M4-S-q"), io exitSuccess)
|
||||
,(("M4-q"), spawn "xmonad --recompile; xmonad --restart")
|
||||
,(("M4-<Return>"), spawn "mate-terminal")
|
||||
,(("M4-p"), spawn "dmenu_run")
|
||||
,(("M4-z"), kill)
|
||||
-- BINDING FOR MOVE WORKSPACE
|
||||
,(("M4-<F1>"), windows $ W.greedyView "1")
|
||||
,(("M4-<F2>"), windows $ W.greedyView "2")
|
||||
,(("M4-<F3>"), windows $ W.greedyView "3")
|
||||
,(("M4-<F4>"), windows $ W.greedyView "4")
|
||||
,(("M4-<F5>"), windows $ W.greedyView "5")
|
||||
,(("M4-<F6>"), windows $ W.greedyView "6")
|
||||
,(("M4-<F7>"), windows $ W.greedyView "7")
|
||||
,(("M4-<F8>"), windows $ W.greedyView "8")
|
||||
]
|
||||
|
|
@ -0,0 +1,6 @@
|
|||
#!/bin/bash
|
||||
|
||||
/usr/bin/xmobar /home/pierre/gitea/xmonad_configuration/xmobarrc.hs &
|
||||
setxkbmap fr &
|
||||
|
||||
feh --bg-center /home/pierre/Images/76922-1.png &
|
||||
Loading…
Reference in New Issue
Block a user