xmonad - FreeBSD 12.2 - 環境構築

 クラウディア
1. 概要
2. インストール
3. SDDM カスタマイズ
4. .desktop ファイルの作成
5. ユーザ用初期化ファイルの作成
6. ログインマネージャ起動

1. 概要

 下記のデスクトップ環境を構築する手順を記述します。  ここまでの時点で、システムインストールと「VirtualBox Guest Additions」の設定は終わっているものとします。  ぞれぞれのインストール・設定に関しては 「FreeBSD - デスクトップ環境構築 - 共通事項 - システムインストール」 「FreeBSD - デスクトップ環境構築 - 共通事項 - VirtualBox Guest Additions」  をご参照ください。
 項目   内容   備考 
ホスト Windows10 Version 2004
VitualBox Version 6.1.16
ゲスト FreeBSD 12.2 RELEASE
ログインマネージャ SDDM

2. インストール


pkg install -y xorg numlockx ja-font-migmix
pkg install -y sddm sddm-freebsd-black-theme hal cursor-neutral-white-theme
pkg install -y hs-xmonad hs-xmobar hs-cabal-install hs-stack pkgconf
 「pkgconf」は、いれておかないと、後で、「xmonad」の環境を作成するときに

cabal: The program 'pkg-config' version >=0.9.0 is required but it could not
 と言われちゃうのです。  2020年11月19日の時点で、下記のバージョンでした。

$ pkg info hs-xmonad
hs-xmonad-0.15_6
Name           : hs-xmonad
Version        : 0.15_6
Installed on   : Thu Nov 19 13:56:29 2020 JST
Origin         : x11-wm/hs-xmonad
Architecture   : FreeBSD:12:amd64
Prefix         : /usr/local
Categories     : haskell x11-wm
Licenses       : BSD3CLAUSE
Maintainer     : haskell@FreeBSD.org
WWW            : https://xmonad.org/
Comment        : Tiling window manager
Options        :
        EXAMPLES       : on
Shared Libs required:
        libX11.so.6
        libXrandr.so.2
        libXext.so.6
        libcharset.so.1
        libiconv.so.2
        libgmp.so.10
        libXss.so.1
        libXinerama.so.1
        libffi.so.7
Annotations    :
        FreeBSD_version: 1201000
        repo_type      : binary
        repository     : FreeBSD
Flat size      : 2.68MiB
Description    :
xmonad is a tiling window manager for X.  Windows are arranged
automatically to tile the screen without gaps or overlap, maximising
screen use.  All features of the window manager are accessible from the
keyboard: a mouse is strictly optional.  xmonad is written and
extensible in Haskell.  Custom layout algorithms, and other extensions,
may be written by the user in config files.  Layouts are applied
dynamically, and different layouts may be used on each workspace.
Xinerama is fully supported, allowing windows to be tiled on several
screens.

WWW: https://xmonad.org/
 2020年7月9日時点で、「FreeBSD 11.4 RELEASE」へインストールしたときが、「hs-xmonad-0.15_4」でしたので、微妙に下記のバージョンへ変わっております。

3. SDDM カスタマイズ

 ログイン画面の解像度を「1366x768」とし、キーボードレイアウトを「jp.106」にします。  「root」ユーザで

cat << EOF >>  /usr/local/share/sddm/scripts/Xsetup

xrandr --output VGA-0 --mode 1366x768 --rate 60
setxkbmap -layout jp
EOF
 ログイン画面のテーマとカーソルを変更します。  「root」ユーザのまま

sddm --example-config > /usr/local/etc/sddm.conf
vi /usr/local/etc/sddm.conf

[Theme]
# Current theme name
Current=breeze

# Cursor theme used in the greeter
CursorTheme=breeze_cursors
 を下記へ変更します。

[Theme]
# Current theme name
Current=sddm-freebsd-black-theme

# Cursor theme used in the greeter
CursorTheme=Neutral++_White

4. .desktop ファイルの作成

 ログイン時に有効となるよう、「.desktop」ファイルを作成します。  「root」ユーザで

mkdir -pv /usr/local/share/xsessions

cat << EOF >> /usr/local/share/xsessions/xmonad.desktop
[Desktop Entry]
Name=xmonad
Comment=A lightweight window manager for the X Windowing System
Exec=xmonad
Terminal=false
TryExec=xmonad
Type=Application
EOF

