aboutsummaryrefslogtreecommitdiff
path: root/Emacs/.config
diff options
context:
space:
mode:
authorAryadev Chavali <aryadev@aryadevchavali.com>2020-08-17 18:36:40 +0100
committerAryadev Chavali <aryadev@aryadevchavali.com>2020-08-17 18:36:40 +0100
commit762ef2abdf365dd1c39598f0f1d1c0a28fbd1626 (patch)
tree9c818a9db299d7eae89c492040d37aa1708f803f /Emacs/.config
parentfbd45fc1013e332d427e928c819eaa20cb76955d (diff)
downloaddotfiles-762ef2abdf365dd1c39598f0f1d1c0a28fbd1626.tar.gz
dotfiles-762ef2abdf365dd1c39598f0f1d1c0a28fbd1626.tar.bz2
dotfiles-762ef2abdf365dd1c39598f0f1d1c0a28fbd1626.zip
~caps tags -> lowercase tags
e.g. #+BEGIN_SRC -> #+begin_src This allows me to use C-c C-, for ease of use
Diffstat (limited to 'Emacs/.config')
-rw-r--r--Emacs/.config/emacs/config.org292
1 files changed, 146 insertions, 146 deletions
diff --git a/Emacs/.config/emacs/config.org b/Emacs/.config/emacs/config.org
index d493a22..7bb5a7b 100644
--- a/Emacs/.config/emacs/config.org
+++ b/Emacs/.config/emacs/config.org
@@ -1,76 +1,76 @@
-#+TITLE: Emacs configuration
-#+AUTHOR: Oreodave
-#+DESCRIPTION: My new Emacs configuration
-#+PROPERTY: header-args :tangle config.el :comment link
-#+OPTIONS: toc:nil
+#+title: Emacs configuration
+#+author: Oreodave
+#+description: My new Emacs configuration
+#+property: header-args :tangle config.el :comment link
+#+options: toc:nil
-#+BEGIN_center
+#+begin_center
My configuration for vanilla Emacs
-#+END_center
-#+LATEX: \clearpage
-#+TOC: headlines
-#+LATEX: \clearpage
+#+end_center
+#+latex: \clearpage
+#+toc: headlines
+#+latex: \clearpage
* Initial
** Who am I?
Set full name and mail address for use in a variety of applications,
including encryption.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(setq user-full-name "Aryadev Chavali"
user-mail-address "aryadev@aryadevchavali.com")
-#+END_SRC
+#+end_src
** Saving files
Setup backup files at =user-emacs-directory/saves=, auto-revert mode
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")))
(global-auto-revert-mode 1)
(setq global-auto-revert-non-file-buffers nil
auto-revert-verbose nil)
-#+END_SRC
+#+end_src
** All yes or no questions to y or n
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)
-#+END_SRC
+#+end_src
** Hs Minor 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)
-#+END_SRC
+#+end_src
** Themes
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)
-#+END_SRC
+#+end_src
** Turn off startup buffer and turn off bells
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(setq inhibit-startup-screen t
ring-bell-function 'ignore)
-#+END_SRC
+#+end_src
* Emacs Mode-line
Firstly, declare a variable for the separator between each module
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(defconst +modeline/separator " " "Separator between modules.")
-#+END_SRC
+#+end_src
Then declare a variable for the number of separators between each
module in the modeline.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(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
declared seperator won't be applied when placed at the end of a module
string.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(defconst +modeline/reserved-chars (list "[" "(")
"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
reserved characters to any one string.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(defun +modeline/handle-string (STR)
(condition-case nil
(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)
(t (concat STR (cl-reduce #'concat (cl-loop for i from 1 to +modeline/sep-count collect +modeline/separator))))))
(error STR)))
-#+END_SRC
+#+end_src
Finally, set the mode-line-format.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(setq-default
mode-line-format
(mapcar #'+modeline/handle-string
@@ -98,7 +98,7 @@ Finally, set the mode-line-format.
"%I"
vc-mode
mode-line-end-spaces)))
-#+END_SRC
+#+end_src
* Custom Functions
These are custom functions I have defined
** New line function
@@ -119,7 +119,7 @@ The logic is pretty simple:
- Return to previous location
- Enter normal state
- #+BEGIN_SRC emacs-lisp
+ #+begin_src emacs-lisp
(with-eval-after-load "evil"
(defun dx:newline (&optional BACKWARD)
(interactive)
@@ -128,11 +128,11 @@ The logic is pretty simple:
(t (evil-open-above 1)))
(goto-char (+ old 1))
(evil-normal-state))))
- #+END_SRC
+ #+end_src
** Toggle buffer
For some buffer with name =buf-name= with a creation function
=buf-create=, toggle it via this function.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(defun +dx/toggle-buffer (buf-name buf-create)
(interactive)
(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
(display-buffer buffer)
(select-window (get-buffer-window buffer))))))
-#+END_SRC
+#+end_src
* General
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
and it's functionally equivalent the doom/spacemacs leader.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package general
:config
(general-def 'normal global-map "SPC" nil)
@@ -186,12 +186,12 @@ and it's functionally equivalent the doom/spacemacs leader.
"f" #'find-file
"s" #'save-buffer
"p" #'(lambda () (interactive) (find-file (concat user-emacs-directory "config.org")))))
-#+END_SRC
+#+end_src
* Evil
** Evil default
Setup the evil package, with some basic keybinds. Also declare a
leader-map at "SPC".
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package evil
:hook (after-init-hook . evil-mode)
:init
@@ -208,21 +208,21 @@ leader-map at "SPC".
"j" #'evil-window-down
"k" #'evil-window-up
"l" #'evil-window-right))
-#+END_SRC
+#+end_src
** Evil surround
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package evil-surround
:after evil
:config
(global-evil-surround-mode))
-#+END_SRC
+#+end_src
** Evil commentary
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package evil-commentary
:after evil
:config
(evil-commentary-mode))
-#+END_SRC
+#+end_src
** Evil mc
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.
@@ -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
=dx:evil-mc-cursor-here= which pauses cursors upon placing a cursor at
the current position.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package evil-mc
:after evil
:bind (("M-p" . evil-mc-skip-and-goto-prev-cursor)
@@ -255,15 +255,15 @@ the current position.
(interactive)
(evil-mc-make-cursor-here)
(evil-mc-pause-cursors)))
-#+END_SRC
+#+end_src
** Evil collection
Setup evil collection, but don't turn on the mode. Instead, I'll turn
on setups for specific modes I think benefit from it.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package evil-collection
:after evil)
-#+END_SRC
+#+end_src
* Ivy
Ivy is a completion framework for Emacs, and my preferred (sometimes
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
selection list). Also setup evil-collection for ivy.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package ivy
:after evil-collection
:general
@@ -298,7 +298,7 @@ selection list). Also setup evil-collection for ivy.
ivy-use-selectable-prompt t)
(evil-collection-ivy-setup)
(ivy-mode))
-#+END_SRC
+#+end_src
** Counsel
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
helpful counterparts.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package counsel
:defer t
:general
@@ -331,27 +331,27 @@ helpful counterparts.
:config
(setq ivy-initial-inputs-alist nil)
(counsel-mode +1))
-#+END_SRC
+#+end_src
** Counsel etags
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
searching them which I find to be a bit of a hassle, and where this
package comes in.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package counsel-etags
:after counsel
:general
(leader "st" #'counsel-etags-find-tag))
-#+END_SRC
+#+end_src
* Prompt buffer switch
Essentially add advice to the window split functions so that they run
ivy-switch-buffer once they're finished.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(with-eval-after-load "ivy"
(with-eval-after-load "evil"
(advice-add #'evil-window-vsplit :after #'ivy-switch-buffer)
(advice-add #'evil-window-split :after #'ivy-switch-buffer)))
-#+END_SRC
+#+end_src
* Xwidget
Xwidget is a package (that must be compiled at source) which allows
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
use when doing web development. I can see the results of work very
quickly without switching windows or workspaces.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package xwidget
:straight nil
:general
@@ -385,11 +385,11 @@ quickly without switching windows or workspaces.
"gr" #'xwidget-webkit-reload
"gg" #'xwidget-webkit-scroll-top
"G" #'xwidget-webkit-scroll-bottom))
-#+END_SRC
+#+end_src
* Avy
Setup avy with leader.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package avy
:after evil
:general
@@ -397,11 +397,11 @@ Setup avy with leader.
:infix "s"
"l" #'avy-goto-line
"g" #'avy-goto-char-2))
-#+END_SRC
+#+end_src
* Projectile
Setup projectile, along with the tags command. Also bind "C-c C-p" to
the projectile command map for quick access.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package projectile
:after evil
: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\"")
:config
(projectile-global-mode))
-#+END_SRC
+#+end_src
** Counsel projectile
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
:after (projectile counsel)
:config
(counsel-projectile-mode +1))
-#+END_SRC
+#+end_src
* Mail
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
@@ -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
integrate it into my workflow just a bit better.
** Notmuch
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(setq +mail/signature "---------------\nAryadev Chavali")
(use-package notmuch
:commands notmuch
@@ -448,9 +448,9 @@ integrate it into my workflow just a bit better.
:config
(evil-define-key 'normal notmuch-hello-mode-map "M" #'+mail/sync-mail)
(evil-collection-notmuch-setup))
-#+END_SRC
+#+end_src
** Smtpmail
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package smtpmail
:commands mail-send
:after notmuch
@@ -462,7 +462,7 @@ integrate it into my workflow just a bit better.
:init
(setq send-mail-function #'smtpmail-send-it
message-send-mail-function #'smtpmail-send-it))
-#+END_SRC
+#+end_src
** Org message
Org message allows for the use of org mode when composing mails,
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
learnt the basics of org).
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package org-msg
- :after 'notmuch
+ :after notmuch
:hook (message-mode-hook . org-msg-mode))
-#+END_SRC
+#+end_src
* Dired
Setup for dired. Firstly, as it's an inbuilt package don't let
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
dired doesn't really conflict with evil, there are some black corners
I'd like to adjust)
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package dired
:straight nil
:hook (dired-mode-hook . dired-hide-details-mode)
@@ -496,11 +496,10 @@ I'd like to adjust)
"d" #'dired-jump)
:config
(evil-collection-dired-setup))
-#+END_SRC
+#+end_src
* Hydra
Use hydras for stuff that I use often, currently buffer manipulation
-
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package hydra
:after evil
:init
@@ -536,37 +535,37 @@ Use hydras for stuff that I use often, currently buffer manipulation
("d" dx:kill-defun)
("p" dx:paste-section)
("TAB" evil-toggle-fold)))
-#+END_SRC
+#+end_src
* IBuffer
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package ibuffer
:after evil-collection
:config
(evil-collection-ibuffer-setup))
-#+END_SRC
+#+end_src
* Helpful
Basic setup, will be fully integrated in counsel.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package helpful
:commands (helpful-callable helpful-variable)
:config
(evil-define-key 'normal helpful-mode-map "q" #'quit-window))
-#+END_SRC
+#+end_src
* Which-key
Pretty simple, just activate after init.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package which-key
:after evil
:config
(which-key-mode))
-#+END_SRC
+#+end_src
* Yasnippet
Yasnippet is a great package for snippets, which I use heavily in
programming and org-mode. I setup here the global mode for yasnippet
and a collection of snippets for ease of use.
** Yasnippet default
Setup global mode after evil mode has been loaded
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package yasnippet
:after evil
:hook ((prog-mode-hook . yas-minor-mode)
@@ -576,29 +575,29 @@ Setup global mode after evil mode has been loaded
"i" #'yas-insert-snippet)
:config
(yas-load-directory (concat user-emacs-directory "snippets")))
-#+END_SRC
+#+end_src
** Yasnippet snippets
Collection of snippets, activate after yasnippet has been loaded.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package yasnippet-snippets
:after yasnippet)
-#+END_SRC
+#+end_src
* Keychord
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.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package key-chord
:after evil
:config
(key-chord-define evil-insert-state-map "jk" #'evil-normal-state)
(key-chord-mode +1))
-#+END_SRC
+#+end_src
* Ripgrep
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
makes me dependent on the ivy framework, and this configuration is
intentionally built to be modular and switchable.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package rg
:after evil
:general
@@ -614,39 +613,39 @@ intentionally built to be modular and switchable.
rg-show-header t
rg-custom-type-aliases nil
rg-default-alias-fallback "all"))
-#+END_SRC
+#+end_src
* Magit
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.
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
freely.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package magit
:general
(leader "g" #'magit-status))
(use-package evil-magit
:after magit)
-#+END_SRC
+#+end_src
* Company
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,
just setup some evil binds for company
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package company
:hook (prog-mode-hook . company-mode)
:bind (("C-SPC" . company-complete)
:map company-active-map
("M-j" . company-select-next)
("M-k" . company-select-previous)))
-#+END_SRC
+#+end_src
* Elfeed
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
stuff, mostly media and entertainment. I've also bound "<leader> ar"
to elfeed for loading the system.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package elfeed
:general
(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 "<return>" #'elfeed-search-show-entry)
(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 is the integrated shell environment for Emacs. Though it isn't
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
just opening it via =+dx/toggle-buffer=.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package eshell
:general
(leader
@@ -707,15 +706,17 @@ just opening it via =+dx/toggle-buffer=.
(interactive)
(+dx/toggle-buffer "*eshell*" #'eshell)))
-#+END_SRC
+#+end_src
* Window management
Window management is really important. I find the default window
handling of Emacs incredibly annoying: sometimes consuming my windows,
sometimes creating new ones. So, as Emacs is the ultimate editor, I
want to configure and fine tune the window management of Emacs.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(setq display-buffer-alist
- '(("\\*e?shell\\*"
+ '(("\\*Org Src.*"
+ (display-buffer-same-window))
+ ("\\*e?shell\\*"
(display-buffer-at-bottom)
(window-height . 0.25))
("\\*[Hh]elp.*"
@@ -747,21 +748,21 @@ want to configure and fine tune the window management of Emacs.
(display-buffer-at-bottom)
(window-height . 0.25))
))
-#+END_SRC
+#+end_src
* Text modes
** Flyspell
Flyspell allows me to quickly spell check text documents. I use
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
flyspell-mode should be hooked to text-mode.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package flyspell
:hook (text-mode-hook . flyspell-mode))
-#+END_SRC
+#+end_src
As I use ivy I'd like the flyspell correct interface (which allow for
corrections to real words) to use ivy.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package flyspell-correct-ivy
:after flyspell
:general
@@ -770,13 +771,12 @@ corrections to real words) to use ivy.
:map flyspell-mode-map
"M-a" #'flyspell-correct-at-point
"M-A" #'ispell-word))
-#+END_SRC
+#+end_src
** Set auto-fill-mode for all text-modes
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)
-#+END_SRC
+#+end_src
** Delete a sentence in auto fill
In long lines via truncate lines, deleting till the end of the
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
the period. Then auto-fill to make it look nice.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(defun +text/delete-till-sentence ()
"Delete all text from current point to the next closest period."
(interactive)
@@ -803,21 +803,21 @@ the period. Then auto-fill to make it look nice.
(search-forward ". ")
(kill-region (region-beginning) (region-end))
(fill-paragraph))
-#+END_SRC
+#+end_src
Now, the binding
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(general-def
:states '(normal insert)
(kbd "M-d") #'+text/delete-till-sentence)
-#+END_SRC
+#+end_src
* Org
** Org default with evil
Setup for org mode, currently basically nothing. Has evil-org for
evil bindings.
Also setup a lot of variables, particularly for latex exports.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package org
:hook (org-mode-hook . yas-minor-mode)
:bind (:map org-mode-map
@@ -860,7 +860,7 @@ Also setup a lot of variables, particularly for latex exports.
(use-package evil-org
:hook (org-mode-hook . evil-org-mode))
-#+END_SRC
+#+end_src
** Org fragtog
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
@@ -870,36 +870,36 @@ latex.
As Org mode has the ability to accept arbitrary inputs of Latex
(through escaped (square) brackets), allowing me to observe how they
look is nice to have.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package org-fragtog
:hook (org-mode-hook . org-fragtog-mode))
-#+END_SRC
+#+end_src
** Org pretty tables
Make the default ASCII tables of org mode pretty with
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package org-pretty-table-mode
:straight (org-pretty-table-mode :type git :host github :repo "Fuco1/org-pretty-table")
:hook org-mode-hook)
-#+END_SRC
+#+end_src
** Org pretty tags
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package org-pretty-tags
:hook (org-mode-hook . org-pretty-tags-mode))
-#+END_SRC
+#+end_src
** Org superstar
Org superstar adds cute little unicode symbols for headers, much
better than the default asterisks.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package org-superstar
:hook (org-mode-hook . org-superstar-mode))
-#+END_SRC
+#+end_src
* Major modes and Programming
Setups for common major modes and languages. Here are some basic
packages for programming first
** Smartparens
Smartparens is a smarter electric-parens, it's much more aware of
stuff and easier to use.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package smartparens
:hook (prog-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-local-pair sp-lisp-modes "(" ")" :unless '(:rem sp-point-before-same-p))
(require 'smartparens-config))
-#+END_SRC
+#+end_src
** Show-paren-mode
Show parenthesis for Emacs
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(add-hook 'prog-mode-hook #'show-paren-mode)
-#+END_SRC
+#+end_src
** Eldoc
Eldoc presents documentation to the user upon placing ones cursor upon
any symbol. This is very useful when programming as it:
- presents the arguments of functions while writing calls for them
- presents typing and documentation of variables
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package eldoc
: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))
:config
(advice-add #'evil-force-normal-state :before #'eldoc-box-quit-frame))
-#+END_SRC
+#+end_src
** Eglot
Eglot is a library of packages to communicate with LSP servers for
better programming capabilities. Interactions with a server provide
results to the client, done through JSON.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package eglot
: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)
:config
(add-to-list 'eglot-server-programs '((c-mode c++-mode) "clangd")))
-#+END_SRC
+#+end_src
** Flycheck
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
prog-mode as it would be better for me to decide when I want checking
and when I don't.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package flycheck
:commands flycheck-mode
:config
@@ -975,20 +975,20 @@ and when I don't.
(when (not (or flycheck-mode global-flycheck-mode))
(flycheck-mode))
(flycheck-list-errors)))
-#+END_SRC
+#+end_src
** Activate tabs
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
tab-width 2)
-#+END_SRC
+#+end_src
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 ()
(interactive)
(setq indent-tabs-mode t))
-#+END_SRC
+#+end_src
** C/C++
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
when needed in projects.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package cc-mode
: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)
(label . 0)
(statement-cont . +)))))
-#+END_SRC
+#+end_src
*** Clang format
Clang format for when:
- eglot isn't working/I'm not running it
- eglot format is bad
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package clang-format
:after cc-mode
:config
(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
Firstly, web mode for consistent colouring of syntax.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package web-mode
:mode ("\\.html" . web-mode)
:mode ("\\.js" . web-mode)
@@ -1074,10 +1074,10 @@ Firstly, web mode for consistent colouring of syntax.
:custom
((web-mode-markup-indent-offset 2)
(web-mode-css-indent-offset 2)))
-#+END_SRC
+#+end_src
Then emmet for super speed
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(use-package emmet-mode
:hook (web-mode-hook . emmet-mode)
:general
@@ -1087,11 +1087,11 @@ Then emmet for super speed
"TAB" #'emmet-expand-line
"M-j" #'emmet-next-edit-point
"M-k" #'emmet-prev-edit-point))
-#+END_SRC
+#+end_src
** Emacs lisp
Add a new lisp indent function which indents newline lists more
appropriately.
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
(with-eval-after-load "lisp-mode"
(defun +modded/lisp-indent-function (indent-point state)
"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
(funcall method indent-point state))))))))
(add-hook 'emacs-lisp-mode-hook #'(lambda () (interactive) (setq-local lisp-indent-function #'+modded/lisp-indent-function))))
-#+END_SRC
+#+end_src