kotovalexarian-likes-gitlab/dwt1--dotfiles
1
0
Fork 0
mirror of https://gitlab.com/dwt1/dotfiles.git synced 2023-02-13 20:55:19 -05:00
Code Releases Activity

Minor changes.

Browse source
This commit is contained in:
Derek Taylor 2019-02-13 09:40:35 -06:00
parent a47b528ce5
commit 89930c7ae0
2 changed files with 25 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
.xmonad/xmonad.hs
View file

@ -1,6 +1,6 @@
---------------------------------------------------------------------------------------------- ------------------------------------------------------------------------
---IMPORTS ---IMPORTS
---------------------------------------------------------------------------------------------- ------------------------------------------------------------------------
-- Base -- Base
import XMonad import XMonad
import XMonad.Config.Desktop import XMonad.Config.Desktop
@ -68,9 +68,9 @@ import XMonad.Layout.IM (withIM, Property(Role))
-- Prompts -- Prompts
import XMonad.Prompt (defaultXPConfig, XPConfig(..), XPPosition(Top), Direction1D(..)) import XMonad.Prompt (defaultXPConfig, XPConfig(..), XPPosition(Top), Direction1D(..))
---------------------------------------------------------------------------------------------- ------------------------------------------------------------------------
---CONFIG ---CONFIG
---------------------------------------------------------------------------------------------- ------------------------------------------------------------------------
myModMask = mod4Mask -- Sets modkey to super/windows key myModMask = mod4Mask -- Sets modkey to super/windows key
myTerminal = "st" -- Sets default terminal myTerminal = "st" -- Sets default terminal
myTextEditor = "editor" -- Sets default text editor myTextEditor = "editor" -- Sets default text editor
@ -78,9 +78,9 @@ myBorderWidth = 2 -- Sets border width for windows
windowCount = gets $ Just . show . length . W.integrate' . W.stack . W.workspace . W.current . windowset windowCount = gets $ Just . show . length . W.integrate' . W.stack . W.workspace . W.current . windowset
main = do main = do
xmproc0 <- spawnPipe "xmobar -x 0 /home/dt/.config/xmobar/xmobarrc2" -- Launch xmobar mon2 xmproc0 <- spawnPipe "xmobar -x 0 /home/dt/.config/xmobar/xmobarrc2" -- xmobar mon 2
xmproc1 <- spawnPipe "xmobar -x 1 /home/dt/.config/xmobar/xmobarrc1" -- Launch xmobar mon1 xmproc1 <- spawnPipe "xmobar -x 1 /home/dt/.config/xmobar/xmobarrc1" -- xmobar mon 1
xmproc2 <- spawnPipe "xmobar -x 2 /home/dt/.config/xmobar/xmobarrc0" -- Launch xmobar mon0 xmproc2 <- spawnPipe "xmobar -x 2 /home/dt/.config/xmobar/xmobarrc0" -- xmobar mon 0
xmonad $ ewmh desktopConfig xmonad $ ewmh desktopConfig
{ manageHook = ( isFullscreen --> doFullFloat ) <+> manageHook defaultConfig <+> manageDocks { manageHook = ( isFullscreen --> doFullFloat ) <+> manageHook defaultConfig <+> manageDocks
, logHook = dynamicLogWithPP xmobarPP , logHook = dynamicLogWithPP xmobarPP
@ -105,20 +105,19 @@ main = do
, focusedBorderColor = "#bbc5ff" , focusedBorderColor = "#bbc5ff"
} `additionalKeysP` myKeys } `additionalKeysP` myKeys
---------------------------------------------------------------------------------------------- ------------------------------------------------------------------------
---AUTOSTART ---AUTOSTART
---------------------------------------------------------------------------------------------- ------------------------------------------------------------------------
myStartupHook = do myStartupHook = do
spawnOnce "urxvtd &" spawnOnce "urxvtd &"
spawnOnce "nitrogen --restore &" spawnOnce "nitrogen --restore &"
spawnOnce "compton --config /home/dt/.config/compton/compton.conf &" spawnOnce "compton --config /home/dt/.config/compton/compton.conf &"
setWMName "LG3D" setWMName "LG3D"
--spawnOnce "/home/dt/.xmonad/xmonad.start" -- Sets our wallpaper --spawnOnce "/home/dt/.xmonad/xmonad.start" -- Sets our wallpaper
--spawnOnce "compton -cCGfF -o 1.00 -O 0.100 -I 0.100 -t 0 -l 0 -r 3 -D2 -m 0.88 --opacity-rule 75:'class_g *=\"XTerm\"' &" -- Enables compositing
---------------------------------------------------------------------------------------------- ------------------------------------------------------------------------
---KEYBINDINGS ---KEYBINDINGS
---------------------------------------------------------------------------------------------- ------------------------------------------------------------------------
myKeys = myKeys =
-- Xmonad -- Xmonad
[ ("M-C-r", spawn "xmonad --recompile") -- Recompiles xmonad [ ("M-C-r", spawn "xmonad --recompile") -- Recompiles xmonad
@ -252,9 +251,9 @@ myKeys =
nonEmptyNonNSP = WSIs (return (\ws -> isJust (W.stack ws) && W.tag ws /= "NSP")) nonEmptyNonNSP = WSIs (return (\ws -> isJust (W.stack ws) && W.tag ws /= "NSP"))
---------------------------------------------------------------------------------------------- ------------------------------------------------------------------------
---WORKSPACES ---WORKSPACES
---------------------------------------------------------------------------------------------- ------------------------------------------------------------------------
xmobarEscape = concatMap doubleLts xmobarEscape = concatMap doubleLts
where where
@ -287,9 +286,9 @@ myManageHook = placeHook (withGaps (20,12,12,12) (smart (0.5,0.5))) <+> insertPo
myUnfloatApps = ["gimp"] myUnfloatApps = ["gimp"]
---------------------------------------------------------------------------------------------- ------------------------------------------------------------------------
---LAYOUTS ---LAYOUTS
---------------------------------------------------------------------------------------------- ------------------------------------------------------------------------
myLayoutHook = avoidStruts $ mouseResize $ windowArrange $ T.toggleLayouts floats $ myLayoutHook = avoidStruts $ mouseResize $ windowArrange $ T.toggleLayouts floats $
mkToggle (NBFULL ?? NOBORDERS ?? EOT) $ renamed [CutWordsLeft 4] $ maximize $ mkToggle (NBFULL ?? NOBORDERS ?? EOT) $ renamed [CutWordsLeft 4] $ maximize $
minimize $ boringWindows $ spacing 0 $ minimize $ boringWindows $ spacing 0 $

2
README.md
View file

@ -1,6 +1,6 @@
# Dotfiles # Dotfiles
![Screenshot of my desktop](https://gitlab.com/dwt1/dotfiles/raw/master/.screenshots/dotfiles01.png) ![Screenshot of my desktop](https://gitlab.com/dwt1/dotfiles/raw/master/.screenshots/dotfiles03.png)
Dotfiles are the customization files that are used to personalize your Linux or other Unix-based system. You can tell that a file is a dotfile because the name of the file will begin with a period--a dot! The period at the beginning of a filename or directory name indicates that it is a hidden file or directory. This repository contains my personal dotfiles. They are stored here for convenience so that I may quickly access them on new machines or new installs. Also, others may find some of my configurations helpful in customizing their own dotfiles. Dotfiles are the customization files that are used to personalize your Linux or other Unix-based system. You can tell that a file is a dotfile because the name of the file will begin with a period--a dot! The period at the beginning of a filename or directory name indicates that it is a hidden file or directory. This repository contains my personal dotfiles. They are stored here for convenience so that I may quickly access them on new machines or new installs. Also, others may find some of my configurations helpful in customizing their own dotfiles.
# Who Am I? # Who Am I?