XMonad 0.13

Haron_Prime	# 5 лет, 6 месяцев назад (отредактировано 5 лет, 6 месяцев назад)
Темы: 28 Сообщения: 2109 Участник с: 08 июня 2014	ясно я свой пилил сам точнее говоря, продолжаю пилить - это ж XMonad! всегда найдётся то, что можно изменить или улучшить ))) пробовал чужие - ни один не понравился мой конфиг что-то писал сам, какие-то куски выдернул из чужих конфигов, допилив под свои нужды в итоге получилось то, что получилось ))) Gnome 2 >> Unity >> KDE 4 >> Openbox >> Awesome >> Xmonad GitHub , BitBuket

# 5 лет, 6 месяцев назад (отредактировано 5 лет, 6 месяцев назад)

Сообщения: 2109

Участник с: 08 июня 2014

ясно
я свой пилил сам
точнее говоря, продолжаю пилить - это ж XMonad! всегда найдётся то, что можно изменить или улучшить )))
пробовал чужие - ни один не понравился
мой конфиг
что-то писал сам, какие-то куски выдернул из чужих конфигов, допилив под свои нужды
в итоге получилось то, что получилось )))

Gnome 2 >> Unity >> KDE 4 >> Openbox >> Awesome >> Xmonad
GitHub , BitBuket

[email protected]	# 5 лет, 6 месяцев назад
Темы: 11 Сообщения: 763 Участник с: 15 ноября 2016	Я его уже давно себе скачал))) Спасибо! Много от туда узнал и применял.

[email protected]	# 5 лет, 6 месяцев назад
Темы: 11 Сообщения: 763 Участник с: 15 ноября 2016	Haron_Prime как-то вообще непонятно для меня организовано... почему не прописать $ avoidStruts и $ smartBorders отдельно? типа $ avoidStruts $ smartBorders $ tiled \|\|\| reflectTiled \|\|\| Mirror tiled \|\|\| Circle \|\|\| Grid \|\|\| Full \|\|\| tabbed shrinkText myTabConfig Разобрался, заработало в таком виде: со специфичностью для кликабельности, где ws обзываются как (myWorkspaces !! 0) -- layout myLayoutHook = gaps [(U,18)] $ avoidStruts $ smartBorders $ onWorkspace (myWorkspaces !! 0) webL $ onWorkspace (myWorkspaces !! 1) textL .... $ standardLayouts where standardLayouts = (tiled \|\|\| reflectTiled \|\|\| Mirror tiled \|\|\| Circle \|\|\| Grid \|\|\| Full \|\|\| tabbed shrinkText myTabConfig) .... webL = (tabbed shrinkText myTabConfig \|\|\| layoutHintsWithPlacement (0.5, 0.5) (Tall 1 (3/100) (1/2)) \|\|\| Circle) textL = (tabbed shrinkText myTabConfig \|\|\| layoutHintsWithPlacement (0.5, 0.5) (Tall 1 (3/100) (1/2))) ....

[email protected]

# 5 лет, 6 месяцев назад

Темы: 11

Сообщения: 763

Участник с: 15 ноября 2016

Haron_Prime
как-то вообще непонятно для меня организовано...
почему не прописать $ avoidStruts и $ smartBorders отдельно?
типа
$ avoidStruts
$ smartBorders
$ tiled ||| reflectTiled ||| Mirror tiled ||| Circle ||| Grid ||| Full ||| tabbed shrinkText myTabConfig

Разобрался, заработало в таком виде:
со специфичностью для кликабельности, где ws обзываются как (myWorkspaces !! 0)

-- layout
myLayoutHook = gaps [(U,18)]
                $ avoidStruts
                $ smartBorders
                $ onWorkspace (myWorkspaces !! 0) webL
                $ onWorkspace (myWorkspaces !! 1) textL
                ....
                $ standardLayouts
    where
        standardLayouts = (tiled ||| reflectTiled ||| Mirror tiled ||| Circle ||| Grid ||| Full ||| tabbed shrinkText myTabConfig)
                ....
        webL = (tabbed shrinkText myTabConfig ||| layoutHintsWithPlacement (0.5, 0.5) (Tall 1 (3/100) (1/2)) ||| Circle)

        textL = (tabbed shrinkText myTabConfig ||| layoutHintsWithPlacement (0.5, 0.5) (Tall 1 (3/100) (1/2)))
                ....

Haron_Prime	# 5 лет, 6 месяцев назад (отредактировано 5 лет, 6 месяцев назад)
Темы: 28 Сообщения: 2109 Участник с: 08 июня 2014	[email protected] Я его уже давно себе скачал))) Спасибо! Много от туда узнал и применял. так там изменения постоянно вносятся ))) даже сегодня уже кое-что менял - добавил тот код, что выше и кое-что удалил: два раза был прописан параметр avoidStruts (только сейчас заметил) на modm+x повесил другую команду, а старую строку забыл удалить ((( после внесения изменений и проверки работоспособности сразу синхронизирую с гитхабом Gnome 2 >> Unity >> KDE 4 >> Openbox >> Awesome >> Xmonad GitHub , BitBuket*

Haron_Prime

# 5 лет, 6 месяцев назад (отредактировано 5 лет, 6 месяцев назад)

Темы: 28

Сообщения: 2109

Участник с: 08 июня 2014

[email protected]
Я его уже давно себе скачал))) Спасибо! Много от туда узнал и применял.