5. ユーザ用初期化ファイルの作成

 「root」ユーザで

cat << EOF >> /usr/share/skel/dot.xsession
#!/bin/sh
# set locale
export LC_ALL=ja_JP.UTF-8
export LANGUAGE=ja_JP.UTF-8
export LANG=ja_JP.UTF-8
#
setxkbmap -layout jp
numlockx &
xsetroot -cursor_name left_ptr
EOF
chmod +x /usr/share/skel/dot.xsession
 既存のログインユーザで、まず、セッション開始の手順をスケルトンよりコピー。  (新規ユーザ用は、今のところ(2020年7月16日)無理があるので、既存ユーザでの作業しかできません)

cp /usr/share/skel/dot.xsession ~/.xsession
 まずは、最低限の「xmonad」の環境を作成

mkdir -pv ~/.xmonad
cp /usr/local/share/examples/xmonad/build ~/.xmonad/build
cp /usr/local/share/examples/xmonad/xmonad-config.cabal ~/.xmonad/xmonad-config.cabal
vi ~/.xmonad/xmonad-config.cabal
 短いので、全行記述しますが(わはは、「cabal」というファイルタイプのシンタックスハイライトはできない)

name:          xmonad-config
version:       0.0
synopsis:      XMonad Config File
homepage:      http://xmonad.org
license:       BSD2
license-file:  LICENSE
author:        Peter Jones <pjones@devalot.com>
maintainer:    Peter Jones <pjones@devalot.com>
copyright:     Copyright (c) 2016,2017 Peter J. Jones
category:      Graphics
build-type:    Simple
cabal-version: >=1.8

executable xmonad-config
  main-is: config.hs
  build-depends: base, xmonad, xmonad-contrib
 最終行だけ、変更します。

executable xmonad-config
  main-is: config.hs
  build-depends: base, xmonad, xmonad-contrib, containers
 これ、一回こっきりしかチャンスないので間違えないように、ご注意ください。  以降の処理で「~/.xmonad/xmonad-config.cabal」は、変わってしまいます。  変更したいときは、ここまで戻って、「~/.xmonad/」配下を全部削除して、一から作り直さなければなりません。

vi ~/.xmonad/config.hs
 これが、カスタマイズファイルです。
import XMonad
import Data.Monoid
import System.Exit

import qualified XMonad.StackSet as W
import qualified Data.Map        as M

import XMonad.Hooks.ManageHelpers(doFullFloat, doCenterFloat, isFullscreen, isDialog)
import XMonad.ManageHook
import XMonad.Util.NamedScratchpad

myTerminal      = "xterm"

-- Whether focus follows the mouse pointer.
myFocusFollowsMouse :: Bool
myFocusFollowsMouse = True

-- Whether clicking on a window to focus also passes the click to the window
myClickJustFocuses :: Bool
myClickJustFocuses = False

myModMask       = mod4Mask

myNormalBorderColor  = "#dddddd"                                    -- 通常のウィンドウ枠色
myFocusedBorderColor = "#008000"                                   -- フォーカスウィンドウの枠色

myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
    [
      ((modm , xK_Return),         spawn $ XMonad.terminal conf)   --	端末を開く
    , ((modm,  xK_q     ),         kill)                           --	閉じる
    , ((modm , xK_m     ),         spawn $ "xfce4-appfinder")      --	メニュー
    , ((modm , xK_n     ),         windows W.focusDown)            --	フォーカス切り替え
    , ((modm , xK_j     ),         windows W.swapMaster)           --	フォーカスを最前面
    , ((modm .|. shiftMask, xK_r), spawn $ "xmonad --recompile; xmonad --restart")  --	再設定
    , ((0,             xK_Print ), spawn $ "mate-screenshot")      --	画面キャプチャ
    , ((controlMask,   xK_Print ), spawn $ "mate-screenshot -w")
    , ((modm .|. shiftMask, xK_q), io (exitWith ExitSuccess))      --	ログアウト
    , ((modm , xK_b     ),         spawn "sudo reboot")            --	再起動
    , ((modm , xK_s     ),         spawn "sudo poweroff")          --	シャットダウン
    ]

myXfce4Float = customFloating $ W.RationalRect (40/1366) (40/786) (400/1366) (500/786)
myFcitxFloat = customFloating $ W.RationalRect (50/1366) (50/786) (700/1366) (500/786)

