돌고 돌아. 역시 컴퓨터의 주용도는 음악 감상이네요.

- 심플하고 미니멀한 XMonad 초기화면입니다.

1.  $ startx 이후 초기 자동 화면

  1번 워크스페이스 : btop

  5번 워크스페이스 : nsxiv(mpd | mopidy | spotify 의 cover art), tmux(ncmpcpp + cava)

   1-1. xmonad 워크스페이스 화면 분할

https://xmonad.github.io/xmonad-docs/xmonad-contrib/XMonad-Layout-LayoutScreens.html

:: file name :: ~/.xmonad/xmonad.hs

import XMonad.Layout.LayoutScreens

import XMonad.Layout.TwoPane

----------------------------------------------------------------------------}}}

-- Key Binding {{{

-------------------------------------------------------------------------------

-- FOR MULTIMEDIA KEYS RUN:

-- xev | grep -A2 --line-buffered '^KeyRelease' | sed -n '/keycode /s/^.*keycode ([0-9]*).* (.*, (.*)).*$/1 2/p'

-- Then look in /usr/include/X11/XF86keysym.h and look for the name and code.

--

-- Graphics.X11 keysym definitions:https://wiki.haskell.org/Xmonad/Key_codes

-- /usr/include/X11/keysymdef.h

-- Define keys to add

keysToAdd x =

    [

     -- Fixed Singgle Layout expand & divide 2 pane

    (((modMask x .|. controlMask .|. shiftMask), xK_x), layoutScreens 1 (fixedLayout [Rectangle 0 0 3840 1080]))

    , (((modMask x .|. controlMask .|. shiftMask), xK_d), layoutSplitScreen 2 (TwoPane 0.5 0.5 )) -- divide single screen to 2 screen

    , (((modMask x .|. controlMask .|. shiftMask), xK_f), layoutSplitScreen 2 (TwoPane 0.25 0.75)) -- divide single screen to 2 screen

    , (((modMask x .|. controlMask .|. shiftMask), xK_r), layoutScreens 2 (TwoPane 0.25 0.75))

    -- Return Default Layout

    , (((modMask x .|. controlMask .|. shiftMask), xK_space), rescreen)

    ]

-- Compose all my new key combinations.

myKeys x = M.union (strippedKeys x) (M.fromList (keysToAdd x ))

-- startup program

myStartupHook :: X()

myStartupHook = do

    layoutSplitScreen 2 (TwoPane 0.25 0.75) -- divide single screen to 2 screen

    1-2. 유직 전용 5번 워크스페이스에 music을 실행시키고  자동 이동

:: file name :: ~/.xmonad/xmonad.hs

import XMonad.ManageHook --https://hackage.haskell.org/package/xmonad-0.15/docs/XMonad-ManageHook.html

----------------------------------------------------------------------------}}}

​-- Window rules: Manage Hook {{{

-------------------------------------------------------------------------------

-- Execute arbitrary actions and WindowSet manipulations when managing

-- a new window. You can use this to, for example, always float a

-- particular program, or have a client always appear on a particular

-- workspace.

--

-- To find the property name associated with a program, use

-- > xprop | grep WM_CLASS

-- and click on the client you're interested in.

--

-- To match on the WM_NAME, you can use 'title' in the same way that

-- 'className' and 'resource' are used below.

--

-- The class name of an application corresponds to the first

-- value of WM_CLASS (“Pidgin”).

-- The resource corresponds to the second value of WM_CLASS (also “Pidgin”).

-- The title corresponds to WM_NAME (“Buddy List”).

-- Define the workspace on application has to go to

myManageHook :: ManageHook

myManageHook = (composeAll . concat $

[

    ---------------------------------------------------------------------------------

    --- !.local/bin/music

    ---------------------------------------------------------------------------------

    , [ resource =? "nsxiv-mpd" <||> className =? "music-tmux" --> doF (W.shift (myWorkspaces !! 4)) ]

    , [ resource =? "nsxiv-mpd" <||> className =? "music-tmux" --> doF (W.view (myWorkspaces !! 4)) ]

])    <+> manageHook def

-- startup program

myStartupHook :: X()

myStartupHook = do

    spwan "urxvt -e btop"

    nextScreen

    spwan "~/.local/bin/music"

​

----------------------------------------------------------------------------}}}

