Minor edits to config.
This commit is contained in:
Derek Taylor
parent
3a39a7d692
commit
23350a844b
|
|
@ -1,6 +1,6 @@
|
|||
--[[
|
||||
#=====================================================================================
|
||||
# Chimera Conky
|
||||
# XMonad Conky
|
||||
#======================================================================================
|
||||
|
||||
]]
|
||||
|
|
|
|||
|
|
@ -164,7 +164,7 @@ config.set('content.javascript.enabled', True, 'qute://*/*')
|
|||
# - true
|
||||
# - false
|
||||
# - 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.
|
||||
# Type: BoolAsk
|
||||
|
|
@ -172,7 +172,7 @@ config.set('content.notifications', True, 'https://www.reddit.com')
|
|||
# - true
|
||||
# - false
|
||||
# - 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
|
||||
# default is used.
|
||||
|
|
|
|||
|
|
@ -178,9 +178,35 @@ This setting ensures that emacsclient always opens on *dashboard* rather than *s
|
|||
An RSS newsfeed reader for Emacs.
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
(use-package elfeed-goodies)
|
||||
(elfeed-goodies/setup)
|
||||
(setq elfeed-goodies/entry-pane-size 0.5)
|
||||
(use-package elfeed
|
||||
:config
|
||||
(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)
|
||||
(evil-define-key 'normal elfeed-show-mode-map
|
||||
(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
|
||||
(kbd "J") 'elfeed-goodies/split-show-next
|
||||
(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
|
||||
|
||||
* EVALUATE ELISP EXPRESSIONS
|
||||
|
|
|
|||
|
|
@ -403,6 +403,7 @@ myManageHook = composeAll
|
|||
, className =? "brave-browser" --> doShift ( myWorkspaces !! 1 )
|
||||
, className =? "qutebrowser" --> doShift ( myWorkspaces !! 1 )
|
||||
, className =? "mpv" --> doShift ( myWorkspaces !! 7 )
|
||||
, className =? "Gimp" --> doShift ( myWorkspaces !! 8 )
|
||||
, className =? "VirtualBox Manager" --> doShift ( myWorkspaces !! 4 )
|
||||
, (className =? "firefox" <&&> resource =? "Dialog") --> doFloat -- Float Firefox Dialog
|
||||
] <+> namedScratchpadManageHook myScratchPads
|
||||
|
|
@ -440,20 +441,24 @@ I am using the Xmonad.Util.EZConfig module which allows keybindings to be writte
|
|||
myKeys :: [(String, X ())]
|
||||
myKeys =
|
||||
-- Xmonad
|
||||
[ ("M-C-r", spawn "xmonad --recompile") -- Recompiles xmonad
|
||||
, ("M-S-r", spawn "xmonad --restart") -- Restarts xmonad
|
||||
, ("M-S-q", io exitSuccess) -- Quits xmonad
|
||||
[ ("M-C-r", spawn "xmonad --recompile") -- Recompiles xmonad
|
||||
, ("M-S-r", spawn "xmonad --restart") -- Restarts xmonad
|
||||
, ("M-S-q", io exitSuccess) -- Quits xmonad
|
||||
|
||||
-- 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
|
||||
|
||||
-- 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 e", spawn "/home/dt/dmscripts/dmconf") -- edit config files
|
||||
, ("M-p i", spawn "/home/dt/dmscripts/dmscrot") -- screenshots (images)
|
||||
, ("M-p k", spawn "/home/dt/dmscripts/dmkill") -- kill processes
|
||||
, ("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 q", spawn "/home/dt/dmscripts/dmlogout") -- logout menu
|
||||
, ("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
|
||||
|
||||
-- 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-<Down>", sendMessage (IncMasterN (-1))) -- Decrease number of clients in master pane
|
||||
, ("M-C-<Up>", increaseLimit) -- Increase number of windows
|
||||
, ("M-C-<Down>", decreaseLimit) -- Decrease number of windows
|
||||
, ("M-S-<Up>", sendMessage (IncMasterN 1)) -- Increase # of clients master pane
|
||||
, ("M-S-<Down>", sendMessage (IncMasterN (-1))) -- Decrease # of clients master pane
|
||||
, ("M-C-<Up>", increaseLimit) -- Increase # of windows
|
||||
, ("M-C-<Down>", decreaseLimit) -- Decrease # of windows
|
||||
|
||||
-- Window resizing
|
||||
, ("M-h", sendMessage Shrink) -- Shrink horiz window width
|
||||
|
|
@ -617,16 +622,19 @@ main = do
|
|||
, normalBorderColor = myNormColor
|
||||
, focusedBorderColor = myFocusColor
|
||||
, logHook = dynamicLogWithPP $ namedScratchpadFilterOutWorkspacePP $ xmobarPP
|
||||
{ ppOutput = \x -> hPutStrLn xmproc0 x >> hPutStrLn xmproc1 x >> hPutStrLn xmproc2 x
|
||||
, ppCurrent = xmobarColor "#98be65" "" . wrap "[" "]" -- Current workspace in xmobar
|
||||
, ppVisible = xmobarColor "#98be65" "" . clickable -- Visible but not current workspace
|
||||
, ppHidden = xmobarColor "#82AAFF" "" . wrap "*" "" . clickable -- Hidden workspaces in xmobar
|
||||
, ppHiddenNoWindows = xmobarColor "#c792ea" "" . clickable -- Hidden workspaces (no windows)
|
||||
, ppTitle = xmobarColor "#b3afc2" "" . shorten 60 -- Title of active window in xmobar
|
||||
, ppSep = "<fc=#666666> <fn=1>|</fn> </fc>" -- Separators in xmobar
|
||||
, ppUrgent = xmobarColor "#C45500" "" . wrap "!" "!" -- Urgent workspace
|
||||
, ppExtras = [windowCount] -- # of windows current workspace
|
||||
, ppOrder = \(ws:l:t:ex) -> [ws,l]++ex++[t]
|
||||
}
|
||||
-- the following variables beginning with 'pp' are settings for xmobar.
|
||||
{ ppOutput = \x -> hPutStrLn xmproc0 x -- xmobar on monitor 1
|
||||
>> hPutStrLn xmproc1 x -- xmobar on monitor 2
|
||||
>> hPutStrLn xmproc2 x -- xmobar on monitor 3
|
||||
, ppCurrent = xmobarColor "#98be65" "" . wrap "[" "]" -- Current workspace
|
||||
, ppVisible = xmobarColor "#98be65" "" . clickable -- Visible but not current workspace
|
||||
, ppHidden = xmobarColor "#82AAFF" "" . wrap "*" "" . clickable -- Hidden workspaces
|
||||
, ppHiddenNoWindows = xmobarColor "#c792ea" "" . clickable -- Hidden workspaces (no windows)
|
||||
, ppTitle = xmobarColor "#b3afc2" "" . shorten 60 -- Title of active window
|
||||
, 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
|
||||
#+END_SRC
|
||||
|
|
|
|||
|
|
@ -333,6 +333,7 @@ myManageHook = composeAll
|
|||
, className =? "brave-browser" --> doShift ( myWorkspaces !! 1 )
|
||||
, className =? "qutebrowser" --> doShift ( myWorkspaces !! 1 )
|
||||
, className =? "mpv" --> doShift ( myWorkspaces !! 7 )
|
||||
, className =? "Gimp" --> doShift ( myWorkspaces !! 8 )
|
||||
, className =? "VirtualBox Manager" --> doShift ( myWorkspaces !! 4 )
|
||||
, (className =? "firefox" <&&> resource =? "Dialog") --> doFloat -- Float Firefox Dialog
|
||||
] <+> namedScratchpadManageHook myScratchPads
|
||||
|
|
@ -340,20 +341,24 @@ myManageHook = composeAll
|
|||
myKeys :: [(String, X ())]
|
||||
myKeys =
|
||||
-- Xmonad
|
||||
[ ("M-C-r", spawn "xmonad --recompile") -- Recompiles xmonad
|
||||
, ("M-S-r", spawn "xmonad --restart") -- Restarts xmonad
|
||||
, ("M-S-q", io exitSuccess) -- Quits xmonad
|
||||
[ ("M-C-r", spawn "xmonad --recompile") -- Recompiles xmonad
|
||||
, ("M-S-r", spawn "xmonad --restart") -- Restarts xmonad
|
||||
, ("M-S-q", io exitSuccess) -- Quits xmonad
|
||||
|
||||
-- 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
|
||||
|
||||
-- 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 e", spawn "/home/dt/dmscripts/dmconf") -- edit config files
|
||||
, ("M-p i", spawn "/home/dt/dmscripts/dmscrot") -- screenshots (images)
|
||||
, ("M-p k", spawn "/home/dt/dmscripts/dmkill") -- kill processes
|
||||
, ("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 q", spawn "/home/dt/dmscripts/dmlogout") -- logout menu
|
||||
, ("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
|
||||
|
||||
-- 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-<Down>", sendMessage (IncMasterN (-1))) -- Decrease number of clients in master pane
|
||||
, ("M-C-<Up>", increaseLimit) -- Increase number of windows
|
||||
, ("M-C-<Down>", decreaseLimit) -- Decrease number of windows
|
||||
, ("M-S-<Up>", sendMessage (IncMasterN 1)) -- Increase # of clients master pane
|
||||
, ("M-S-<Down>", sendMessage (IncMasterN (-1))) -- Decrease # of clients master pane
|
||||
, ("M-C-<Up>", increaseLimit) -- Increase # of windows
|
||||
, ("M-C-<Down>", decreaseLimit) -- Decrease # of windows
|
||||
|
||||
-- Window resizing
|
||||
, ("M-h", sendMessage Shrink) -- Shrink horiz window width
|
||||
|
|
@ -512,15 +517,18 @@ main = do
|
|||
, normalBorderColor = myNormColor
|
||||
, focusedBorderColor = myFocusColor
|
||||
, logHook = dynamicLogWithPP $ namedScratchpadFilterOutWorkspacePP $ xmobarPP
|
||||
{ ppOutput = \x -> hPutStrLn xmproc0 x >> hPutStrLn xmproc1 x >> hPutStrLn xmproc2 x
|
||||
, ppCurrent = xmobarColor "#98be65" "" . wrap "[" "]" -- Current workspace in xmobar
|
||||
, ppVisible = xmobarColor "#98be65" "" . clickable -- Visible but not current workspace
|
||||
, ppHidden = xmobarColor "#82AAFF" "" . wrap "*" "" . clickable -- Hidden workspaces in xmobar
|
||||
, ppHiddenNoWindows = xmobarColor "#c792ea" "" . clickable -- Hidden workspaces (no windows)
|
||||
, ppTitle = xmobarColor "#b3afc2" "" . shorten 60 -- Title of active window in xmobar
|
||||
, ppSep = "<fc=#666666> <fn=1>|</fn> </fc>" -- Separators in xmobar
|
||||
, ppUrgent = xmobarColor "#C45500" "" . wrap "!" "!" -- Urgent workspace
|
||||
, ppExtras = [windowCount] -- # of windows current workspace
|
||||
, ppOrder = \(ws:l:t:ex) -> [ws,l]++ex++[t]
|
||||
}
|
||||
-- the following variables beginning with 'pp' are settings for xmobar.
|
||||
{ ppOutput = \x -> hPutStrLn xmproc0 x -- xmobar on monitor 1
|
||||
>> hPutStrLn xmproc1 x -- xmobar on monitor 2
|
||||
>> hPutStrLn xmproc2 x -- xmobar on monitor 3
|
||||
, ppCurrent = xmobarColor "#98be65" "" . wrap "[" "]" -- Current workspace
|
||||
, ppVisible = xmobarColor "#98be65" "" . clickable -- Visible but not current workspace
|
||||
, ppHidden = xmobarColor "#82AAFF" "" . wrap "*" "" . clickable -- Hidden workspaces
|
||||
, ppHiddenNoWindows = xmobarColor "#c792ea" "" . clickable -- Hidden workspaces (no windows)
|
||||
, ppTitle = xmobarColor "#b3afc2" "" . shorten 60 -- Title of active window
|
||||
, 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
|
||||
|
|
|
|||
Loading…
Reference in New Issue