Minor edits to config.

This commit is contained in:
Derek Taylor 2021-04-19 21:13:26 -05:00
parent 3a39a7d692
commit 23350a844b
5 changed files with 88 additions and 65 deletions

View File

@ -1,6 +1,6 @@
--[[ --[[
#===================================================================================== #=====================================================================================
# Chimera Conky # XMonad Conky
#====================================================================================== #======================================================================================
]] ]]

View File

@ -164,7 +164,7 @@ config.set('content.javascript.enabled', True, 'qute://*/*')
# - true # - true
# - false # - false
# - ask # - ask
config.set('content.notifications', True, 'https://www.reddit.com') config.set('content.notifications.enabled', True, 'https://www.reddit.com')
# Allow websites to show notifications. # Allow websites to show notifications.
# Type: BoolAsk # Type: BoolAsk
@ -172,7 +172,7 @@ config.set('content.notifications', True, 'https://www.reddit.com')
# - true # - true
# - false # - false
# - ask # - ask
config.set('content.notifications', True, 'https://www.youtube.com') config.set('content.notifications.enabled', True, 'https://www.youtube.com')
# Directory to save downloads to. If unset, a sensible OS-specific # Directory to save downloads to. If unset, a sensible OS-specific
# default is used. # default is used.

View File

@ -178,9 +178,35 @@ This setting ensures that emacsclient always opens on *dashboard* rather than *s
An RSS newsfeed reader for Emacs. An RSS newsfeed reader for Emacs.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package elfeed-goodies) (use-package elfeed
(elfeed-goodies/setup) :config
(setq elfeed-goodies/entry-pane-size 0.5) (setq elfeed-search-feed-face ":foreground #fff :weight bold"
elfeed-feeds (quote
(("https://www.reddit.com/r/linux.rss" reddit linux)
("https://www.reddit.com/r/commandline.rss" reddit commandline)
("https://www.reddit.com/r/distrotube.rss" reddit distrotube)
("https://www.reddit.com/r/emacs.rss" reddit emacs)
("https://www.gamingonlinux.com/article_rss.php" gaming linux)
("https://hackaday.com/blog/feed/" hackaday linux)
("https://opensource.com/feed" opensource linux)
("https://linux.softpedia.com/backend.xml" softpedia linux)
("https://itsfoss.com/feed/" itsfoss linux)
("https://www.zdnet.com/topic/linux/rss.xml" zdnet linux)
("https://www.phoronix.com/rss.php" phoronix linux)
("http://feeds.feedburner.com/d0od" omgubuntu linux)
("https://www.computerworld.com/index.rss" computerworld linux)
("https://www.networkworld.com/category/linux/index.rss" networkworld linux)
("https://www.techrepublic.com/rssfeeds/topic/open-source/" techrepublic linux)
("https://betanews.com/feed" betanews linux)
("http://lxer.com/module/newswire/headlines.rss" lxer linux)
("https://distrowatch.com/news/dwd.xml" distrowatch linux)))))
(use-package elfeed-goodies
:init
(elfeed-goodies/setup)
:config
(setq elfeed-goodies/entry-pane-size 0.5))
(add-hook 'elfeed-show-mode-hook 'visual-line-mode) (add-hook 'elfeed-show-mode-hook 'visual-line-mode)
(evil-define-key 'normal elfeed-show-mode-map (evil-define-key 'normal elfeed-show-mode-map
(kbd "J") 'elfeed-goodies/split-show-next (kbd "J") 'elfeed-goodies/split-show-next
@ -188,25 +214,6 @@ An RSS newsfeed reader for Emacs.
(evil-define-key 'normal elfeed-search-mode-map (evil-define-key 'normal elfeed-search-mode-map
(kbd "J") 'elfeed-goodies/split-show-next (kbd "J") 'elfeed-goodies/split-show-next
(kbd "K") 'elfeed-goodies/split-show-prev) (kbd "K") 'elfeed-goodies/split-show-prev)
(setq elfeed-feeds (quote
(("https://www.reddit.com/r/linux.rss" reddit linux)
("https://www.reddit.com/r/commandline.rss" reddit commandline)
("https://www.reddit.com/r/distrotube.rss" reddit distrotube)
("https://www.reddit.com/r/emacs.rss" reddit emacs)
("https://www.gamingonlinux.com/article_rss.php" gaming linux)
("https://hackaday.com/blog/feed/" hackaday linux)
("https://opensource.com/feed" opensource linux)
("https://linux.softpedia.com/backend.xml" softpedia linux)
("https://itsfoss.com/feed/" itsfoss linux)
("https://www.zdnet.com/topic/linux/rss.xml" zdnet linux)
("https://www.phoronix.com/rss.php" phoronix linux)
("http://feeds.feedburner.com/d0od" omgubuntu linux)
("https://www.computerworld.com/index.rss" computerworld linux)
("https://www.networkworld.com/category/linux/index.rss" networkworld linux)
("https://www.techrepublic.com/rssfeeds/topic/open-source/" techrepublic linux)
("https://betanews.com/feed" betanews linux)
("http://lxer.com/module/newswire/headlines.rss" lxer linux)
("https://distrowatch.com/news/dwd.xml" distrowatch linux))))
#+end_src #+end_src
* EVALUATE ELISP EXPRESSIONS * EVALUATE ELISP EXPRESSIONS

View File

@ -403,6 +403,7 @@ myManageHook = composeAll
, className =? "brave-browser" --> doShift ( myWorkspaces !! 1 ) , className =? "brave-browser" --> doShift ( myWorkspaces !! 1 )
, className =? "qutebrowser" --> doShift ( myWorkspaces !! 1 ) , className =? "qutebrowser" --> doShift ( myWorkspaces !! 1 )
, className =? "mpv" --> doShift ( myWorkspaces !! 7 ) , className =? "mpv" --> doShift ( myWorkspaces !! 7 )
, className =? "Gimp" --> doShift ( myWorkspaces !! 8 )
, className =? "VirtualBox Manager" --> doShift ( myWorkspaces !! 4 ) , className =? "VirtualBox Manager" --> doShift ( myWorkspaces !! 4 )
, (className =? "firefox" <&&> resource =? "Dialog") --> doFloat -- Float Firefox Dialog , (className =? "firefox" <&&> resource =? "Dialog") --> doFloat -- Float Firefox Dialog
] <+> namedScratchpadManageHook myScratchPads ] <+> namedScratchpadManageHook myScratchPads
@ -440,20 +441,24 @@ I am using the Xmonad.Util.EZConfig module which allows keybindings to be writte
myKeys :: [(String, X ())] myKeys :: [(String, X ())]
myKeys = myKeys =
-- Xmonad -- Xmonad
[ ("M-C-r", spawn "xmonad --recompile") -- Recompiles xmonad [ ("M-C-r", spawn "xmonad --recompile") -- Recompiles xmonad
, ("M-S-r", spawn "xmonad --restart") -- Restarts xmonad , ("M-S-r", spawn "xmonad --restart") -- Restarts xmonad
, ("M-S-q", io exitSuccess) -- Quits xmonad , ("M-S-q", io exitSuccess) -- Quits xmonad
-- Run Prompt -- Run Prompt
-- M-p was the default keybinding. I've changed it to M-S-RET because I will use
-- M-p as part of the keychord for the other dmenu script bindings.
, ("M-S-<Return>", spawn "dmenu_run -i -p \"Run: \"") -- Dmenu , ("M-S-<Return>", spawn "dmenu_run -i -p \"Run: \"") -- Dmenu
-- Other Prompts -- Other Dmenu Prompts
-- In Xmonad and many tiling window managers, M-p is the default keybinding to
-- launch dmenu_run, so I've decided to use M-p plus KEY for these dmenu scripts.
, ("M-p c", spawn "/home/dt/dmscripts/dcolors") -- pick color from our scheme , ("M-p c", spawn "/home/dt/dmscripts/dcolors") -- pick color from our scheme
, ("M-p e", spawn "/home/dt/dmscripts/dmconf") -- edit config files , ("M-p e", spawn "/home/dt/dmscripts/dmconf") -- edit config files
, ("M-p i", spawn "/home/dt/dmscripts/dmscrot") -- screenshots (images) , ("M-p i", spawn "/home/dt/dmscripts/dmscrot") -- screenshots (images)
, ("M-p k", spawn "/home/dt/dmscripts/dmkill") -- kill processes , ("M-p k", spawn "/home/dt/dmscripts/dmkill") -- kill processes
, ("M-p m", spawn "/home/dt/dmscripts/dman") -- manpages , ("M-p m", spawn "/home/dt/dmscripts/dman") -- manpages
, ("M-p o", spawn "/home/dt/dmscripts/dmqute") -- open qutebrowser bookmarks, quickmarks and history , ("M-p o", spawn "/home/dt/dmscripts/dmqute") -- qutebrowser bookmarks/history
, ("M-p p", spawn "passmenu") -- passmenu , ("M-p p", spawn "passmenu") -- passmenu
, ("M-p q", spawn "/home/dt/dmscripts/dmlogout") -- logout menu , ("M-p q", spawn "/home/dt/dmscripts/dmlogout") -- logout menu
, ("M-p r", spawn "/home/dt/dmscripts/dmred") -- reddio (a reddit viewer) , ("M-p r", spawn "/home/dt/dmscripts/dmred") -- reddio (a reddit viewer)
@ -510,10 +515,10 @@ myKeys =
, ("M-<Space>", sendMessage (MT.Toggle NBFULL) >> sendMessage ToggleStruts) -- Toggles noborder/full , ("M-<Space>", sendMessage (MT.Toggle NBFULL) >> sendMessage ToggleStruts) -- Toggles noborder/full
-- Increase/decrease windows in the master pane or the stack -- Increase/decrease windows in the master pane or the stack
, ("M-S-<Up>", sendMessage (IncMasterN 1)) -- Increase number of clients in master pane , ("M-S-<Up>", sendMessage (IncMasterN 1)) -- Increase # of clients master pane
, ("M-S-<Down>", sendMessage (IncMasterN (-1))) -- Decrease number of clients in master pane , ("M-S-<Down>", sendMessage (IncMasterN (-1))) -- Decrease # of clients master pane
, ("M-C-<Up>", increaseLimit) -- Increase number of windows , ("M-C-<Up>", increaseLimit) -- Increase # of windows
, ("M-C-<Down>", decreaseLimit) -- Decrease number of windows , ("M-C-<Down>", decreaseLimit) -- Decrease # of windows
-- Window resizing -- Window resizing
, ("M-h", sendMessage Shrink) -- Shrink horiz window width , ("M-h", sendMessage Shrink) -- Shrink horiz window width
@ -617,16 +622,19 @@ main = do
, normalBorderColor = myNormColor , normalBorderColor = myNormColor
, focusedBorderColor = myFocusColor , focusedBorderColor = myFocusColor
, logHook = dynamicLogWithPP $ namedScratchpadFilterOutWorkspacePP $ xmobarPP , logHook = dynamicLogWithPP $ namedScratchpadFilterOutWorkspacePP $ xmobarPP
{ ppOutput = \x -> hPutStrLn xmproc0 x >> hPutStrLn xmproc1 x >> hPutStrLn xmproc2 x -- the following variables beginning with 'pp' are settings for xmobar.
, ppCurrent = xmobarColor "#98be65" "" . wrap "[" "]" -- Current workspace in xmobar { ppOutput = \x -> hPutStrLn xmproc0 x -- xmobar on monitor 1
, ppVisible = xmobarColor "#98be65" "" . clickable -- Visible but not current workspace >> hPutStrLn xmproc1 x -- xmobar on monitor 2
, ppHidden = xmobarColor "#82AAFF" "" . wrap "*" "" . clickable -- Hidden workspaces in xmobar >> hPutStrLn xmproc2 x -- xmobar on monitor 3
, ppHiddenNoWindows = xmobarColor "#c792ea" "" . clickable -- Hidden workspaces (no windows) , ppCurrent = xmobarColor "#98be65" "" . wrap "[" "]" -- Current workspace
, ppTitle = xmobarColor "#b3afc2" "" . shorten 60 -- Title of active window in xmobar , ppVisible = xmobarColor "#98be65" "" . clickable -- Visible but not current workspace
, ppSep = "<fc=#666666> <fn=1>|</fn> </fc>" -- Separators in xmobar , ppHidden = xmobarColor "#82AAFF" "" . wrap "*" "" . clickable -- Hidden workspaces
, ppUrgent = xmobarColor "#C45500" "" . wrap "!" "!" -- Urgent workspace , ppHiddenNoWindows = xmobarColor "#c792ea" "" . clickable -- Hidden workspaces (no windows)
, ppExtras = [windowCount] -- # of windows current workspace , ppTitle = xmobarColor "#b3afc2" "" . shorten 60 -- Title of active window
, ppOrder = \(ws:l:t:ex) -> [ws,l]++ex++[t] , ppSep = "<fc=#666666> <fn=1>|</fn> </fc>" -- Separator character
} , ppUrgent = xmobarColor "#C45500" "" . wrap "!" "!" -- Urgent workspace
, ppExtras = [windowCount] -- # of windows current workspace
, ppOrder = \(ws:l:t:ex) -> [ws,l]++ex++[t] -- order of things in xmobar
}
} `additionalKeysP` myKeys } `additionalKeysP` myKeys
#+END_SRC #+END_SRC

