Hi all,
I don't know why but suddenly, xmonad decided to recompile itself and I
got warnings :
Deprecations detected while compiling xmonad config:
/home/alain/.xmonad/xmonad.hs
$ ghc --make xmonad.hs -i -ilib -fforce-recomp -main-is main -v0
-outputdir /home/alain/.xmonad/build-x86_64-linux -o
/home/alain/.xmonad/xmonad-x86_64-linux
xmonad.hs:16:1: warning: [-Wtabs]
Tab character found here, and in one further location.
Suggested fix: Please use spaces instead.
|
16 | spawnOn "bg" "feh --bg-tile
/usr/share/WindowMaker/Backgrounds/BlueImage.jpeg"
| ^^^^^^^^
xmonad.hs:35:30: warning: [-Wdeprecations]
In the use of ‘defaultConfig’
(imported from XMonad, but defined in XMonad.Config):
Deprecated: "Use def (from Data.Default, and re-exported by XMonad
and XMonad.Config) instead."
|
35 | , manageHook=manageHook defaultConfig <+> manageDocks
| ^^^^^^^^^^^^^
I don't find the tab character, if I delete what appears to me as a
space, then type a space, I have another error message.
How should I replace "defaultConfig" ?
Thanks for your help.
Alain
import XMonad
1 import XMonad.Hooks.SetWMName
2 import XMonad.Hooks.ManageDocks
3 import qualified Data.Map as M
4 import Graphics.X11.Xlib
5 import XMonad.Config.Azerty
6 import XMonad.Prompt
7 import XMonad.Prompt.Shell
8 import XMonad.Prompt.XMonad
9 import XMonad.Actions.SpawnOn
10 import XMonad.Layout.Spiral
11 import XMonad.Layout.SimplestFloat
12 myStartUpHook :: X ()
13 myStartUpHook = do
14 spawnOn "panel" "xfce4-panel"
15 spawnOn "bg" "feh --bg-tile
/usr/share/WindowMaker/Backgrounds/BlueImage.jpeg"
16
17 -- spawnOn "clavier" "/home/alain/bin/clavier_conf"
18 -- spawnOn "1" "/usr/bin/firefox"
19 spawnOn "1" "/usr/bin/thunderbird"
20 -- spawnOn "workspace7" "/usr/bin/transmission-gtk"
21 -- spawnOn "akonadi" "akonadictl start"
22 setWMName "LG3D"
23
24
25 --myLayoutHook = avoidStruts ( Full ||| spiral (6/7) ||| Tall 1
0.03 0.5 ||| simplestFloat)
26
27 -- sets default tile as: Tall nmaster (delta) (golden ratio)
28 --
29 --
30 main=do
31 xmonad $ docks def
32 {
33 layoutHook = avoidStruts $ (spiral (6/7) ||| layoutHook def
||| simplestFloat )
34 , manageHook=manageHook defaultConfig <+> manageDocks
35 , modMask = mod4Mask
36 , keys = myKeys <+> keys azertyConfig
37 , startupHook = myStartUpHook
38 }
39
40
41 -- main=do
42 -- xmonad { keys = myKeys <+> keys azertyConfig }
43 -- {
44 -- layoutHook=avoidStruts $ layoutHook defaultConfig
45 -- , manageHook=manageHook defaultConfig <+> manageDocks
46 -- , startupHook = setWMName "LG3D"
47 -- }
48 --
49 --
50 myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList
51 [ ((modm, xK_F12), xmonadPrompt def)
52 , ((modm, xK_F3 ), shellPrompt def)
53 ]
~
