From d8895a34cf1123e45c6dd035313987c6503353b7 Mon Sep 17 00:00:00 2001 From: Derek Taylor Date: Sat, 27 Jun 2020 15:24:59 -0500 Subject: [PATCH] Minor edits. --- .doom.d/config.el | 15 ++++++++++++++- .xmonad/xmonad.hs | 27 +++++++++------------------ 2 files changed, 23 insertions(+), 19 deletions(-) diff --git a/.doom.d/config.el b/.doom.d/config.el index db855e6..2998169 100644 --- a/.doom.d/config.el +++ b/.doom.d/config.el @@ -3,6 +3,19 @@ ;; Place your private configuration here! Remember, you do not need to run 'doom ;; sync' after modifying this file! +;; EMACS X WINDOW MANAGER +;; (require 'exwm) +;; (require 'exwm-config) +;; (exwm-config-default) +;; (require 'exwm-randr) +;; (setq exwm-randr-workspace-output-plist '(0 "DisplayPort-0" 1 "DisplayPort-1" 2 "HDMI-A-0")) +;; (add-hook 'exwm-randr-screen-change-hook + ;; (lambda () + ;; (start-process-shell-command + ;; "xrandr" nil "xrandr --output DisplayPort-0 --mode 1920x1080 --pos 0x0 --rotate normal --output DisplayPort-1 --primary --mode 1920x1080 --pos 1920x0 --rotate normal --output HDMI-A-0 --mode 1920x1080 --pos 3840x0 --rotate normal"))) +;; (exwm-randr-enable) +;; (require 'exwm-systemtray) +;; (exwm-systemtray-enable) ;; Some functionality uses this to identify you, e.g. GPG configuration, email ;; clients, file templates and snippets. @@ -153,7 +166,7 @@ '(elfeed-feeds (quote ("https://www.gamingonlinux.com/article_rss.php" "https://hackaday.com/blog/feed/" "https://opensource.com/feed" "https://linux.softpedia.com/backend.xml" "https://itsfoss.com/feed/" "https://www.zdnet.com/topic/linux/rss.xml" "https://www.phoronix.com/rss.php" "http://feeds.feedburner.com/d0od" "https://www.computerworld.com/index.rss" "https://www.networkworld.com/category/linux/index.rss" "https://www.techrepublic.com/rssfeeds/topic/open-source/" "https://betanews.com/feed" "http://lxer.com/module/newswire/headlines.rss" "https://distrowatch.com/news/dwd.xml"))) - '(package-selected-packages (quote (peep-dired nav-flash evil-mu4e emms elfeed)))) + '(package-selected-packages (quote (exwm peep-dired nav-flash evil-mu4e emms elfeed)))) (custom-set-faces ;; custom-set-faces was added by Custom. diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs index 590878a..1e3d0e4 100644 --- a/.xmonad/xmonad.hs +++ b/.xmonad/xmonad.hs @@ -226,27 +226,18 @@ myConfigs = [ ("bashrc", myEditor ++ "/home/dt/.bashrc", "the bourne again shell , ("zshrc", myEditor ++ "/home/dt/.zshrc", "config for the z shell") ] --- Creating two lists and then zipping them together in a 2-tuple so that --- GridSelect can use them. myAppGrid is the same as myApplications above, --- minus the third set of values (the app descriptions). myBookmarkGrid --- is the same as myBookmarks, minus the third set of values. And the same --- thing is done with myConfigGrid, which is derived from myConfigs. +-- Let's take myApplications, myBookmarks and myConfigs and take only +-- the first two values from those 3-tuples (for GridSelect). myAppGrid :: [(String, String)] -myAppGrid = zip - [TE.fst3 $ xs !! n | n <- [0..(length xs - 1)]] - [TE.snd3 $ xs !! n | n <- [0..(length xs - 1)]] +myAppGrid = [ (a,b) | (a,b,c) <- xs] where xs = myApplications myBookmarkGrid :: [(String, String)] -myBookmarkGrid = zip - [TE.fst3 $ xs !! n | n <- [0..(length xs - 1)]] - [TE.snd3 $ xs !! n | n <- [0..(length xs - 1)]] +myBookmarkGrid = [ (a,b) | (a,b,c) <- xs] where xs = myBookmarks myConfigGrid :: [(String, String)] -myConfigGrid = zip - [TE.fst3 $ xs !! n | n <- [0..(length xs - 1)]] - [TE.snd3 $ xs !! n | n <- [0..(length xs - 1)]] +myConfigGrid = [ (a,b) | (a,b,c) <- xs] where xs = myConfigs ------------------------------------------------------------------------ @@ -781,25 +772,25 @@ myKeys = -- Emacs (CTRL-e followed by a key) , ("C-e e", spawn "emacsclient -c -a ''") -- start emacs - , ("C-e a", spawn "emacsclient -c -a '' --eval '(emms)'") -- emms emacs audio player , ("C-e b", spawn "emacsclient -c -a '' --eval '(ibuffer)'") -- list emacs buffers , ("C-e d", spawn "emacsclient -c -a '' --eval '(dired nil)'") -- dired emacs file manager , ("C-e m", spawn "emacsclient -c -a '' --eval '(mu4e)'") -- mu4e emacs email client , ("C-e n", spawn "emacsclient -c -a '' --eval '(elfeed)'") -- elfeed emacs rss client , ("C-e s", spawn "emacsclient -c -a '' --eval '(eshell)'") -- eshell within emacs , ("C-e t", spawn "emacsclient -c -a '' --eval '(+vterm/here nil)'") -- eshell within emacs + -- emms is an emacs audio player. I set it to auto start playing in a specific directory. + , ("C-e a", spawn "emacsclient -c -a '' --eval '(emms)' --eval '(emms-play-directory-tree \"~/Music/Non-Classical/70s-80s/\")'") --- My Applications (Super+Alt+Key) , ("M-M1-a", spawn (myTerminal ++ " -e ncpamixer")) , ("M-M1-b", spawn "surf www.youtube.com/c/DistroTube/") - --, ("M-M1-e", spawn (myTerminal ++ " -e neomutt")) - , ("M-M1-e", spawn "emacsclient -c -a '' --eval '(mu4e)'") + , ("M-M1-e", spawn (myTerminal ++ " -e neomutt")) , ("M-M1-f", spawn (myTerminal ++ " -e sh ./.config/vifm/scripts/vifmrun")) , ("M-M1-i", spawn (myTerminal ++ " -e irssi")) , ("M-M1-j", spawn (myTerminal ++ " -e joplin")) , ("M-M1-l", spawn (myTerminal ++ " -e lynx -cfg=~/.lynx/lynx.cfg -lss=~/.lynx/lynx.lss gopher://distro.tube")) , ("M-M1-m", spawn (myTerminal ++ " -e mocp")) - , ("M-M1-n", spawn "emacsclient -c -a '' --eval '(elfeed)'") + , ("M-M1-n", spawn (myTerminal ++ " -e newsboat")) , ("M-M1-p", spawn (myTerminal ++ " -e pianobar")) , ("M-M1-r", spawn (myTerminal ++ " -e rtv")) , ("M-M1-t", spawn (myTerminal ++ " -e toot curses"))