From de7c2f4a415bcb5d743bcece2b9f523d30c471ce Mon Sep 17 00:00:00 2001 From: azahi Date: Sat, 15 Jun 2019 14:08:21 +0300 Subject: Bump version 0.15.3 Update fonts Temporary remove ALSA bindings because of unresolved version errors Update Stack and Cabal to use GHC 8.6.4 Add missing pointers to Xmobar --- src/XMonad/Custom/Bindings.hs | 10 +++++----- src/XMonad/Custom/Theme.hs | 2 +- 2 files changed, 6 insertions(+), 6 deletions(-) (limited to 'src') diff --git a/src/XMonad/Custom/Bindings.hs b/src/XMonad/Custom/Bindings.hs index 9400de7..772b0ad 100644 --- a/src/XMonad/Custom/Bindings.hs +++ b/src/XMonad/Custom/Bindings.hs @@ -54,7 +54,6 @@ import XMonad.Prompt.Shell import XMonad.Prompt.Window import XMonad.Prompt.Workspace import qualified XMonad.StackSet as S -import XMonad.Util.ALSA import XMonad.Util.EZConfig import XMonad.Util.NamedScratchpad import XMonad.Util.WorkspaceCompare @@ -147,10 +146,11 @@ keysSystem _ = keysMedia :: XConfig Layout -> [(String, X ())] keysMedia _ = - [ ("" , void toggleMute) - , ("" , void $ lowerVolume 5) - , ("" , void $ raiseVolume 5) - , ("" , spawn "~/.xmonad/scripts/mpc-play-pause.sh") + [ + -- , ("" , void toggleMute) + -- , ("" , void $ lowerVolume 5) + -- , ("" , void $ raiseVolume 5) + ("" , spawn "~/.xmonad/scripts/mpc-play-pause.sh") , ("" , spawn "mpc --no-status stop") , ("" , spawn "mpc --no-status prev") , ("" , spawn "mpc --no-status next") diff --git a/src/XMonad/Custom/Theme.hs b/src/XMonad/Custom/Theme.hs index ed3cb8d..d25cb55 100644 --- a/src/XMonad/Custom/Theme.hs +++ b/src/XMonad/Custom/Theme.hs @@ -46,7 +46,7 @@ import XMonad.Layout.Decoration import qualified XMonad.Prompt as P font :: String -font = "xft:lucy tewi:style=Regular:size=8" -- TODO CJKのフォールバックフォントを追加する +font = "xft:tewi:style=Regular:size=8" -- TODO CJKのフォールバックフォントを追加する black1, black2 :: String -- TODO get variables from Xresources (black1, black2) = -- cgit 1.4.1