first commit

This commit is contained in:
Snorky 2025-09-05 22:26:47 +02:00
commit 9bc6a0ddda
3 changed files with 180 additions and 0 deletions

102
xmobarrc.hs Normal file
View File

@ -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>")
]
]
}

72
xmonad.hs Normal file
View File

@ -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")
]

6
xsessionrc Normal file
View File

@ -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 &