Snoooopy/dtos-dotfiles
1
0
Fork 0
mirror of https://gitlab.com/dwt1/dotfiles.git synced 2026-08-10 18:11:13 +10:00
Code Issues Packages Projects Releases Wiki Activity

Working on the treemenu.

Browse Source
This commit is contained in:
Derek Taylor
2020-07-14 14:31:46 -05:00
parent 3995d6ad71
commit 74f2dbb810
1 changed files with 189 additions and 186 deletions
Download Patch File Download Diff File Expand all files Collapse all files
.xmonad/lib/Custom/MyTreeMenu.hs
+51 -48
View File
@@ -100,79 +100,82 @@ treeselectAction a = TS.treeselectAction a
, Node (TS.TSNode "Bookmarks" "a list of web bookmarks" (return ())) , Node (TS.TSNode "Bookmarks" "a list of web bookmarks" (return ()))
[ Node (TS.TSNode "Linux" "a list of web bookmarks" (return ())) [ Node (TS.TSNode "Linux" "a list of web bookmarks" (return ()))
[ Node (TS.TSNode "Arch Linux" "btw, i use arch!" (return ())) [ Node (TS.TSNode "Arch Linux" "btw, i use arch!" (return ()))
[ Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] [ Node (TS.TSNode "Arch Linux" "Arch Linux homepage" (spawn (myBrowser ++ "https://www.archlinux.org/"))) []
, Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] , Node (TS.TSNode "Arch Wiki" "The best Linux wiki" (spawn (myBrowser ++ "https://wiki.archlinux.org/"))) []
, Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] , Node (TS.TSNode "AUR" "Arch User Repository" (spawn (myBrowser ++ "https://aur.archlinux.org/"))) []
, Node (TS.TSNode "Arch Forums" "Arch Linux web forum" (spawn (myBrowser ++ "https://bbs.archlinux.org/"))) []
] ]
, Node (TS.TSNode "Linux News" "linux news and blogs" (return ())) , Node (TS.TSNode "Linux News" "linux news and blogs" (return ()))
[ Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] [ Node (TS.TSNode "DistroWatch" "Linux distro release announcments" (spawn (myBrowser ++ "https://distrowatch.com/"))) []
, Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] , Node (TS.TSNode "LXer" "LXer linux news aggregation" (spawn (myBrowser ++ "http://lxer.com"))) []
, Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] , Node (TS.TSNode "OMG Ubuntu" "Ubuntu news, apps and reviews" (spawn (myBrowser ++ "https://www.omgubuntu.co.uk"))) []
] ]
, Node (TS.TSNode "Window Managers" "window manager documentation" (return ())) , Node (TS.TSNode "Window Managers" "window manager documentation" (return ()))
[ Node (TS.TSNode "Awesome" "awesomewm documentation" (return ())) [ Node (TS.TSNode "Awesome" "awesomewm documentation" (return ()))
[ Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] [ Node (TS.TSNode "Awesome" "Homepage for awesome wm" (spawn (myBrowser ++ "https://awesomewm.org/"))) []
, Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] , Node (TS.TSNode "Awesome GitHub" "The GutHub page for awesome" (spawn (myBrowser ++ "https://github.com/awesomeWM/awesome"))) []
, Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] , Node (TS.TSNode "r/awesome" "Subreddit for awesome" (spawn (myBrowser ++ "https://www.reddit.com/r/awesomewm/"))) []
] ]
, Node (TS.TSNode "Dwm" "dwm documentation" (return ())) , Node (TS.TSNode "Dwm" "dwm documentation" (return ()))
[ Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] [ Node (TS.TSNode "Dwm" "Dynamic window manager" (spawn (myBrowser ++ "https://dwm.suckless.org/"))) []
, Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] , Node (TS.TSNode "Dwmblocks" "Modular status bar for dwm" (spawn (myBrowser ++ "https://github.com/torrinfail/dwmblocks"))) []
, Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] , Node (TS.TSNode "r/suckless" "Subreddit for suckless software" (spawn (myBrowser ++ "https://www.reddit.com/r/suckless//"))) []
] ]
, Node (TS.TSNode "Qtile" "qtile documentation" (return ())) , Node (TS.TSNode "Qtile" "qtile documentation" (return ()))
[ Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] [ Node (TS.TSNode "Qtile" "Tiling window manager in Python" (spawn (myBrowser ++ "http://www.qtile.org"))) []
, Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] , Node (TS.TSNode "Qtile GitHub" "The GitHub page for qtile" (spawn (myBrowser ++ "https://github.com/qtile/qtile"))) []
, Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] , Node (TS.TSNode "r/qtile" "Subreddit for qtile" (spawn (myBrowser ++ "https://www.reddit.com/r/qtile/"))) []
] ]
, Node (TS.TSNode "XMonad" "xmonad documentation" (return ())) , Node (TS.TSNode "XMonad" "xmonad documentation" (return ()))
[ Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] [ Node (TS.TSNode "XMonad" "Homepage for XMonad" (spawn (myBrowser ++ "http://xmonad.org"))) []
, Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] , Node (TS.TSNode "XMonad GitHub" "The GitHub page for XMonad" (spawn (myBrowser ++ "https://github.com/xmonad/xmonad"))) []
, Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] , Node (TS.TSNode "xmonad-contrib" "Third party extensions for XMonad" (spawn (myBrowser ++ "https://hackage.haskell.org/package/xmonad-contrib"))) []
, Node (TS.TSNode "xmonad-ontrib GitHub" "The GitHub page for xmonad-contrib" (spawn (myBrowser ++ "https://github.com/xmonad/xmonad-contrib"))) []
, Node (TS.TSNode "Xmobar" "Minimal text-based status bar" (spawn (myBrowser ++ "https://hackage.haskell.org/package/xmobar"))) []
] ]
] ]
, Node (TS.TSNode "Arch Linux" "a list of web bookmarks" (return ()))
[ Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) []
, Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) []
, Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) []
]
] ]
, Node (TS.TSNode "Emacs" "Emacs documentation" (return ())) , Node (TS.TSNode "Emacs" "Emacs documentation" (return ()))
[ Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] [ Node (TS.TSNode "GNU Emacs" "Extensible free/libre text editor" (spawn (myBrowser ++ "https://www.gnu.org/software/emacs/"))) []
, Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] , Node (TS.TSNode "Doom Emacs" "Emacs distribution with sane defaults" (spawn (myBrowser ++ "https://github.com/hlissner/doom-emacs"))) []
, Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] , Node (TS.TSNode "r/emacs" "M-x emacs-reddit" (spawn (myBrowser ++ "https://www.reddit.com/r/emacs/"))) []
, Node (TS.TSNode "EmacsWiki" "EmacsWiki Site Map" (spawn (myBrowser ++ "https://www.emacswiki.org/emacs/SiteMap"))) []
, Node (TS.TSNode "Emacs StackExchange" "Q&A site for emacs" (spawn (myBrowser ++ "https://emacs.stackexchange.com/"))) []
] ]
, Node (TS.TSNode "Linux" "a list of web bookmarks" (return ())) , Node (TS.TSNode "Search and Reference" "Search engines, indices and wikis" (return ()))
[ Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] [ Node (TS.TSNode "DuckDuckGo" "Privacy-oriented search engine" (spawn (myBrowser ++ "https://duckduckgo.com/"))) []
, Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] , Node (TS.TSNode "Google" "The evil search engine" (spawn (myBrowser ++ "http://www.google.com"))) []
, Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] , Node (TS.TSNode "Thesaurus" "Lookup synonyms and antonyms" (spawn (myBrowser ++ "https://www.thesaurus.com/"))) []
, Node (TS.TSNode "Wikipedia" "The free encyclopedia" (spawn (myBrowser ++ "https://www.wikipedia.org/"))) []
] ]
, Node (TS.TSNode "Programming" "programming and scripting" (return ())) , Node (TS.TSNode "Programming" "programming and scripting" (return ()))
[ Node (TS.TSNode "Bash and Shell Scripting" "shell scripting documentation" (return ())) [ Node (TS.TSNode "Bash and Shell Scripting" "shell scripting documentation" (return ()))
[ Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] [ Node (TS.TSNode "GNU Bash" "Documentation for bash" (spawn (myBrowser ++ "https://www.gnu.org/software/bash/manual/"))) []
, Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] , Node (TS.TSNode "r/bash" "Subreddit for bash" (spawn (myBrowser ++ "https://www.reddit.com/r/bash/"))) []
, Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] , Node (TS.TSNode "r/commandline" "Subreddit for the command line" (spawn (myBrowser ++ "https://www.reddit.com/r/commandline/"))) []
, Node (TS.TSNode "Learn Shell" "Interactive shell tutorial" (spawn (myBrowser ++ "https://www.learnshell.org/"))) []
] ]
, Node (TS.TSNode "Elisp" "emacs lisp documentation" (return ())) , Node (TS.TSNode "Elisp" "emacs lisp documentation" (return ()))
[ Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] [ Node (TS.TSNode "Emacs Lisp" "Reference manual for elisp" (spawn (myBrowser ++ "https://www.gnu.org/software/emacs/manual/html_node/elisp/"))) []
, Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] , Node (TS.TSNode "Learn Elisp in Y Minutes" "Single webpage for elisp basics" (spawn (myBrowser ++ "https://learnxinyminutes.com/docs/elisp/"))) []
, Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] , Node (TS.TSNode "r/Lisp" "Subreddit for lisp languages" (spawn (myBrowser ++ "https://www.reddit.com/r/lisp/"))) []
] ]
, Node (TS.TSNode "Haskell" "haskell documentation" (return ())) , Node (TS.TSNode "Haskell" "haskell documentation" (return ()))
[ Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] [ Node (TS.TSNode "Haskell.org" "Homepage for haskell" (spawn (myBrowser ++ "http://www.haskell.org"))) []
, Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] , Node (TS.TSNode "Hoogle" "Haskell API search engine" (spawn "https://hoogle.haskell.org/")) []
, Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] , Node (TS.TSNode "r/haskell" "Subreddit for haskell" (spawn (myBrowser ++ "https://www.reddit.com/r/Python/"))) []
, Node (TS.TSNode "Haskell on StackExchange" "Newest haskell topics on StackExchange" (spawn (myBrowser ++ "https://stackoverflow.com/questions/tagged/haskell"))) []
] ]
, Node (TS.TSNode "Python" "python documentation" (return ())) , Node (TS.TSNode "Python" "python documentation" (return ()))
[ Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] [ Node (TS.TSNode "Python.org" "Homepage for python" (spawn (myBrowser ++ "https://www.python.org/"))) []
, Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] , Node (TS.TSNode "r/Python" "Subreddit for python" (spawn (myBrowser ++ "https://www.reddit.com/r/Python/"))) []
, Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] , Node (TS.TSNode "Python on StackExchange" "Newest python topics on StackExchange" (spawn (myBrowser ++ "https://stackoverflow.com/questions/tagged/python"))) []
] ]
] ]
, Node (TS.TSNode "Vim" "vim and neovim documentation" (return ())) , Node (TS.TSNode "Vim" "vim and neovim documentation" (return ()))
[ Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] [ Node (TS.TSNode "Vim.org" "Vim, the ubiquitous text editor" (spawn (myBrowser ++ "https://www.vim.org/"))) []
, Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] , Node (TS.TSNode "r/Vim" "Subreddit for vim" (spawn (myBrowser ++ "https://www.reddit.com/r/vim/"))) []
, Node (TS.TSNode "xxx" "xxx" (spawn "xxx")) [] , Node (TS.TSNode "Vi/m StackExchange" "Vi/m related questions" (spawn (myBrowser ++ "https://vi.stackexchange.com/"))) []
] ]
] ]
, Node (TS.TSNode "Config Files" "config files that edit often" (return ())) , Node (TS.TSNode "Config Files" "config files that edit often" (return ()))
@@ -213,9 +216,9 @@ treeselectAction a = TS.treeselectAction a
, Node (TS.TSNode "zshrc" "Config for the z shell" (spawn (myEditor ++ "/home/dt/.zshrc"))) [] , Node (TS.TSNode "zshrc" "Config for the z shell" (spawn (myEditor ++ "/home/dt/.zshrc"))) []
] ]
, Node (TS.TSNode "Screenshots" "take a screenshot" (return ())) , Node (TS.TSNode "Screenshots" "take a screenshot" (return ()))
[ Node (TS.TSNode "Quick fullscreen" "take screenshot immediately" (spawn "scrot -d 1 '~/scrot/%Y-%m-%d-@%H-%M-%S-scrot.png'")) [] [ Node (TS.TSNode "Quick fullscreen" "take screenshot immediately" (spawn "scrot -d 1 ~/scrot/%Y-%m-%d-@%H-%M-%S-scrot.png")) []
, Node (TS.TSNode "Delayed fullscreen" "take screenshot in 5 secs" (spawn "scrot -d 5 '~/scrot/%Y-%m-%d-@%H-%M-%S-scrot.png'")) [] , Node (TS.TSNode "Delayed fullscreen" "take screenshot in 5 secs" (spawn "scrot -d 5 ~/scrot/%Y-%m-%d-@%H-%M-%S-scrot.png")) []
, Node (TS.TSNode "Section screenshot" "take screenshot of section" (spawn "scrot -s '~/scrot/%Y-%m-%d-@%H-%M-%S-scrot.png'")) [] , Node (TS.TSNode "Section screenshot" "take screenshot of section" (spawn "scrot -s ~/scrot/%Y-%m-%d-@%H-%M-%S-scrot.png")) []
] ]
, Node (TS.TSNode "------------------------" "" (spawn "xdotool key Escape")) [] , Node (TS.TSNode "------------------------" "" (spawn "xdotool key Escape")) []
, Node (TS.TSNode "XMonad" "window manager commands" (return ())) , Node (TS.TSNode "XMonad" "window manager commands" (return ()))