diff options
| author | azahi <azahi@teknik.io> | 2019-06-15 14:08:21 +0300 |
|---|---|---|
| committer | azahi <azahi@teknik.io> | 2019-06-15 14:08:21 +0300 |
| commit | de7c2f4a415bcb5d743bcece2b9f523d30c471ce (patch) | |
| tree | fa6793b57e3dd977576252517fbe21982e748b84 /src/XMonad/Custom | |
| parent | Add xmobar submodule and fix remotes (diff) | |
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
Diffstat (limited to 'src/XMonad/Custom')
| -rw-r--r-- | src/XMonad/Custom/Bindings.hs | 10 | ||||
| -rw-r--r-- | src/XMonad/Custom/Theme.hs | 2 |
2 files changed, 6 insertions, 6 deletions
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 _ = - [ ("<XF86AudioMute>" , void toggleMute) - , ("<XF86AudioLowerVolume>" , void $ lowerVolume 5) - , ("<XF86AudioRaiseVolume>" , void $ raiseVolume 5) - , ("<XF86AudioPlay>" , spawn "~/.xmonad/scripts/mpc-play-pause.sh") + [ + -- , ("<XF86AudioMute>" , void toggleMute) + -- , ("<XF86AudioLowerVolume>" , void $ lowerVolume 5) + -- , ("<XF86AudioRaiseVolume>" , void $ raiseVolume 5) + ("<XF86AudioPlay>" , spawn "~/.xmonad/scripts/mpc-play-pause.sh") , ("<XF86AudioStop>" , spawn "mpc --no-status stop") , ("<XF86AudioPrev>" , spawn "mpc --no-status prev") , ("<XF86AudioNext>" , 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) = |