Compare commits

...

2 commits

3 changed files with 9 additions and 119 deletions

View file

@ -38,7 +38,7 @@
!/.xmobarrc !/.xmobarrc
!/.xmonad !/.xmonad
!/.xmonad/xmonad-session-rc !/.xmonad/xmonad-session-rc
!/.xmonad/xmonad.hs !/.xmonad/xmonad-sanganto.hs
!/.xmonad/xmonad-sercanto.hs !/.xmonad/xmonad-sercanto.hs
!/.xscreensaver !/.xscreensaver
!/.xsession !/.xsession

106
.xmobarrc
View file

@ -1,106 +0,0 @@
Config {
-- Appearance
font = "xft:Open Sans:size=9:antialias=true"
, bgColor = "#1c1c1c"
, fgColor = "#d0d0d0"
, position = TopW L 100 -- Leave space for Trayer
-- Layout
, sepChar = "%" -- delineator between plugin names and straight text
, alignSep = "}{" -- separator between left-right alignment
, template = " %StdinReader% }{ %YBRK% | UV: %uv Brisbane% | %cpu% %coretemp% %cpufreq% | %memory% | %swap% | %battery% | %date% "
-- Behaviour
, lowerOnStart = False -- send to bottom of window stack on start
, pickBroadest = False -- choose widest display (multi-monitor)
, overrideRedirect = False -- set the Override Redirect flag (Xlib)
--Plugins
, commands =
-- CPU Activity Monitor
[ Run Cpu [ "--template" , "CPU: <total>%"
, "--Low" , "30" -- units: %
, "--High" , "70" -- units: %
, "--low" , "#5faf00"
, "--normal" , "#d0d0d0"
, "--high" , "#af005f"
] 10
-- cpu core temperature monitor
, Run CoreTemp [ "--template" , "Temp: <core0>°C <core1>°C"
, "--Low" , "30" -- units: °C
, "--High" , "80" -- units: °C
, "--low" , "#5faf00"
, "--normal" , "#d0d0d0"
, "--high" , "#af005f"
] 50
-- CPU Frequency
, Run CpuFreq [ "--template" , "<cpu0>GHz <cpu1>GHz"
] 10
-- Memory Usage Monitor
, Run Memory [ "--template" , "MEM <usedratio>%"
, "--Low" , "20" -- units: %
, "--High" , "90" -- units: %
, "--low" , "#5faf00"
, "--normal" , "#d0d0d0"
, "--high" , "#af005f"
] 10
-- Battery Monitor
, Run BatteryP ["BAT"] [ "--template" , "BAT: <acstatus>"
, "--Low" , "10" -- units: %
, "--High" , "80" -- units: %
, "--low" , "#af005f"
, "--normal" , "#d0d0d0"
, "--high" , "#5faf00"
, "--" -- battery specific options
-- discharging status
, "-o" , "<left>% (<timeleft>)"
-- AC "on" status
, "-O" , "<fc=#ffaf00>Charging</fc>"
-- charged status
, "-i" , "<fc=#5faf00>Charged</fc>"
] 50
-- Read from STDIN
, Run StdinReader
-- Display the current Wireless SSID
-- , Run Wireless "wlp1s0" [ "-t", "<essid>" ] 10
-- Weather Monitor
, Run Weather "YBRK" [ "--template" , " <skyCondition> <tempC>C <rh>% <pressure> hPa"
, "--Low" , "10"
, "--High" , "35"
, "--low" , "#5faf00"
, "--normal" , "#d0d0d0"
, "--high" , "#af005f"
] 36000
-- Time and Date Display
, Run Date "<fc=#d0d0d0>%a %b %_d %H:%M</fc>" "date" 10
-- Display the current UV
, Run UVMeter "Brisbane" [ "-H" , "3"
, "-L" , "3"
, "--low" , "#5faf00"
, "--high" , "#af005f"
] 900
-- MPD status
, Run MPD ["-t","<artist> - <title> (<album>) <statei> ","--", "-P", ">>", "-Z", "|", "-S", "><"] 10
, Run Swap [] 10
, Run DynNetwork [ "--template" , "<dev>: <tx>kB/s"
, "--Low" , "50000" -- units: B/s
, "--High" , "500000" -- units: B/s
, "--low" , "#5faf00"
, "--normal" , "#d0d0d0"
, "--high" , "#af005f"
] 10
]
}

View file