-- Now run xmonad with all the defaults we set up. {{{

-------------------------------------------------------------------------------

--

-- Run xmonad with the settings you specify. No need to modify this.

--

--main = xmonad defaults

defaults = def {

    -- Simple stuff

         -- terminal = myTerminal

         --, focusFollowsMouse = myFocusFollowsMouse

         --, clickJustFocuses = myClickJustFocuses

         --, borderWidth = myBorderWidth

         --, modMask = myModMask

         --, workspaces = myWorkspaces

         --, normalBorderColor = myNormalBorderColor

        --, focusedBorderColor = myFocusedBorderColor

    -- key bindings

        , keys = myKeys <+> customKeys (const []) inskeys

        --, mouseBindings = myMouse

    -- hooks, layouts

        --, layoutHook = myLayouts

        , manageHook = myManageHook

        --, handleEventHook = myEventHook

}

1-1  과 1-2 를 합치면 위 스크린샷 결과가 됩니다.

::file name:: ~/.local/bin/music

#!/bin/bash

session="Music"

cover="/home/nietz/Music/cover_ori.png"

#mpv --profile=tv --x11-name=livetv --keepaspect --playlist-start=15 ~/TVChannels/my_tvheadend.m3u & >/dev/null 2>&1

if ! pidof mpd >/dev/null; then mpd; fi

[[ ! -f $cover ]] && ffmpeg -f lavfi -i color=c=red:s=320x240:d=10 -vf "drawtext=fontsize=30:box=1:boxborderw=5:boxcolor=white@0.25:fontcolor=white:x=(w-text_w)/2:y=(h-text_h)/2:text='Clien Linuxer'" $cover;

tmux -2 has-session -t $session

if [ $? -eq 0 ]; then

    tmux -2 attach -t $session

    /usr/bin/kitty --class=music-tmux --hold sh -c "tmux attach-session -t Music" & >/dev/null 2>&1

    /usr/bin/nsxiv -b -N nsxiv-mpd $cover & >/dev/null 2>&1

    exit 0

fi

tmux new-session -d -s $session

tmux set-option status off

tmux send-keys -t "$session:1" '/usr/bin/ncmpcpp' C-m

tmux split-window -t "$session:1" -v -p 30 -d '/usr/bin/cava'

tmux new-window -t "$session:2"

tmux send-keys -t "$session:2" '~/.local/bin/notification music 2>/dev/null' C-m

tmux select-window -t "$session:1"

#tmux attach-session -t $session

/usr/bin/kitty --class=music-tmux --hold sh -c "tmux attach-session -t Music" & >/dev/null 2>&1

/usr/bin/nsxiv -b -N nsxiv-mpd $cover & >/dev/null 2>&1

:: file name ::  ~/.local/bin/notification

#!/bin/bash

MUSIC_DIR="$HOME/Music/"

ICON="$MUSIC_DIR/cover.png"

ICON2="$MUSIC_DIR/cover_ori.png"

spotify_app="ncspot" # spotify, ncspot

#spotify_app="spotify" # spotify, ncspot

#spotify_app="chromium.instance3290" # spotify, ncspot

spotify_cover="$HOME/Music/cover_spotify.jpg"

# mpd or mopidy

function music

{

    while true; do

    mpc idleloop |

    while read update; do

        if [ $update == "player" ]; then

            ffmpeg -i "$MUSIC_DIR/`mpc current -f '%file%'`" -vf scale=100:-1

-codec png -y $ICON >/dev/null 2>&1;

             ffmpeg -i "$MUSIC_DIR/`mpc current -f '%file%'`" -vf scale=480:-1

-codec png -y $ICON2 >/dev/null 2>&1;

            # Get fields from mpc, split by tabs.

            IFS=$'t' read album artist title

               <<< "$(mpc --format="%album%t%artist%t%title%")"

            notify-send --urgency=normal --expire-time=5000 --app-name=mpd

                    --icon=$ICON " $title" " by $artist"

        elif [ $update == "mixer" ]; then

            # Get volume

            vol=`mpc | tail -n1 | awk '{print $2}'`

            notify-send --urgency=low --expire-time=1000 --app-name=mpd

                       --icon=$ICON " Volume: $vol" "Mixer Changed"

        fi

        done

done

}

# spotify

function music_spotify

{

    if pidof ${spotify_app} >/dev/null; then

        old_cover=$(playerctl -p ${spotify_app} metadata mpris:artUrl)

        wget ${old_cover} -O ${spotify_cover} & >/dev/null 2>&1;

        while true; do

                new_cover=$(playerctl -p ${spotify_app} metadata mpris:artUrl)

                if [[ ${old_cover} != ${new_cover} ]]; then

                   wget ${new_cover} -O ${spotify_cover} & >/dev/null 2>&1;

               fi

               old_cover=${new_cover}

        done

    else

        :

        #ffmpeg -f lavfi -i color=c=red:s=320x240:d=10 -vf "drawtext=fontsize=30:box=1:boxborderw=5:boxcolor=white@0.25:fontcolor=white:x=(w-text_w)/2:y=(h-text_h)/2:text='Clien Linuxer'" -frames:v 1 -y ${spotify_cover};

    fi

}

case $1 in

    music) music ;;

    music_s) music_spotify ;;

    *) exit 1 ;;

