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

Merging back in contribution from destroyer449.

Browse Source
This commit is contained in:
Derek Taylor
2021-03-20 20:19:31 -05:00
parent d08b9a3915
commit 937bac3a9a
4 changed files with 164 additions and 318 deletions
Download Patch File Download Diff File Expand all files Collapse all files

211
.config/doom/config.el
View File

@@ -1,9 +1,7 @@
(map! :leader (map! :leader
:desc "List bookmarks" (:prefix ("b". "buffer")
"b L" #'list-bookmarks :desc "List bookmarks" "L" #'list-bookmarks
:leader :desc "Save current bookmarks to bookmark file" "w" #'bookmark-save))
:desc "Save current bookmarks to bookmark file"
"b w" #'bookmark-save)
(setq centaur-tabs-set-bar 'over (setq centaur-tabs-set-bar 'over
centaur-tabs-set-icons t centaur-tabs-set-icons t
@@ -13,30 +11,21 @@
centaur-tabs-style "bar" centaur-tabs-style "bar"
centaur-tabs-modified-marker "•") centaur-tabs-modified-marker "•")
(map! :leader (map! :leader
:desc "Toggle tabs globally" :desc "Toggle tabs globally" "t c" #'centaur-tabs-mode
"t c" #'centaur-tabs-mode :desc "Toggle tabs local display" "t C" #'centaur-tabs-local-mode)
:leader
:desc "Toggle tabs local display"
"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' (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 <left>") 'centaur-tabs-backward ; default Doom binding is 'g T'
(kbd "g <down>") 'centaur-tabs-forward-group (kbd "g <down>") 'centaur-tabs-forward-group
(kbd "g <up>") 'centaur-tabs-backward-group) (kbd "g <up>") 'centaur-tabs-backward-group)
(map! :leader (map! :leader
:desc "Dired" (:prefix ("d" . "dired")
"d d" #'dired :desc "Open dired" "d" #'dired
:leader :desc "Dired jump to current" "j" #'dired-jump)
:desc "Dired jump to current"
"d j" #'dired-jump
(:after dired (:after dired
(:map dired-mode-map (:map dired-mode-map
:leader :desc "Peep-dired image previews" "d p" #'peep-dired
:desc "Peep-dired image previews" :desc "Dired view file" "d v" #'dired-view-file)))
"d p" #'peep-dired
:leader
:desc "Dired view file"
"d v" #'dired-view-file)))
;; Make 'h' and 'l' go back and forward in dired. Much faster to navigate the directory structure! ;; Make 'h' and 'l' go back and forward in dired. Much faster to navigate the directory structure!
(evil-define-key 'normal dired-mode-map (evil-define-key 'normal dired-mode-map
(kbd "h") 'dired-up-directory (kbd "h") 'dired-up-directory
@@ -58,8 +47,7 @@
(setq doom-theme 'doom-one) (setq doom-theme 'doom-one)
(map! :leader (map! :leader
:desc "Load new theme" :desc "Load new theme" "h t" #'counsel-load-theme)
"h t" #'counsel-load-theme)
(custom-set-variables (custom-set-variables
'(elfeed-feeds '(elfeed-feeds
@@ -89,47 +77,28 @@
emms-info-asynchronously t emms-info-asynchronously t
emms-source-file-directory-tree-function 'emms-source-file-directory-tree-find) emms-source-file-directory-tree-function 'emms-source-file-directory-tree-find)
(map! :leader (map! :leader
:desc "Go to emms playlist" (:prefix ("a" . "EMMS audio player")
"a a" #'emms-playlist-mode-go :desc "Go to emms playlist" "a" #'emms-playlist-mode-go
:leader :desc "Emms pause track" "x" #'emms-pause
:desc "Emms pause track" :desc "Emms stop track" "s" #'emms-stop
"a x" #'emms-pause :desc "Emms play previous track" "p" #'emms-previous
:leader :desc "Emms play next track" "n" #'emms-next))
: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 (map! :leader
:desc "Evaluate elisp in buffer" (:prefix ("e". "evaluate/EWW")
"e b" #'eval-buffer :desc "Evaluate elisp in buffer" "b" #'eval-buffer
:leader :desc "Evaluate defun" "d" #'eval-defun
:desc "Evaluate defun" :desc "Evaluate elisp expression" "e" #'eval-expression
"e d" #'eval-defun :desc "Evaluate last sexpression" "l" #'eval-last-sexp
:leader :desc "Evaluate elisp in region" "r" #'eval-region))
: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) (setq browse-url-browser-function 'eww-browse-url)
(map! :leader (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" :desc "Search web for text between BEG/END"
"s w" #'eww-search-words) "s w" #'eww-search-words
(:prefix ("e" . "evaluate/EWW")
:desc "Eww web browser" "w" #'eww
:desc "Eww reload page" "R" #'eww-reload))
(setq doom-font (font-spec :family "Mononoki Nerd Font" :size 15) (setq doom-font (font-spec :family "Mononoki Nerd Font" :size 15)
doom-variable-pitch-font (font-spec :family "Ubuntu" :size 15) doom-variable-pitch-font (font-spec :family "Ubuntu" :size 15)
@@ -160,28 +129,18 @@
(ivy-posframe-mode 1) ; 1 enables posframe-mode, 0 disables it. (ivy-posframe-mode 1) ; 1 enables posframe-mode, 0 disables it.
(map! :leader (map! :leader
:desc "Ivy push view" (:prefix ("v" . "Ivy")
"v p" #'ivy-push-view :desc "Ivy push view" "v p" #'ivy-push-view
:leader :desc "Ivy switch view" "v s" #'ivy-switch-view))
:desc "Ivy switch view"
"v s" #'ivy-switch-view)
(setq display-line-numbers-type t) (setq display-line-numbers-type t)
(map! :leader (map! :leader
:desc "Comment or uncomment lines" :desc "Comment or uncomment lines" "TAB TAB" #'comment-line
"TAB TAB" #'comment-line (:prefix ("t" . "toggle")
:leader :desc "Toggle line numbers" "l" #'doom/toggle-line-numbers
:desc "Toggle line numbers" :desc "Toggle line highlight in frame" "h" #'hl-line-mode
"t l" #'doom/toggle-line-numbers :desc "Toggle line highlight globally" "H" #'global-hl-line-mode
:leader :desc "Toggle truncate lines" "t" #'toggle-truncate-lines))
:desc "Toggle line highlight in frame"
"t h" #'hl-line-mode
:leader
:desc "Toggle line highlight globally"
"t H" #'global-hl-line-mode
:leader
:desc "Toggle truncate lines"
"t t" #'toggle-truncate-lines)
(after! mastodon (after! mastodon
(setq mastodon-instance-url "https://mastodon.technology/")) (setq mastodon-instance-url "https://mastodon.technology/"))
@@ -252,7 +211,7 @@
;; (smtpmail-stream-type starttls) ;; (smtpmail-stream-type starttls)
;; (smtpmail-smtp-service 587)))) ;; (smtpmail-smtp-service 587))))
(load "~/.doom.d/email") (load "~/.config/doom/email")
(defun my-mu4e-set-account () (defun my-mu4e-set-account ()
"Set the account for composing a message." "Set the account for composing a message."
@@ -281,27 +240,16 @@
(after! doom-themes (after! doom-themes
(setq doom-neotree-enable-variable-pitch t)) (setq doom-neotree-enable-variable-pitch t))
(map! :leader (map! :leader
:desc "Toggle neotree file viewer" :desc "Toggle neotree file viewer" "t n" #'neotree-toggle
"t n" #'neotree-toggle :desc "Open directory in neotree" "d n" #'neotree-dir)
:leader
:desc "Open directory in neotree"
"d n" #'neotree-dir)
(map! :leader (map! :leader
:desc "Edit agenda file" (:prefix ("-" . "open file")
"- a" #'(lambda () (interactive) (find-file "~/Org/agenda.org")) :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"))
:desc "Edit doom config.org" :desc "Edit eshell aliases" "e" #'(lambda () (interactive) (find-file "~/.doom.d/aliases"))
"- c" #'(lambda () (interactive) (find-file "~/.doom.d/config.org")) :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"))))
: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 (after! org
(add-hook 'org-mode-hook (lambda () (org-bullets-mode 1))) (add-hook 'org-mode-hook (lambda () (org-bullets-mode 1)))
@@ -354,45 +302,23 @@
(dt/org-babel-tangle-async (buffer-file-name))) (dt/org-babel-tangle-async (buffer-file-name)))
(map! :leader (map! :leader
:desc "Copy to register" (:prefix ("r" . "registers")
"r c" #'copy-to-register :desc "Copy to register" "c" #'copy-to-register
:leader :desc "Frameset to register" "f" #'frameset-to-register
:desc "Frameset to register" :desc "Insert contents of register" "i" #'insert-register
"r f" #'frameset-to-register :desc "Jump to register" "j" #'jump-to-register
:leader :desc "List registers" "l" #'list-registers
:desc "Insert contents of register" :desc "Number to register" "n" #'number-to-register
"r i" #'insert-register :desc "Interactively choose a register" "r" #'counsel-register
:leader :desc "View a register" "v" #'view-register
:desc "Jump to register" :desc "Window configuration to register" "w" #'window-configuration-to-register
"r j" #'jump-to-register :desc "Increment register" "+" #'increment-register
:leader :desc "Point to register" "SPC" #'point-to-register))
: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 (map! :leader
:desc "Ssh into distrotube.com" (:prefix ("\\" . "ssh")
"\\ d" #'(lambda () (interactive) (find-file "/scp:derek@distrotube.com")) :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"))))
:desc "Ssh into my nextcloud"
"\\ n" #'(lambda () (interactive) (find-file "/scp:derek@distrotube.net")))
(setq shell-file-name "/bin/fish" (setq shell-file-name "/bin/fish"
eshell-aliases-file "~/.doom.d/aliases" eshell-aliases-file "~/.doom.d/aliases"
@@ -404,20 +330,17 @@
eshell-visual-commands'("bash" "fish" "htop" "ssh" "top" "zsh") eshell-visual-commands'("bash" "fish" "htop" "ssh" "top" "zsh")
vterm-max-scrollback 5000) vterm-max-scrollback 5000)
(map! :leader (map! :leader
:desc "Counsel eshell history" :desc "Eshell" "e s" #'eshell
"e h" #'counsel-esh-history) :desc "Counsel eshell history" "e h" #'counsel-esh-history)
(defun prefer-horizontal-split () (defun prefer-horizontal-split ()
(set-variable 'split-height-threshold nil t) (set-variable 'split-height-threshold nil t)
(set-variable 'split-width-threshold 40 t)) ; make this as low as needed (set-variable 'split-width-threshold 40 t)) ; make this as low as needed
(add-hook 'markdown-mode-hook 'prefer-horizontal-split) (add-hook 'markdown-mode-hook 'prefer-horizontal-split)
(map! :leader (map! :leader
:desc "Clone indirect buffer other window" :desc "Clone indirect buffer other window" "b c" #'clone-indirect-buffer-other-window)
"b c" #'clone-indirect-buffer-other-window)
(map! :leader (map! :leader
:desc "Winner redo" (:prefix ("w" . "window")
"w <right>" #'winner-redo :desc "Winner redo" "<right>" #'winner-redo
:leader :desc "Winner undo" "<left>" #'winner-undo))
:desc "Winner undo"
"w <left>" #'winner-undo)

219
.config/doom/config.org
View File

@@ -32,19 +32,17 @@
- [[#splits][SPLITS]] - [[#splits][SPLITS]]
- [[#winner-mode][WINNER MODE]] - [[#winner-mode][WINNER MODE]]
* ABOUT THIS CONFIG * 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". 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 maintaining 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 * 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. 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 #+BEGIN_SRC emacs-lisp
(map! :leader (map! :leader
:desc "List bookmarks" (:prefix ("b". "buffer")
"b L" #'list-bookmarks :desc "List bookmarks" "L" #'list-bookmarks
:leader :desc "Save current bookmarks to bookmark file" "w" #'bookmark-save))
:desc "Save current bookmarks to bookmark file"
"b w" #'bookmark-save)
#+END_SRC #+END_SRC
* CENTAUR-TABS * CENTAUR-TABS
@@ -68,11 +66,8 @@ To use tabs in Doom Emacs, be sure to uncomment "tabs" in Doom's init.el. Displ
centaur-tabs-style "bar" centaur-tabs-style "bar"
centaur-tabs-modified-marker "•") centaur-tabs-modified-marker "•")
(map! :leader (map! :leader
:desc "Toggle tabs globally" :desc "Toggle tabs globally" "t c" #'centaur-tabs-mode
"t c" #'centaur-tabs-mode :desc "Toggle tabs local display" "t C" #'centaur-tabs-local-mode)
:leader
:desc "Toggle tabs local display"
"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' (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 <left>") 'centaur-tabs-backward ; default Doom binding is 'g T'
(kbd "g <down>") 'centaur-tabs-forward-group (kbd "g <down>") 'centaur-tabs-forward-group
@@ -95,19 +90,13 @@ Dired is the file manager within Emacs. Below, I setup keybindings for image pr
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(map! :leader (map! :leader
:desc "Dired" (:prefix ("d" . "dired")
"d d" #'dired :desc "Open dired" "d" #'dired
:leader :desc "Dired jump to current" "j" #'dired-jump)
:desc "Dired jump to current"
"d j" #'dired-jump
(:after dired (:after dired
(:map dired-mode-map (:map dired-mode-map
:leader :desc "Peep-dired image previews" "d p" #'peep-dired
:desc "Peep-dired image previews" :desc "Dired view file" "d v" #'dired-view-file)))
"d p" #'peep-dired
:leader
:desc "Dired view file"
"d v" #'dired-view-file)))
;; Make 'h' and 'l' go back and forward in dired. Much faster to navigate the directory structure! ;; Make 'h' and 'l' go back and forward in dired. Much faster to navigate the directory structure!
(evil-define-key 'normal dired-mode-map (evil-define-key 'normal dired-mode-map
(kbd "h") 'dired-up-directory (kbd "h") 'dired-up-directory
@@ -134,8 +123,7 @@ Setting the theme to doom-one. To try out new themes, I set a keybinding for co
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(setq doom-theme 'doom-one) (setq doom-theme 'doom-one)
(map! :leader (map! :leader
:desc "Load new theme" :desc "Load new theme" "h t" #'counsel-load-theme)
"h t" #'counsel-load-theme)
#+END_SRC #+END_SRC
* ELFEED * ELFEED
@@ -183,20 +171,12 @@ One of the media players available for Emacs is emms, which stands for Emacs Mul
emms-info-asynchronously t emms-info-asynchronously t
emms-source-file-directory-tree-function 'emms-source-file-directory-tree-find) emms-source-file-directory-tree-function 'emms-source-file-directory-tree-find)
(map! :leader (map! :leader
:desc "Go to emms playlist" (:prefix ("a" . "EMMS audio player")
"a a" #'emms-playlist-mode-go :desc "Go to emms playlist" "a" #'emms-playlist-mode-go
:leader :desc "Emms pause track" "x" #'emms-pause
:desc "Emms pause track" :desc "Emms stop track" "s" #'emms-stop
"a x" #'emms-pause :desc "Emms play previous track" "p" #'emms-previous
:leader :desc "Emms play next track" "n" #'emms-next))
: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 #+END_SRC
* EVALUATE ELISP EXPRESSIONS * EVALUATE ELISP EXPRESSIONS
@@ -212,20 +192,12 @@ Changing some keybindings from their defaults to better fit with Doom Emacs, and
#+Begin_src emacs-lisp #+Begin_src emacs-lisp
(map! :leader (map! :leader
:desc "Evaluate elisp in buffer" (:prefix ("e". "evaluate/EWW")
"e b" #'eval-buffer :desc "Evaluate elisp in buffer" "b" #'eval-buffer
:leader :desc "Evaluate defun" "d" #'eval-defun
:desc "Evaluate defun" :desc "Evaluate elisp expression" "e" #'eval-expression
"e d" #'eval-defun :desc "Evaluate last sexpression" "l" #'eval-last-sexp
:leader :desc "Evaluate elisp in region" "r" #'eval-region))
: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 #+END_SRC
* EWW * EWW
@@ -234,14 +206,11 @@ EWW is the Emacs Web Wowser, the builtin browser in Emacs. Below I set urls to
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(setq browse-url-browser-function 'eww-browse-url) (setq browse-url-browser-function 'eww-browse-url)
(map! :leader (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" :desc "Search web for text between BEG/END"
"s w" #'eww-search-words) "s w" #'eww-search-words
(:prefix ("e" . "evaluate/EWW")
:desc "Eww web browser" "w" #'eww
:desc "Eww reload page" "R" #'eww-reload))
#+END_SRC #+END_SRC
* FONTS * FONTS
@@ -308,11 +277,9 @@ By default, Doom Emacs does not use 'SPC v', so the format I use for these bindi
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(map! :leader (map! :leader
:desc "Ivy push view" (:prefix ("v" . "Ivy")
"v p" #'ivy-push-view :desc "Ivy push view" "v p" #'ivy-push-view
:leader :desc "Ivy switch view" "v s" #'ivy-switch-view))
:desc "Ivy switch view"
"v s" #'ivy-switch-view)
#+END_SRC #+END_SRC
* LINE SETTINGS * LINE SETTINGS
@@ -329,20 +296,12 @@ I set comment-line to 'SPC TAB TAB' which is a rather comfortable keybinding for
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(setq display-line-numbers-type t) (setq display-line-numbers-type t)
(map! :leader (map! :leader
:desc "Comment or uncomment lines" :desc "Comment or uncomment lines" "TAB TAB" #'comment-line
"TAB TAB" #'comment-line (:prefix ("t" . "toggle")
:leader :desc "Toggle line numbers" "l" #'doom/toggle-line-numbers
:desc "Toggle line numbers" :desc "Toggle line highlight in frame" "h" #'hl-line-mode
"t l" #'doom/toggle-line-numbers :desc "Toggle line highlight globally" "H" #'global-hl-line-mode
:leader :desc "Toggle truncate lines" "t" #'toggle-truncate-lines))
:desc "Toggle line highlight in frame"
"t h" #'hl-line-mode
:leader
:desc "Toggle line highlight globally"
"t H" #'global-hl-line-mode
:leader
:desc "Toggle truncate lines"
"t t" #'toggle-truncate-lines)
#+END_SRC #+END_SRC
* MASTODON * MASTODON
@@ -385,7 +344,7 @@ I will be setting up mu4e to use three different email addresses. This source b
#+END_SRC #+END_SRC
** Setting Up Multiple Accounts ** Setting Up Multiple Accounts
The settings below are specific to each of three different email accounts. These settings are fictional and are here for documentation purposes. Hence, I have this source block entirely commmented out. Now, I do use a source code block similar to the one below, but I don't want to share it publicly. Keep reading to see how I handle this. The settings below are specific to each of three different email accounts. These settings are fictional and are here for documentation purposes. Hence, I have this source block entirely commented out. Now, I do use a source code block similar to the one below, but I don't want to share it publicly. Keep reading to see how I handle this.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
;; (defvar my-mu4e-account-alist ;; (defvar my-mu4e-account-alist
@@ -433,9 +392,9 @@ The settings below are specific to each of three different email accounts. Thes
;; (smtpmail-smtp-service 587)))) ;; (smtpmail-smtp-service 587))))
#+END_SRC #+END_SRC
I'm sourcing an elisp file (~/.doom.d/email.el) that contains the above source block but with my actual email settings. I do this so I don't have to share my email addresses (other than derek@distrotube.com) publicly. If you uncommented the above source block to use, then you should comment out or delete this block below. I'm sourcing an elisp file (~/.config/doom/email.el) that contains the above source block but with my actual email settings. I do this so I don't have to share my email addresses (other than derek@distrotube.com) publicly. If you uncommented the above source block to use, then you should comment out or delete this block below.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(load "~/.doom.d/email") (load "~/.config/doom/email")
#+END_SRC #+END_SRC
@@ -480,11 +439,8 @@ Neotree is a file tree viewer. When you open neotree, it jumps to the current f
(after! doom-themes (after! doom-themes
(setq doom-neotree-enable-variable-pitch t)) (setq doom-neotree-enable-variable-pitch t))
(map! :leader (map! :leader
:desc "Toggle neotree file viewer" :desc "Toggle neotree file viewer" "t n" #'neotree-toggle
"t n" #'neotree-toggle :desc "Open directory in neotree" "d n" #'neotree-dir)
:leader
:desc "Open directory in neotree"
"d n" #'neotree-dir)
#+END_SRC #+END_SRC
* OPEN SPECIFIC FILES * OPEN SPECIFIC FILES
@@ -500,20 +456,12 @@ Keybindings to open files that I work with all the time using the find-file comm
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(map! :leader (map! :leader
:desc "Edit agenda file" (:prefix ("-" . "open file")
"- a" #'(lambda () (interactive) (find-file "~/Org/agenda.org")) :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"))
:desc "Edit doom config.org" :desc "Edit eshell aliases" "e" #'(lambda () (interactive) (find-file "~/.doom.d/aliases"))
"- c" #'(lambda () (interactive) (find-file "~/.doom.d/config.org")) :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"))))
: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 #+END_SRC
* ORG MODE * ORG MODE
@@ -595,38 +543,18 @@ Emacs registers are compartments where you can save text, rectangles and positio
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(map! :leader (map! :leader
:desc "Copy to register" (:prefix ("r" . "registers")
"r c" #'copy-to-register :desc "Copy to register" "c" #'copy-to-register
:leader :desc "Frameset to register" "f" #'frameset-to-register
:desc "Frameset to register" :desc "Insert contents of register" "i" #'insert-register
"r f" #'frameset-to-register :desc "Jump to register" "j" #'jump-to-register
:leader :desc "List registers" "l" #'list-registers
:desc "Insert contents of register" :desc "Number to register" "n" #'number-to-register
"r i" #'insert-register :desc "Interactively choose a register" "r" #'counsel-register
:leader :desc "View a register" "v" #'view-register
:desc "Jump to register" :desc "Window configuration to register" "w" #'window-configuration-to-register
"r j" #'jump-to-register :desc "Increment register" "+" #'increment-register
:leader :desc "Point to register" "SPC" #'point-to-register))
: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 #+END_SRC
* REMOTE CONNECTIONS * REMOTE CONNECTIONS
@@ -639,11 +567,9 @@ Keybindings for ssh'ing into remote machines. By default, Doom Emacs does not u
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(map! :leader (map! :leader
:desc "Ssh into distrotube.com" (:prefix ("\\" . "ssh")
"\\ d" #'(lambda () (interactive) (find-file "/scp:derek@distrotube.com")) :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"))))
:desc "Ssh into my nextcloud"
"\\ n" #'(lambda () (interactive) (find-file "/scp:derek@distrotube.net")))
#+END_SRC #+END_SRC
* SHELLS * SHELLS
@@ -662,8 +588,8 @@ Settings for the various shells and terminal emulators within Emacs.
eshell-visual-commands'("bash" "fish" "htop" "ssh" "top" "zsh") eshell-visual-commands'("bash" "fish" "htop" "ssh" "top" "zsh")
vterm-max-scrollback 5000) vterm-max-scrollback 5000)
(map! :leader (map! :leader
:desc "Counsel eshell history" :desc "Eshell" "e s" #'eshell
"e h" #'counsel-esh-history) :desc "Counsel eshell history" "e h" #'counsel-esh-history)
#+END_SRC #+END_SRC
* SPLITS * SPLITS
@@ -675,8 +601,7 @@ I set splits to default to opening on the right using 'prefer-horizontal-split'.
(set-variable 'split-width-threshold 40 t)) ; make this as low as needed (set-variable 'split-width-threshold 40 t)) ; make this as low as needed
(add-hook 'markdown-mode-hook 'prefer-horizontal-split) (add-hook 'markdown-mode-hook 'prefer-horizontal-split)
(map! :leader (map! :leader
:desc "Clone indirect buffer other window" :desc "Clone indirect buffer other window" "b c" #'clone-indirect-buffer-other-window)
"b c" #'clone-indirect-buffer-other-window)
#+END_SRC #+END_SRC
* WINNER MODE * WINNER MODE
@@ -684,9 +609,7 @@ Winner mode has been included with GNU Emacs since version 20. This is a global
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(map! :leader (map! :leader
:desc "Winner redo" (:prefix ("w" . "window")
"w <right>" #'winner-redo :desc "Winner redo" "<right>" #'winner-redo
:leader :desc "Winner undo" "<left>" #'winner-undo))
:desc "Winner undo"
"w <left>" #'winner-undo)
#+END_SRC #+END_SRC

46
.config/doom/init.el
View File

@@ -23,7 +23,7 @@
company ; the ultimate code completion backend company ; the ultimate code completion backend
;;helm ; the *other* search engine for love and life ;;helm ; the *other* search engine for love and life
;;ido ; the other *other* search engine... ;;ido ; the other *other* search engine...
(ivy +fonts +ivyposframe) ; a search engine for love and life (ivy +fonts +childframe) ; a search engine for love and life
:ui :ui
;;deft ; notational velocity for Emacs ;;deft ; notational velocity for Emacs
@@ -49,7 +49,7 @@
vi-tilde-fringe ; fringe tildes to mark beyond EOB vi-tilde-fringe ; fringe tildes to mark beyond EOB
;;window-select ; visually switch windows ;;window-select ; visually switch windows
workspaces ; tab emulation, persistence & separate workspaces workspaces ; tab emulation, persistence & separate workspaces
;;zen ; distraction-free coding or writing zen ; distraction-free coding or writing
:editor :editor
(evil +everywhere); come to the dark side, we have cookies (evil +everywhere); come to the dark side, we have cookies
@@ -66,9 +66,9 @@
;;word-wrap ; soft wrapping with language-aware indent ;;word-wrap ; soft wrapping with language-aware indent
:emacs :emacs
dired ; making dired pretty [functional] (dired +icons) ; making dired pretty [functional]
electric ; smarter, keyword-based electric-indent electric ; smarter, keyword-based electric-indent
ibuffer ; interactive buffer management (ibuffer +icons) ; interactive buffer management
undo ; persistent, smarter undo for your inevitable mistakes undo ; persistent, smarter undo for your inevitable mistakes
vc ; version-control and Emacs, sitting in a tree vc ; version-control and Emacs, sitting in a tree
@@ -80,7 +80,7 @@
:checkers :checkers
syntax ; tasing you for every semicolon you forget syntax ; tasing you for every semicolon you forget
(spell +flyspell) ; tasing you for misspelling mispelling (spell +aspell) ; tasing you for misspelling mispelling
;;grammar ; tasing grammar mistake every you make ;;grammar ; tasing grammar mistake every you make
:tools :tools
@@ -93,7 +93,7 @@
(eval +overlay) ; run code, run (also, repls) (eval +overlay) ; run code, run (also, repls)
;;gist ; interacting with github gists ;;gist ; interacting with github gists
lookup ; navigate your code and its documentation lookup ; navigate your code and its documentation
;;lsp lsp
magit ; a git porcelain for Emacs magit ; a git porcelain for Emacs
;;make ; run make tasks from Emacs ;;make ; run make tasks from Emacs
;;pass ; password manager for nerds ;;pass ; password manager for nerds
@@ -129,28 +129,28 @@
;;fstar ; (dependent) types and (monadic) effects and Z3 ;;fstar ; (dependent) types and (monadic) effects and Z3
;;gdscript ; the language you waited for ;;gdscript ; the language you waited for
;;(go +lsp) ; the hipster dialect ;;(go +lsp) ; the hipster dialect
(haskell +dante) ; a language that's lazier than I am (haskell +lsp) ; a language that's lazier than I am
;;hy ; readability of scheme w/ speed of python ;;hy ; readability of scheme w/ speed of python
;;idris ; a language you can depend on ;;idris ; a language you can depend on
json ; At least it ain't XML (json +lmsp) ; At least it ain't XML
;;(java +meghanada) ; the poster child for carpal tunnel syndrome ;;(java +meghanada) ; the poster child for carpal tunnel syndrome
javascript ; all(hope(abandon(ye(who(enter(here)))))) (javascript +lsp) ; all(hope(abandon(ye(who(enter(here))))))
;;julia ; a better, faster MATLAB ;;julia ; a better, faster MATLAB
;;kotlin ; a better, slicker Java(Script) ;;kotlin ; a better, slicker Java(Script)
latex ; writing papers in Emacs has never been so fun (latex +lsp) ; writing papers in Emacs has never been so fun
;;lean ;;lean
;;factor ;;factor
;;ledger ; an accounting system in Emacs ;;ledger ; an accounting system in Emacs
lua ; one-based indices? one-based indices (lua +lsp) ; one-based indices? one-based indices
markdown ; writing docs for people to ignore markdown ; writing docs for people to ignore
;;nim ; python + lisp at the speed of c ;;nim ; python + lisp at the speed of c
;;nix ; I hereby declare "nix geht mehr!" ;;nix ; I hereby declare "nix geht mehr!"
;;ocaml ; an objective camel ;;ocaml ; an objective camel
(org +org-bullets +org-ql) ; organize your plain life in plain text (org +org-bullets) ; organize your plain life in plain text
php ; perl's insecure younger brother php ; perl's insecure younger brother
;;plantuml ; diagrams for confusing people more ;;plantuml ; diagrams for confusing people more
;;purescript ; javascript, but functional ;;purescript ; javascript, but functional
python ; beautiful is better than ugly (python +lsp) ; beautiful is better than ugly
;;qt ; the 'cutest' gui framework ever ;;qt ; the 'cutest' gui framework ever
;;racket ; a DSL for DSLs ;;racket ; a DSL for DSLs
;;raku ; the artist formerly known as perl6 ;;raku ; the artist formerly known as perl6
@@ -160,13 +160,13 @@
;;rust ; Fe2O3.unwrap().unwrap().unwrap().unwrap() ;;rust ; Fe2O3.unwrap().unwrap().unwrap().unwrap()
;;scala ; java, but good ;;scala ; java, but good
;;scheme ; a fully conniving family of lisps ;;scheme ; a fully conniving family of lisps
sh ; she sells {ba,z,fi}sh shells on the C xor (sh +lsp) ; she sells {ba,z,fi}sh shells on the C xor
;;sml ;;sml
;;solidity ; do you need a blockchain? No. ;;solidity ; do you need a blockchain? No.
;;swift ; who asked for emoji variables? ;;swift ; who asked for emoji variables?
;;terra ; Earth and Moon in alignment for performance. ;;terra ; Earth and Moon in alignment for performance.
web ; the tubes (web +lsp) ; the tubes
yaml ; JSON, but readable (yaml +lsp) ; JSON, but readable
:email :email
mu4e mu4e
@@ -176,18 +176,18 @@
:app :app
;;calendar ;;calendar
;;emms emms
;;everywhere ; *leave* Emacs!? You must be joking ;;everywhere ; *leave* Emacs!? You must be joking
;;irc ; how neckbeards socialize ;;irc ; how neckbeards socialize
;;(rss +org) ; emacs as an RSS reader ;;(rss +org) ; emacs as an RSS reader
;;twitter ; twitter client https://twitter.com/vnought ;;twitter ; twitter client https://twitter.com/vnought
:emms ;; :emms
emms-setup ;; emms-setup
emms-info ;; emms-info
emms-cue ;; emms-cue
emms-mode-line ;; emms-mode-line
:config :config
;;literate literate
(default +bindings +smartparens)) (default +bindings +smartparens))

6
.config/doom/packages.el
View File

@@ -55,17 +55,17 @@
(package! dmenu) (package! dmenu)
(package! elfeed) (package! elfeed)
(package! elpher) (package! elpher)
(package! emms) ;;(package! emms)
(package! emojify) (package! emojify)
(package! evil-tutor) (package! evil-tutor)
(package! ivy-posframe) (package! ivy-posframe)
(package! mastodon) (package! mastodon)
(package! org-bullets) (package! org-bullets)
(package! org-ql) ;;(package! org-ql)
(package! peep-dired) (package! peep-dired)
(package! pianobar) (package! pianobar)
(package! rainbow-mode) (package! rainbow-mode)
(package! resize-window) (package! resize-window)
(package! tldr) (package! tldr)
(package! wc-mode) (package! wc-mode)
(package! writeroom-mode) ;;(package! writeroom-mode)