From 4dae25048181109c25673df4dd317c0d357fd160 Mon Sep 17 00:00:00 2001 From: JaeYoo-Im Date: Thu, 23 Sep 2021 16:43:26 +0900 Subject: [PATCH] =?UTF-8?q?=F0=9F=91=BF=20xmonad=20add?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .xmonad/xmonad.hs | 29 ++++------------------------- .xmonad/xmonad.org | 29 ++++------------------------- 2 files changed, 8 insertions(+), 50 deletions(-) diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs index b5d51f9..3c4a3f9 100644 --- a/.xmonad/xmonad.hs +++ b/.xmonad/xmonad.hs @@ -430,6 +430,8 @@ myKeys = --, ("M-M1-j", sendMessage MirrorShrink) -- Shrink vert window width --, ("M-M1-k", sendMessage MirrorExpand) -- Expand vert window width + -- Systemwise + , ("C-S-", spawn $ "xfce4-taskmanager") -- Sublayouts -- This is used to push windows to tabbed sublayouts, or pull them out of it. --, ("M-C-h", sendMessage $ pullGroup L) @@ -456,36 +458,13 @@ myKeys = --, ("M-", spawn "/bin/ls ~/wallpapers | shuf -n 1 | xargs xwallpaper --stretch") --, ("M-", spawn "feh --randomize --bg-fill ~/wallpapers/*") - -- Controls for mocp music player (SUPER-u followed by a key) - --, ("M-u p", spawn "mocp --play") - --, ("M-u l", spawn "mocp --next") - --, ("M-u h", spawn "mocp --previous") - --, ("M-u ", spawn "mocp --toggle-pause") - - -- Emacs (CTRL-e followed by a key) - -- , ("C-e e", spawn myEmacs) -- start emacs - --, ("C-e e", spawn (myEmacs ++ ("--eval '(dashboard-refresh-buffer)'"))) -- emacs dashboard - --, ("C-e b", spawn (myEmacs ++ ("--eval '(ibuffer)'"))) -- list buffers - --, ("C-e d", spawn (myEmacs ++ ("--eval '(dired nil)'"))) -- dired - --, ("C-e i", spawn (myEmacs ++ ("--eval '(erc)'"))) -- erc irc client - --, ("C-e m", spawn (myEmacs ++ ("--eval '(mu4e)'"))) -- mu4e email - --, ("C-e n", spawn (myEmacs ++ ("--eval '(elfeed)'"))) -- elfeed rss - --, ("C-e s", spawn (myEmacs ++ ("--eval '(eshell)'"))) -- eshell - --, ("C-e t", spawn (myEmacs ++ ("--eval '(mastodon)'"))) -- mastodon.el - ---- , ("C-e v", spawn (myEmacs ++ ("--eval '(vterm nil)'"))) -- vterm if on GNU Emacs - --, ("C-e v", spawn (myEmacs ++ ("--eval '(+vterm/here nil)'"))) -- vterm if on Doom Emacs - ---- , ("C-e w", spawn (myEmacs ++ ("--eval '(eww \"distrotube.com\")'"))) -- eww browser if on GNU Emacs - --, ("C-e w", spawn (myEmacs ++ ("--eval '(doom/window-maximize-buffer(eww \"distrotube.com\"))'"))) -- eww browser if on Doom Emacs - ---- emms is an emacs audio player. I set it to auto start playing in a specific directory. - --, ("C-e a", spawn (myEmacs ++ ("--eval '(emms)' --eval '(emms-play-directory-tree \"~/Music/Non-Classical/70s-80s/\")'"))) - -- Multimedia Keys --, ("", spawn (myTerminal ++ "mocp --play")) --, ("", spawn (myTerminal ++ "mocp --previous")) --, ("", spawn (myTerminal ++ "mocp --next")) --, ("", spawn "amixer set Master toggle") - , ("", spawn "amixer set Master 5%- unmute") - , ("", spawn "amixer set Master 5%+ unmute") + --, ("", spawn "amixer set Master 5%- unmute") + --, ("", spawn "amixer set Master 5%+ unmute") --, ("", spawn "firefox") --, ("", safeSpawn "firefox" ["https://www.duckduckgo.com/"]) --, ("", runOrRaise "thunderbird" (resource =? "thunderbird")) diff --git a/.xmonad/xmonad.org b/.xmonad/xmonad.org index 3050207..b252968 100644 --- a/.xmonad/xmonad.org +++ b/.xmonad/xmonad.org @@ -450,6 +450,8 @@ --, ("M-M1-j", sendMessage MirrorShrink) -- Shrink vert window width --, ("M-M1-k", sendMessage MirrorExpand) -- Expand vert window width + -- Systemwise + , ("C-S-", spawn $ "xfce4-taskmanager") -- Sublayouts -- This is used to push windows to tabbed sublayouts, or pull them out of it. --, ("M-C-h", sendMessage $ pullGroup L) @@ -476,36 +478,13 @@ --, ("M-", spawn "/bin/ls ~/wallpapers | shuf -n 1 | xargs xwallpaper --stretch") --, ("M-", spawn "feh --randomize --bg-fill ~/wallpapers/*") - -- Controls for mocp music player (SUPER-u followed by a key) - --, ("M-u p", spawn "mocp --play") - --, ("M-u l", spawn "mocp --next") - --, ("M-u h", spawn "mocp --previous") - --, ("M-u ", spawn "mocp --toggle-pause") - - -- Emacs (CTRL-e followed by a key) - -- , ("C-e e", spawn myEmacs) -- start emacs - --, ("C-e e", spawn (myEmacs ++ ("--eval '(dashboard-refresh-buffer)'"))) -- emacs dashboard - --, ("C-e b", spawn (myEmacs ++ ("--eval '(ibuffer)'"))) -- list buffers - --, ("C-e d", spawn (myEmacs ++ ("--eval '(dired nil)'"))) -- dired - --, ("C-e i", spawn (myEmacs ++ ("--eval '(erc)'"))) -- erc irc client - --, ("C-e m", spawn (myEmacs ++ ("--eval '(mu4e)'"))) -- mu4e email - --, ("C-e n", spawn (myEmacs ++ ("--eval '(elfeed)'"))) -- elfeed rss - --, ("C-e s", spawn (myEmacs ++ ("--eval '(eshell)'"))) -- eshell - --, ("C-e t", spawn (myEmacs ++ ("--eval '(mastodon)'"))) -- mastodon.el - ---- , ("C-e v", spawn (myEmacs ++ ("--eval '(vterm nil)'"))) -- vterm if on GNU Emacs - --, ("C-e v", spawn (myEmacs ++ ("--eval '(+vterm/here nil)'"))) -- vterm if on Doom Emacs - ---- , ("C-e w", spawn (myEmacs ++ ("--eval '(eww \"distrotube.com\")'"))) -- eww browser if on GNU Emacs - --, ("C-e w", spawn (myEmacs ++ ("--eval '(doom/window-maximize-buffer(eww \"distrotube.com\"))'"))) -- eww browser if on Doom Emacs - ---- emms is an emacs audio player. I set it to auto start playing in a specific directory. - --, ("C-e a", spawn (myEmacs ++ ("--eval '(emms)' --eval '(emms-play-directory-tree \"~/Music/Non-Classical/70s-80s/\")'"))) - -- Multimedia Keys --, ("", spawn (myTerminal ++ "mocp --play")) --, ("", spawn (myTerminal ++ "mocp --previous")) --, ("", spawn (myTerminal ++ "mocp --next")) --, ("", spawn "amixer set Master toggle") - , ("", spawn "amixer set Master 5%- unmute") - , ("", spawn "amixer set Master 5%+ unmute") + --, ("", spawn "amixer set Master 5%- unmute") + --, ("", spawn "amixer set Master 5%+ unmute") --, ("", spawn "firefox") --, ("", safeSpawn "firefox" ["https://www.duckduckgo.com/"]) --, ("", runOrRaise "thunderbird" (resource =? "thunderbird"))