nekolinuxblog

-- dbus呼び出しの纏め

-- 必要なライブラリの呼び出し
import XMonad
import XMonad.Hooks.DynamicLog

import qualified DBus as D
import qualified DBus.Client as D
import qualified Codec.Binary.UTF8.String as UTF8

nekolinuxblog

-- main = doの後で、xmonadの前に入るコード
    dbus <- D.connectSession
    D.requestName dbus (D.busName_ "org.xmonad.Log")
        [D.nameAllowReplacement, D.nameReplaceExisting, D.nameDoNotQueue]

nekolinuxblog

-- xmonadに紐づけたdbusに出力するためのアクションのための関数定義
-- from https://github.com/xintron/xmonad-log

dbusOutput :: D.Client -> String -> IO ()
dbusOutput dbus str = do
    let signal = (D.signal objectPath interfaceName memberName) {
            D.signalBody = [D.toVariant $ UTF8.decodeString str]
        }
    D.emit dbus signal
  where

nekolinuxblog

import XMonad
import XMonad.Hooks.DynamicLog

import qualified DBus as D
import qualified DBus.Client as D
import qualified Codec.Binary.UTF8.String as UTF8

nekolinuxblog

#! /bin/sh

theme_dir=${HOME}/.config/kitty/kitty-themes/themes

cd $theme_dir

fzf --preview 'head -n 20 {} && kitty @ set-colors -a -c {}'

cd -

nekolinuxblog

--------------------------------------------------------------------------------
-- shunsk's base xmonad.hs file for custamize
-- https://ok-xmonad.blogspot.com
--------------------------------------------------------------------------------

import System.Exit

import XMonad
import XMonad.Util.Run
import XMonad.Hooks.ManageDocks

nekolinuxblog

----------------------------------------------------------------------
-- a shunsk's base config file of xmobar
-- ok-xmonad.blogspot.com
----------------------------------------------------------------------

Config {font = "xft:M+1 mn:size=14:medium:antialias=true"
	, additionalFonts    = []
	, bgColor            = "#6290C3"
	, fgColor            = "#F1FFE7"
	, border             = BottomB

nekolinuxblog

Config  { font      = "xft:M+1 mn:size=12:medium:antialias=true"                
        , bgColor   = "black"                                                   
        , fgColor   = "grey"                                                    
        , alpha     = 255                                                       
        , position  = Top
}

nekolinuxblog

import XMonad 
import XMonad.Hooks.DynamicLog

main = xmonad =<< xmobar def
    { terminal              = "xterm"
    , modMask               = mod1Mask
    , borderWidth           = 2
    , normalBorderColor     = "#cccccc" 
    , focusedBorderColor    = "#cd8b00"
    }

nekolinuxblog

Config {
  font = "xft:IPAPGothic:size=14:antialias=true" 
}