f8ca6b9e1b
Developed quite a bit of the config. I've added a literate org config, loaded through the init.el file. Furthermore, I've added some basic general maps and have gained a much better understanding of Emacs than before. This refactor is one of the main reasons I decided to so heavily refactor my doom config.
249 lines
6.1 KiB
Org Mode
249 lines
6.1 KiB
Org Mode
#+TITLE: Config for Emacs
|
|
#+AUTHOR: Oreodave
|
|
#+DESCRIPTION: My bespoke config for Emacs
|
|
#+PROPERTY: header-args :tangle yes
|
|
|
|
* Notes
|
|
This setup uses emacs 27, with use-package and melpa.
|
|
Code structure is pretty simple:
|
|
- parent packages or packages that other packages leverage greatly are configured first.
|
|
I use =:after= as a depdence generator: in most circumstances.
|
|
|
|
* Init
|
|
** Set some details
|
|
Some basic details set for the purposes of Emacs
|
|
#+BEGIN_SRC emacs-lisp
|
|
(setq user-emacs-directory (expand-file-name "~/.config/emacs/")
|
|
ring-bell-function 'ignore
|
|
inhibit-startup-screen t)
|
|
#+END_SRC
|
|
|
|
** Turn off those annoying bars
|
|
Annoying menu bars, tool bars, etc
|
|
#+BEGIN_SRC emacs-lisp
|
|
(tool-bar-mode -1)
|
|
(scroll-bar-mode -1)
|
|
(tab-bar-mode -1)
|
|
(menu-bar-mode -1)
|
|
#+END_SRC
|
|
|
|
** Set fonts and alpha
|
|
Make two constants that hold the values for font and alpha, then set them in Emacs.
|
|
#+BEGIN_SRC emacs-lisp
|
|
(defconst dx:font "IBM Plex Mono-12" "Default font for Emacs")
|
|
(defconst dx:alpha 0.9 "Default alpha transparency for Emacs")
|
|
|
|
(add-to-list 'default-frame-alist (cons 'font dx:font))
|
|
(add-to-list 'default-frame-alist (cons 'alpha dx:alpha))
|
|
(set-face-attribute 'default t :font dx:font)
|
|
|
|
(add-hook 'prog-mode-hook #'hs-minor-mode)
|
|
(add-hook 'prog-mode-hook #'display-line-numbers-mode)
|
|
#+END_SRC
|
|
** Set some useful variables
|
|
Truncate lines, display number lines and stop making backup files (for now).
|
|
#+BEGIN_SRC emacs-lisp
|
|
(setq completion-ignore-case t
|
|
truncate-lines t
|
|
display-line-numbers-type t
|
|
make-backup-files nil)
|
|
#+END_SRC
|
|
** ido mode
|
|
Setup ido mode, easy to use completion framework.
|
|
#+BEGIN_SRC emacs-lisp
|
|
(ido-mode +1)
|
|
#+END_SRC
|
|
* Keybindings
|
|
** Keychord
|
|
Setup key chord, pretty basic config.
|
|
#+BEGIN_SRC emacs-lisp
|
|
(use-package key-chord
|
|
:ensure t
|
|
:config
|
|
(key-chord-mode +1))
|
|
#+END_SRC
|
|
** General
|
|
Setup for general, keybinding library.
|
|
I use the function =general-evil-setup= to use the =*map= family of keymapping functions.
|
|
In this case I setup two defines: =gmap= and =lmap=.
|
|
=gmap= is for all global maps while lmap is for local, mode based keybindings
|
|
I also have a good bit of bindings setup here, such that any default emacs functions that I use regularly is setup here.
|
|
#+BEGIN_SRC emacs-lisp
|
|
(use-package general
|
|
:ensure t
|
|
:init
|
|
;; Definers
|
|
(general-def :states 'normal
|
|
"SPC" nil)
|
|
(general-create-definer gmap :prefix "SPC")
|
|
(general-create-definer lmap :prefix "SPC m")
|
|
(general-evil-setup t)
|
|
)
|
|
#+END_SRC
|
|
* Which key
|
|
#+BEGIN_SRC emacs-lisp
|
|
(use-package which-key
|
|
:ensure t
|
|
:config
|
|
(which-key-mode +1))
|
|
#+END_SRC
|
|
|
|
* Evil
|
|
Basic evil configuration with some keychords.
|
|
#+BEGIN_SRC emacs-lisp
|
|
(use-package evil
|
|
:ensure t
|
|
:after key-chord general
|
|
:config
|
|
(evil-mode +1)
|
|
(key-chord-define evil-insert-state-map "jk" #'evil-normal-state)
|
|
;; Keybindgs
|
|
(gmap "SPC" #'execute-extended-command)
|
|
;; Files
|
|
(gmap
|
|
:infix "f"
|
|
"f" #'find-file
|
|
"p" #'(lambda () (interactive) (find-file "~/.config/emacs/init.el"))
|
|
"-" #'dired
|
|
"s" #'save-buffer)
|
|
;; Buffers
|
|
(gmap
|
|
:infix "b"
|
|
"b" #'switch-to-buffer
|
|
"d" #'kill-buffer
|
|
"n" #'next-buffer
|
|
"p" #'previous-buffer
|
|
"i" #'ibuffer)
|
|
;; Other
|
|
(gmap
|
|
"c" #'compile)
|
|
(vmap
|
|
:keymaps 'emacs-lisp-mode-map
|
|
"gr" #'eval-region)
|
|
)
|
|
#+END_SRC
|
|
** Evil surround
|
|
#+BEGIN_SRC emacs-lisp
|
|
(use-package evil-surround
|
|
:ensure t
|
|
:after evil
|
|
:config
|
|
(global-evil-surround-mode +1))
|
|
#+END_SRC
|
|
|
|
* Helpful
|
|
#+BEGIN_SRC emacs-lisp
|
|
(use-package helpful
|
|
:after general
|
|
:ensure t
|
|
:config
|
|
(gmap
|
|
:infix "h"
|
|
"f" #'helpful-callable
|
|
"v" #'helpful-variable
|
|
"k" #'helpful-key))
|
|
#+END_SRC
|
|
|
|
* Yasnippet
|
|
#+BEGIN_SRC emacs-lisp
|
|
(use-package yasnippet
|
|
:ensure t
|
|
:after general
|
|
:config
|
|
(add-hook 'prog-mode-hook #'yas-minor-mode)
|
|
(gmap
|
|
"is" #'yas-insert-snippet))
|
|
|
|
(use-package yasnippet-snippets
|
|
:ensure t
|
|
:after yasnippet)
|
|
#+END_SRC
|
|
|
|
* Doom-themes
|
|
Setup for doom themes.
|
|
Allow bold themes but not italic (italic is harder to read).
|
|
Allow doom themes to configure org mode to fix fonts on headers, etc.
|
|
Define a function that does the same thing as =counsel-load-function-action= without the dependency on counsel.
|
|
Load a theme using said function, in this case =doom-monokai-classic=.
|
|
#+BEGIN_SRC emacs-lisp
|
|
(use-package doom-themes
|
|
:ensure t
|
|
:config
|
|
(setq doom-themes-enable-bold t
|
|
doom-themes-enable-italic nil)
|
|
(doom-themes-org-config)
|
|
(defun dx:load-theme (theme)
|
|
"Load a given theme into Emacs, while unloading the rest"
|
|
(mapc #'disable-theme custom-enabled-themes)
|
|
(load-theme theme t))
|
|
(dx:load-theme 'doom-monokai-classic))
|
|
#+END_SRC
|
|
|
|
* Org-mode
|
|
** Vanilla org mode
|
|
#+BEGIN_SRC emacs-lisp
|
|
(use-package org
|
|
:ensure t
|
|
:config
|
|
(load (concat user-emacs-directory "+org.el"))
|
|
(nmap
|
|
:keymaps 'org-mode-map
|
|
"M-j" #'org-metadown
|
|
"M-k" #'org-metaup
|
|
"C-RET" #'dx:org-insert-item-below))
|
|
#+END_SRC
|
|
** Evil org mode
|
|
Setup evil org mode, which allows for some nicer abstractions of the interace.
|
|
#+BEGIN_SRC emacs-lisp
|
|
(use-package evil-org
|
|
:ensure t
|
|
:after org
|
|
:config
|
|
(add-hook 'org-mode-hook 'evil-org-mode)
|
|
(add-hook 'evil-org-mode-hook
|
|
(lambda ()
|
|
(evil-org-set-key-theme)))
|
|
(require 'evil-org-agenda)
|
|
(evil-org-agenda-set-keys))
|
|
#+END_SRC
|
|
* Magit
|
|
#+BEGIN_SRC emacs-lisp
|
|
(use-package magit
|
|
:ensure t
|
|
:after general
|
|
:config
|
|
(gmap
|
|
"g" #'magit-status))
|
|
|
|
|
|
#+END_SRC
|
|
* Ace window
|
|
#+BEGIN_SRC emacs-lisp
|
|
(use-package ace-window
|
|
:ensure t
|
|
:after general
|
|
:config
|
|
(gmap "o" #'ace-window)
|
|
(setq aw-keys '(?a ?s ?d ?f ?g ?h ?j ?k ?l)
|
|
aw-dispatch-always t))
|
|
|
|
|
|
#+END_SRC
|
|
* Counsel
|
|
#+BEGIN_SRC emacs-lisp
|
|
(use-package counsel
|
|
:ensure t
|
|
:after general
|
|
:config
|
|
(gmap
|
|
:infix "s"
|
|
"s" #'swiper
|
|
"r" #'counsel-rg)
|
|
(general-def
|
|
:keymaps 'ivy-minibuffer-map
|
|
"C-j" #'ivy-next-line-or-history
|
|
"C-k" #'ivy-previous-line-or-history))
|
|
#+END_SRC
|
|
|
|
|