kotovalexarian-likes-gitlab/dwt1--dotfiles
1
0
Fork 0
mirror of https://gitlab.com/dwt1/dotfiles.git synced 2023-02-13 20:55:19 -05:00
Code Releases Activity

Minor edits

Browse source
This commit is contained in:
Derek Taylor 2020-10-23 20:39:58 -05:00
parent eac13c0169
commit d94dcaed8e
9 changed files with 814 additions and 498 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
.bashrc
View file

@ -204,3 +204,5 @@ alias rr='curl -s -L https://raw.githubusercontent.com/keroserene/rickrollrc/mas
### RANDOM COLOR SCRIPT ###
/opt/shell-color-scripts/colorscript.sh random
source /home/dt/.config/broot/launcher/bash/br

4
.config/awesome/rc.lua
View file

@ -239,8 +239,8 @@ globalkeys = my_table.join(
{description = "surf web browser" , group = "gui apps" }),
awful.key({ modkey, altkey }, "c", function () awful.util.spawn( terminal.." -e cmus" ) end,
{description = "cmus" , group = "terminal apps" }),
awful.key({ modkey, altkey }, "e", function () awful.util.spawn( terminal.." -e neomutt" ) end,
{description = "neomutt email" , group = "terminal apps" }),
awful.key({ modkey, altkey }, "e", function () awful.util.spawn( "emacsclient -a 'emacs' -c" ) end,
{description = "emacs client" , group = "gui apps" }),
awful.key({ modkey, altkey }, "f", function () awful.util.spawn( terminal.." -e sh ./.config/vifm/scripts/vifmrun" ) end,
{description = "vifm" , group = "terminal apps" }),
awful.key({ modkey, altkey }, "i", function () awful.util.spawn( terminal.." -e irssi" ) end,

10
.config/qutebrowser/config.py
View file

@ -19,7 +19,7 @@
c.aliases = {'q': 'quit', 'w': 'session-save', 'wq': 'quit --save'}
# Setting dark mode
config.set("colors.webpage.darkmode.enabled", True)
# config.set("colors.webpage.darkmode.enabled", True)
# Which cookies to accept. With QtWebEngine, this setting also controls
@ -371,3 +371,11 @@ config.bind('t', 'set-cmd-text -s :open -t')
config.bind('xb', 'config-cycle statusbar.show always never')
config.bind('xt', 'config-cycle tabs.show always never')
config.bind('xx', 'config-cycle statusbar.show always never;; config-cycle tabs.show always never')
# Bindings for cycling through CSS stylesheets from Solarized Everything CSS:
# https://github.com/alphapapa/solarized-everything-css
config.bind(',ap', 'config-cycle content.user_stylesheets ~/solarized-everything-css/css/apprentice/apprentice-all-sites.css ""')
config.bind(',dr', 'config-cycle content.user_stylesheets ~/solarized-everything-css/css/darculized/darculized-all-sites.css ""')
config.bind(',gr', 'config-cycle content.user_stylesheets ~/solarized-everything-css/css/gruvbox/gruvbox-all-sites.css ""')
config.bind(',sd', 'config-cycle content.user_stylesheets ~/solarized-everything-css/css/solarized-dark/solarized-dark-all-sites.css ""')
config.bind(',sl', 'config-cycle content.user_stylesheets ~/solarized-everything-css/css/solarized-light/solarized-light-all-sites.css ""')

419
.doom.d/config.el
View file

@ -1,50 +1,9 @@
(setq doom-font (font-spec :family "SauceCodePro Nerd Font" :size 15)
doom-variable-pitch-font (font-spec :family "Ubuntu" :size 15)
doom-big-font (font-spec :family "SauceCodePro Nerd Font" :size 24))
(after! doom-themes
(setq
doom-themes-enable-bold t
doom-themes-enable-italic t))
(setq doom-theme 'doom-one)
(map! :leader
:desc "Load new theme"
"h t" #'counsel-load-theme)
(setq display-line-numbers-type t)
(map! :leader
:desc "Toggle truncate lines"
"l t" #'toggle-truncate-lines)
(after! org
(setq org-directory "~/Org/"
org-agenda-files '("~/Org/agenda.org")
org-default-notes-file (expand-file-name "notes.org" org-directory)
org-ellipsis " ▼ "
org-log-done 'time
org-journal-dir "~/Org/journal/"
org-journal-date-format "%B %d, %Y (%A)"
org-journal-file-format "%Y-%m-%d.org"
;; ex. of org-link-abbrev-alist in action
;; [[arch-wiki:Name_of_Page][Description]]
org-link-abbrev-alist
'(("google" . "http://www.google.com/search?q=")
("arch-wiki" . "https://wiki.archlinux.org/index.php/")
("ddg" . "https://duckduckgo.com/?q=")
("wiki" . "https://en.wikipedia.org/wiki/"))
org-todo-keywords '((sequence "TODO(t)" "PROJ(p)" "VIDEO(v)" "WAIT(w)" "|" "DONE(d)" "CANCELLED(c)" )))
;; Nicer bullets in org-mode
(require 'org-bullets)
(add-hook 'org-mode-hook (lambda () (org-bullets-mode 1))))
(setq shell-file-name "/bin/fish")
(setq eshell-aliases-file "~/.doom.d/aliases")
(defun prefer-horizontal-split ()
(set-variable 'split-height-threshold nil t)
(set-variable 'split-width-threshold 40 t)) ; make this as low as needed
(add-hook 'markdown-mode-hook 'prefer-horizontal-split)
:desc "List bookmarks"
"b L" #'list-bookmarks
:leader
:desc "Save current bookmarks to bookmark file"
"b w" #'bookmark-save)
(setq centaur-tabs-set-bar 'over
centaur-tabs-set-icons t
@ -55,125 +14,34 @@
centaur-tabs-modified-marker "•")
(map! :leader
:desc "Toggle tabs on/off"
"t o" #'centaur-tabs-local-mode
:leader
:desc "Switch tab groups"
"t s" #'centaur-tabs-counsel-switch-group
:leader
:desc "Toggle tab groups"
"t t" #'centaur-tabs-toggle-groups
:leader
:desc "Kill all buffers in group"
"t k" #'centaur-tabs-kill-all-buffer-in-current-group
:leader
:desc "Next tab"
"t n" #'centaur-tabs-forward
:leader
:desc "Previous tab"
"t p" #'centaur-tabs-backward)
(require 'ox-groff)
"t c" #'centaur-tabs-local-mode)
(evil-define-key 'normal centaur-tabs-mode-map (kbd "g <right>") 'centaur-tabs-forward ; default Doom binding is 'g t'
(kbd "g <left>") 'centaur-tabs-backward ; default Doom binding is 'g T'
(kbd "g <down>") 'centaur-tabs-forward-group
(kbd "g <up>") 'centaur-tabs-backward-group)
(map! :leader
:desc "Edit agenda file"
"/ a" #'(lambda () (interactive) (find-file "~/Org/agenda.org")))
(map! :leader
:desc "Edit doom config.org"
"/ c" #'(lambda () (interactive) (find-file "~/.doom.d/config.org")))
(map! :leader
:desc "Edit eshell aliases"
"/ e" #'(lambda () (interactive) (find-file "~/.doom.d/aliases")))
(map! :leader
:desc "Edit doom init.el"
"/ i" #'(lambda () (interactive) (find-file "~/.doom.d/init.el")))
(map! :leader
:desc "Edit doom packages.el"
"/ p" #'(lambda () (interactive) (find-file "~/.doom.d/packages.el")))
(map! :leader
:desc "Ssh into distrotube.com"
"/ s" #'(lambda () (interactive) (find-file "/scp:derek@distrotube.com")))
(map! :leader
:desc "Ssh into distrotube.com"
"\\ d" #'(lambda () (interactive) (find-file "/scp:derek@distrotube.com")))
(map! :leader
:desc "Ssh into my nextcloud"
"\\ n" #'(lambda () (interactive) (find-file "/scp:derek@distrotube.net")))
(map!
(:after dired
(:map dired-mode-map
:leader
"l i" #'peep-dired
)))
:desc "Dired"
"d d" #'dired
:leader
:desc "Dired jump to current"
"d j" #'dired-jump
(:after dired
(:map dired-mode-map
:leader
:desc "Peep-dired image previews"
"d p" #'peep-dired
:leader
:desc "Dired view file"
"d v" #'dired-view-file)))
(evil-define-key 'normal peep-dired-mode-map (kbd "j") 'peep-dired-next-file
(kbd "k") 'peep-dired-prev-file)
(add-hook 'peep-dired-hook 'evil-normalize-keymaps)
(after! neotree
(setq neo-smart-open t
neo-window-fixed-size nil))
(after! doom-themes
(setq doom-neotree-enable-variable-pitch t))
(require 'sublimity-scroll)
(require 'sublimity-map)
;; (require 'sublimity-attractive)
(sublimity-mode 0)
(setq browse-url-browser-function 'eww-browse-url)
(use-package emms
:ensure t
:config
(require 'emms-setup)
(require 'emms-info)
(require 'emms-cue)
(require 'emms-mode-line)
(require 'emms-playing-time)
(setq emms-source-file-default-directory "~/Music/Non-Classical/70s-80s/")
(setq emms-playlist-buffer-name "*Music*")
(setq emms-info-asynchronously t)
(unless (eq system-type 'windows-nt)
(setq emms-source-file-directory-tree-function
'emms-source-file-directory-tree-find))
(emms-all)
(emms-default-players)
(emms-mode-line 1)
(emms-playing-time 1))
(add-to-list 'load-path "/usr/local/share/emacs/site-lisp/mu4e")
(require 'mu4e)
(require 'smtpmail)
(setq mu4e-get-mail-command "mbsync -c ~/.emacs.d/mu4e/.mbsyncrc -a"
mu4e-update-interval 300
user-mail-address "derek@distrotube.com"
user-full-name "Derek Taylor"
mu4e-compose-signature
(concat
"Derek Taylor\n"
"http://www.youtube.com/DistroTube\n")
message-send-mail-function 'smtpmail-send-it
starttls-use-gnutls t
smtpmail-starttls-credentials '(("smtp.1and1.com" 587 nil nil))
smtpmail-auth-credentials '(("smtp.1and1.com" 587 "derek@distrotube.com" nil))
smtpmail-default-smtp-server "smtp.1and1.com"
smtpmail-smtp-server "smtp.1and1.com"
smtpmail-smtp-service 587)
(setq mu4e-sent-folder "/Sent"
mu4e-drafts-folder "/Drafts"
mu4e-trash-folder "/Trash"
mu4e-refile-folder "/All Mail")
(setq mu4e-maildir-shortcuts
'(("/derek-distrotube/Inbox" . ?i)
("/derek-distrotube/Sent" . ?s)
("/derek-distrotube/All Mail" . ?a)
("/derek-distrotube/Trash" . ?t)))
(after! mastodon
(setq mastodon-instance-url "https://mastodon.technology/"))
(setq md4rd-subs-active '(archlinux commandline DistroTube DoomEmacs emacs freesoftware lbry linux linux4noobs linuxmasterrace linnuxquestions orgmode qutebrowser suckless Ubuntu unixporn UsabilityPorn vim xmonad))
(setq doom-theme 'doom-one)
(map! :leader
:desc "Load new theme"
"h t" #'counsel-load-theme)
(custom-set-variables
'(elfeed-feeds
@ -193,3 +61,236 @@
("https://betanews.com/feed" betanews linux)
("http://lxer.com/module/newswire/headlines.rss" lxer linux)
("https://distrowatch.com/news/dwd.xml" distrowatch linux)))))
(require 'emms-setup)
(require 'emms-info)
(require 'emms-cue)
(require 'emms-mode-line)
(require 'emms-playing-time)
(emms-all)
(emms-default-players)
(emms-mode-line 1)
(emms-playing-time 1)
(setq emms-source-file-default-directory "~/Music/Non-Classical/70s-80s/"
emms-playlist-buffer-name "*Music*"
emms-info-asynchronously t
emms-source-file-directory-tree-function 'emms-source-file-directory-tree-find)
(map! :leader
:desc "Go to emms playlist"
"a a" #'emms-playlist-mode-go
:leader
:desc "Emms pause track"
"a x" #'emms-pause
:leader
:desc "Emms stop track"
"a s" #'emms-stop
:leader
:desc "Emms play previous track"
"a p" #'emms-previous
:leader
:desc "Emms play next track"
"a n" #'emms-next)
(map! :leader
:desc "Evaluate elisp in buffer"
"e b" #'eval-buffer
:leader
:desc "Evaluate defun"
"e d" #'eval-defun
:leader
:desc "Evaluate elisp expression"
"e e" #'eval-expression
:leader
:desc "Evaluate last sexpression"
"e l" #'eval-last-sexp
:leader
:desc "Evaluate elisp in region"
"e r" #'eval-region)
(setq browse-url-browser-function 'eww-browse-url)
(map! :leader
:desc "Eww web browser"
"e w" #'eww
:leader
:desc "Eww reload page"
"e R" #'eww-reload
:leader
:desc "Search web for text between BEG/END"
"s w" #'eww-search-words)
(setq doom-font (font-spec :family "SauceCodePro Nerd Font Mono" :size 15)
doom-variable-pitch-font (font-spec :family "Ubuntu" :size 15)
doom-big-font (font-spec :family "SauceCodePro Nerd Font Mono" :size 24))
(after! doom-themes
(setq doom-themes-enable-bold t
doom-themes-enable-italic t))
(custom-set-faces!
'(font-lock-comment-face :slant italic)
'(font-lock-keyword-face :slant italic))
(map! :leader
:desc "Ivy push view"
"v p" #'ivy-push-view
:leader
:desc "Ivy switch view"
"v s" #'ivy-switch-view)
(setq display-line-numbers-type t)
(map! :leader
:desc "Toggle truncate lines"
"t t" #'toggle-truncate-lines)
(require 'ox-groff)
(after! mastodon
(setq mastodon-instance-url "https://mastodon.technology/"))
(setq md4rd-subs-active '(archlinux commandline DistroTube DoomEmacs emacs freesoftware lbry linux linux4noobs linuxmasterrace linnuxquestions orgmode qutebrowser suckless Ubuntu unixporn UsabilityPorn vim xmonad))
(add-to-list 'load-path "/usr/local/share/emacs/site-lisp/mu4e")
(require 'mu4e)
(require 'smtpmail)
(setq mu4e-get-mail-command "mbsync -c ~/.emacs.d/mu4e/.mbsyncrc -a"
mu4e-update-interval 300
user-mail-address "derek@distrotube.com"
user-full-name "Derek Taylor"
mu4e-compose-signature
(concat
"Derek Taylor\n"
"http://www.youtube.com/DistroTube\n")
message-send-mail-function 'smtpmail-send-it
starttls-use-gnutls t
smtpmail-starttls-credentials '(("smtp.1and1.com" 587 nil nil))
smtpmail-auth-credentials '(("smtp.1and1.com" 587 "derek@distrotube.com" nil))
smtpmail-default-smtp-server "smtp.1and1.com"
smtpmail-smtp-server "smtp.1and1.com"
smtpmail-smtp-service 587
mu4e-sent-folder "/Sent"
mu4e-drafts-folder "/Drafts"
mu4e-trash-folder "/Trash"
mu4e-refile-folder "/All Mail"
mu4e-maildir-shortcuts
'(("/derek-distrotube/Inbox" . ?i)
("/derek-distrotube/Sent" . ?s)
("/derek-distrotube/All Mail" . ?a)
("/derek-distrotube/Trash" . ?t)))
(after! neotree
(setq neo-smart-open t
neo-window-fixed-size nil))
(after! doom-themes
(setq doom-neotree-enable-variable-pitch t))
(map! :leader
:desc "Toggle neotree file viewer"
"t n" #'toggle-neotree)
(map! :leader
:desc "Edit agenda file"
"/ a" #'(lambda () (interactive) (find-file "~/Org/agenda.org"))
:leader
:desc "Edit doom config.org"
"/ c" #'(lambda () (interactive) (find-file "~/.doom.d/config.org"))
:leader
:desc "Edit eshell aliases"
"/ e" #'(lambda () (interactive) (find-file "~/.doom.d/aliases"))
:leader
:desc "Edit doom init.el"
"/ i" #'(lambda () (interactive) (find-file "~/.doom.d/init.el"))
:leader
:desc "Edit doom packages.el"
"/ p" #'(lambda () (interactive) (find-file "~/.doom.d/packages.el")))
(after! org
(require 'org-bullets) ; Nicer bullets in org-mode
(add-hook 'org-mode-hook (lambda () (org-bullets-mode 1)))
(setq org-directory "~/Org/"
org-agenda-files '("~/Org/agenda.org")
org-default-notes-file (expand-file-name "notes.org" org-directory)
org-ellipsis " ▼ "
org-log-done 'time
org-journal-dir "~/Org/journal/"
org-journal-date-format "%B %d, %Y (%A)"
org-journal-file-format "%Y-%m-%d.org"
org-hide-emphasis-markers t
;; ex. of org-link-abbrev-alist in action
;; [[arch-wiki:Name_of_Page][Description]]
org-link-abbrev-alist ; This overwrites the default Doom org-link-abbrev-list
'(("google" . "http://www.google.com/search?q=")
("arch-wiki" . "https://wiki.archlinux.org/index.php/")
("ddg" . "https://duckduckgo.com/?q=")
("wiki" . "https://en.wikipedia.org/wiki/"))
org-todo-keywords ; This overwrites the default Doom org-todo-keywords
'((sequence
"TODO(t)" ; A task that is ready to be tackled
"BLOG(b)" ; Blog writing assignments
"GYM(g)" ; Things to accomplish at the gym
"PROJ(p)" ; A project that contains other tasks
"VIDEO(v)" ; Video assignments
"WAIT(w)" ; Something is holding up this task
"|" ; The pipe necessary to separate "active" states and "inactive" states
"DONE(d)" ; Task has been completed
"CANCELLED(c)" )))) ; Task has been cancelled
(map! :leader
:desc "Copy to register"
"r c" #'copy-to-register
:leader
:desc "Frameset to register"
"r f" #'frameset-to-register
:leader
:desc "Insert contents of register"
"r i" #'insert-register
:leader
:desc "Jump to register"
"r j" #'jump-to-register
:leader
:desc "List registers"
"r l" #'list-registers
:leader
:desc "Number to register"
"r n" #'number-to-register
:leader
:desc "Interactively choose a register"
"r r" #'counsel-register
:leader
:desc "View a register"
"r v" #'view-register
:leader
:desc "Window configuration to register"
"r w" #'window-configuration-to-register
:leader
:desc "Increment register"
"r +" #'increment-register
:leader
:desc "Point to register"
"r SPC" #'point-to-register)
(map! :leader
:desc "Ssh into distrotube.com"
"\\ d" #'(lambda () (interactive) (find-file "/scp:derek@distrotube.com"))
:leader
:desc "Ssh into my nextcloud"
"\\ n" #'(lambda () (interactive) (find-file "/scp:derek@distrotube.net")))
(setq shell-file-name "/bin/fish"
eshell-aliases-file "~/.doom.d/aliases")
(defun prefer-horizontal-split ()
(set-variable 'split-height-threshold nil t)
(set-variable 'split-width-threshold 40 t)) ; make this as low as needed
(add-hook 'markdown-mode-hook 'prefer-horizontal-split)
(map! :leader
:desc "Clone indirect buffer other window"
"b c" #'clone-indirect-buffer-other-window)
(require 'sublimity-scroll)
(require 'sublimity-map)
(require 'sublimity-attractive)
(sublimity-mode 0)
(map! :leader
:desc "Winner redo"
"w <right>" #'winner-redo
:leader
:desc "Winner undo"
"w <left>" #'winner-undo)

723
.doom.d/config.org
View file

@ -1,103 +1,60 @@
#+TITLE: DT's Doom Emacs Config
#+AUTHOR: Derek Taylor (DT)
#+DESCRIPTION: DT's personal Doom Emacs config.
#+STARTUP: showeverything
* FONTS
Doom exposes five (optional) variables for controlling fonts in Doom. Here
are the three important ones:
+ `doom-font' -- standard monospace font that is used for most things in Emacs.
+ `doom-variable-pitch-font' -- variable font which is useful in some Emacs plugins.
+ `doom-big-font' -- used in `doom-big-font-mode'; useful for presentations.
* TABLE OF CONTENTS :toc:
- [[#about-this-config][ABOUT THIS CONFIG]]
- [[#bookmarks-and-buffers][BOOKMARKS AND BUFFERS]]
- [[#centaur-tabs][CENTAUR-TABS]]
- [[#dired][DIRED]]
- [[#doom-theme][DOOM THEME]]
- [[#elfeed][ELFEED]]
- [[#emms][EMMS]]
- [[#evaluate-elisp-expressions][EVALUATE ELISP EXPRESSIONS]]
- [[#eww][EWW]]
- [[#fonts][FONTS]]
- [[#ivy][IVY]]
- [[#line-settings][LINE SETTINGS]]
- [[#manpages][MANPAGES]]
- [[#mastodon][MASTODON]]
- [[#md4rd][MD4RD]]
- [[#mu4e][MU4E]]
- [[#neotree][NEOTREE]]
- [[#open-specific-files][OPEN SPECIFIC FILES]]
- [[#org-mode][ORG MODE]]
- [[#registers][REGISTERS]]
- [[#remote-connections][REMOTE CONNECTIONS]]
- [[#shells][SHELLS]]
- [[#splits][SPLITS]]
- [[#sublimity][SUBLIMITY]]
- [[#winner-mode][WINNER MODE]]
* ABOUT THIS CONFIG
This is my personal Doom Emacs config. Doom Emacs is a distribution of Emacs that uses the "evil" keybindings (Vim keybindings) and includes a number of nice extensions and a bit of configuration out of the box. I am maintaing this config not just for myself, but also for those that want to explore some of what is possible with Emacs. I will add a lot of examples of plugins and settings, some of them I may not even use personally. I do this because many people following me on YouTube look at my configs as "documentation".
* BOOKMARKS AND BUFFERS
Doom Emacs uses 'SPC b' for keybindings related to bookmarks and buffers. Bookmarks are somewhat like registers in that they record positions you can jump to. Unlike registers, they have long names, and they persist automatically from one Emacs session to the next. The prototypical use of bookmarks is to record where you were reading in various files. Regarding /buffers/, the text you are editing in Emacs resides in an object called a /buffer/. Each time you visit a file, a buffer is used to hold the file’s text. Each time you invoke Dired, a buffer is used to hold the directory listing.
#+BEGIN_SRC emacs-lisp
(setq doom-font (font-spec :family "SauceCodePro Nerd Font" :size 15)
doom-variable-pitch-font (font-spec :family "Ubuntu" :size 15)
doom-big-font (font-spec :family "SauceCodePro Nerd Font" :size 24))
(after! doom-themes
(setq
doom-themes-enable-bold t
doom-themes-enable-italic t))
#+END_SRC
* DOOM THEME
Setting the theme to doom-one. To try out new themes, I set a keybinding for counsel-load-theme with SPC-h-t.
#+BEGIN_SRC emacs-lisp
(setq doom-theme 'doom-one)
(map! :leader
:desc "Load new theme"
"h t" #'counsel-load-theme)
:desc "List bookmarks"
"b L" #'list-bookmarks
:leader
:desc "Save current bookmarks to bookmark file"
"b w" #'bookmark-save)
#+END_SRC
* LINE SETTINGS
I have toggled display-line-numbers-type so I have line numbers displayed. I also set a keybinding to be able to toggle-truncate-lines with SPC-l-t.
* CENTAUR-TABS
To use tabs in Doom Emacs, be sure to uncomment "tabs" in Doom's init.el. Displays tabs at the top of the window similar to tabbed web browsers such as Firefox. I don't actually use tabs in Emacs. I placed this in my config to help others who may want tabs. In the default configuration of Doom Emacs, 'SPC t' is used for "toggle" keybindings, so I choose 'SPC t c' to toggle centaur-tabs. The "g" prefix for keybindings is used for a bunch of evil keybindings in Doom, but "g" plus the arrow keys were not used, so I thought I would bind those for tab navigation. But I did leave the default "g t" and "g T" intact if you prefer to use those for centaur-tabs-forward/backward.
#+BEGIN_SRC emacs-lisp
(setq display-line-numbers-type t)
(map! :leader
:desc "Toggle truncate lines"
"l t" #'toggle-truncate-lines)
#+END_SRC
* ORG MODE
Note that I wrapped most of this in (after! org). Without this, my settings might be evaluated too early, which will result in my settings being overwritten by Doom's defaults. I have also enabled org-journal by adding (+journal) to the org section of Doom Emacs' init.el.
#+BEGIN_SRC emacs-lisp
(after! org
(setq org-directory "~/Org/"
org-agenda-files '("~/Org/agenda.org")
org-default-notes-file (expand-file-name "notes.org" org-directory)
org-ellipsis " ▼ "
org-log-done 'time
org-journal-dir "~/Org/journal/"
org-journal-date-format "%B %d, %Y (%A)"
org-journal-file-format "%Y-%m-%d.org"
;; ex. of org-link-abbrev-alist in action
;; [[arch-wiki:Name_of_Page][Description]]
org-link-abbrev-alist
'(("google" . "http://www.google.com/search?q=")
("arch-wiki" . "https://wiki.archlinux.org/index.php/")
("ddg" . "https://duckduckgo.com/?q=")
("wiki" . "https://en.wikipedia.org/wiki/"))
org-todo-keywords '((sequence "TODO(t)" "PROJ(p)" "VIDEO(v)" "WAIT(w)" "|" "DONE(d)" "CANCELLED(c)" )))
;; Nicer bullets in org-mode
(require 'org-bullets)
(add-hook 'org-mode-hook (lambda () (org-bullets-mode 1))))
#+END_SRC
* SHELLS
The =inferior shell= is what you get when you run M-x shell. It is a wrapper around your default shell. It is governed by explicit-shell-file-name, the ESHELL environment variable or shell-file-name, in that order. Below, I demonstrate how to change shell to use fish even though the default shell may be something else. This will also make M-x term and M-x ansi-term default to fish, though it asks you to confirm before it launches.
#+BEGIN_SRC emacs-lisp
(setq shell-file-name "/bin/fish")
#+END_SRC
Sets the file for where I place my eshell aliases.
#+BEGIN_SRC emacs-lisp
(setq eshell-aliases-file "~/.doom.d/aliases")
#+END_SRC
* SPLITS
Force splits to open on the right
#+BEGIN_SRC emacs-lisp
(defun prefer-horizontal-split ()
(set-variable 'split-height-threshold nil t)
(set-variable 'split-width-threshold 40 t)) ; make this as low as needed
(add-hook 'markdown-mode-hook 'prefer-horizontal-split)
#+END_SRC
* TABS (centaur-tabs)
To use tabs in Doom Emacs, be sure to uncomment "tabs" in Doom's init.el. Displays tabs at the top of the window similar to tabbed web browsers such as Firefox. I don't actually use tabs in Emacs. I placed this in my config to help others who may want tabs. In the default configuration of Doom Emacs, there are just a few keybindings that use SPC-t, so it wasn't too difficult to find appropriate keybindings using that prefix for "tabs".
| COMMAND | DESCRIPTION | KEYBINDING |
|-----------------------------------------------+---------------------------+------------|
| centaur-tabs-local-mode | Toggle tabs on/off | SPC-t-o |
| centaur-tabs-counsel-switch-group | Switch tab groups | SPC-t-s |
| centaur-tabs-toggle-groups | Toggle tab groups | SPC-t-t |
| centaur-tabs-kill-all-buffer-in-current-group | Kill all buffers in group | SPC-t-k |
| centaur-tabs-forward | Next tab | SPC-t-n |
| centaur-tabs-backward | Previous tab | SPC-t-k |
| COMMAND | DESCRIPTION | KEYBINDING |
|-----------------------------+--------------------+------------------|
| centaur-tabs-local-mode | Toggle tabs on/off | SPC t c |
| centaur-tabs-forward | Next tab | g <right> or g t |
| centaur-tabs-backward | Previous tab | g <left> or g T |
| centaur-tabs-forward-group | Next tab group | g <down> |
| centaur-tabs-backward-group | Previous tab group | g <up> |
#+BEGIN_SRC emacs-lisp
(setq centaur-tabs-set-bar 'over
@ -109,195 +66,56 @@ To use tabs in Doom Emacs, be sure to uncomment "tabs" in Doom's init.el. Displ
centaur-tabs-modified-marker "•")
(map! :leader
:desc "Toggle tabs on/off"
"t o" #'centaur-tabs-local-mode
:leader
:desc "Switch tab groups"
"t s" #'centaur-tabs-counsel-switch-group
:leader
:desc "Toggle tab groups"
"t t" #'centaur-tabs-toggle-groups
:leader
:desc "Kill all buffers in group"
"t k" #'centaur-tabs-kill-all-buffer-in-current-group
:leader
:desc "Next tab"
"t n" #'centaur-tabs-forward
:leader
:desc "Previous tab"
"t p" #'centaur-tabs-backward)
"t c" #'centaur-tabs-local-mode)
(evil-define-key 'normal centaur-tabs-mode-map (kbd "g <right>") 'centaur-tabs-forward ; default Doom binding is 'g t'
(kbd "g <left>") 'centaur-tabs-backward ; default Doom binding is 'g T'
(kbd "g <down>") 'centaur-tabs-forward-group
(kbd "g <up>") 'centaur-tabs-backward-group)
#+END_SRC
* MANPAGES
* DIRED
Dired is the file manager within Emacs. Below, I setup keybindings for image previews (peep-dired). Doom Emacs does not use 'SPC d' for any of its keybindings, so I've chosen the format of 'SPC d' plus 'key'.
#+BEGIN_SRC emacs-lisp
(require 'ox-groff)
#+END_SRC
* OPEN SPECIFIC FILES
Keybindings to open files that I work with all the time using the find-file command, which is the interactive file search you see using C-x C-f in vanilla Emacs or SPC-f-f in Doom Emacs. These keybindings use find-file non-interactively since we specify exactly what file to open. By default, Doom Emacs does not use SPC-/, so the format I use for these bindings is SPC-/ plus "key".
| PATH TO FILE | DESCRIPTION | KEYBINDING |
|------------------------+-------------------------+------------|
| ~/Org/agenda.org | Edit agenda file | SPC-/-a |
| ~/.doom.d/config.org" | Edit doom config.org | SPC-/-c |
| ~/.doom.d/aliases" | Edit eshell aliases | SPC-/-e |
| ~/.doom.d/init.el" | Edit doom init.el | SPC-/-i |
| ~/.doom.d/packages.el" | Edit doom packages.el | SPC-/-p |
| COMMAND | DESCRIPTION | KEYBINDING |
|-------------------------------------------+------------------------------------------+------------|
| dired | Open dired file manager | SPC d d |
| dired-jump | Jump to current directory in dired | SPC d j |
| (in dired) peep-dired | Toggle image previews within dired | SPC d p |
| (in dired) dired-view-file | View file in dired | SPC d v |
| (in peep-dired-mode) peep-dired-next-file | Move to next file in peep-dired-mode | j |
| (in peep-dired-mode) peep-dired-prev-file | Move to previous file in peep-dired-mode | k |
#+BEGIN_SRC emacs-lisp
(map! :leader
:desc "Edit agenda file"
"/ a" #'(lambda () (interactive) (find-file "~/Org/agenda.org")))
(map! :leader
:desc "Edit doom config.org"
"/ c" #'(lambda () (interactive) (find-file "~/.doom.d/config.org")))
(map! :leader
:desc "Edit eshell aliases"
"/ e" #'(lambda () (interactive) (find-file "~/.doom.d/aliases")))
(map! :leader
:desc "Edit doom init.el"
"/ i" #'(lambda () (interactive) (find-file "~/.doom.d/init.el")))
(map! :leader
:desc "Edit doom packages.el"
"/ p" #'(lambda () (interactive) (find-file "~/.doom.d/packages.el")))
(map! :leader
:desc "Ssh into distrotube.com"
"/ s" #'(lambda () (interactive) (find-file "/scp:derek@distrotube.com")))
#+END_SRC
* REMOTE CONNECTIONS
Keybindings for ssh'ing into remote machines. By default, Doom Emacs does not use SPC-\, so the format I use for these bindings is SPC-\ plus "key".
| DESCRIPTION | KEYBINDING |
|-------------------------+------------|
| Ssh into distrotube.com | SPC-\-d |
| Ssh into my nextcloud | SPC-\-n |
#+BEGIN_SRC emacs-lisp
(map! :leader
:desc "Ssh into distrotube.com"
"\\ d" #'(lambda () (interactive) (find-file "/scp:derek@distrotube.com")))
(map! :leader
:desc "Ssh into my nextcloud"
"\\ n" #'(lambda () (interactive) (find-file "/scp:derek@distrotube.net")))
#+END_SRC
* FILE MANAGER (dired)
Image previews in dired
#+BEGIN_SRC emacs-lisp
(map!
(:after dired
(:map dired-mode-map
:leader
"l i" #'peep-dired
)))
:desc "Dired"
"d d" #'dired
:leader
:desc "Dired jump to current"
"d j" #'dired-jump
(:after dired
(:map dired-mode-map
:leader
:desc "Peep-dired image previews"
"d p" #'peep-dired
:leader
:desc "Dired view file"
"d v" #'dired-view-file)))
(evil-define-key 'normal peep-dired-mode-map (kbd "j") 'peep-dired-next-file
(kbd "k") 'peep-dired-prev-file)
(add-hook 'peep-dired-hook 'evil-normalize-keymaps)
#+END_SRC
* FILE TREE VIEWER (Neotree)
When you open neotree, it jumps to the current file thanks to neo-smart-open. The neo-window-fixed-size setting makes the neotree width be adjustable.
* DOOM THEME
Setting the theme to doom-one. To try out new themes, I set a keybinding for counsel-load-theme with 'SPC h t'.
#+BEGIN_SRC emacs-lisp
(after! neotree
(setq neo-smart-open t
neo-window-fixed-size nil))
(after! doom-themes
(setq doom-neotree-enable-variable-pitch t))
(setq doom-theme 'doom-one)
(map! :leader
:desc "Load new theme"
"h t" #'counsel-load-theme)
#+END_SRC
* SUBLIMITY
The sublimity extension offers Sublime-like smooth scrolling and an experimental minimap. You can also require sublimity-attractive if you want to center everything for a distraction-free mode. I do not use this extension, hence the reason I have sublimity-mode set to 0. Set this to 1 to enable it.
#+BEGIN_SRC emacs-lisp
(require 'sublimity-scroll)
(require 'sublimity-map)
;; (require 'sublimity-attractive)
(sublimity-mode 0)
#+END_SRC
* BROWSER (eww)
Set urls to open in a specific browser. I set this to use Emacs' own browser (eww).
#+BEGIN_SRC emacs-lisp
(setq browse-url-browser-function 'eww-browse-url)
#+END_SRC
* AUDIO PLAYER (emms)
One of the media players available for Emacs is emms, which stands for Emacs Multimedia System.
#+BEGIN_SRC emacs-lisp
(use-package emms
:ensure t
:config
(require 'emms-setup)
(require 'emms-info)
(require 'emms-cue)
(require 'emms-mode-line)
(require 'emms-playing-time)
(setq emms-source-file-default-directory "~/Music/Non-Classical/70s-80s/")
(setq emms-playlist-buffer-name "*Music*")
(setq emms-info-asynchronously t)
(unless (eq system-type 'windows-nt)
(setq emms-source-file-directory-tree-function
'emms-source-file-directory-tree-find))
(emms-all)
(emms-default-players)
(emms-mode-line 1)
(emms-playing-time 1))
#+END_SRC
* EMAIL CLIENT (mu4e)
Setting up mu4e which is an email client that works within emacs. You must install mu4e and mbsync through your Linux distribution's package manager. Setting up smtp for sending mail. Make sure the gnutls command line utils are installed. Package 'gnutls-bin' in Debian/Ubuntu, and 'gnutls' in Arch.
#+BEGIN_SRC emacs-lisp
(add-to-list 'load-path "/usr/local/share/emacs/site-lisp/mu4e")
(require 'mu4e)
(require 'smtpmail)
(setq mu4e-get-mail-command "mbsync -c ~/.emacs.d/mu4e/.mbsyncrc -a"
mu4e-update-interval 300
user-mail-address "derek@distrotube.com"
user-full-name "Derek Taylor"
mu4e-compose-signature
(concat
"Derek Taylor\n"
"http://www.youtube.com/DistroTube\n")
message-send-mail-function 'smtpmail-send-it
starttls-use-gnutls t
smtpmail-starttls-credentials '(("smtp.1and1.com" 587 nil nil))
smtpmail-auth-credentials '(("smtp.1and1.com" 587 "derek@distrotube.com" nil))
smtpmail-default-smtp-server "smtp.1and1.com"
smtpmail-smtp-server "smtp.1and1.com"
smtpmail-smtp-service 587)
(setq mu4e-sent-folder "/Sent"
mu4e-drafts-folder "/Drafts"
mu4e-trash-folder "/Trash"
mu4e-refile-folder "/All Mail")
(setq mu4e-maildir-shortcuts
'(("/derek-distrotube/Inbox" . ?i)
("/derek-distrotube/Sent" . ?s)
("/derek-distrotube/All Mail" . ?a)
("/derek-distrotube/Trash" . ?t)))
#+END_SRC
* MASTODON CLIENT (mastodon)
Note that I wrapped my settings with (after! mastodon). Without this, my settings will be overwritten by the default settings for this module, which is "mastodon.social".
#+BEGIN_SRC emacs-lisp
(after! mastodon
(setq mastodon-instance-url "https://mastodon.technology/"))
#+END_SRC
* REDDIT CLIENT (md4rd)
An Emacs reddit client.
#+BEGIN_SRC emacs-lisp
(setq md4rd-subs-active '(archlinux commandline DistroTube DoomEmacs emacs freesoftware lbry linux linux4noobs linuxmasterrace linnuxquestions orgmode qutebrowser suckless Ubuntu unixporn UsabilityPorn vim xmonad))
#+END_SRC
* RSS READER (elfeed)
* ELFEED
An RSS newsfeed reader for Emacs.
#+BEGIN_SRC emacs-lisp
@ -320,3 +138,380 @@ An RSS newsfeed reader for Emacs.
("http://lxer.com/module/newswire/headlines.rss" lxer linux)
("https://distrowatch.com/news/dwd.xml" distrowatch linux)))))
#+END_SRC
* EMMS
One of the media players available for Emacs is emms, which stands for Emacs Multimedia System. By default, Doom Emacs does not use 'SPC a',' so the format I use for these bindings is 'SPC a' plus 'key'.
| COMMAND | DESCRIPTION | KEYBINDING |
|-----------------------+-----------------------------------+------------|
| emms-playlist-mode-go | /Switch to the playlist buffer/ | SPC a a |
| emms-pause | /Pause the track/ | SPC a x |
| emms-stop | /Stop the track/ | SPC a s |
| emms-previous | /Play previous track in playlist/ | SPC a p |
| emms-next | /Play next track in playlist/ | SPC a n |
#+BEGIN_SRC emacs-lisp
(require 'emms-setup)
(require 'emms-info)
(require 'emms-cue)
(require 'emms-mode-line)
(require 'emms-playing-time)
(emms-all)
(emms-default-players)
(emms-mode-line 1)
(emms-playing-time 1)
(setq emms-source-file-default-directory "~/Music/Non-Classical/70s-80s/"
emms-playlist-buffer-name "*Music*"
emms-info-asynchronously t
emms-source-file-directory-tree-function 'emms-source-file-directory-tree-find)
(map! :leader
:desc "Go to emms playlist"
"a a" #'emms-playlist-mode-go
:leader
:desc "Emms pause track"
"a x" #'emms-pause
:leader
:desc "Emms stop track"
"a s" #'emms-stop
:leader
:desc "Emms play previous track"
"a p" #'emms-previous
:leader
:desc "Emms play next track"
"a n" #'emms-next)
#+END_SRC
* EVALUATE ELISP EXPRESSIONS
Changing some keybindings from their defaults to better fit with Doom Emacs, and to avoid conflicts with my window managers which sometimes use the control key in their keybindings. By default, Doom Emacs does not use 'SPC e' for anything, so I choose to use the format 'SPC e' plus 'key' for these (I also use 'SPC e' for 'eww' keybindings).
| COMMAND | DESCRIPTION | KEYBINDING |
|-----------------+------------------------------------------------+------------|
| eval-buffer | /Evaluate elisp in buffer/ | SPC e b |
| eval-defun | /Evaluate the defun containing or after point/ | SPC e d |
| eval-expression | /Evaluate an elisp expression/ | SPC e e |
| eval-last-sexp | /Evaluate elisp expression before point/ | SPC e l |
| eval-region | /Evaluate elisp in region/ | SPC e r |
#+Begin_src emacs-lisp
(map! :leader
:desc "Evaluate elisp in buffer"
"e b" #'eval-buffer
:leader
:desc "Evaluate defun"
"e d" #'eval-defun
:leader
:desc "Evaluate elisp expression"
"e e" #'eval-expression
:leader
:desc "Evaluate last sexpression"
"e l" #'eval-last-sexp
:leader
:desc "Evaluate elisp in region"
"e r" #'eval-region)
#+END_SRC
* EWW
EWW is the Emacs Web Wowser, the builtin browser in Emacs. Below I set urls to open in a specific browser (eww) with browse-url-browser-function. By default, Doom Emacs does not use 'SPC e' for anything, so I choose to use the format 'SPC e' plus 'key' for these (I also use 'SPC e' for 'eval' keybindings). I chose to use 'SPC s w' for eww-search-words because Doom Emacs uses 'SPC s' for 'search' commands.
#+BEGIN_SRC emacs-lisp
(setq browse-url-browser-function 'eww-browse-url)
(map! :leader
:desc "Eww web browser"
"e w" #'eww
:leader
:desc "Eww reload page"
"e R" #'eww-reload
:leader
:desc "Search web for text between BEG/END"
"s w" #'eww-search-words)
#+END_SRC
* FONTS
Settings related to fonts within Doom Emacs:
+ 'doom-font' -- standard monospace font that is used for most things in Emacs.
+ 'doom-variable-pitch-font' -- variable font which is useful in some Emacs plugins.
+ 'doom-big-font' -- used in doom-big-font-mode; useful for presentations.
+ 'font-lock-comment-face' -- for comments.
+ 'font-lock-keyword-face' -- for keywords with special significance, like ‘for’ and ‘if’ in C.
#+BEGIN_SRC emacs-lisp
(setq doom-font (font-spec :family "SauceCodePro Nerd Font Mono" :size 15)
doom-variable-pitch-font (font-spec :family "Ubuntu" :size 15)
doom-big-font (font-spec :family "SauceCodePro Nerd Font Mono" :size 24))
(after! doom-themes
(setq doom-themes-enable-bold t
doom-themes-enable-italic t))
(custom-set-faces!
'(font-lock-comment-face :slant italic)
'(font-lock-keyword-face :slant italic))
#+END_SRC
* IVY
Ivy is a generic completion mechanism for Emacs. By default, Doom Emacs does not use 'SPC v', so the format I use for these bindings is 'SPC v' plus 'key'.
#+BEGIN_SRC emacs-lisp
(map! :leader
:desc "Ivy push view"
"v p" #'ivy-push-view
:leader
:desc "Ivy switch view"
"v s" #'ivy-switch-view)
#+END_SRC
* LINE SETTINGS
I have toggled display-line-numbers-type so I have line numbers displayed. Doom Emacs uses 'SPC t' for "toggle" commands, so I choose 'SPC t t' for toggle-truncate-lines.
#+BEGIN_SRC emacs-lisp
(setq display-line-numbers-type t)
(map! :leader
:desc "Toggle truncate lines"
"t t" #'toggle-truncate-lines)
#+END_SRC
* MANPAGES
#+BEGIN_SRC emacs-lisp
(require 'ox-groff)
#+END_SRC
* MASTODON
Mastodon.el is a mastodon client for Emacs. Note that I wrapped my settings with (after! mastodon). Without this, my settings for the mastodon instance that I use would be overwritten by the default settings for this module, which is "mastodon.social".
#+BEGIN_SRC emacs-lisp
(after! mastodon
(setq mastodon-instance-url "https://mastodon.technology/"))
#+END_SRC
* MD4RD
An Emacs reddit client that stands for /Mode For Reddit/. Below, I'm setting the subreddits that I'm following.
#+BEGIN_SRC emacs-lisp
(setq md4rd-subs-active '(archlinux commandline DistroTube DoomEmacs emacs freesoftware lbry linux linux4noobs linuxmasterrace linnuxquestions orgmode qutebrowser suckless Ubuntu unixporn UsabilityPorn vim xmonad))
#+END_SRC
* MU4E
Setting up mu4e which is an email client that works within emacs. You must install mu4e and mbsync through your Linux distribution's package manager. Setting up smtp for sending mail. Make sure the gnutls command line utils are installed. Package 'gnutls-bin' in Debian/Ubuntu, and 'gnutls' in Arch.
#+BEGIN_SRC emacs-lisp
(add-to-list 'load-path "/usr/local/share/emacs/site-lisp/mu4e")
(require 'mu4e)
(require 'smtpmail)
(setq mu4e-get-mail-command "mbsync -c ~/.emacs.d/mu4e/.mbsyncrc -a"
mu4e-update-interval 300
user-mail-address "derek@distrotube.com"
user-full-name "Derek Taylor"
mu4e-compose-signature
(concat
"Derek Taylor\n"
"http://www.youtube.com/DistroTube\n")
message-send-mail-function 'smtpmail-send-it
starttls-use-gnutls t
smtpmail-starttls-credentials '(("smtp.1and1.com" 587 nil nil))
smtpmail-auth-credentials '(("smtp.1and1.com" 587 "derek@distrotube.com" nil))
smtpmail-default-smtp-server "smtp.1and1.com"
smtpmail-smtp-server "smtp.1and1.com"
smtpmail-smtp-service 587
mu4e-sent-folder "/Sent"
mu4e-drafts-folder "/Drafts"
mu4e-trash-folder "/Trash"
mu4e-refile-folder "/All Mail"
mu4e-maildir-shortcuts
'(("/derek-distrotube/Inbox" . ?i)
("/derek-distrotube/Sent" . ?s)
("/derek-distrotube/All Mail" . ?a)
("/derek-distrotube/Trash" . ?t)))
#+END_SRC
* NEOTREE
Neotree is a file tree viewer. When you open neotree, it jumps to the current file thanks to neo-smart-open. The neo-window-fixed-size setting makes the neotree width be adjustable. Doom Emacs had no keybindings set for neotree. Since Doom Emacs uses 'SPC t' for 'toggle' keybindings, I used 'SPC t n' for toggle-neotree.
#+BEGIN_SRC emacs-lisp
(after! neotree
(setq neo-smart-open t
neo-window-fixed-size nil))
(after! doom-themes
(setq doom-neotree-enable-variable-pitch t))
(map! :leader
:desc "Toggle neotree file viewer"
"t n" #'toggle-neotree)
#+END_SRC
* OPEN SPECIFIC FILES
Keybindings to open files that I work with all the time using the find-file command, which is the interactive file search that opens with 'C-x C-f' in GNU Emacs or 'SPC f f' in Doom Emacs. These keybindings use find-file non-interactively since we specify exactly what file to open. The format I use for these bindings is 'SPC /' plus 'key' since Doom Emacs does not use these keybindings.
| PATH TO FILE | DESCRIPTION | KEYBINDING |
|------------------------+-------------------------+------------|
| ~/Org/agenda.org | /Edit agenda file/ | SPC / a |
| ~/.doom.d/config.org" | /Edit doom config.org/ | SPC / c |
| ~/.doom.d/aliases" | /Edit eshell aliases/ | SPC / e |
| ~/.doom.d/init.el" | /Edit doom init.el/ | SPC / i |
| ~/.doom.d/packages.el" | /Edit doom packages.el/ | SPC / p |
#+BEGIN_SRC emacs-lisp
(map! :leader
:desc "Edit agenda file"
"/ a" #'(lambda () (interactive) (find-file "~/Org/agenda.org"))
:leader
:desc "Edit doom config.org"
"/ c" #'(lambda () (interactive) (find-file "~/.doom.d/config.org"))
:leader
:desc "Edit eshell aliases"
"/ e" #'(lambda () (interactive) (find-file "~/.doom.d/aliases"))
:leader
:desc "Edit doom init.el"
"/ i" #'(lambda () (interactive) (find-file "~/.doom.d/init.el"))
:leader
:desc "Edit doom packages.el"
"/ p" #'(lambda () (interactive) (find-file "~/.doom.d/packages.el")))
#+END_SRC
* ORG MODE
Note that I wrapped most of this in (after! org). Without this, my settings might be evaluated too early, which will result in my settings being overwritten by Doom's defaults. I have also enabled org-journal by adding (+journal) to the org section of my Doom Emacs' init.el.
#+BEGIN_SRC emacs-lisp
(after! org
(require 'org-bullets) ; Nicer bullets in org-mode
(add-hook 'org-mode-hook (lambda () (org-bullets-mode 1)))
(setq org-directory "~/Org/"
org-agenda-files '("~/Org/agenda.org")
org-default-notes-file (expand-file-name "notes.org" org-directory)
org-ellipsis " ▼ "
org-log-done 'time
org-journal-dir "~/Org/journal/"
org-journal-date-format "%B %d, %Y (%A)"
org-journal-file-format "%Y-%m-%d.org"
org-hide-emphasis-markers t
;; ex. of org-link-abbrev-alist in action
;; [[arch-wiki:Name_of_Page][Description]]
org-link-abbrev-alist ; This overwrites the default Doom org-link-abbrev-list
'(("google" . "http://www.google.com/search?q=")
("arch-wiki" . "https://wiki.archlinux.org/index.php/")
("ddg" . "https://duckduckgo.com/?q=")
("wiki" . "https://en.wikipedia.org/wiki/"))
org-todo-keywords ; This overwrites the default Doom org-todo-keywords
'((sequence
"TODO(t)" ; A task that is ready to be tackled
"BLOG(b)" ; Blog writing assignments
"GYM(g)" ; Things to accomplish at the gym
"PROJ(p)" ; A project that contains other tasks
"VIDEO(v)" ; Video assignments
"WAIT(w)" ; Something is holding up this task
"|" ; The pipe necessary to separate "active" states and "inactive" states
"DONE(d)" ; Task has been completed
"CANCELLED(c)" )))) ; Task has been cancelled
#+END_SRC
* REGISTERS
Emacs registers are compartments where you can save text, rectangles and positions for later use. Once you save text or a rectangle in a register, you can copy it into the buffer once or many times; once you save a position in a register, you can jump back to that position once or many times. The default GNU Emacs keybindings for these commands (with the exception of counsel-register) involves 'C-x r' followed by one or more other keys. I wanted to make this a little more user friendly, and since I am using Doom Emacs, I choose to replace the 'C-x r' part of the key chords with 'SPC r'.
| COMMAND | DESCRIPTION | KEYBINDING |
|----------------------------------+----------------------------------+------------|
| copy-to-register | /Copy to register/ | SPC r c |
| frameset-to-register | /Frameset to register/ | SPC r f |
| insert-register | /Insert contents of register/ | SPC r i |
| jump-to-register | /Jump to register/ | SPC r j |
| list-registers | /List registers/ | SPC r l |
| number-to-register | /Number to register/ | SPC r n |
| counsel-register | /Interactively choose a register/ | SPC r r |
| view-register | /View a register/ | SPC r v |
| window-configuration-to-register | /Window configuration to register/ | SPC r w |
| increment-register | /Increment register/ | SPC r + |
| point-to-register | /Point to register/ | SPC r SPC |
#+BEGIN_SRC emacs-lisp
(map! :leader
:desc "Copy to register"
"r c" #'copy-to-register
:leader
:desc "Frameset to register"
"r f" #'frameset-to-register
:leader
:desc "Insert contents of register"
"r i" #'insert-register
:leader
:desc "Jump to register"
"r j" #'jump-to-register
:leader
:desc "List registers"
"r l" #'list-registers
:leader
:desc "Number to register"
"r n" #'number-to-register
:leader
:desc "Interactively choose a register"
"r r" #'counsel-register
:leader
:desc "View a register"
"r v" #'view-register
:leader
:desc "Window configuration to register"
"r w" #'window-configuration-to-register
:leader
:desc "Increment register"
"r +" #'increment-register
:leader
:desc "Point to register"
"r SPC" #'point-to-register)
#+END_SRC
* REMOTE CONNECTIONS
Keybindings for ssh'ing into remote machines. By default, Doom Emacs does not use 'SPC \', so the format I use for these bindings is 'SPC \' plus 'key'.
| DESCRIPTION | KEYBINDING |
|-------------------------+----------- |
| Ssh into distrotube.com | SPC \ d |
| Ssh into my nextcloud | SPC \ n |
#+BEGIN_SRC emacs-lisp
(map! :leader
:desc "Ssh into distrotube.com"
"\\ d" #'(lambda () (interactive) (find-file "/scp:derek@distrotube.com"))
:leader
:desc "Ssh into my nextcloud"
"\\ n" #'(lambda () (interactive) (find-file "/scp:derek@distrotube.net")))
#+END_SRC
* SHELLS
Settings for the various shells and terminal emulators within Emacs.
+ 'shell-file-name' -- sets the shell to be used in M-x shell, M-x term, M-x ansi-term and M-x vterm.
+ 'eshell-aliases-file' -- sets an aliases file for the eshell.
#+BEGIN_SRC emacs-lisp
(setq shell-file-name "/bin/fish"
eshell-aliases-file "~/.doom.d/aliases")
#+END_SRC
* SPLITS
I set splits to default to opening on the right using 'prefer-horizontal-split'. I set a keybinding for 'clone-indirect-buffer-other-window' for when I want to have the same document in two splits. The text of the indirect buffer is always identical to the text of its base buffer; changes made by editing either one are visible immediately in the other. But in all other respects, the indirect buffer and its base buffer are completely separate. For example, I can fold one split but other will be unfolded.
#+BEGIN_SRC emacs-lisp
(defun prefer-horizontal-split ()
(set-variable 'split-height-threshold nil t)
(set-variable 'split-width-threshold 40 t)) ; make this as low as needed
(add-hook 'markdown-mode-hook 'prefer-horizontal-split)
(map! :leader
:desc "Clone indirect buffer other window"
"b c" #'clone-indirect-buffer-other-window)
#+END_SRC
* SUBLIMITY
The sublimity extension offers Sublime-like smooth scrolling and an experimental minimap. You can also require sublimity-attractive if you want to center everything for a distraction-free mode. I do not use this extension, hence the reason I have sublimity-mode set to 0. Set this to 1 to enable it.
#+BEGIN_SRC emacs-lisp
(require 'sublimity-scroll)
(require 'sublimity-map)
(require 'sublimity-attractive)
(sublimity-mode 0)
#+END_SRC
* WINNER MODE
Winner mode has been included with GNU Emacs since version 20. This is a global minor mode and, when activated, it allows you to “undo” (and “redo”) changes in the window configuration with the key commands 'SCP w <left>' and 'SPC w <right>'.
#+BEGIN_SRC emacs-lisp
(map! :leader
:desc "Winner redo"
"w <right>" #'winner-redo
:leader
:desc "Winner undo"
"w <left>" #'winner-undo)
#+END_SRC

4
.doom.d/init.el
View file

@ -31,7 +31,7 @@
;;deft ; notational velocity for Emacs
doom ; what makes DOOM look the way it does
doom-dashboard ; a nifty splash screen for Emacs
doom-quit ; DOOM quit-message prompts when you quit Emacs
;;doom-quit ; DOOM quit-message prompts when you quit Emacs
;;fill-column ; a `fill-column' indicator
hl-todo ; highlight TODO/FIXME/NOTE/DEPRECATED/HACK/REVIEW
;;hydra
@ -44,7 +44,7 @@
(popup +defaults) ; tame sudden yet inevitable temporary windows
;;pretty-code ; ligatures or substitute text with pretty symbols
;;tabs ; an tab bar for Emacs
;;treemacs ; a project drawer, like neotree but cooler
treemacs ; a project drawer, like neotree but cooler
;;unicode ; extended unicode support for various languages
vc-gutter ; vcs diff in the fringe
vi-tilde-fringe ; fringe tildes to mark beyond EOB

1
.doom.d/packages.el
View file

@ -60,6 +60,5 @@
(package! rainbow-mode)
(package! sublimity)
(package! tldr)
(package! treemacs)
(package! wc-mode)
(package! writeroom-mode)

102
.xmonad/README.org
View file

@ -29,16 +29,14 @@
#+ATTR_HTML: :alt XMonad Scrot :title XMonad Scrot :align left
[[https://gitlab.com/dwt1/dotfiles/-/raw/master/.screenshots/dotfiles05-thumb.png]]
Xmonad is a dynamically tiling X11 window manager that is written and
configured in Haskell. Official documentation: [[https://xmonad.org][https://xmonad.org]]
Xmonad is a dynamically tiling X11 window manager that is written and configured in Haskell.
- XMonad Official Website: [[https://xmonad.org][https://xmonad.org]]
This is the xmonad configuration of Derek Taylor (DistroTube)
- My YouTube: [[http://www.youtube.com/c/DistroTube][http://www.youtube.com/c/DistroTube]]
- My GitLab: [[http://www.gitlab.com/dwt1/][http://www.gitlab.com/dwt1/]]
Keep in mind, that my configs are purposely bloated with examples of
what you can do with xmonad. It is written more as a study guide rather
than a config that you should download and use.
Keep in mind, that my configs are purposely bloated with examples of what you can do with xmonad. It is written more as a study guide rather than a config that you should download and use.
* Imports
These are Haskell modules that we must import so that we can use their functions later in the config.
@ -112,7 +110,7 @@ import XMonad.Prompt.Ssh
import XMonad.Prompt.XMonad
import Control.Arrow (first)
-- Utilities
-- Utilities
import XMonad.Util.EZConfig (additionalKeysP)
import XMonad.Util.NamedScratchpad
import XMonad.Util.Run (runProcessWithInput, safeSpawn, spawnPipe)
@ -120,9 +118,7 @@ import XMonad.Util.SpawnOnce
#+END_SRC
* Variables
It's nice to assign values to stuff that you will use more than once
in the config. Setting values for things like font, terminal and editor
means you only have to change the value here to make changes globally.
It's nice to assign values to stuff that you will use more than once in the config. Setting values for things like font, terminal and editor means you only have to change the value here to make changes globally.
#+BEGIN_SRC haskell
myFont :: String
@ -175,8 +171,7 @@ myStartupHook = do
#+END_SRC
* Gridselect
GridSelect displays items (programs, open windows, etc.) in a 2D grid
and lets the user select from it with the cursor/hjkl keys or the mouse.
GridSelect displays items (programs, open windows, etc.) in a 2D grid and lets the user select from it with the cursor/hjkl keys or the mouse.
#+BEGIN_SRC haskell
myColorizer :: Window -> Bool -> X (String, String)
@ -225,10 +220,7 @@ myAppGrid = [ ("Audacity", "audacity")
#+END_SRC
* Treeselect
TreeSelect displays your workspaces or actions in a Tree-like format.
You can select desired workspace/action with the cursor or hjkl keys.
My TreeSelect menu is rather large and includes a mixture of applications,
web bookmarks, configuration files and xmonad actions.
TreeSelect displays your workspaces or actions in a Tree-like format. You can select desired workspace/action with the cursor or hjkl keys. My TreeSelect menu is rather large and includes a mixture of applications, web bookmarks, configuration files and xmonad actions.
** Treeselect Menu Entries
#+BEGIN_SRC haskell
@ -484,11 +476,7 @@ treeselectAction a = TS.treeselectAction a
#+END_SRC
** Treeselect Settings
Configuration options for the treeSelect menus.
Keybindings for treeSelect menus. Use h-j-k-l to navigate.
Use 'o' and 'i' to move forward/back in the workspace history.
Single KEY's are for top-level nodes. SUPER+KEY are for the
second-level nodes. SUPER+ALT+KEY are third-level nodes.
Configuration options for the treeSelect menus. Keybindings for treeSelect menus. Use h-j-k-l to navigate. Use 'o' and 'i' to move forward/back in the workspace history. Single KEY's are for top-level nodes. SUPER+KEY are for the second-level nodes. SUPER+ALT+KEY are third-level nodes.
#+BEGIN_SRC haskell
tsDefaultConfig :: TS.TSConfig a
@ -521,6 +509,25 @@ myTreeNavigation = M.fromList
, ((0, xK_l), TS.moveChild)
, ((0, xK_o), TS.moveHistBack)
, ((0, xK_i), TS.moveHistForward)
, ((0, xK_a), TS.moveTo ["+ Accessories"])
, ((0, xK_e), TS.moveTo ["+ Games"])
, ((0, xK_g), TS.moveTo ["+ Graphics"])
, ((0, xK_i), TS.moveTo ["+ Internet"])
, ((0, xK_m), TS.moveTo ["+ Multimedia"])
, ((0, xK_o), TS.moveTo ["+ Office"])
, ((0, xK_p), TS.moveTo ["+ Programming"])
, ((0, xK_s), TS.moveTo ["+ System"])
, ((0, xK_b), TS.moveTo ["+ Bookmarks"])
, ((0, xK_c), TS.moveTo ["+ Config Files"])
, ((0, xK_r), TS.moveTo ["+ Screenshots"])
, ((mod4Mask, xK_l), TS.moveTo ["+ Bookmarks", "+ Linux"])
, ((mod4Mask, xK_e), TS.moveTo ["+ Bookmarks", "+ Emacs"])
, ((mod4Mask, xK_s), TS.moveTo ["+ Bookmarks", "+ Search and Reference"])
, ((mod4Mask, xK_p), TS.moveTo ["+ Bookmarks", "+ Programming"])
, ((mod4Mask, xK_v), TS.moveTo ["+ Bookmarks", "+ Vim"])
, ((mod4Mask .|. altMask, xK_a), TS.moveTo ["+ Bookmarks", "+ Linux", "+ Arch Linux"])
, ((mod4Mask .|. altMask, xK_n), TS.moveTo ["+ Bookmarks", "+ Linux", "+ Linux News"])
, ((mod4Mask .|. altMask, xK_w), TS.moveTo ["+ Bookmarks", "+ Linux", "+ Window Managers"])
]
#+END_SRC
@ -577,8 +584,7 @@ promptList' = [ ("c", calcPrompt, "qalc") -- requires qalculate-gtk
#+END_SRC
** Custom Prompts
calcPrompt requires a cli calculator called qalcualte-gtk.
You could use this as a template for other custom prompts that
calcPrompt requires a cli calculator called qalcualte-gtk. You could use this as a template for other custom prompts that use command line programs that return a single line of output.
#+BEGIN_SRC haskell
calcPrompt c ans =
@ -635,9 +641,7 @@ dtXPKeymap = M.fromList $
#+END_SRC
** Search Engines
Xmonad has several search engines available to use located in
XMonad.Actions.Search. Additionally, you can add other search engines
such as those listed below.
Xmonad has several search engines available to use located in XMonad.Actions.Search. Additionally, you can add other search engines such as those listed below.
#+BEGIN_SRC haskell
archwiki, ebay, news, reddit, urban :: S.SearchEngine
@ -671,8 +675,7 @@ searchList = [ ("a", archwiki)
#+END_SRC
* Scratchpads
Allows to have several floating scratchpads running different applications.
Import Util.NamedScratchpad. Bind a key to namedScratchpadSpawnAction.
Allows to have several floating scratchpads running different applications. Import Util.NamedScratchpad. Bind a key to namedScratchpadSpawnAction.
#+BEGIN_SRC haskell
myScratchPads :: [NamedScratchpad]
@ -699,8 +702,7 @@ myScratchPads = [ NS "terminal" spawnTerm findTerm manageTerm
#+END_SRC
* Layouts
Makes setting the spacingRaw simpler to write. The spacingRaw
module adds a configurable amount of space around windows.
Makes setting the spacingRaw simpler to write. The spacingRaw module adds a configurable amount of space around windows.
#+BEGIN_SRC haskell
mySpacing :: Integer -> l a -> XMonad.Layout.LayoutModifier.ModifiedLayout Spacing l a
@ -784,11 +786,7 @@ myLayoutHook = avoidStruts $ mouseResize $ windowArrange $ T.toggleLayouts float
#+END_SRC
* Workspaces
My workspaces are clickable meaning that the mouse can be used to switch
workspaces. This requires xdotool. You need to use UnsafeStdInReader instead
of simply StdInReader in xmobar config so you can pass actions to it. Also,
you will notice I add <fn> tags to the clickable workspaces to select from
the additionalFonts that I have set in my xmobar configs.
My workspaces are clickable meaning that the mouse can be used to switch workspaces. This requires xdotool. You need to use UnsafeStdInReader instead of simply StdInReader in xmobar config so you can pass actions to it. Also, you will notice I add <fn> tags to the clickable workspaces to select from the additionalFonts that I have set in my xmobar configs.
#+BEGIN_SRC haskell
xmobarEscape :: String -> String
@ -808,11 +806,7 @@ myWorkspaces = clickable . (map xmobarEscape)
#+END_SRC
* Managehook
Sets some rules for certain programs. Examples include forcing certain
programs to always float, or to always appear on a certain workspace.
Forcing programs to a certain workspace with a doShift requires xdotool
if you are using clickable workspaces. You need the className or title
of the program. Use xprop to get this info.
Sets some rules for certain programs. Examples include forcing certain programs to always float, or to always appear on a certain workspace. Forcing programs to a certain workspace with a doShift requires xdotool if you are using clickable workspaces. You need the className or title of the program. Use xprop to get this info.
#+BEGIN_SRC haskell
myManageHook :: XMonad.Query (Data.Monoid.Endo WindowSet)
@ -820,7 +814,7 @@ myManageHook = composeAll
-- using 'doShift ( myWorkspaces !! 7)' sends program to workspace 8!
-- I'm doing it this way because otherwise I would have to write out
-- the full name of my workspaces.
[ className =? "htop" --> doShift ( myWorkspaces !! 7 )
[ className =? "htop" --> doShift ( myWorkspaces !! 7 )
, title =? "firefox" --> doShift ( myWorkspaces !! 1 )
, className =? "mpv" --> doShift ( myWorkspaces !! 7 )
-- , className =? "vlc" --> doShift ( myWorkspaces !! 7 )
@ -833,9 +827,7 @@ myManageHook = composeAll
#+END_SRC
* Loghook
Sets opacity for inactive (unfocused) windows. I prefer to not use
this feature so I've set opacity to 1.0. If you want opacity, set
this to a value of less than 1 (such as 0.9 for 90% opacity).
Sets opacity for inactive (unfocused) windows. I prefer to not use this feature so I've set opacity to 1.0. If you want opacity, set this to a value of less than 1 (such as 0.9 for 90% opacity).
#+BEGIN_SRC haskell
myLogHook :: X ()
@ -878,7 +870,7 @@ myKeys =
, ("M-S-q", io exitSuccess) -- Quits xmonad
-- Open my preferred terminal
, ("M-<Return>", spawn myTerminal)
, ("M-<Return>", spawn (myTerminal ++ " -e fish"))
-- Run Prompt
, ("M-S-<Return>", shellPrompt dtXPConfig) -- Shell Prompt
@ -948,23 +940,23 @@ myKeys =
, ("M-u <Space>", spawn "mocp --toggle-pause")
-- Emacs (CTRL-e followed by a key)
, ("C-e e", spawn "emacsclient -c -a ''") -- start emacs
, ("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 i", spawn "emacsclient -c -a '' --eval '(erc)'") -- erc emacs irc client
, ("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 '(mastodon)'") -- mastodon within emacs
, ("C-e v", spawn "emacsclient -c -a '' --eval '(+vterm/here nil)'") -- vterm within emacs
, ("C-e e", spawn "emacsclient -c -a 'emacs'") -- start emacs
, ("C-e b", spawn "emacsclient -c -a 'emacs' --eval '(ibuffer)'") -- list emacs buffers
, ("C-e d", spawn "emacsclient -c -a 'emacs' --eval '(dired nil)'") -- dired emacs file manager
, ("C-e i", spawn "emacsclient -c -a 'emacs' --eval '(erc)'") -- erc emacs irc client
, ("C-e m", spawn "emacsclient -c -a 'emacs' --eval '(mu4e)'") -- mu4e emacs email client
, ("C-e n", spawn "emacsclient -c -a 'emacs' --eval '(elfeed)'") -- elfeed emacs rss client
, ("C-e s", spawn "emacsclient -c -a 'emacs' --eval '(eshell)'") -- eshell within emacs
, ("C-e t", spawn "emacsclient -c -a 'emacs' --eval '(mastodon)'") -- mastodon within emacs
, ("C-e v", spawn "emacsclient -c -a 'emacs' --eval '(+vterm/here nil)'") -- vterm 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/\")'")
, ("C-e a", spawn "emacsclient -c -a 'emacs' --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-f", spawn (myTerminal ++ " -e sh ./.config/vifm/scripts/vifmrun"))
, ("M-M1-f", spawn (myTerminal ++ " -e sh ./.config/vifm/scripts/vifmrun | bash"))
, ("M-M1-i", spawn (myTerminal ++ " -e irssi"))
, ("M-M1-j", spawn (myTerminal ++ " -e joplin"))
, ("M-M1-l", spawn (myTerminal ++ " -e lynx https://distrotube.com"))

47
.xmonad/xmonad.hs
View file

@ -66,7 +66,7 @@ import XMonad.Prompt.Ssh
import XMonad.Prompt.XMonad
import Control.Arrow (first)
-- Utilities
-- Utilities
import XMonad.Util.EZConfig (additionalKeysP)
import XMonad.Util.NamedScratchpad
import XMonad.Util.Run (runProcessWithInput, safeSpawn, spawnPipe)
@ -439,6 +439,25 @@ myTreeNavigation = M.fromList
, ((0, xK_l), TS.moveChild)
, ((0, xK_o), TS.moveHistBack)
, ((0, xK_i), TS.moveHistForward)
, ((0, xK_a), TS.moveTo ["+ Accessories"])
, ((0, xK_e), TS.moveTo ["+ Games"])
, ((0, xK_g), TS.moveTo ["+ Graphics"])
, ((0, xK_i), TS.moveTo ["+ Internet"])
, ((0, xK_m), TS.moveTo ["+ Multimedia"])
, ((0, xK_o), TS.moveTo ["+ Office"])
, ((0, xK_p), TS.moveTo ["+ Programming"])
, ((0, xK_s), TS.moveTo ["+ System"])
, ((0, xK_b), TS.moveTo ["+ Bookmarks"])
, ((0, xK_c), TS.moveTo ["+ Config Files"])
, ((0, xK_r), TS.moveTo ["+ Screenshots"])
, ((mod4Mask, xK_l), TS.moveTo ["+ Bookmarks", "+ Linux"])
, ((mod4Mask, xK_e), TS.moveTo ["+ Bookmarks", "+ Emacs"])
, ((mod4Mask, xK_s), TS.moveTo ["+ Bookmarks", "+ Search and Reference"])
, ((mod4Mask, xK_p), TS.moveTo ["+ Bookmarks", "+ Programming"])
, ((mod4Mask, xK_v), TS.moveTo ["+ Bookmarks", "+ Vim"])
, ((mod4Mask .|. altMask, xK_a), TS.moveTo ["+ Bookmarks", "+ Linux", "+ Arch Linux"])
, ((mod4Mask .|. altMask, xK_n), TS.moveTo ["+ Bookmarks", "+ Linux", "+ Linux News"])
, ((mod4Mask .|. altMask, xK_w), TS.moveTo ["+ Bookmarks", "+ Linux", "+ Window Managers"])
]
dtXPConfig :: XPConfig
@ -684,7 +703,7 @@ myManageHook = composeAll
-- using 'doShift ( myWorkspaces !! 7)' sends program to workspace 8!
-- I'm doing it this way because otherwise I would have to write out
-- the full name of my workspaces.
[ className =? "htop" --> doShift ( myWorkspaces !! 7 )
[ className =? "htop" --> doShift ( myWorkspaces !! 7 )
, title =? "firefox" --> doShift ( myWorkspaces !! 1 )
, className =? "mpv" --> doShift ( myWorkspaces !! 7 )
-- , className =? "vlc" --> doShift ( myWorkspaces !! 7 )
@ -707,7 +726,7 @@ myKeys =
, ("M-S-q", io exitSuccess) -- Quits xmonad
-- Open my preferred terminal
, ("M-<Return>", spawn myTerminal)
, ("M-<Return>", spawn (myTerminal ++ " -e fish"))
-- Run Prompt
, ("M-S-<Return>", shellPrompt dtXPConfig) -- Shell Prompt
@ -777,23 +796,23 @@ myKeys =
, ("M-u <Space>", spawn "mocp --toggle-pause")
-- Emacs (CTRL-e followed by a key)
, ("C-e e", spawn "emacsclient -c -a ''") -- start emacs
, ("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 i", spawn "emacsclient -c -a '' --eval '(erc)'") -- erc emacs irc client
, ("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 '(mastodon)'") -- mastodon within emacs
, ("C-e v", spawn "emacsclient -c -a '' --eval '(+vterm/here nil)'") -- vterm within emacs
, ("C-e e", spawn "emacsclient -c -a 'emacs'") -- start emacs
, ("C-e b", spawn "emacsclient -c -a 'emacs' --eval '(ibuffer)'") -- list emacs buffers
, ("C-e d", spawn "emacsclient -c -a 'emacs' --eval '(dired nil)'") -- dired emacs file manager
, ("C-e i", spawn "emacsclient -c -a 'emacs' --eval '(erc)'") -- erc emacs irc client
, ("C-e m", spawn "emacsclient -c -a 'emacs' --eval '(mu4e)'") -- mu4e emacs email client
, ("C-e n", spawn "emacsclient -c -a 'emacs' --eval '(elfeed)'") -- elfeed emacs rss client
, ("C-e s", spawn "emacsclient -c -a 'emacs' --eval '(eshell)'") -- eshell within emacs
, ("C-e t", spawn "emacsclient -c -a 'emacs' --eval '(mastodon)'") -- mastodon within emacs
, ("C-e v", spawn "emacsclient -c -a 'emacs' --eval '(+vterm/here nil)'") -- vterm 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/\")'")
, ("C-e a", spawn "emacsclient -c -a 'emacs' --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-f", spawn (myTerminal ++ " -e sh ./.config/vifm/scripts/vifmrun"))
, ("M-M1-f", spawn (myTerminal ++ " -e sh ./.config/vifm/scripts/vifmrun | bash"))
, ("M-M1-i", spawn (myTerminal ++ " -e irssi"))
, ("M-M1-j", spawn (myTerminal ++ " -e joplin"))
, ("M-M1-l", spawn (myTerminal ++ " -e lynx https://distrotube.com"))