Skip to content
GitLab
Explorer
Connexion
Navigation principale
Rechercher ou aller à…
Projet
X
xmonad
Gestion
Activité
Membres
Labels
Programmation
Tickets
Tableaux des tickets
Jalons
Wiki
Code
Requêtes de fusion
Dépôt
Branches
Validations
Étiquettes
Graphe du dépôt
Comparer les révisions
Extraits de code
Déploiement
Releases
Registre de conteneur
Registre de modèles
Surveillance
Incidents
Analyse
Données d'analyse des chaînes de valeur
Analyse des contributeurs
Données d'analyse du dépôt
Expériences du modèle
Aide
Aide
Support
Documentation de GitLab
Comparer les forfaits GitLab
Forum de la communauté
Contribuer à GitLab
Donner votre avis
Raccourcis clavier
?
Extraits de code
Groupes
Projets
Ce projet est archivé. Le dépôt et les autres ressources du projet sont en lecture seule.
Afficher davantage de fils d'Ariane
Kubat
xmonad
Validations
0486d838
Vérifiée
Valider
0486d838
rédigé
5 years ago
par
Kubat
Parcourir les fichiers
Options
Téléchargements
Correctifs
Plain Diff
Update
parent
21d2fa69
Aucune branche associée trouvée
Aucune étiquette associée trouvée
Aucune requête de fusion associée trouvée
Modifications
1
Masquer les modifications d'espaces
En ligne
Côte à côte
Affichage de
1 fichier modifié
xmonad.hs
+27
-52
27 ajouts, 52 suppressions
xmonad.hs
avec
27 ajouts
et
52 suppressions
xmonad.hs
+
27
−
52
Voir le fichier @
0486d838
...
@@ -28,6 +28,7 @@ import XMonad.Actions.DynamicWorkspaces
...
@@ -28,6 +28,7 @@ import XMonad.Actions.DynamicWorkspaces
import
XMonad.Actions.Submap
import
XMonad.Actions.Submap
import
XMonad.Actions.TagWindows
import
XMonad.Actions.TagWindows
import
XMonad.Actions.DynamicWorkspaceGroups
import
XMonad.Actions.DynamicWorkspaceGroups
import
XMonad.Actions.Minimize
import
qualified
XMonad.Actions.DynamicWorkspaceOrder
as
DO
import
qualified
XMonad.Actions.DynamicWorkspaceOrder
as
DO
-- Utils
-- Utils
...
@@ -85,8 +86,8 @@ main = do
...
@@ -85,8 +86,8 @@ main = do
xmonad
$
docks
$
ewmh
$
withUrgencyHook
LibNotifyUrgencyHook
$
defaultConfig
xmonad
$
docks
$
ewmh
$
withUrgencyHook
LibNotifyUrgencyHook
$
defaultConfig
{
modMask
=
mod4Mask
{
modMask
=
mod4Mask
,
focusFollowsMouse
=
False
,
focusFollowsMouse
=
False
,
focusedBorderColor
=
"#F
0F0F0
"
,
focusedBorderColor
=
"#F
FFFFF
"
,
normalBorderColor
=
"#
002b36
"
,
normalBorderColor
=
"#
A0A0A0
"
,
terminal
=
myTerm
,
terminal
=
myTerm
,
workspaces
=
[
"#"
]
,
workspaces
=
[
"#"
]
,
manageHook
=
manageHook
defaultConfig
<+>
myManageHook
<+>
manageDocks
<+>
xScratchpadsManageHook
myScratchPads
,
manageHook
=
manageHook
defaultConfig
<+>
myManageHook
<+>
manageDocks
<+>
xScratchpadsManageHook
myScratchPads
...
@@ -123,22 +124,22 @@ myStartupHook = do
...
@@ -123,22 +124,22 @@ myStartupHook = do
spawnOnce
"feh --bg-scale /home/kubat/.xmonad/wallpaper &"
spawnOnce
"feh --bg-scale /home/kubat/.xmonad/wallpaper &"
spawn
"setxkbmap kubat"
spawn
"setxkbmap kubat"
myLayoutHook
=
minimize
$
boringAuto
myLayoutHook
=
(
(
onWorkspace
"#"
(
named
"Full"
$
noBorders
$
Full
))
minimize
$
boringAuto
(
toggleLayouts
(
noBorders
Full
)
others
)
((
named
"BSP"
$
avoidStruts
$
windowNavigation
$
emptyBSP
)
|||
where
others
=
(
named
"Tall"
$
avoidStruts
$
ResizableTall
1
(
3.0
/
100.0
)
0.5
[]
)
(
named
"Tall"
$
avoidStruts
$
windowNavigation
$
ResizableTall
1
(
3.0
/
100.0
)
0.5
[]
)
|||
|||
(
named
"Mirror-Tall"
$
avoidStruts
$
Mirror
$
ResizableTall
1
(
3.0
/
100.0
)
0.5
[]
)
(
named
"Full"
$
avoidStruts
$
noBorders
$
Full
))
|||
(
named
"Full"
$
avoidStruts
$
Full
)
)
myManageHook
=
do
myManageHook
=
do
composeAll
composeAll
.
concat
$
[
className
=?
"Xmessage"
-->
doFloat
[
[
resource
=?
r
-->
doIgnore
|
r
<-
myIgnores
]
,
className
=?
"Unity"
-->
doFloat
,
[
className
=?
c
-->
doFloat
|
c
<-
myFloats
]
,
className
=?
"Display"
-->
doFloat
,
[
title
=?
"OCaml graphics"
-->
doFloat
]
,
title
=?
"OCaml graphics"
-->
doFloat
,
[
title
=?
"desktop"
-->
doIgnore
]
,
title
=?
"desktop"
-->
doIgnore
,
[
isDialog
-->
doCenterFloat
]
,
manageDocks
,
[
manageDocks
]
]
]
where
myIgnores
=
[
"desktop"
,
"desktop_window"
]
myFloats
=
[
"Xmessage"
,
"Unity"
,
"Display"
]
myTerm
=
"st"
myTerm
=
"st"
myXPConfig
=
def
{
font
=
"xft:SourceCodePro:size=9"
,
bgColor
=
"black"
,
position
=
Top
}
myXPConfig
=
def
{
font
=
"xft:SourceCodePro:size=9"
,
bgColor
=
"black"
,
position
=
Top
}
...
@@ -168,25 +169,11 @@ myAdditionalKeys =
...
@@ -168,25 +169,11 @@ myAdditionalKeys =
,
((
0
,
xK_Return
),
spawn
myTerm
)
,
((
0
,
xK_Return
),
spawn
myTerm
)
])
])
-- Workspace group
,
((
mod4Mask
,
xK_c
),
submap
.
M
.
fromList
$
[
((
0
,
xK_a
),
promptWSGroupAdd
myXPConfig
"Add group: "
)
,
((
0
,
xK_g
),
promptWSGroupView
myXPConfig
"Goto group: "
)
,
((
0
,
xK_d
),
promptWSGroupForget
myXPConfig
"Forget group: "
)
])
-- Tags
,
((
mod4Mask
,
xK_t
),
submap
.
M
.
fromList
$
[
((
0
,
xK_a
),
tagPrompt
myXPConfig
(
\
s
->
withFocused
(
addTag
s
)))
,
((
0
,
xK_d
),
tagDelPrompt
myXPConfig
)
,
((
0
,
xK_g
),
tagPrompt
myXPConfig
(
\
s
->
withTaggedGlobalP
s
shiftHere
))
])
-- Passwords
-- Passwords
,
((
mod4Mask
,
xK_p
),
spawn
"
/home/kubat/.local/bin/
passmenu -h 18"
)
,
((
mod4Mask
,
xK_p
),
spawn
"passmenu -h 18"
)
-- Utility
-- Utility
,
((
mod4Mask
,
xK_d
),
spawn
"
/home/kubat/.local/bin/
dmenu_run -h 18"
)
,
((
mod4Mask
,
xK_d
),
spawn
"dmenu_run -h 18"
)
,
((
mod4Mask
,
xK_b
),
sendMessage
ToggleStruts
)
,
((
mod4Mask
,
xK_b
),
sendMessage
ToggleStruts
)
,
((
mod4Mask
,
xK_F1
),
spawn
"i3lock -e -u -t -i /home/kubat/.xmonad/lock"
)
,
((
mod4Mask
,
xK_F1
),
spawn
"i3lock -e -u -t -i /home/kubat/.xmonad/lock"
)
,
((
mod4Mask
,
xK_Print
),
spawn
"scrot $(date +%F-%H:%M:%S).png -e 'mv $f /home/kubat/pictures/screenshot/'"
)
,
((
mod4Mask
,
xK_Print
),
spawn
"scrot $(date +%F-%H:%M:%S).png -e 'mv $f /home/kubat/pictures/screenshot/'"
)
...
@@ -209,27 +196,15 @@ myAdditionalKeys =
...
@@ -209,27 +196,15 @@ myAdditionalKeys =
,
((
mod4Mask
,
xK_slash
),
focusMaster
)
,
((
mod4Mask
,
xK_slash
),
focusMaster
)
,
((
mod4Mask
.|.
shiftMask
,
xK_slash
),
windows
W
.
swapMaster
)
,
((
mod4Mask
.|.
shiftMask
,
xK_slash
),
windows
W
.
swapMaster
)
,
((
mod4Mask
,
xK_Escape
),
sendMessage
(
Toggle
"Full"
))
,
((
mod4Mask
,
xK_exclam
),
nextScreen
)
,
((
mod4Mask
,
xK_exclam
),
nextScreen
)
,
((
mod4Mask
.|.
shiftMask
,
xK_exclam
),
shiftNextScreen
)
,
((
mod4Mask
.|.
shiftMask
,
xK_exclam
),
shiftNextScreen
)
-- Control for the bsp layout
,
((
mod4Mask
.|.
shiftMask
,
xK_8
),
sendMessage
(
IncMasterN
1
)
)
,
((
mod4Mask
.|.
shiftMask
,
xK_8
),
do
{
sendMessage
$
ExpandTowards
U
;
sendMessage
(
IncMasterN
1
)
})
,
((
mod4Mask
.|.
shiftMask
,
xK_6
),
sendMessage
Expand
)
,
((
mod4Mask
.|.
shiftMask
,
xK_6
),
do
{
sendMessage
$
ExpandTowards
R
;
sendMessage
Expand
})
,
((
mod4Mask
.|.
shiftMask
,
xK_2
),
sendMessage
(
IncMasterN
(
-
1
)))
,
((
mod4Mask
.|.
shiftMask
,
xK_2
),
do
{
sendMessage
$
ExpandTowards
D
;
sendMessage
(
IncMasterN
(
-
1
))
})
,
((
mod4Mask
.|.
shiftMask
,
xK_4
),
sendMessage
Shrink
)
,
((
mod4Mask
.|.
shiftMask
,
xK_4
),
do
{
sendMessage
$
ExpandTowards
L
;
sendMessage
Shrink
})
,
((
mod4Mask
,
xK_6
),
sendMessage
$
WinNav
.
Go
R
)
,
((
mod4Mask
,
xK_4
),
sendMessage
$
WinNav
.
Go
L
)
,
((
mod4Mask
,
xK_8
),
sendMessage
$
WinNav
.
Go
U
)
,
((
mod4Mask
,
xK_2
),
sendMessage
$
WinNav
.
Go
D
)
,
((
mod4Mask
.|.
controlMask
,
xK_6
),
sendMessage
$
WinNav
.
Swap
R
)
,
((
mod4Mask
.|.
controlMask
,
xK_4
),
sendMessage
$
WinNav
.
Swap
L
)
,
((
mod4Mask
.|.
controlMask
,
xK_8
),
sendMessage
$
WinNav
.
Swap
U
)
,
((
mod4Mask
.|.
controlMask
,
xK_2
),
sendMessage
$
WinNav
.
Swap
D
)
,
((
mod4Mask
,
xK_r
),
sendMessage
Rotate
)
,
((
mod4Mask
,
xK_s
),
sendMessage
XMonad
.
Layout
.
BinarySpacePartition
.
Swap
)
-- Dynamic workspaces and workspace control
-- Dynamic workspaces and workspace control
,
((
mod4Mask
,
xK_w
),
submap
.
M
.
fromList
$
,
((
mod4Mask
,
xK_w
),
submap
.
M
.
fromList
$
...
@@ -259,8 +234,8 @@ myAdditionalKeys =
...
@@ -259,8 +234,8 @@ myAdditionalKeys =
-- Scratchpads
-- Scratchpads
,
((
mod4Mask
,
xK_x
),
submap
.
M
.
fromList
$
,
((
mod4Mask
,
xK_x
),
submap
.
M
.
fromList
$
[
((
0
,
xK_Return
),
do
{
scratchpadAction
myScratchPads
"terminal"
;
sendMessage
UpdateBoring
})
[
((
0
,
xK_Return
),
do
{
scratchpadAction
myScratchPads
"terminal"
;
focusMaster
})
,
((
0
,
xK_p
),
do
{
scratchpadAction
myScratchPads
"perso"
;
sendMessage
UpdateBoring
})
,
((
0
,
xK_p
),
do
{
scratchpadAction
myScratchPads
"perso"
;
focusMaster
})
,
((
0
,
xK_x
),
hideAll
myScratchPads
)
,
((
0
,
xK_x
),
hideAll
myScratchPads
)
])
])
]
]
...
...
Ce diff est replié.
Cliquez pour l'agrandir.
Aperçu
0%
Chargement en cours
Veuillez réessayer
ou
joindre un nouveau fichier
.
Annuler
You are about to add
0
people
to the discussion. Proceed with caution.
Terminez d'abord l'édition de ce message.
Enregistrer le commentaire
Annuler
Veuillez vous
inscrire
ou vous
se connecter
pour commenter