chore(xmonad): move xmonad.hs

This commit is contained in:
Serĉanto de Scio 2024-08-15 16:50:17 +10:00
parent fc0d0f7d1b
commit 7973b53c4c
Signed by: sercanto
GPG key ID: A4122FF3971B6865
2 changed files with 9 additions and 13 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

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)