@ -2,8 +2,8 @@ import XMonad
import XMonad.Actions.CopyWindow import XMonad.Actions.CopyWindow
import XMonad.Actions.DynamicProjects import XMonad.Actions.DynamicProjects
import XMonad.Actions.Navigation2D import XMonad.Actions.Navigation2D
import XMonad.Actions.SinkAll
import XMonad.Actions.SpawnOn import XMonad.Actions.SpawnOn
import XMonad.Actions.WithAll
import XMonad.Hooks.DynamicLog import XMonad.Hooks.DynamicLog
import XMonad.Hooks.EwmhDesktops import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.StatusBar import XMonad.Hooks.StatusBar
@ -113,12 +113,11 @@ projects :: [Project]
projects = projects =
[ Project [ Project
{ projectName = wsIOG, { projectName = wsIOG,
projectDirectory = "~/source/IOG", projectDirectory = "~/source/IOG/blockfrost-ops",
projectStartHook = Just $ do projectStartHook = Just $ do
spawnOn wsIOG iogBrowser spawnOn wsIOG iogBrowser
spawnOn wsIOG slack spawnOn wsIOG slack
spawnOn wsIOG iogTerminal spawnOn wsIOG iogTerminal
spawnOn wsIOG iogNeomuttTerminal
}, },
Project Project
{ projectName = wsSEC, { projectName = wsSEC,
@ -139,7 +138,6 @@ projects =
spawnOn wsMIO element spawnOn wsMIO element
spawnOn wsMIO mastodon spawnOn wsMIO mastodon
spawnOn wsMIO mioTerminal spawnOn wsMIO mioTerminal
spawnOn wsMIO myNeomuttTerminal
}, },
Project Project
{ projectName = wsLOG, { projectName = wsLOG,
@ -184,7 +182,7 @@ promptTheme =
-- Applications -- -- Applications --
------------------ ------------------
brightnessDown, brightnessUp, browser, discord, editor, element, hibernate, incognitoBrowser, iogBrowser, launcher, logseq, musicPlayer, notificationDaemon, obs, screenshot, signal, slack, iogNeomuttTerminal, iogTerminal, mioTerminal, myNeomuttTerminal, myTerminal, volumeDown, volumeMute, volumeUp :: String brightnessDown, brightnessUp, browser, discord, editor, element, hibernate, incognitoBrowser, iogBrowser, launcher, logseq, musicPlayer, notificationDaemon, obs, screenshot, signal, slack, iogTerminal, mioTerminal, myTerminal, volumeDown, volumeMute, volumeUp :: String
brightnessDown = "light -U 10 ; notify-send -h int:value:$(light -G) \"Brightness\"" brightnessDown = "light -U 10 ; notify-send -h int:value:$(light -G) \"Brightness\""
brightnessUp = "light -A 10 ; notify-send -h int:value:$(light -G) \"Brightness\"" brightnessUp = "light -A 10 ; notify-send -h int:value:$(light -G) \"Brightness\""
browser = "firefox" browser = "firefox"
@ -207,10 +205,8 @@ screenshot = "flameshot gui"
signal = "signal-desktop" signal = "signal-desktop"
slack = "slack" slack = "slack"
mastodon = "whalebird" mastodon = "whalebird"
iogNeomuttTerminal = "terminology -e neomutt -F ~/.mutt/profile.IOHK" iogTerminal = "terminology -e 'tmux new-session -f /etc/tmux.conf -c ~/source/IOG/blockfrost/blockfrost-ops -s blockfrost'"
iogTerminal = "terminology -e 'tmux new-session -f /etc/tmux.conf -c ~/source/IOG -s IOG'"
mioTerminal = "terminology -e 'tmux new-session -f /etc/tmux.conf -c ~/forge/mio-ops -s mio'" mioTerminal = "terminology -e 'tmux new-session -f /etc/tmux.conf -c ~/forge/mio-ops -s mio'"
myNeomuttTerminal = "terminology -e neomutt"
myTerminal = "terminology" myTerminal = "terminology"
myScreenLockCmd = "xscreensaver --no-splash" myScreenLockCmd = "xscreensaver --no-splash"
myScreenLock = "xscreensaver-command -lock" myScreenLock = "xscreensaver-command -lock"
@ -273,11 +269,11 @@ myKeybinds =
------------ ------------
-- myLayout :: Choose (ModifiedLayout Spacing Tall) (Choose (Mirror (ModifiedLayout Spacing Tall)) Full) a -- myLayout :: Choose (ModifiedLayout Spacing Tall) (Choose (Mirror (ModifiedLayout Spacing Tall)) Full) a
myLayout = spacedThreeColMid myLayout = Mirror tiled
||| spacedSpiral
||| tiled
||| Mirror tiled
||| Full ||| Full
||| spacedThreeColMid
||| tiled
||| spacedSpiral
where where
tiled = spacing 3 $ Tall nmaster delta ratio tiled = spacing 3 $ Tall nmaster delta ratio
spacedSpiral = spacing 3 $ spiral (6/7) spacedSpiral = spacing 3 $ spiral (6/7)