myManageHook = composeAll
    [
      className =? "MPlayer"                    --> doFloat
    , className =? "Alacritty"                  --> doFloat
    , className =? "Atril"                      --> doFloat
    , className =? "Brasero"                    --> doFloat
    , className =? "Chromium-browser"           --> doFloat
    , className =? "Clamtk"                     --> doFloat
    , className =? "Claws-mail"                 --> doFloat
    , className =? "Conky"                      --> doFloat
    , className =? "Eclipse"                    --> doFloat
    , className =? "Epdfview"                   --> doFloat
    , className =? "Gimp"                       --> doFloat
    , className =? "Gimp-2.10"                  --> doFloat
    , className =? "Lxappearance"               --> doFloat
    , className =? "Nautilus"                   --> doFloat
    , className =? "Pamac-manager"              --> doFloat
    , className =? "Pcmanfm"                    --> doFloat
    , className =? "Roxterm"                    --> doFloat
    , className =? "Synaptic"                   --> doFloat
    , className =? "Termite"                    --> doFloat
    , className =? "Thunar"                     --> doFloat
    , className =? "Thunderbird"                --> doFloat
    , className =? "Tilix"                      --> doFloat
    , className =? "URxvt"                      --> doFloat
    , className =? "UXTerm"                     --> doFloat
    , className =? "Vivaldi-stable"             --> doFloat
    , className =? "XTerm"                      --> doFloat
    , className =? "Xfce4-terminal"             --> doFloat
    , className =? "firefox"                    --> doFloat
    , className =? "libreoffice-startcenter"    --> doFloat
    , className =? "mpv"                        --> doFloat
    , className =? "octopkg"                    --> doFloat
    , className =? "qpdfview"                   --> doFloat
    , className =? "smplayer"                   --> doFloat

    , className =? "Xfce4-appfinder"    --> myXfce4Float
    , className =? "Fcitx-config-gtk"   --> myFcitxFloat
    , className =? "Fcitx-config-gtk3"  --> myFcitxFloat

    , resource  =? "desktop_window"     --> doIgnore
    , resource  =? "kdesktop"           --> doIgnore
    ]

myStartupHook = do
    spawn "$HOME/.xmonad/scripts/autostart.sh"

main = xmonad defaults

defaults = def {
        terminal           = myTerminal
       ,focusFollowsMouse  = myFocusFollowsMouse
       ,clickJustFocuses   = myClickJustFocuses
       ,modMask            = myModMask

       -- 枠の色
       ,normalBorderColor  = myNormalBorderColor
       ,focusedBorderColor = myFocusedBorderColor

       ,keys               = myKeys
       ,manageHook         = myManageHook
       ,startupHook        = myStartupHook
       }


 「--」以降以外は、スペースはきちんとスペースをいれます。  タブで飛ばすと、山ほど、ワーニングが出力されます。  上記のファイルを作成後

cabal new-update
~/.xmonad/build
xmonad --recompile
 この一連の手順で

~/.xmonad/xmonad-x86_64-freebsd
 というカスタマイズされた実行ファイルができます。  カスタマイズしていない場合は、端末を開くのが Alt+Shift+Enter で、ログアウトが Alt+Shift+q になります。  カスタマイズしていない状態は、下記のファイルを読んでください。

/usr/local/share/examples/xmonad/xmonad.hs
 自動起動のファイルを作成します。

mkdir -pv ~/.xmonad/scripts

sh
cat << 'EOF' >> ~/.xmonad/scripts/autostart.sh
#!/bin/sh

run()
{
  if ! pgrep $1 ;
  then
    $@&
  fi
}

run "/usr/local/bin/VBoxClient-all"
run "xmobar"
EOF
exit

chmod +x ~/.xmonad/scripts/autostart.sh

6. ログインマネージャ起動

 前項までインストール・設定したものを有効にします。  「root」ユーザで

sysrc polkitd_enable=YES
sysrc dbus_enable=YES
sysrc hald_enable=YES
sysrc sddm_enable=YES
 起動します。

service dbus start
service hald start
service sddm start
 うまく設定できていれば、ログイン画面が表示されます。  ユーザ名・パスワードを入力してログインします。
「xmonad FreeBSD 12.2」-「ログイン画面」

ハイスピードプランU-NEXTKiPuRuTSUTAYA DISCASSirusi弁当TSUKUMOネットショップ
 
 
カウンタバックグラウンド