View File

@ -333,6 +333,7 @@ myManageHook = composeAll
, className =? "brave-browser" --> doShift ( myWorkspaces !! 1 ) , className =? "brave-browser" --> doShift ( myWorkspaces !! 1 )
, className =? "qutebrowser" --> doShift ( myWorkspaces !! 1 ) , className =? "qutebrowser" --> doShift ( myWorkspaces !! 1 )
, className =? "mpv" --> doShift ( myWorkspaces !! 7 ) , className =? "mpv" --> doShift ( myWorkspaces !! 7 )
, className =? "Gimp" --> doShift ( myWorkspaces !! 8 )
, className =? "VirtualBox Manager" --> doShift ( myWorkspaces !! 4 ) , className =? "VirtualBox Manager" --> doShift ( myWorkspaces !! 4 )
, (className =? "firefox" <&&> resource =? "Dialog") --> doFloat -- Float Firefox Dialog , (className =? "firefox" <&&> resource =? "Dialog") --> doFloat -- Float Firefox Dialog
] <+> namedScratchpadManageHook myScratchPads ] <+> namedScratchpadManageHook myScratchPads
@ -340,20 +341,24 @@ myManageHook = composeAll
myKeys :: [(String, X ())] myKeys :: [(String, X ())]
myKeys = myKeys =
-- Xmonad -- Xmonad
[ ("M-C-r", spawn "xmonad --recompile") -- Recompiles xmonad [ ("M-C-r", spawn "xmonad --recompile") -- Recompiles xmonad
, ("M-S-r", spawn "xmonad --restart") -- Restarts xmonad , ("M-S-r", spawn "xmonad --restart") -- Restarts xmonad
, ("M-S-q", io exitSuccess) -- Quits xmonad , ("M-S-q", io exitSuccess) -- Quits xmonad
-- Run Prompt -- Run Prompt
-- M-p was the default keybinding. I've changed it to M-S-RET because I will use
-- M-p as part of the keychord for the other dmenu script bindings.
, ("M-S-<Return>", spawn "dmenu_run -i -p \"Run: \"") -- Dmenu , ("M-S-<Return>", spawn "dmenu_run -i -p \"Run: \"") -- Dmenu
-- Other Prompts -- Other Dmenu Prompts
-- In Xmonad and many tiling window managers, M-p is the default keybinding to
-- launch dmenu_run, so I've decided to use M-p plus KEY for these dmenu scripts.
, ("M-p c", spawn "/home/dt/dmscripts/dcolors") -- pick color from our scheme , ("M-p c", spawn "/home/dt/dmscripts/dcolors") -- pick color from our scheme
, ("M-p e", spawn "/home/dt/dmscripts/dmconf") -- edit config files , ("M-p e", spawn "/home/dt/dmscripts/dmconf") -- edit config files
, ("M-p i", spawn "/home/dt/dmscripts/dmscrot") -- screenshots (images) , ("M-p i", spawn "/home/dt/dmscripts/dmscrot") -- screenshots (images)
, ("M-p k", spawn "/home/dt/dmscripts/dmkill") -- kill processes , ("M-p k", spawn "/home/dt/dmscripts/dmkill") -- kill processes
, ("M-p m", spawn "/home/dt/dmscripts/dman") -- manpages , ("M-p m", spawn "/home/dt/dmscripts/dman") -- manpages
, ("M-p o", spawn "/home/dt/dmscripts/dmqute") -- open qutebrowser bookmarks, quickmarks and history , ("M-p o", spawn "/home/dt/dmscripts/dmqute") -- qutebrowser bookmarks/history
, ("M-p p", spawn "passmenu") -- passmenu , ("M-p p", spawn "passmenu") -- passmenu
, ("M-p q", spawn "/home/dt/dmscripts/dmlogout") -- logout menu , ("M-p q", spawn "/home/dt/dmscripts/dmlogout") -- logout menu
, ("M-p r", spawn "/home/dt/dmscripts/dmred") -- reddio (a reddit viewer) , ("M-p r", spawn "/home/dt/dmscripts/dmred") -- reddio (a reddit viewer)
@ -410,10 +415,10 @@ myKeys =
, ("M-<Space>", sendMessage (MT.Toggle NBFULL) >> sendMessage ToggleStruts) -- Toggles noborder/full , ("M-<Space>", sendMessage (MT.Toggle NBFULL) >> sendMessage ToggleStruts) -- Toggles noborder/full
-- Increase/decrease windows in the master pane or the stack -- Increase/decrease windows in the master pane or the stack
, ("M-S-<Up>", sendMessage (IncMasterN 1)) -- Increase number of clients in master pane , ("M-S-<Up>", sendMessage (IncMasterN 1)) -- Increase # of clients master pane
, ("M-S-<Down>", sendMessage (IncMasterN (-1))) -- Decrease number of clients in master pane , ("M-S-<Down>", sendMessage (IncMasterN (-1))) -- Decrease # of clients master pane
, ("M-C-<Up>", increaseLimit) -- Increase number of windows , ("M-C-<Up>", increaseLimit) -- Increase # of windows
, ("M-C-<Down>", decreaseLimit) -- Decrease number of windows , ("M-C-<Down>", decreaseLimit) -- Decrease # of windows
-- Window resizing -- Window resizing
, ("M-h", sendMessage Shrink) -- Shrink horiz window width , ("M-h", sendMessage Shrink) -- Shrink horiz window width
@ -512,15 +517,18 @@ main = do
, normalBorderColor = myNormColor , normalBorderColor = myNormColor
, focusedBorderColor = myFocusColor , focusedBorderColor = myFocusColor
, logHook = dynamicLogWithPP $ namedScratchpadFilterOutWorkspacePP $ xmobarPP , logHook = dynamicLogWithPP $ namedScratchpadFilterOutWorkspacePP $ xmobarPP
{ ppOutput = \x -> hPutStrLn xmproc0 x >> hPutStrLn xmproc1 x >> hPutStrLn xmproc2 x -- the following variables beginning with 'pp' are settings for xmobar.
, ppCurrent = xmobarColor "#98be65" "" . wrap "[" "]" -- Current workspace in xmobar { ppOutput = \x -> hPutStrLn xmproc0 x -- xmobar on monitor 1
, ppVisible = xmobarColor "#98be65" "" . clickable -- Visible but not current workspace >> hPutStrLn xmproc1 x -- xmobar on monitor 2
, ppHidden = xmobarColor "#82AAFF" "" . wrap "*" "" . clickable -- Hidden workspaces in xmobar >> hPutStrLn xmproc2 x -- xmobar on monitor 3
, ppHiddenNoWindows = xmobarColor "#c792ea" "" . clickable -- Hidden workspaces (no windows) , ppCurrent = xmobarColor "#98be65" "" . wrap "[" "]" -- Current workspace
, ppTitle = xmobarColor "#b3afc2" "" . shorten 60 -- Title of active window in xmobar , ppVisible = xmobarColor "#98be65" "" . clickable -- Visible but not current workspace
, ppSep = "<fc=#666666> <fn=1>|</fn> </fc>" -- Separators in xmobar , ppHidden = xmobarColor "#82AAFF" "" . wrap "*" "" . clickable -- Hidden workspaces
, ppUrgent = xmobarColor "#C45500" "" . wrap "!" "!" -- Urgent workspace , ppHiddenNoWindows = xmobarColor "#c792ea" "" . clickable -- Hidden workspaces (no windows)
, ppExtras = [windowCount] -- # of windows current workspace , ppTitle = xmobarColor "#b3afc2" "" . shorten 60 -- Title of active window
, ppOrder = \(ws:l:t:ex) -> [ws,l]++ex++[t] , ppSep = "<fc=#666666> <fn=1>|</fn> </fc>" -- Separator character
} , ppUrgent = xmobarColor "#C45500" "" . wrap "!" "!" -- Urgent workspace
, ppExtras = [windowCount] -- # of windows current workspace
, ppOrder = \(ws:l:t:ex) -> [ws,l]++ex++[t] -- order of things in xmobar
}
} `additionalKeysP` myKeys } `additionalKeysP` myKeys