Участник с: 18 марта 2017
|
При включении XMonad выставляет workspaces как (2) [1], где в скобках круглых основной монитор, а в квадратных (и в фокусе) второй, дополнительный. Не могу понять, как заставить XMonad отображать 1-ый workspace на основном, а второй на втором. В xorg.conf основной монитор настроен. Привожу содержание xmonad.hs
-- XMonad Haskell Configuration File
-- - verify code syntax with 'ghci xmonad.hs'
-- - compile with 'xmonad --recompile' or 'ghc --make xmonad.hs'
--
-- Hopefully this is good base on which to build.
--
-- Changed from defaultConfig:
-- - use Mod4 as modMask, i.e. Super key
-- - allow use of status bar, and start one
-- - enable mouse follows focus
-- - change terminal emulator to xterm
-- - change border width to two pixels
--
-- Changes in the future:
-- - change terminal emulator to urxvt
-- - make GIMP manageable?
-- - wrap workspaces with mouse
-- - change keybindings: application, layout
--
-- Layouts to include:
-- - Xmonad.Layout.Circle, floating circular layout
-- - Xmonad.Layout.Maximize, maximize a window (like full?)
-- - XMonad.Layout.Spiral, fibonacci sequence; cool
-- - XMonad.Layout.IM, multi-window application friendly (GIMP)
--
-- Main XMonad source code.
import XMonad
-- Allow management of dock programs.
import XMonad.Hooks.ManageDocks
-- Enable xmobar
import XMonad.Hooks.DynamicLog
-- Allow interfacing with system (get client info).
import System.IO
-- fullscreen apps
import XMonad.Hooks.EwmhDesktops
myBar = "xmobar"
myTerminal = "urxvtc"
myPP = xmobarPP { ppCurrent = xmobarColor "#429942" "" . wrap "[" "]" }
-- myWorkspaces = ["1:\xf268","2:\xf121"] ++ map show [3..9]
myWorkspaces = map show [1..9]
------------------------------------------------------------------------
-- Layouts
-- You can specify and transform your layouts by modifying these values.
-- If you change layout bindings be sure to use 'mod-shift-space' after
-- restarting (with 'mod-q') to reset your layout state to the new
-- defaults, as xmonad preserves your old layout settings by default.
--
-- The available layouts. Note that each layout is separated by |||,
-- which denotes layout choice.
--
--
-- The default number of windows in the master pane
-- nmaster = 1
--
-- Percent of screen to increment by when resizing panes
-- delta = 3/100
-- Default proportion of screen occupied by master pane
-- ratio = 1/2
myLayout = avoidStruts (
--ThreeColMid 1 (3/100) (1/2) |||
Tall 1 (3/100) (3/5) |||
Mirror (Tall 1 (3/100) (1/2)) |||
--tabbed shrinkText tabConfig |||
Full )
--spiral (6/7)) |||
--noBorders (fullscreenFull Full)
------------------------------------------------------------------------
startup = do
spawn "urxvtd -f -o -q"
spawn "kbdd"
------------------------------------------------------------------------
toggleStrutsKey XConfig {XMonad.modMask = modMask} = (modMask, xK_b)
main = xmonad =<< statusBar myBar myPP toggleStrutsKey myConfig
myConfig = defaultConfig {
-- simple stuff
modMask = mod4Mask,
terminal = myTerminal,
workspaces = myWorkspaces,
focusedBorderColor = "#447fff",
normalBorderColor = "#3f3f3f",
--hooks, layouts
layoutHook = myLayout,
handleEventHook = fullscreenEventHook,
startupHook = startup
}
|