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 conteneurs
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é GitLab
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
0fdecc3f
Vérifiée
Valider
0fdecc3f
rédigé
Il y a 5 ans
par
Kubat
Parcourir les fichiers
Options
Téléchargements
Correctifs
Plain Diff
Little changes
parent
5882134b
Branches
Branches contenant la validation
Aucune étiquette associée trouvée
Aucune requête de fusion associée trouvée
Modifications
1
Afficher les modifications d'espaces
En ligne
Côte à côte
Affichage de
1 fichier modifié
xmonad.hs
+37
-15
37 ajouts, 15 suppressions
xmonad.hs
avec
37 ajouts
et
15 suppressions
xmonad.hs
+
37
−
15
Voir le fichier @
0fdecc3f
...
...
@@ -35,6 +35,8 @@ import XMonad.Util.Run
import
XMonad.Util.EZConfig
(
additionalKeys
)
import
XMonad.Util.NamedWindows
import
XMonad.Util.Loggers
import
XMonad.Util.Scratchpad
import
XMonad.Util.WorkspaceCompare
-- Hooks
import
XMonad.Hooks.ICCCMFocus
...
...
@@ -44,6 +46,7 @@ import XMonad.Hooks.ManageHelpers
import
XMonad.Hooks.UrgencyHook
import
XMonad.Hooks.SetWMName
import
XMonad.Hooks.EwmhDesktops
(
ewmh
)
import
XMonad.Hooks.DebugStack
-- Prompts
import
XMonad.Prompt
...
...
@@ -80,7 +83,7 @@ main = do
,
normalBorderColor
=
"#002b36"
,
terminal
=
myTerm
,
workspaces
=
[
"#"
]
,
manageHook
=
manageHook
defaultConfig
<+>
myManageHook
<+>
manageDocks
,
manageHook
=
manageHook
defaultConfig
<+>
myManageHook
<+>
manageDocks
<+>
namedScratchpadManageHook
myScratchPads
,
startupHook
=
docksStartupHook
<+>
setWMName
"LG3D"
<+>
myStartupHook
,
handleEventHook
=
docksEventHook
,
layoutHook
=
myLayoutHook
...
...
@@ -94,11 +97,11 @@ main = do
,
ppSep
=
" "
,
ppWsSep
=
" "
,
ppCurrent
=
xmobarColor
"#268bd2"
""
.
wrap
"["
"]"
.
(
Prelude
.
map
toUpper
)
,
ppVisible
=
xmobarColor
"grey"
""
.
(
\
x
->
" "
++
x
++
" "
)
.
(
Prelude
.
map
toUpper
)
,
ppHidden
=
xmobarColor
"grey"
""
.
(
\
x
->
" "
++
x
++
" "
)
.
(
Prelude
.
map
toUpper
)
,
ppHiddenNoWindows
=
xmobarColor
"#707070"
""
.
(
\
x
->
" "
++
x
++
" "
)
.
(
Prelude
.
map
toUpper
)
,
ppUrgent
=
xmobarColor
"white"
"#268bd2"
.
(
\
x
->
" "
++
x
++
" "
)
.
(
Prelude
.
map
toUpper
)
,
ppVisibleNoWindows
=
Just
(
xmobarColor
"#707070"
""
.
(
\
x
->
" "
++
x
++
" "
)
.
(
Prelude
.
map
toUpper
))
,
ppVisible
=
xmobarColor
"grey"
""
.
(
\
x
->
x
)
.
(
Prelude
.
map
toUpper
)
,
ppHidden
=
xmobarColor
"grey"
""
.
(
\
x
->
x
)
.
(
Prelude
.
map
toUpper
)
,
ppHiddenNoWindows
=
xmobarColor
"#707070"
""
.
(
\
x
->
x
)
.
(
Prelude
.
map
toUpper
)
,
ppUrgent
=
xmobarColor
"white"
"#268bd2"
.
(
\
x
->
x
)
.
(
Prelude
.
map
toUpper
)
,
ppVisibleNoWindows
=
Just
(
xmobarColor
"#707070"
""
.
(
\
x
->
x
)
.
(
Prelude
.
map
toUpper
))
,
ppOrder
=
\
(
ws
:
layout
:
title
:
extra
)
->
[
ws
,
"("
++
layout
++
")"
]
++
extra
++
[
" "
++
title
]
}
}
`
additionalKeys
`
myAdditionalKeys
...
...
@@ -130,13 +133,11 @@ myManageHook = do
,
manageDocks
]
myTerm
=
"/home/kubat/.local/bin/st.sh"
myOtherTerm
=
"/home/kubat/.local/bin/alac.sh"
nonNSP
=
WSIs
(
return
(
\
ws
->
W
.
tag
ws
/=
"nsp"
&&
isJust
(
W
.
stack
ws
)))
myTerm
=
"st"
myXPConfig
=
def
{
font
=
"xft:SourceCodePro:size=9"
,
bgColor
=
"black"
,
position
=
Top
}
data
LibNotifyUrgencyHook
=
LibNotifyUrgencyHook
deriving
(
Read
,
Show
)
instance
UrgencyHook
LibNotifyUrgencyHook
where
urgencyHook
LibNotifyUrgencyHook
w
=
do
name
<-
getName
w
...
...
@@ -159,7 +160,6 @@ mySelectDisplay "l1280" = spawn "/home/kubat/.screenlayout/lateral_1280.sh"
myAdditionalKeys
=
[
((
mod4Mask
,
xK_Return
),
spawn
myTerm
)
,
((
mod4Mask
.|.
shiftMask
,
xK_Return
),
spawn
myOtherTerm
)
-- Apps
,
((
mod4Mask
,
xK_a
),
submap
.
M
.
fromList
$
...
...
@@ -270,4 +270,26 @@ myAdditionalKeys =
,
((
mod4Mask
,
xK_F6
),
spawn
"lux -a 10%"
)
,
((
mod4Mask
,
xK_F3
),
spawn
"asus-kbd-backlight down"
)
,
((
mod4Mask
,
xK_F4
),
spawn
"asus-kbd-backlight up"
)
-- Scratchpads
-- namedScratchpadAction myScratchPads "the_name"
,
((
mod4Mask
,
xK_x
),
submap
.
M
.
fromList
$
[
((
0
,
xK_Return
),
namedScratchpadAction
myScratchPads
"terminal"
)
])
]
--------------------
-- My scratchpads --
--------------------
myScratchPads
=
[
NS
"terminal"
spawnTerm
findTerm
manageTerm
]
where
spawnTerm
=
"st -c scratchpad"
findTerm
=
className
=?
"scratchpad"
manageTerm
=
customFloating
$
W
.
RationalRect
l
t
w
h
where
h
=
0.9
w
=
0.9
t
=
0.95
-
h
l
=
0.95
-
w
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