oreodave/dotfiles
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~caps tags -> lowercase tags

Browse Source 
e.g. #+BEGIN_SRC -> #+begin_src

This allows me to use C-c C-, for ease of use
This commit is contained in:
Aryadev Chavali
2020-08-17 18:36:40 +01:00
parent fbd45fc101
commit 762ef2abdf
1 changed files with 146 additions and 146 deletions
Download Patch File Download Diff File Expand all files Collapse all files

292
Emacs/.config/emacs/config.org
View File

@@ -1,76 +1,76 @@
#+TITLE: Emacs configuration #+title: Emacs configuration
#+AUTHOR: Oreodave #+author: Oreodave
#+DESCRIPTION: My new Emacs configuration #+description: My new Emacs configuration
#+PROPERTY: header-args :tangle config.el :comment link #+property: header-args :tangle config.el :comment link
#+OPTIONS: toc:nil #+options: toc:nil
#+BEGIN_center #+begin_center
My configuration for vanilla Emacs My configuration for vanilla Emacs
#+END_center #+end_center
#+LATEX: \clearpage #+latex: \clearpage
#+TOC: headlines #+toc: headlines
#+LATEX: \clearpage #+latex: \clearpage
* Initial * Initial
** Who am I? ** Who am I?
Set full name and mail address for use in a variety of applications, Set full name and mail address for use in a variety of applications,
including encryption. including encryption.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(setq user-full-name "Aryadev Chavali" (setq user-full-name "Aryadev Chavali"
user-mail-address "aryadev@aryadevchavali.com") user-mail-address "aryadev@aryadevchavali.com")
#+END_SRC #+end_src
** Saving files ** Saving files
Setup backup files at =user-emacs-directory/saves=, auto-revert mode Setup backup files at =user-emacs-directory/saves=, auto-revert mode
for everything and save my place in a file if possible for everything and save my place in a file if possible
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(setq backup-directory-alist `(("." . "~/.config/emacs/saves"))) (setq backup-directory-alist `(("." . "~/.config/emacs/saves")))
(global-auto-revert-mode 1) (global-auto-revert-mode 1)
(setq global-auto-revert-non-file-buffers nil (setq global-auto-revert-non-file-buffers nil
auto-revert-verbose nil) auto-revert-verbose nil)
#+END_SRC #+end_src
** All yes or no questions to y or n ** All yes or no questions to y or n
Sets yes or no questions to single letter responses. Sets yes or no questions to single letter responses.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(fset 'yes-or-no-p 'y-or-n-p) (fset 'yes-or-no-p 'y-or-n-p)
#+END_SRC #+end_src
** Hs Minor mode ** Hs Minor mode
Turn on hs minor mode for all prog-mode. Turn on hs minor mode for all prog-mode.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(add-hook 'prog-mode-hook #'hs-minor-mode) (add-hook 'prog-mode-hook #'hs-minor-mode)
#+END_SRC #+end_src
** Themes ** Themes
Load my custom "Grayscale" theme (look at [[file:Grayscale-theme.el][this file]]). Load my custom "Grayscale" theme (look at [[file:Grayscale-theme.el][this file]]).
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(load-theme 'Grayscale t) (load-theme 'Grayscale t)
#+END_SRC #+end_src
** Turn off startup buffer and turn off bells ** Turn off startup buffer and turn off bells
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(setq inhibit-startup-screen t (setq inhibit-startup-screen t
ring-bell-function 'ignore) ring-bell-function 'ignore)
#+END_SRC #+end_src
* Emacs Mode-line * Emacs Mode-line
Firstly, declare a variable for the separator between each module Firstly, declare a variable for the separator between each module
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(defconst +modeline/separator " " "Separator between modules.") (defconst +modeline/separator " " "Separator between modules.")
#+END_SRC #+end_src
Then declare a variable for the number of separators between each Then declare a variable for the number of separators between each
module in the modeline. module in the modeline.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(defconst +modeline/sep-count 4 "Number of +modline/separator instances separating modules.") (defconst +modeline/sep-count 4 "Number of +modline/separator instances separating modules.")
#+END_SRC #+end_src
Then, declare a list of reserved characters for which the previously Then, declare a list of reserved characters for which the previously
declared seperator won't be applied when placed at the end of a module declared seperator won't be applied when placed at the end of a module
string. string.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(defconst +modeline/reserved-chars (list "[" "(") (defconst +modeline/reserved-chars (list "[" "(")
"Characters that, when at the end of a module string, won't have the separator applied to them.") "Characters that, when at the end of a module string, won't have the separator applied to them.")
#+END_SRC #+end_src
Now declare a function that applies the separator with respect to the Now declare a function that applies the separator with respect to the
reserved characters to any one string. reserved characters to any one string.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(defun +modeline/handle-string (STR) (defun +modeline/handle-string (STR)
(condition-case nil (condition-case nil
(progn (progn
@@ -78,10 +78,10 @@ reserved characters to any one string.
(cond ((cl-member (car (last (split-string STR "" t))) +modeline/reserved-chars :test #'string=) STR) (cond ((cl-member (car (last (split-string STR "" t))) +modeline/reserved-chars :test #'string=) STR)
(t (concat STR (cl-reduce #'concat (cl-loop for i from 1 to +modeline/sep-count collect +modeline/separator)))))) (t (concat STR (cl-reduce #'concat (cl-loop for i from 1 to +modeline/sep-count collect +modeline/separator))))))
(error STR))) (error STR)))
#+END_SRC #+end_src
Finally, set the mode-line-format. Finally, set the mode-line-format.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(setq-default (setq-default
mode-line-format mode-line-format
(mapcar #'+modeline/handle-string (mapcar #'+modeline/handle-string
@@ -98,7 +98,7 @@ Finally, set the mode-line-format.
"%I" "%I"
vc-mode vc-mode
mode-line-end-spaces))) mode-line-end-spaces)))
#+END_SRC #+end_src
* Custom Functions * Custom Functions
These are custom functions I have defined These are custom functions I have defined
** New line function ** New line function
@@ -119,7 +119,7 @@ The logic is pretty simple:
- Return to previous location - Return to previous location
- Enter normal state - Enter normal state
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(with-eval-after-load "evil" (with-eval-after-load "evil"
(defun dx:newline (&optional BACKWARD) (defun dx:newline (&optional BACKWARD)
(interactive) (interactive)
@@ -128,11 +128,11 @@ The logic is pretty simple:
(t (evil-open-above 1))) (t (evil-open-above 1)))
(goto-char (+ old 1)) (goto-char (+ old 1))
(evil-normal-state)))) (evil-normal-state))))
#+END_SRC #+end_src
** Toggle buffer ** Toggle buffer
For some buffer with name =buf-name= with a creation function For some buffer with name =buf-name= with a creation function
=buf-create=, toggle it via this function. =buf-create=, toggle it via this function.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(defun +dx/toggle-buffer (buf-name buf-create) (defun +dx/toggle-buffer (buf-name buf-create)
(interactive) (interactive)
(let* ((buffer (or (get-buffer buf-name) (funcall buf-create))) (let* ((buffer (or (get-buffer buf-name) (funcall buf-create)))
@@ -143,12 +143,12 @@ For some buffer with name =buf-name= with a creation function
(t ; not displayed thus show and select (t ; not displayed thus show and select
(display-buffer buffer) (display-buffer buffer)
(select-window (get-buffer-window buffer)))))) (select-window (get-buffer-window buffer))))))
#+END_SRC #+end_src
* General * General
Setup general, a good package for defining keys. In this case, I Setup general, a good package for defining keys. In this case, I
generate a new definer for the "LEADER" keys. Leader is bound to SPC generate a new definer for the "LEADER" keys. Leader is bound to SPC
and it's functionally equivalent the doom/spacemacs leader. and it's functionally equivalent the doom/spacemacs leader.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package general (use-package general
:config :config
(general-def 'normal global-map "SPC" nil) (general-def 'normal global-map "SPC" nil)
@@ -186,12 +186,12 @@ and it's functionally equivalent the doom/spacemacs leader.
"f" #'find-file "f" #'find-file
"s" #'save-buffer "s" #'save-buffer
"p" #'(lambda () (interactive) (find-file (concat user-emacs-directory "config.org"))))) "p" #'(lambda () (interactive) (find-file (concat user-emacs-directory "config.org")))))
#+END_SRC #+end_src
* Evil * Evil
** Evil default ** Evil default
Setup the evil package, with some basic keybinds. Also declare a Setup the evil package, with some basic keybinds. Also declare a
leader-map at "SPC". leader-map at "SPC".
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package evil (use-package evil
:hook (after-init-hook . evil-mode) :hook (after-init-hook . evil-mode)
:init :init
@@ -208,21 +208,21 @@ leader-map at "SPC".
"j" #'evil-window-down "j" #'evil-window-down
"k" #'evil-window-up "k" #'evil-window-up
"l" #'evil-window-right)) "l" #'evil-window-right))
#+END_SRC #+end_src
** Evil surround ** Evil surround
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package evil-surround (use-package evil-surround
:after evil :after evil
:config :config
(global-evil-surround-mode)) (global-evil-surround-mode))
#+END_SRC #+end_src
** Evil commentary ** Evil commentary
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package evil-commentary (use-package evil-commentary
:after evil :after evil
:config :config
(evil-commentary-mode)) (evil-commentary-mode))
#+END_SRC #+end_src
** Evil mc ** Evil mc
Setup for multicursors in Evil mode. Don't let evil-mc setup it's own Setup for multicursors in Evil mode. Don't let evil-mc setup it's own
keymap because it uses 'gr' as its prefix, which I don't like. keymap because it uses 'gr' as its prefix, which I don't like.
@@ -231,7 +231,7 @@ Instead, bind some useful functions to my personal =dx:evil-mc-map=
which is bound to 'gz'. Furthermore, define a function which is bound to 'gz'. Furthermore, define a function
=dx:evil-mc-cursor-here= which pauses cursors upon placing a cursor at =dx:evil-mc-cursor-here= which pauses cursors upon placing a cursor at
the current position. the current position.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package evil-mc (use-package evil-mc
:after evil :after evil
:bind (("M-p" . evil-mc-skip-and-goto-prev-cursor) :bind (("M-p" . evil-mc-skip-and-goto-prev-cursor)
@@ -255,15 +255,15 @@ the current position.
(interactive) (interactive)
(evil-mc-make-cursor-here) (evil-mc-make-cursor-here)
(evil-mc-pause-cursors))) (evil-mc-pause-cursors)))
#+END_SRC #+end_src
** Evil collection ** Evil collection
Setup evil collection, but don't turn on the mode. Instead, I'll turn Setup evil collection, but don't turn on the mode. Instead, I'll turn
on setups for specific modes I think benefit from it. on setups for specific modes I think benefit from it.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package evil-collection (use-package evil-collection
:after evil) :after evil)
#+END_SRC #+end_src
* Ivy * Ivy
Ivy is a completion framework for Emacs, and my preferred (sometimes Ivy is a completion framework for Emacs, and my preferred (sometimes
second favourite) one. It has a great set of features with little to second favourite) one. It has a great set of features with little to
@@ -274,7 +274,7 @@ after init.
Setup vim-like bindings for the minibuffer ("C-(j|k)" for down|up the Setup vim-like bindings for the minibuffer ("C-(j|k)" for down|up the
selection list). Also setup evil-collection for ivy. selection list). Also setup evil-collection for ivy.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package ivy (use-package ivy
:after evil-collection :after evil-collection
:general :general
@@ -298,7 +298,7 @@ selection list). Also setup evil-collection for ivy.
ivy-use-selectable-prompt t) ivy-use-selectable-prompt t)
(evil-collection-ivy-setup) (evil-collection-ivy-setup)
(ivy-mode)) (ivy-mode))
#+END_SRC #+end_src
** Counsel ** Counsel
Setup for counsel. Load after ivy and helpful. Setup for counsel. Load after ivy and helpful.
@@ -309,7 +309,7 @@ Bind:
Along with that, set the help function and variable functions to their Along with that, set the help function and variable functions to their
helpful counterparts. helpful counterparts.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package counsel (use-package counsel
:defer t :defer t
:general :general
@@ -331,27 +331,27 @@ helpful counterparts.
:config :config
(setq ivy-initial-inputs-alist nil) (setq ivy-initial-inputs-alist nil)
(counsel-mode +1)) (counsel-mode +1))
#+END_SRC #+end_src
** Counsel etags ** Counsel etags
Counsel etags allows me to search generated tag files for tags. I Counsel etags allows me to search generated tag files for tags. I
already have a function defined to generate the tags, so it's just already have a function defined to generate the tags, so it's just
searching them which I find to be a bit of a hassle, and where this searching them which I find to be a bit of a hassle, and where this
package comes in. package comes in.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package counsel-etags (use-package counsel-etags
:after counsel :after counsel
:general :general
(leader "st" #'counsel-etags-find-tag)) (leader "st" #'counsel-etags-find-tag))
#+END_SRC #+end_src
* Prompt buffer switch * Prompt buffer switch
Essentially add advice to the window split functions so that they run Essentially add advice to the window split functions so that they run
ivy-switch-buffer once they're finished. ivy-switch-buffer once they're finished.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(with-eval-after-load "ivy" (with-eval-after-load "ivy"
(with-eval-after-load "evil" (with-eval-after-load "evil"
(advice-add #'evil-window-vsplit :after #'ivy-switch-buffer) (advice-add #'evil-window-vsplit :after #'ivy-switch-buffer)
(advice-add #'evil-window-split :after #'ivy-switch-buffer))) (advice-add #'evil-window-split :after #'ivy-switch-buffer)))
#+END_SRC #+end_src
* Xwidget * Xwidget
Xwidget is a package (that must be compiled at source) which allows Xwidget is a package (that must be compiled at source) which allows
for the insertion of arbitrary xwidgets into Emacs through for the insertion of arbitrary xwidgets into Emacs through
@@ -364,7 +364,7 @@ Though I am not to keen on using Emacs to browse the web /via/ xwidget
capability to render full fledged HTML documents, as it may come of capability to render full fledged HTML documents, as it may come of
use when doing web development. I can see the results of work very use when doing web development. I can see the results of work very
quickly without switching windows or workspaces. quickly without switching windows or workspaces.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package xwidget (use-package xwidget
:straight nil :straight nil
:general :general
@@ -385,11 +385,11 @@ quickly without switching windows or workspaces.
"gr" #'xwidget-webkit-reload "gr" #'xwidget-webkit-reload
"gg" #'xwidget-webkit-scroll-top "gg" #'xwidget-webkit-scroll-top
"G" #'xwidget-webkit-scroll-bottom)) "G" #'xwidget-webkit-scroll-bottom))
#+END_SRC #+end_src
* Avy * Avy
Setup avy with leader. Setup avy with leader.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package avy (use-package avy
:after evil :after evil
:general :general
@@ -397,11 +397,11 @@ Setup avy with leader.
:infix "s" :infix "s"
"l" #'avy-goto-line "l" #'avy-goto-line
"g" #'avy-goto-char-2)) "g" #'avy-goto-char-2))
#+END_SRC #+end_src
* Projectile * Projectile
Setup projectile, along with the tags command. Also bind "C-c C-p" to Setup projectile, along with the tags command. Also bind "C-c C-p" to
the projectile command map for quick access. the projectile command map for quick access.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package projectile (use-package projectile
:after evil :after evil
:hook (prog-mode-hook . projectile-mode) :hook (prog-mode-hook . projectile-mode)
@@ -411,15 +411,15 @@ the projectile command map for quick access.
(setq projectile-tags-command "ctags -Re -f \"%s\" %s \"%s\"") (setq projectile-tags-command "ctags -Re -f \"%s\" %s \"%s\"")
:config :config
(projectile-global-mode)) (projectile-global-mode))
#+END_SRC #+end_src
** Counsel projectile ** Counsel projectile
Counsel projectile provides the ivy interface to projectile commands, which is really useful. Counsel projectile provides the ivy interface to projectile commands, which is really useful.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package counsel-projectile (use-package counsel-projectile
:after (projectile counsel) :after (projectile counsel)
:config :config
(counsel-projectile-mode +1)) (counsel-projectile-mode +1))
#+END_SRC #+end_src
* Mail * Mail
Mail is a funny thing; most people use it just for business or Mail is a funny thing; most people use it just for business or
advertising and it's come out of use in terms of personal advertising and it's come out of use in terms of personal
@@ -430,7 +430,7 @@ free software movement who heavily use mail for communication.
Integrating mail into Emacs helps as I can send source code and Integrating mail into Emacs helps as I can send source code and
integrate it into my workflow just a bit better. integrate it into my workflow just a bit better.
** Notmuch ** Notmuch
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(setq +mail/signature "---------------\nAryadev Chavali") (setq +mail/signature "---------------\nAryadev Chavali")
(use-package notmuch (use-package notmuch
:commands notmuch :commands notmuch
@@ -448,9 +448,9 @@ integrate it into my workflow just a bit better.
:config :config
(evil-define-key 'normal notmuch-hello-mode-map "M" #'+mail/sync-mail) (evil-define-key 'normal notmuch-hello-mode-map "M" #'+mail/sync-mail)
(evil-collection-notmuch-setup)) (evil-collection-notmuch-setup))
#+END_SRC #+end_src
** Smtpmail ** Smtpmail
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package smtpmail (use-package smtpmail
:commands mail-send :commands mail-send
:after notmuch :after notmuch
@@ -462,7 +462,7 @@ integrate it into my workflow just a bit better.
:init :init
(setq send-mail-function #'smtpmail-send-it (setq send-mail-function #'smtpmail-send-it
message-send-mail-function #'smtpmail-send-it)) message-send-mail-function #'smtpmail-send-it))
#+END_SRC #+end_src
** Org message ** Org message
Org message allows for the use of org mode when composing mails, Org message allows for the use of org mode when composing mails,
generating HTML multipart emails. This integrates the WYSIWYG generating HTML multipart emails. This integrates the WYSIWYG
@@ -470,11 +470,11 @@ experience into mail in Emacs while also providing powerful text
features with basically no learning curve (as long as you've already features with basically no learning curve (as long as you've already
learnt the basics of org). learnt the basics of org).
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package org-msg (use-package org-msg
:after 'notmuch :after notmuch
:hook (message-mode-hook . org-msg-mode)) :hook (message-mode-hook . org-msg-mode))
#+END_SRC #+end_src
* Dired * Dired
Setup for dired. Firstly, as it's an inbuilt package don't let Setup for dired. Firstly, as it's an inbuilt package don't let
straight try and download it. Make dired-hide-details-mode the straight try and download it. Make dired-hide-details-mode the
@@ -483,7 +483,7 @@ keymap =dx:dired-map= which is bound to the prefix "C-c d", binding
useful dired functions. Setup evil collection for dired (even though useful dired functions. Setup evil collection for dired (even though
dired doesn't really conflict with evil, there are some black corners dired doesn't really conflict with evil, there are some black corners
I'd like to adjust) I'd like to adjust)
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package dired (use-package dired
:straight nil :straight nil
:hook (dired-mode-hook . dired-hide-details-mode) :hook (dired-mode-hook . dired-hide-details-mode)
@@ -496,11 +496,10 @@ I'd like to adjust)
"d" #'dired-jump) "d" #'dired-jump)
:config :config
(evil-collection-dired-setup)) (evil-collection-dired-setup))
#+END_SRC #+end_src
* Hydra * Hydra
Use hydras for stuff that I use often, currently buffer manipulation Use hydras for stuff that I use often, currently buffer manipulation
#+begin_src emacs-lisp
#+BEGIN_SRC emacs-lisp
(use-package hydra (use-package hydra
:after evil :after evil
:init :init
@@ -536,37 +535,37 @@ Use hydras for stuff that I use often, currently buffer manipulation
("d" dx:kill-defun) ("d" dx:kill-defun)
("p" dx:paste-section) ("p" dx:paste-section)
("TAB" evil-toggle-fold))) ("TAB" evil-toggle-fold)))
#+END_SRC #+end_src
* IBuffer * IBuffer
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package ibuffer (use-package ibuffer
:after evil-collection :after evil-collection
:config :config
(evil-collection-ibuffer-setup)) (evil-collection-ibuffer-setup))
#+END_SRC #+end_src
* Helpful * Helpful
Basic setup, will be fully integrated in counsel. Basic setup, will be fully integrated in counsel.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package helpful (use-package helpful
:commands (helpful-callable helpful-variable) :commands (helpful-callable helpful-variable)
:config :config
(evil-define-key 'normal helpful-mode-map "q" #'quit-window)) (evil-define-key 'normal helpful-mode-map "q" #'quit-window))
#+END_SRC #+end_src
* Which-key * Which-key
Pretty simple, just activate after init. Pretty simple, just activate after init.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package which-key (use-package which-key
:after evil :after evil
:config :config
(which-key-mode)) (which-key-mode))
#+END_SRC #+end_src
* Yasnippet * Yasnippet
Yasnippet is a great package for snippets, which I use heavily in Yasnippet is a great package for snippets, which I use heavily in
programming and org-mode. I setup here the global mode for yasnippet programming and org-mode. I setup here the global mode for yasnippet
and a collection of snippets for ease of use. and a collection of snippets for ease of use.
** Yasnippet default ** Yasnippet default
Setup global mode after evil mode has been loaded Setup global mode after evil mode has been loaded
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package yasnippet (use-package yasnippet
:after evil :after evil
:hook ((prog-mode-hook . yas-minor-mode) :hook ((prog-mode-hook . yas-minor-mode)
@@ -576,29 +575,29 @@ Setup global mode after evil mode has been loaded
"i" #'yas-insert-snippet) "i" #'yas-insert-snippet)
:config :config
(yas-load-directory (concat user-emacs-directory "snippets"))) (yas-load-directory (concat user-emacs-directory "snippets")))
#+END_SRC #+end_src
** Yasnippet snippets ** Yasnippet snippets
Collection of snippets, activate after yasnippet has been loaded. Collection of snippets, activate after yasnippet has been loaded.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package yasnippet-snippets (use-package yasnippet-snippets
:after yasnippet) :after yasnippet)
#+END_SRC #+end_src
* Keychord * Keychord
Keychord is only really here for this one chord I wish to define: "jk" Keychord is only really here for this one chord I wish to define: "jk"
for exiting insert state. Otherwise, I don't really need it. for exiting insert state. Otherwise, I don't really need it.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package key-chord (use-package key-chord
:after evil :after evil
:config :config
(key-chord-define evil-insert-state-map "jk" #'evil-normal-state) (key-chord-define evil-insert-state-map "jk" #'evil-normal-state)
(key-chord-mode +1)) (key-chord-mode +1))
#+END_SRC #+end_src
* Ripgrep * Ripgrep
The ripgrep package provides utilities to grep projects and files for The ripgrep package provides utilities to grep projects and files for
strings via the rg tool. Though [[*Ivy][ivy]] comes with =counsel-rg= using it strings via the rg tool. Though [[*Ivy][ivy]] comes with =counsel-rg= using it
makes me dependent on the ivy framework, and this configuration is makes me dependent on the ivy framework, and this configuration is
intentionally built to be modular and switchable. intentionally built to be modular and switchable.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package rg (use-package rg
:after evil :after evil
:general :general
@@ -614,39 +613,39 @@ intentionally built to be modular and switchable.
rg-show-header t rg-show-header t
rg-custom-type-aliases nil rg-custom-type-aliases nil
rg-default-alias-fallback "all")) rg-default-alias-fallback "all"))
#+END_SRC #+end_src
* Magit * Magit
Magit is *the* git porcelain for Emacs, which perfectly encapsulates Magit is *the* git porcelain for Emacs, which perfectly encapsulates
the git cli. In this case, I just need to setup the bindings for it. the git cli. In this case, I just need to setup the bindings for it.
As magit will definitely load after evil (as it must be run by a As magit will definitely load after evil (as it must be run by a
binding, and evil will load after init), I can use evil-collection binding, and evil will load after init), I can use evil-collection
freely. freely.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package magit (use-package magit
:general :general
(leader "g" #'magit-status)) (leader "g" #'magit-status))
(use-package evil-magit (use-package evil-magit
:after magit) :after magit)
#+END_SRC #+end_src
* Company * Company
Company is the auto complete system I use. I don't like having heavy Company is the auto complete system I use. I don't like having heavy
setups for company, as it only makes it worse to use. In this case, setups for company, as it only makes it worse to use. In this case,
just setup some evil binds for company just setup some evil binds for company
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package company (use-package company
:hook (prog-mode-hook . company-mode) :hook (prog-mode-hook . company-mode)
:bind (("C-SPC" . company-complete) :bind (("C-SPC" . company-complete)
:map company-active-map :map company-active-map
("M-j" . company-select-next) ("M-j" . company-select-next)
("M-k" . company-select-previous))) ("M-k" . company-select-previous)))
#+END_SRC #+end_src
* Elfeed * Elfeed
Elfeed is the perfect RSS feed reader, integrated into Emacs Elfeed is the perfect RSS feed reader, integrated into Emacs
perfectly. I've got a set of feeds that I use for a large variety of perfectly. I've got a set of feeds that I use for a large variety of
stuff, mostly media and entertainment. I've also bound "<leader> ar" stuff, mostly media and entertainment. I've also bound "<leader> ar"
to elfeed for loading the system. to elfeed for loading the system.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package elfeed (use-package elfeed
:general :general
(leader "ar" #'elfeed) (leader "ar" #'elfeed)
@@ -675,7 +674,7 @@ to elfeed for loading the system.
(evil-define-key 'normal elfeed-search-mode-map "s" #'elfeed-search-live-filter) (evil-define-key 'normal elfeed-search-mode-map "s" #'elfeed-search-live-filter)
(evil-define-key 'normal elfeed-search-mode-map "<return>" #'elfeed-search-show-entry) (evil-define-key 'normal elfeed-search-mode-map "<return>" #'elfeed-search-show-entry)
(setq elfeed-feeds (cl-map 'list #'(lambda (item) (append (list (nth 1 item)) (cdr (cdr item)))) +rss/feed-urls))) (setq elfeed-feeds (cl-map 'list #'(lambda (item) (append (list (nth 1 item)) (cdr (cdr item)))) +rss/feed-urls)))
#+END_SRC #+end_src
* Eshell * Eshell
Eshell is the integrated shell environment for Emacs. Though it isn't Eshell is the integrated shell environment for Emacs. Though it isn't
necessarily *the best* shell, it really suits the 'integrated necessarily *the best* shell, it really suits the 'integrated
@@ -694,7 +693,7 @@ greater power than many shells I know of.
Setup a function that /toggles/ the eshell window rather than Setup a function that /toggles/ the eshell window rather than
just opening it via =+dx/toggle-buffer=. just opening it via =+dx/toggle-buffer=.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package eshell (use-package eshell
:general :general
(leader (leader
@@ -707,15 +706,17 @@ just opening it via =+dx/toggle-buffer=.
(interactive) (interactive)
(+dx/toggle-buffer "*eshell*" #'eshell))) (+dx/toggle-buffer "*eshell*" #'eshell)))
#+END_SRC #+end_src
* Window management * Window management
Window management is really important. I find the default window Window management is really important. I find the default window
handling of Emacs incredibly annoying: sometimes consuming my windows, handling of Emacs incredibly annoying: sometimes consuming my windows,
sometimes creating new ones. So, as Emacs is the ultimate editor, I sometimes creating new ones. So, as Emacs is the ultimate editor, I
want to configure and fine tune the window management of Emacs. want to configure and fine tune the window management of Emacs.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(setq display-buffer-alist (setq display-buffer-alist
'(("\\*e?shell\\*" '(("\\*Org Src.*"
(display-buffer-same-window))
("\\*e?shell\\*"
(display-buffer-at-bottom) (display-buffer-at-bottom)
(window-height . 0.25)) (window-height . 0.25))
("\\*[Hh]elp.*" ("\\*[Hh]elp.*"
@@ -747,21 +748,21 @@ want to configure and fine tune the window management of Emacs.
(display-buffer-at-bottom) (display-buffer-at-bottom)
(window-height . 0.25)) (window-height . 0.25))
)) ))
#+END_SRC #+end_src
* Text modes * Text modes
** Flyspell ** Flyspell
Flyspell allows me to quickly spell check text documents. I use Flyspell allows me to quickly spell check text documents. I use
flyspell primarily in org mode, as that is my preferred prose writing flyspell primarily in org mode, as that is my preferred prose writing
software, but I also need it in commit messages and so on. So software, but I also need it in commit messages and so on. So
flyspell-mode should be hooked to text-mode. flyspell-mode should be hooked to text-mode.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package flyspell (use-package flyspell
:hook (text-mode-hook . flyspell-mode)) :hook (text-mode-hook . flyspell-mode))
#+END_SRC #+end_src
As I use ivy I'd like the flyspell correct interface (which allow for As I use ivy I'd like the flyspell correct interface (which allow for
corrections to real words) to use ivy. corrections to real words) to use ivy.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package flyspell-correct-ivy (use-package flyspell-correct-ivy
:after flyspell :after flyspell
:general :general
@@ -770,13 +771,12 @@ corrections to real words) to use ivy.
:map flyspell-mode-map :map flyspell-mode-map
"M-a" #'flyspell-correct-at-point "M-a" #'flyspell-correct-at-point
"M-A" #'ispell-word)) "M-A" #'ispell-word))
#+END_SRC #+end_src
** Set auto-fill-mode for all text-modes ** Set auto-fill-mode for all text-modes
Auto fill mode is nice for most text modes, 80 char limit is great. Auto fill mode is nice for most text modes, 80 char limit is great.
#+begin_src emacs-lisp
#+BEGIN_SRC emacs-lisp
(add-hook 'text-mode-hook #'auto-fill-mode) (add-hook 'text-mode-hook #'auto-fill-mode)
#+END_SRC #+end_src
** Delete a sentence in auto fill ** Delete a sentence in auto fill
In long lines via truncate lines, deleting till the end of the In long lines via truncate lines, deleting till the end of the
sentence was easy via vim motions. However, the same action is sentence was easy via vim motions. However, the same action is
@@ -795,7 +795,7 @@ possible which is still mnemonic.
First, the function. I'll use search-forward (from zap* lib) to find First, the function. I'll use search-forward (from zap* lib) to find
the period. Then auto-fill to make it look nice. the period. Then auto-fill to make it look nice.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(defun +text/delete-till-sentence () (defun +text/delete-till-sentence ()
"Delete all text from current point to the next closest period." "Delete all text from current point to the next closest period."
(interactive) (interactive)
@@ -803,21 +803,21 @@ the period. Then auto-fill to make it look nice.
(search-forward ". ") (search-forward ". ")
(kill-region (region-beginning) (region-end)) (kill-region (region-beginning) (region-end))
(fill-paragraph)) (fill-paragraph))
#+END_SRC #+end_src
Now, the binding Now, the binding
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(general-def (general-def
:states '(normal insert) :states '(normal insert)
(kbd "M-d") #'+text/delete-till-sentence) (kbd "M-d") #'+text/delete-till-sentence)
#+END_SRC #+end_src
* Org * Org
** Org default with evil ** Org default with evil
Setup for org mode, currently basically nothing. Has evil-org for Setup for org mode, currently basically nothing. Has evil-org for
evil bindings. evil bindings.
Also setup a lot of variables, particularly for latex exports. Also setup a lot of variables, particularly for latex exports.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package org (use-package org
:hook (org-mode-hook . yas-minor-mode) :hook (org-mode-hook . yas-minor-mode)
:bind (:map org-mode-map :bind (:map org-mode-map
@@ -860,7 +860,7 @@ Also setup a lot of variables, particularly for latex exports.
(use-package evil-org (use-package evil-org
:hook (org-mode-hook . evil-org-mode)) :hook (org-mode-hook . evil-org-mode))
#+END_SRC #+end_src
** Org fragtog ** Org fragtog
Toggle latex fragments in org mode so you get fancy maths symbols. I Toggle latex fragments in org mode so you get fancy maths symbols. I
use latex a bit in org mode as it is the premier way of getting use latex a bit in org mode as it is the premier way of getting
@@ -870,36 +870,36 @@ latex.
As Org mode has the ability to accept arbitrary inputs of Latex As Org mode has the ability to accept arbitrary inputs of Latex
(through escaped (square) brackets), allowing me to observe how they (through escaped (square) brackets), allowing me to observe how they
look is nice to have. look is nice to have.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package org-fragtog (use-package org-fragtog
:hook (org-mode-hook . org-fragtog-mode)) :hook (org-mode-hook . org-fragtog-mode))
#+END_SRC #+end_src
** Org pretty tables ** Org pretty tables
Make the default ASCII tables of org mode pretty with Make the default ASCII tables of org mode pretty with
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package org-pretty-table-mode (use-package org-pretty-table-mode
:straight (org-pretty-table-mode :type git :host github :repo "Fuco1/org-pretty-table") :straight (org-pretty-table-mode :type git :host github :repo "Fuco1/org-pretty-table")
:hook org-mode-hook) :hook org-mode-hook)
#+END_SRC #+end_src
** Org pretty tags ** Org pretty tags
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package org-pretty-tags (use-package org-pretty-tags
:hook (org-mode-hook . org-pretty-tags-mode)) :hook (org-mode-hook . org-pretty-tags-mode))
#+END_SRC #+end_src
** Org superstar ** Org superstar
Org superstar adds cute little unicode symbols for headers, much Org superstar adds cute little unicode symbols for headers, much
better than the default asterisks. better than the default asterisks.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package org-superstar (use-package org-superstar
:hook (org-mode-hook . org-superstar-mode)) :hook (org-mode-hook . org-superstar-mode))
#+END_SRC #+end_src
* Major modes and Programming * Major modes and Programming
Setups for common major modes and languages. Here are some basic Setups for common major modes and languages. Here are some basic
packages for programming first packages for programming first
** Smartparens ** Smartparens
Smartparens is a smarter electric-parens, it's much more aware of Smartparens is a smarter electric-parens, it's much more aware of
stuff and easier to use. stuff and easier to use.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package smartparens (use-package smartparens
:hook (prog-mode-hook . smartparens-mode) :hook (prog-mode-hook . smartparens-mode)
:hook (text-mode-hook . smartparens-mode) :hook (text-mode-hook . smartparens-mode)
@@ -916,19 +916,19 @@ stuff and easier to use.
(sp-pair "\"" nil :unless unless-list)) (sp-pair "\"" nil :unless unless-list))
(sp-local-pair sp-lisp-modes "(" ")" :unless '(:rem sp-point-before-same-p)) (sp-local-pair sp-lisp-modes "(" ")" :unless '(:rem sp-point-before-same-p))
(require 'smartparens-config)) (require 'smartparens-config))
#+END_SRC #+end_src
** Show-paren-mode ** Show-paren-mode
Show parenthesis for Emacs Show parenthesis for Emacs
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(add-hook 'prog-mode-hook #'show-paren-mode) (add-hook 'prog-mode-hook #'show-paren-mode)
#+END_SRC #+end_src
** Eldoc ** Eldoc
Eldoc presents documentation to the user upon placing ones cursor upon Eldoc presents documentation to the user upon placing ones cursor upon
any symbol. This is very useful when programming as it: any symbol. This is very useful when programming as it:
- presents the arguments of functions while writing calls for them - presents the arguments of functions while writing calls for them
- presents typing and documentation of variables - presents typing and documentation of variables
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package eldoc (use-package eldoc
:hook (prog-mode-hook . eldoc-mode)) :hook (prog-mode-hook . eldoc-mode))
@@ -939,12 +939,12 @@ any symbol. This is very useful when programming as it:
(eldoc-box-clear-with-C-g t)) (eldoc-box-clear-with-C-g t))
:config :config
(advice-add #'evil-force-normal-state :before #'eldoc-box-quit-frame)) (advice-add #'evil-force-normal-state :before #'eldoc-box-quit-frame))
#+END_SRC #+end_src
** Eglot ** Eglot
Eglot is a library of packages to communicate with LSP servers for Eglot is a library of packages to communicate with LSP servers for
better programming capabilities. Interactions with a server provide better programming capabilities. Interactions with a server provide
results to the client, done through JSON. results to the client, done through JSON.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package eglot (use-package eglot
:hook (c++-mode-hook . eglot-ensure) :hook (c++-mode-hook . eglot-ensure)
:hook (c-mode-hook . eglot-ensure) :hook (c-mode-hook . eglot-ensure)
@@ -959,13 +959,13 @@ results to the client, done through JSON.
"r" #'eglot-rename) "r" #'eglot-rename)
:config :config
(add-to-list 'eglot-server-programs '((c-mode c++-mode) "clangd"))) (add-to-list 'eglot-server-programs '((c-mode c++-mode) "clangd")))
#+END_SRC #+end_src
** Flycheck ** Flycheck
Flycheck is the checking system for Emacs. I don't necessarily like Flycheck is the checking system for Emacs. I don't necessarily like
having all my code checked all the time, so I haven't added a hook to having all my code checked all the time, so I haven't added a hook to
prog-mode as it would be better for me to decide when I want checking prog-mode as it would be better for me to decide when I want checking
and when I don't. and when I don't.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package flycheck (use-package flycheck
:commands flycheck-mode :commands flycheck-mode
:config :config
@@ -975,20 +975,20 @@ and when I don't.
(when (not (or flycheck-mode global-flycheck-mode)) (when (not (or flycheck-mode global-flycheck-mode))
(flycheck-mode)) (flycheck-mode))
(flycheck-list-errors))) (flycheck-list-errors)))
#+END_SRC #+end_src
** Activate tabs ** Activate tabs
Set tabs to nil by default, with normal tab size set to 2. Set tabs to nil by default, with normal tab size set to 2.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(setq-default indent-tabs-mode nil (setq-default indent-tabs-mode nil
tab-width 2) tab-width 2)
#+END_SRC #+end_src
Add a function to activate tabs mode for any modes you want tabs in. Add a function to activate tabs mode for any modes you want tabs in.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(defun dx:activate-tabs () (defun dx:activate-tabs ()
(interactive) (interactive)
(setq indent-tabs-mode t)) (setq indent-tabs-mode t))
#+END_SRC #+end_src
** C/C++ ** C/C++
Setup for C and C++ modes via the cc-mode package. Setup for C and C++ modes via the cc-mode package.
@@ -1023,7 +1023,7 @@ that it best suits them. Furthermore, tabs produce smaller source
files. However, this isn't set in stone and I will return to no tabs files. However, this isn't set in stone and I will return to no tabs
when needed in projects. when needed in projects.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package cc-mode (use-package cc-mode
:hook (c-mode-hook . dx:activate-tabs) :hook (c-mode-hook . dx:activate-tabs)
:hook (c++-mode-hook . dx:activate-tabs) :hook (c++-mode-hook . dx:activate-tabs)
@@ -1051,22 +1051,22 @@ when needed in projects.
(access-label . 0) (access-label . 0)
(label . 0) (label . 0)
(statement-cont . +))))) (statement-cont . +)))))
#+END_SRC #+end_src
*** Clang format *** Clang format
Clang format for when: Clang format for when:
- eglot isn't working/I'm not running it - eglot isn't working/I'm not running it
- eglot format is bad - eglot format is bad
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package clang-format (use-package clang-format
:after cc-mode :after cc-mode
:config :config
(bind-key "C-c '" #'clang-format-region c-mode-map) (bind-key "C-c '" #'clang-format-region c-mode-map)
(bind-key "C-c '" #'clang-format-region c++-mode-map)) (bind-key "C-c '" #'clang-format-region c++-mode-map))
#+END_SRC #+end_src
** HTML/CSS/JS ** HTML/CSS/JS
Firstly, web mode for consistent colouring of syntax. Firstly, web mode for consistent colouring of syntax.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package web-mode (use-package web-mode
:mode ("\\.html" . web-mode) :mode ("\\.html" . web-mode)
:mode ("\\.js" . web-mode) :mode ("\\.js" . web-mode)
@@ -1074,10 +1074,10 @@ Firstly, web mode for consistent colouring of syntax.
:custom :custom
((web-mode-markup-indent-offset 2) ((web-mode-markup-indent-offset 2)
(web-mode-css-indent-offset 2))) (web-mode-css-indent-offset 2)))
#+END_SRC #+end_src
Then emmet for super speed Then emmet for super speed
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(use-package emmet-mode (use-package emmet-mode
:hook (web-mode-hook . emmet-mode) :hook (web-mode-hook . emmet-mode)
:general :general
@@ -1087,11 +1087,11 @@ Then emmet for super speed
"TAB" #'emmet-expand-line "TAB" #'emmet-expand-line
"M-j" #'emmet-next-edit-point "M-j" #'emmet-next-edit-point
"M-k" #'emmet-prev-edit-point)) "M-k" #'emmet-prev-edit-point))
#+END_SRC #+end_src
** Emacs lisp ** Emacs lisp
Add a new lisp indent function which indents newline lists more Add a new lisp indent function which indents newline lists more
appropriately. appropriately.
#+BEGIN_SRC emacs-lisp #+begin_src emacs-lisp
(with-eval-after-load "lisp-mode" (with-eval-after-load "lisp-mode"
(defun +modded/lisp-indent-function (indent-point state) (defun +modded/lisp-indent-function (indent-point state)
"This function is the normal value of the variable `lisp-indent-function'. "This function is the normal value of the variable `lisp-indent-function'.
@@ -1163,4 +1163,4 @@ Lisp function does not specify a special indentation."
(method (method
(funcall method indent-point state)))))))) (funcall method indent-point state))))))))
(add-hook 'emacs-lisp-mode-hook #'(lambda () (interactive) (setq-local lisp-indent-function #'+modded/lisp-indent-function)))) (add-hook 'emacs-lisp-mode-hook #'(lambda () (interactive) (setq-local lisp-indent-function #'+modded/lisp-indent-function))))
#+END_SRC #+end_src