esac

tmux  music 스크립트 하나 만들고,  msuic cover art 데몬 스크립트 하나 만들어서, 위 xmonad.hs 파일에 적절한 룰을 설정하면, 로그인시 자동 화면 구성 완료.

스크린샷 자체는 깔끔한데요. 스크립트 2개 만들고, 전체 xmonad 설정과 키바인딩 설정은 방대 합니다. 기타 스크핍트들과 유기적으로 연결하여야 하구요.

그래도 이게 젤 편한거 같아요. 10년 전에도 이 구성,  현재도 이 구성.. arch 리눅스 한번 깔면 10년은 거뜬히 가는 것 같습니다.

2.  선호 하는 XMonad 의 레이아웃 중 하나

  - 듀얼 Pane(= Dual Workspace) 에 "ResizableThreeCol" Layout 에 magnifiercz 1.5(=활성화된 윈도우 창이 1.5배 확대됩니다) 적용

   요즈음은 유투부도 핸드폰으로 보고, 드라마/영화 같은 것도 넷플릭스나 다른 OTT로 보고,, 그것 감상할 때 말고는 토랭이 사용할 일이 거의 없는 것 같아요.

-- Mirror transformation:

, ("M-C-S-m" , sendMessage $ XMonad.Layout.MultiToggle.Toggle MIRROR ) -- bottom xmobar toggle struct. then properly works.

  그리고 위 단축키 하나 지정해서 사용하면,  아래 화면의 1번 워크스페이스의 활성화된 윈도우 창 4개가 간단하게 가로 세로 모드로 단축키 누를때 마다 양방 변환 되구요

defaultLayouts = avoidStruts ( Circle ||| gaptiled ||| resize_threecol ||| resize_threecolmid )

    where

        -- default tiling algorithm partitions the screen into two panes

        --tiled = gaps [(U,5), (D,5), (R,5), (L,5)] $ spacing 2 $ Tall nmaster delta ratio -- gap all direction 5

        tiled = spacing 0 $ ResizableTall nmaster delta ratio []​

        --tiled = Tall nmaster delta ratio

        gaptiled = gaps [(U,4), (D,4), (L,4), (R,4)] $ spacing 8 $ ResizableTall nmaster delta ratio []

        -- The default number of windows in the master pane

        resize_threecol = gaps [(U,4), (D,4), (L,4), (R,4)] $ spacing 8 $ magnifiercz' 1.5 $ ResizableThreeCol 1 (3/100) (1/2) []

        resize_threecolmid = gaps [(U,4), (D,4), (L,4), (R,4)] $ spacing 8 $ magnifiercz' 1.5 $ ResizableThreeColMid 1 (3/100) (1/2) []

        nmaster = 1

        -- Default proportion of screen occupied by master pane

        ratio = 3/5

        -- Percent of screen to increment by when resizing panes

        delta = 3/100

3.  $ startx 이후 초기 자동 화면 : 우측 최하단의  ncspot(=spotify 프리미엄 계정일 때) 앱을 music tmux 에 추가하고 spotify cover art 데몬 스크립트도 추가한 화면,   nsxiv의 covar art 는 spotify cover 또는 mpd cover

돌고 돌아 역시 데스크탑 컴퓨터의 용도는 음악 감상이네요.

추후,  10년 후에도 위 XMonad 화면이 제 로그인 화면이 될 것 같아요.

-- 컴퓨타 커면 노래 틀고, 30초 후 모니터 절전화면 모드 --

예전에는 다른  WM이 궁금하거, 필요한 용도가 있을시. 메인 tty1 은 xmonad 로 x를 띠운 상태고, "ctrl + alt + f2" 를 눌러 tty2 에서 로그인해서, openbox나 kde wm 을 띠우곤 했는데. 요즈음은 F1 X에도 xmonad,   F2번 X에도 xmonad 를 띠우네요.

tty 2번 X 에는 edge 웹브라우저를 하나를 전체 화면으로  띠워놓고, 유투브 탭은 하나 띠워 놓고요.

"아들아 컴퓨타로 유투브를 보고 싶으면   "Ctrl + Alt + F2" 를 눌르거라 "

그러합니다. XMonad 는 키보드 단축키와 rofi 단축키와 터미널 단축키 등을 모르면 평범한 데스크탑 사용자는  아무것도 할 수 없습니다. 미니멀 그 자체 입니다.

4. 빅뉴스 입니다.  (여자)아이돌 걸그룹  리눅스 "스웨이"  쓰는 덕후랍니다.

긴 글 읽어 주셔서 감사합니다. 즐거운 한 주 되세요