From 9823a6ae12cce103f26ba1f4ce02f83a97d51a8d Mon Sep 17 00:00:00 2001 From: Baitinq Date: Mon, 30 Dec 2024 20:37:11 +0100 Subject: Dotfiles: XMobar: Change bar font --- dotfiles/xmobar.hs | 9 +++++++-- dotfiles/xmonad.hs | 12 ++++++------ 2 files changed, 13 insertions(+), 8 deletions(-) (limited to 'dotfiles') diff --git a/dotfiles/xmobar.hs b/dotfiles/xmobar.hs index fe9e66b..18c71ee 100644 --- a/dotfiles/xmobar.hs +++ b/dotfiles/xmobar.hs @@ -1,7 +1,12 @@ Config { -- appearance - font = "xft:Noto Sans Display Nerd Font:size=10,Inconsolata LGC Nerd Font:size=10,DejaVu Sans Mono Nerd Font:size=10,Noto Sans Mono CJK JP:size=10,Noto Color Emoji:size=10,Noto Sans Hebrew:size=10" + font = "TX-02 10" + , additionalFonts = ["Noto Sans Display Nerd Font 12", + "DejaVu Sans Mono Nerd Font 12", + "Noto Sans Mono CJK JP 12", + "Noto Color Emoji 12", + "Noto Sans Hebrew 12"] , bgColor = "#222222" , fgColor = "#bbbbbb" , position = Top @@ -22,4 +27,4 @@ Config { , commands = [ Run UnsafeXMonadLog, Run XPropertyLog "WM_NAME" ] - } +} diff --git a/dotfiles/xmonad.hs b/dotfiles/xmonad.hs index 1a823fb..a514729 100644 --- a/dotfiles/xmonad.hs +++ b/dotfiles/xmonad.hs @@ -236,15 +236,15 @@ myStatusBar = statusBarProp "xmobar" (do numWindows <- getNumberOfWindowsInWorkpace return $ def { ppCurrent = if numWindows > 0 - then xmobarBorder "Top" foregroundColor 4 . xmobarColor foregroundColor backgroundColor . wrap " " " " - else xmobarColor foregroundColor backgroundColor . wrap " " " " + then xmobarBorder "Top" foregroundColor 4 . xmobarColor foregroundColor backgroundColor . wrap " " " " + else xmobarColor foregroundColor backgroundColor . wrap " " " " , ppTitle = id , ppSep = " | " , ppWsSep = "" , ppLayout = (\_ -> "") - , ppHidden = (\s -> clickableWrap ((read s::Int) - 1) (createDwmBox foregroundColor (" " ++ s ++ " "))) --better way to clickablewrap . - , ppHiddenNoWindows = (\s -> clickableWrap ((read s::Int) - 1) (" " ++ s ++ " ")) - , ppUrgent = (\s -> clickableWrap ((read s::Int) - 1) (xmobarBorder "Top" urgentColor 4 (" " ++ s ++ " "))) + , ppHidden = (\s -> clickableWrap ((read s::Int) - 1) (createDwmBox foregroundColor (" " ++ s ++ " "))) --better way to clickablewrap . + , ppHiddenNoWindows = (\s -> clickableWrap ((read s::Int) - 1) (" " ++ s ++ " ")) + , ppUrgent = (\s -> clickableWrap ((read s::Int) - 1) (xmobarBorder "Top" urgentColor 4 (" " ++ s ++ " "))) } ) where @@ -282,4 +282,4 @@ main = do layoutHook = myLayout, handleEventHook = myServerModeEventHook, manageHook = myManageHook - } \ No newline at end of file + } -- cgit 1.4.1