так там изменения постоянно вносятся )))
даже сегодня уже кое-что менял - добавил тот код, что выше и кое-что удалил:
два раза был прописан параметр avoidStruts (только сейчас заметил)
на modm+x повесил другую команду, а старую строку забыл удалить (((

*после внесения изменений и проверки работоспособности сразу синхронизирую с гитхабом

Gnome 2 >> Unity >> KDE 4 >> Openbox >> Awesome >> Xmonad
GitHub , BitBuket

[email protected]	# 5 лет, 6 месяцев назад
Темы: 11 Сообщения: 763 Участник с: 15 ноября 2016	Да, еще спросить хотел про gaps [(U,18)] Я вижу что многие этого не применяют, но у меня без него окна на панель налазят... почему - нипайму

[email protected]	# 5 лет, 6 месяцев назад
Темы: 11 Сообщения: 763 Участник с: 15 ноября 2016	Haron_Prime так там изменения постоянно вносятся ))) Я вообще пользуюсь тем что на гитхабе, ну а скачанное - хай будэ)))

Haron_Prime	# 5 лет, 6 месяцев назад
Темы: 28 Сообщения: 2109 Участник с: 08 июня 2014	я его тоже не применяю - у меня искаропки нормально работает Gnome 2 >> Unity >> KDE 4 >> Openbox >> Awesome >> Xmonad GitHub , BitBuket

[email protected]	# 5 лет, 6 месяцев назад
Темы: 11 Сообщения: 763 Участник с: 15 ноября 2016	Haron_Prime я его тоже не применяю - у меня искаропки нормально работает искаропки - что? xmonad? дык он же искаропки просто пустая каропка)))

Haron_Prime	# 5 лет, 6 месяцев назад (отредактировано 5 лет, 6 месяцев назад)
Темы: 28 Сообщения: 2109 Участник с: 08 июня 2014	manageDocks import XMonad.Hooks.ManageDocks ........... ........... -- Windows rules: myManageHook :: ManageHook myManageHook = composeAll . concat $ [ .......... , [manageDocks] ......... ] ......... ......... main = do xmonad =<< xmobar myConfig encodeCChar :: B.ByteString -> [CChar] encodeCChar = map fromIntegral . B.unpack myConfig = ewmh $ withUrgencyHookC NoUrgencyHook urgencyConfig { suppressWhen = Focused } def { ......... mageHook = manageHook def <+> manageDocks <+> myManageHook <+> manageScratchPad <+> namedScratchpadManageHook mynameScratchpads <+> placeHook (smart (0.5,0.5)) <+> workspaceByPos , ......... } http://xmonad.org/xmonad-docs/xmonad-contrib/XMonad-Hooks-ManageDocks.html Gnome 2 >> Unity >> KDE 4 >> Openbox >> Awesome >> Xmonad GitHub , BitBuket

Haron_Prime

# 5 лет, 6 месяцев назад (отредактировано 5 лет, 6 месяцев назад)

Темы: 28

Сообщения: 2109

Участник с: 08 июня 2014

manageDocks

import XMonad.Hooks.ManageDocks
...........
...........
-- Windows rules:
myManageHook :: ManageHook
myManageHook = composeAll . concat $
    [
..........
    , [manageDocks]
.........
    ]
.........
.........
main = do
    xmonad =<< xmobar myConfig
encodeCChar :: B.ByteString -> [CChar]
encodeCChar = map fromIntegral . B.unpack

myConfig = ewmh $ withUrgencyHookC  NoUrgencyHook urgencyConfig { suppressWhen = Focused } def {
.........
mageHook         = manageHook def <+> manageDocks <+> myManageHook <+> manageScratchPad <+> namedScratchpadManageHook mynameScratchpads <+> placeHook (smart (0.5,0.5)) <+> workspaceByPos ,
.........
}

http://xmonad.org/xmonad-docs/xmonad-contrib/XMonad-Hooks-ManageDocks.html

Gnome 2 >> Unity >> KDE 4 >> Openbox >> Awesome >> Xmonad
GitHub , BitBuket

Haron_Prime	# 5 лет, 6 месяцев назад
Темы: 28 Сообщения: 2109 Участник с: 08 июня 2014	[email protected] искаропки - что? xmonad? дык он же искаропки просто пустая каропка))) я имел в виду, что и без гапа у меня панель не перекрывается просто я когда начал ваять свой конфиг, то manageDocks прописал в первую очередь, вместе с базовыми опциями, без которых конфиг вообще не взлетит потому-то для меня это искаропки ))) Gnome 2 >> Unity >> KDE 4 >> Openbox >> Awesome >> Xmonad GitHub , BitBuket

Haron_Prime

# 5 лет, 6 месяцев назад

Темы: 28

Сообщения: 2109

Участник с: 08 июня 2014

[email protected]
искаропки - что? xmonad? дык он же искаропки просто пустая каропка)))

я имел в виду, что и без гапа у меня панель не перекрывается
просто я когда начал ваять свой конфиг, то manageDocks прописал в первую очередь, вместе с базовыми опциями, без которых конфиг вообще не взлетит
потому-то для меня это искаропки )))

Gnome 2 >> Unity >> KDE 4 >> Openbox >> Awesome >> Xmonad
GitHub , BitBuket