emacs configuration
| img | ||
| .gitignore | ||
| config.org | ||
| CONTRIBUTING.org | ||
| emacs.min.el | ||
| ido-vertical.el | ||
| init.el | ||
| LICENSE | ||
| markup.el | ||
| readme.org | ||
| screenshot.png | ||
emacs config
- qorg's Emacs config
- Why?
- gc
- melpa crap, and basic packages installation
- Autoindentation
- Shorcuts
- No idea
- My functions
- Programs
- Pseudopersonalization
- Highlight matching parentheses
- Tramp mode shit
- Lines and columns
- Flycheck
- Terminal
- Theme
- ctrlf
- Company and Irony
- Programming language things
- Keybindings
- Hunspell
- Dired
- kill ring popup
- scrolling
- Sidebar
- Shell
- Mark multiple
- Highlight indent guides
- Ace jump mode
- Expand region
- Beacon mode
- LSP
- Hooks
- Hungry delete
- Yasnippet
- Org-mode customization
- diff-hl
- zzz-to-char
- Helpful
- Treemacs
- Projectile
- Helm
- CRUX
- Dashboard
- Modeline
qorg's Emacs config
This is my Emacs configuration. Hope you like it.
Installation
Just copy this repository to your .emacs.d. Nothing else is needed.
Why?
- I can
- I don't like doom emacs
- I don't like spacemacs
- I don't want to learn doom emacs
- I don't want to learn spacemacs
- I don't like Vim
About me
Here I set variables about personal information i'll use later in this config.
(setq name "qorg11")
(setq email "qorg@vxempire.xyz")
(setq website "qorg11.net")Dependencies
The only no emacs related dependence in this configuration is the IBM Plex Mono font. Install it from your distribution packages. You can change it before opening Emacs with this configuration for the first time.
For irony-mode (C autocompletion) irony-sever must be installed. You can install it with M-x irony-install-server or via distribution's packages, in Debian case, apt install irony-server. Using M-x irony-install-server requires cmake and a lot of dependences I'm to lazy to install.
Configuration
Yeah, this configuration file has a configuration, ironic ha?
(setq i-just-use-emacs-to-be-cool nil) ;; Repleace to true to use EVILgc
;; Minimize garbage collection during startup
(setq gc-cons-threshold most-positive-fixnum)
;; Lower threshold back to 8 MiB (default is 800kB)
(add-hook 'emacs-startup-hook
(lambda ()
(setq gc-cons-threshold (expt 2 23))))melpa crap, and basic packages installation
melpa, where you get the packages. This also installs use-package, and other packages I use.
(require 'package)
(let* ((no-ssl (and (memq system-type '(windows-nt ms-dos))
(not (gnutls-available-p))))
(proto (if no-ssl "http" "https")))
;; Comment/uncomment these two lines to enable/disable MELPA and MELPA Stable as desired
(add-to-list 'package-archives (cons "melpa" (concat proto "://melpa.org/packages/")) t)
;;(add-to-list 'package-archives (cons "melpa-stable" (concat proto "://stable.melpa.org/packages/")) t)
(when (< emacs-major-version 24)
;; For important compatibility libraries like cl-lib
(add-to-list 'package-archives '("gnu" . (concat proto "://elpa.gnu.org/packages/")))))
(if (< emacs-major-version 27)
(package-initialize))
(unless (package-installed-p 'use-package)
(package-refresh-contents)
(package-install 'use-package))Generic packages
Here I install some packages that don't need configuration. Remember to run M-x all-the-icons-install-fonts after the first init to install the fonts.
(use-package markdown-mode
:defer 1
:ensure t
:init(add-hook 'markdown-mode-hook 'auto-fill-mode))
(use-package all-the-icons
:defer 1
:ensure t)
(use-package which-key
:ensure t
:init (which-key-mode))Autoindentation
C-c n for indent-buffer. I don't use the rest.
(setq-default tab-width 5)
(defvaralias 'sgml-basic-offset 'tab-width)
(add-hook 'html-mode-hook
(lambda ()
(set-fill-column 100)))
(defun indent-buffer ()
(interactive)
(save-excursion
(indent-region (point-min) (point-max) nil)))
(global-set-key (kbd "C-c n") 'indent-buffer)
;; C bullshit
(c-set-offset 'arglist-cont-nonempty '+)Shorcuts
Probably this overwrites another keybinding. But since I overwrited it. I don't think i'd ever use the overwritten.
(global-set-key (kbd "M-m") 'mark-whole-buffer)
(global-set-key (kbd "C-c m") 'man)No idea
(setq package-enable-at-startup nil) (package-initialize)
(setq make-backup-files nil) ; stop creating backup~ files
(setq auto-save-default nil) ; stop creating #autosave# files
(put 'upcase-region 'disabled nil)
(defun contextual-menubar (&optional frame)
"Display the menubar in FRAME (default: selected frame) if on a
graphical display, but hide it if in terminal."
(interactive)
(set-frame-parameter frame 'menu-bar-lines
(if (display-graphic-p frame)
1 0)))
(add-hook 'after-make-frame-functions 'contextual-menubar)
(use-package zencoding-mode
:ensure t
:defer 1)My functions
Functions I wrote because emacs lisp is cool and useful.
(defun qorg/goto-previous-buffer ()
"Switch to the previous buffer."
(interactive)
(switch-to-buffer (other-buffer)))
(defun kill-inner-word ()
"Unlike (kill-word) function, this function actually kill a world."
(interactive)
(forward-char 1)
(backward-word)
(kill-word 1))
(defun qorg/no-lines()
"Locally disable number line mode, useful hooks."
(display-line-numbers-mode -1))
(defun qorg/git-pushall ()
"Call the git pushall shell command."
(interactive)
(shell-command "git pushall"))
(defun qorg/goto-dashboard ()
"Goes to the dashboard buffer"
(interactive)
(switch-to-buffer "*dashboard*")
(dashboard-mode)
(dashboard-refresh-buffer))Programs
Emacs customization, Here is where most of the configuration is.
Pseudopersonalization
The basic emacs persdonalization lol
(tool-bar-mode -1)
(menu-bar-mode -1)
(scroll-bar-mode -1)
(global-hl-line-mode)
(set-face-background hl-line-face "blue12")
(setq-default cursor-type 'box)
(blink-cursor-mode 1)
(setq-default major-mode 'text-mode)
(defalias 'yes-or-no-p 'y-or-n-p)
;; Are you experienced?
(set-face-background 'line-number nil)
(set-face-background 'line-number-current-line nil)
(setq-default Man-notify-method 'pushy)Highlight matching parentheses
(show-paren-mode 1)
(setq show-paren-style 'mixed)
(setq startup/gc-cons-threshold gc-cons-threshold)
(setq gc-cons-threshold most-positive-fixnum)
(defun startup/reset-gc () (setq gc-cons-threshold startup/gc-cons-threshold))
(add-hook 'emacs-startup-hook 'startup/reset-gc)Tramp mode shit
(set-variable 'tramp-copy-size-limit 122222222222)
(set-variable 'tramp-inline-compress-start-size 12222222222222)Lines and columns
(global-display-line-numbers-mode 1)
(setq display-line-numbers-type 'relative)
(column-number-mode 1)Flycheck
Flycheck is a syntax validator or somehting like that
(use-package flycheck
:ensure t
:init
(add-hook 'after-init-hook #'global-flycheck-mode))And for raku
(use-package flycheck-raku
:ensure t
:init
(add-hook 'raku-mode 'flycheck-raku-mode))Terminal
vterm is better than ansi-term and shit, despite it's kinda slow, it's a price i'm willing to pay.
It should use your default shell by default.
(use-package "vterm"
:ensure t
:bind("C-x C-t" . vterm))Theme
(use-package base16-theme
:ensure t
:init(load-theme 'base16-irblack t))
(set-cursor-color "purple")ctrlf
So, you know, C-s in emacs sucks, so this is a repleacement for that.
(use-package ctrlf
:ensure t
:defer 1
:init
(ctrlf-mode +1))Company and Irony
Some shit for autocompletion and that kind of shit.
(use-package company
:defer 1
:ensure t
:config
(setq company-idle-delay 0)
(setq company-minimum-prefix-length 3)
(global-company-mode))
(with-eval-after-load 'company
(define-key company-active-map (kbd "M-n") nil)
(define-key company-active-map (kbd "M-p") nil)
(define-key company-active-map (kbd "C-n") #'company-select-next)
(define-key company-active-map (kbd "C-p") #'company-select-previous))
(use-package company-irony
:defer 1
:ensure t
:config
(require 'company)
(add-to-list 'company-backends 'company-irony))
(use-package irony
:defer 1
:ensure t
:config
(add-hook 'c-mode-hook 'irony-mode)
(add-hook 'irony-mode-hook 'irony-cdb-autosetup-compile-options))
(with-eval-after-load 'company
(add-hook 'c-mode-hook 'company-mode))Programming language things
Lisp
Parentheses highlight in lisp modes. So you can easily identify them.
(use-package rainbow-delimiters
:ensure t
:init
(add-hook 'emacs-lisp-mode-hook 'rainbow-delimiters-mode)
(add-hook 'lisp-mode-hook 'rainbow-delimiters-mode)
(add-hook 'scheme-mode-hook 'rainbow-delimiters-mode))
(setq lisp-indent-offset 5)Perl
Cperl-mode is better than perl-mode. You can't change my mind.
(defalias 'perl-mode 'cperl-mode)
(setq cperl-indent-level 5)C*
This use c-eldoc mode so it prints the function's prototype in the minibuffer. Which is very useful since Irony works when it wants to.
(use-package c-eldoc
:ensure t
:init
(add-hook 'c-mode-hook 'c-turn-on-eldoc-mode))
(setq c-default-style "k&r")
(add-hook 'c-mode-hook (lambda ()
(lsp)
(irony-mode -1)))Raku
Raku, the cornerstone of any well designed programming language.
(setq raku-indent-offset 5)
(setq raku-exec-path "/home/qorg/rakudo-star-2021.04/bin/raku")HTML & CSS offset
(setq css-indent-offset 5)
(setq sgml-basic-offset 5)org
(setq org-ellipsis " ")
(setq org-src-fontify-natively t)
(setq org-src-tab-acts-natively t)
(setq org-confirm-babel-evaluate nil)
(setq org-export-with-smart-quotes t)
(setq org-src-window-setup 'current-window)
(add-hook 'org-mode-hook 'org-indent-mode)
(add-hook 'org-mode-hook 'qorg/no-lines)
;; Syntax highlighting in exports
(use-package htmlize
:ensure t)
(setq org-html-head ""
org-html-head-extra ""
org-html-head-include-default-style nil
org-html-head-include-scripts nil
org-html-preamble nil
org-html-postamble nil
org-html-use-infojs nil)Org-agenda
>Le attention deficit destroyer
(setq org-agenda-files (quote ("~/Documentos/agenda.org")))Keybindings
Here I put functions I won't bother to document because they're so simple.
(global-set-key (kbd "M-d") 'kill-inner-word)
(global-set-key (kbd "M-.") 'repeat)
(global-set-key (kbd "C-x k") 'kill-buffer)
(global-set-key (kbd "C-x C-k") 'kill-current-buffer)
(global-unset-key (kbd "C-x C-b"))
(global-set-key (kbd "C-x C-b") 'qorg/goto-previous-buffer)Hunspell
For some reason, there is no ispell spanish in void linux. so i had to fallback to hunspell. which does the same.
(defvar ispell-program-name "hunspell") ;; Or whatever you use
;; (ispell, aspell...)Dired
Ahhh, the emacs file browser, better than ranger and others… Hide dotfiles:
(use-package dired-hide-dotfiles
:ensure t
:init
(defun my-dired-mode-hook ()
"My `dired' mode hook."
;; To hide dot-files by default
(dired-hide-dotfiles-mode)
;; To toggle hiding
(define-key dired-mode-map "." #'dired-hide-dotfiles-mode))
(add-hook 'dired-mode-hook #'my-dired-mode-hook))
(use-package async
:ensure t
:init (dired-async-mode 1))
(add-hook 'dired-mode-hook
(lambda ()
(dired-hide-details-mode)))Now let's make the thing lysergic
(set-face-foreground dired-directory-face "orange")
(set-face-foreground dired-symlink-face "cyan")
(set-face-foreground dired-mark-face "green")
(set-face-foreground dired-marked-face "blue")kill ring popup
(use-package popup-kill-ring
:ensure t
:bind ("M-y" . popup-kill-ring))scrolling
Scroll by lines rather than by pages.
(setq scroll-step 1)
(setq scroll-conservatively 10000)
(setq auto-window-vscroll nil)
(scroll-bar-mode 1)Sidebar
(use-package dired-sidebar
:ensure t
:commands (dired-sidebar-toggle-sidebar))
(global-set-key (kbd "<f7>") 'dired-sidebar-toggle-sidebar)Shell
(add-hook 'shell-mode-hook 'yas-minor-mode)
(add-hook 'shell-mode-hook 'flycheck-mode)
(add-hook 'shell-mode-hook 'company-mode)
(defun shell-mode-company-init ()
(setq-local company-backends '((company-shell
company-shell-env
company-etags
company-dabbrev-code))))
(use-package company-shell
:ensure t
:config
(require 'company)
(add-hook 'shell-mode-hook 'shell-mode-company-init))Mark multiple
Multiple cursors :DD
(use-package "multiple-cursors"
:ensure t
:bind ("C-c q" . 'mc/mark-next-like-this))Highlight indent guides
I don't really know, it looks cool.
(use-package "highlight-indent-guides"
:ensure t
:defer
:init (add-hook 'prog-mode-hook 'highlight-indent-guides-mode)
(setq highlight-indent-guides-method 'bitmap))Ace jump mode
So you can jump to characters fast af
(use-package "ace-jump-mode"
:ensure t
:bind("C-l" . 'ace-jump-mode))And same but jumping between frames
(use-package "ace-window"
:ensure t
:bind("M-l" . 'ace-window)
:bind("M-o" . 'ace-delete-window))
;; Gotta remove the bad habits
(global-unset-key (kbd "C-x o"))Expand region
(use-package expand-region
:ensure t
:init(global-unset-key (kbd "C-q"))
(global-set-key (kbd"C-q") 'er/expand-region))
(defun qorg/mark-words-between-quotes ()
"Does that."
(interactive)
(er/expand-region 2))
(global-set-key (kbd "C-c q") 'qorg/mark-words-between-quotes)Beacon mode
(use-package "beacon"
:ensure t
:init(beacon-mode 1))LSP
Le language server
(use-package "lsp-mode"
:ensure t
)
(use-package "lsp-ui"
:ensure t
:init(add-hook 'lsp-mode-hook 'lsp-ui-mode))Hooks
I am tired of M-x auto-fill-mode in some modes
(add-hook 'org-mode-hook 'auto-fill-mode)
(add-hook 'text-mode-hook 'auto-fill-mode)
(add-hook 'sgml-mode-hook 'auto-fill-mode)
(add-hook 'sgml-mode-hook 'zencoding-mode)
(add-hook 'Man-mode-hook 'no-lines)
(add-hook 'speedbar-mode-hook 'no-lines)Hungry delete
Having to delete multiple whitespaces is one of the things I hate, thankfully there's this thing.
(use-package "hungry-delete"
:ensure t
:init(global-hungry-delete-mode))Yasnippet
(use-package "yasnippet"
:ensure t
:config
(use-package "yasnippet-snippets"
:ensure t)
:init(yas-global-mode)
(yas-reload-all))Org-mode customization
(use-package "org-bullets"
:ensure t
:config
(add-hook 'org-mode-hook 'org-bullets-mode))
(local-unset-key (kbd"C-c C-q"))
(set-face-font 'org-level-1 "IBM Plex Mono 16")
(set-face-font 'org-level-2 "IBM Plex Mono 15")
(set-face-font 'org-level-3 "IBM Plex Mono 14")diff-hl
(use-package "diff-hl"
:ensure t
:config
(global-diff-hl-mode)
(add-hook 'magit-pre-refresh-hook 'diff-hl-magit-pre-refresh)
(add-hook 'magit-post-refresh-hook 'diff-hl-magit-post-refresh))zzz-to-char
It's like ace-whatever but for zapping characters.
zap-to-char
(use-package zzz-to-char
:ensure t
:bind("M-z" . 'zzz-up-to-char))Helpful
Better \*help\* buffer
(use-package helpful
:ensure t
:bind ("C-h f". #'helpful-callable)
:bind ("C-h v". #'helpful-variable)
:bind ("C-h k". #'helpful-key))Treemacs
Le ebin sidebar
(use-package treemacs
:ensure t
:defer t
:init
(with-eval-after-load 'winum
(define-key winum-keymap (kbd "M-0") #'treemacs-select-window))
:config
(progn
(setq treemacs-collapse-dirs (if treemacs-python-executable 3 0)
treemacs-deferred-git-apply-delay 0.5
treemacs-directory-name-transformer #'identity
treemacs-display-in-side-window t
treemacs-eldoc-display 'simple
treemacs-file-event-delay 5000
treemacs-file-extension-regex treemacs-last-period-regex-value
treemacs-file-follow-delay 0.2
treemacs-file-name-transformer #'identity
treemacs-follow-after-init t
treemacs-expand-after-init t
treemacs-find-workspace-method 'find-for-file-or-pick-first
treemacs-git-command-pipe ""
treemacs-goto-tag-strategy 'refetch-index
treemacs-indentation 2
treemacs-indentation-string " "
treemacs-is-never-other-window nil
treemacs-max-git-entries 5000
treemacs-missing-project-action 'ask
treemacs-move-forward-on-expand nil
treemacs-no-png-images nil
treemacs-no-delete-other-windows t
treemacs-project-follow-cleanup nil
treemacs-persist-file (expand-file-name ".cache/treemacs-persist" user-emacs-directory)
treemacs-position 'left
treemacs-read-string-input 'from-child-frame
treemacs-recenter-distance 0.1
treemacs-recenter-after-file-follow nil
treemacs-recenter-after-tag-follow nil
treemacs-recenter-after-project-jump 'always
treemacs-recenter-after-project-expand 'on-distance
treemacs-litter-directories '("/node_modules" "/.venv" "/.cask")
treemacs-show-cursor nil
treemacs-show-hidden-files t
treemacs-silent-filewatch nil
treemacs-silent-refresh nil
treemacs-sorting 'alphabetic-asc
treemacs-select-when-already-in-treemacs 'move-back
treemacs-space-between-root-nodes t
treemacs-tag-follow-cleanup t
treemacs-tag-follow-delay 1.5
treemacs-text-scale nil
treemacs-user-mode-line-format nil
treemacs-user-header-line-format nil
treemacs-wide-toggle-width 70
treemacs-width 35
treemacs-width-increment 1
treemacs-width-is-initially-locked t
treemacs-workspace-switch-cleanup nil)
;; The default width and height of the icons is 22 pixels. If you are
;; using a Hi-DPI display, uncomment this to double the icon size.
;;(treemacs-resize-icons 44)
(treemacs-follow-mode t)
(treemacs-filewatch-mode t)
(treemacs-fringe-indicator-mode 'always)
(pcase (cons (not (null (executable-find "git")))
(not (null treemacs-python-executable)))
(`(t . t)
(treemacs-git-mode 'deferred))
(`(t . _)
(treemacs-git-mode 'simple)))
(treemacs-hide-gitignored-files-mode nil))
:bind
(:map global-map
("M-0" . treemacs-select-window)
("C-x t 1" . treemacs-delete-other-windows)
("C-x t t" . treemacs)
("C-x t d" . treemacs-select-directory)
("C-x t B" . treemacs-bookmark)
("C-x t C-t" . treemacs-find-file)
("C-x t M-t" . treemacs-find-tag)))
(use-package treemacs-projectile
:after (treemacs projectile)
:ensure t)
(use-package treemacs-icons-dired
:hook (dired-mode . treemacs-icons-dired-enable-once)
:ensure t)
(use-package treemacs-magit
:after (treemacs magit)
:ensure t)
(use-package treemacs-tab-bar ;;treemacs-tab-bar if you use tab-bar-mode
:after (treemacs)
:ensure t
:config (treemacs-set-scope-type 'Tabs))Projectile
(use-package projectile
:ensure t
:init(projectile-mode))Helm
fuck Ido lol
(use-package helm
:ensure t
:bind
("C-x C-f" . 'helm-find-files)
("M-x" . 'helm-M-x)
:config
(setq helm-autoresize-max-height 0
helm-autoresize-min-height 40
helm-M-x-fuzzy-match t
helm-buffers-fuzzy-matching t
helm-recentf-fuzzy-match t
helm-semantic-fuzzy-match t
helm-imenu-fuzzy-match t
helm-split-window-in-side-p nil
helm-move-to-line-cycle-in-source nil
helm-ff-search-library-in-sexp t
helm-scroll-amount 8
helm-echo-input-in-header-line t)
:init
(helm-mode 1))
(require 'helm-config)
(helm-autoresize-mode 1)
(define-key helm-find-files-map (kbd "C-b") 'helm-find-files-up-one-level)
(define-key helm-find-files-map (kbd "C-f") 'helm-execute-persistent-action)CRUX
This thing add sane shortcuts for emacs
(use-package "crux"
:ensure t
:bind("C-k" . 'crux-smart-kill-line)
:bind("C-c o" . 'crux-open-with)
:bind("C-c D" . 'crux-delete-buffer-and-file)
:bind("C-x C-r" . 'crux-reopen-as-root)
:bind("C-x C-d" . 'crux-duplicate-current-line-or-region)
:bind("C-c u" . 'crux-view-url)
:bind("C-c s" . 'crux-create-scratch-buffer))Dashboard
The dashboard is a good index for your things. So it's useful to have it
Here is an useful function I wrote so you can go to the dashboard (Or create it in case you accidentally killed the buffer)
(global-set-key (kbd "C-c C-d") 'qorg/goto-dashboard) (use-package dashboard
:ensure t
:init
(dashboard-setup-startup-hook)
(setq dashboard-items '(
(recents . 7)
(bookmarks . 7)
(agenda . 7)))
(setq dashboard-startup-banner 'logo)
(setq dashboard-banner-logo-title "Welcome to Editor MACroS")
(setq dashboard-startup-banner "~/.emacs.d/img/banner.png")
(setq dashboard-set-heading-icons t)
(setq dashboard-set-file-icons t))Modeline
(use-package "doom-modeline"
:ensure t
:config
(setq doom-modeline-lsp t)
(setq doom-modeline-indent-info t)
(setq doom-modeline-buffer-encoding t)
:init (doom-modeline-mode 1))
;; Don't ask why the font thing is here.
(set-face-attribute 'default nil :font "Tamsyn 14")
(set-frame-font "Tamsyn 14")
(set-frame-font "Tamsyn 14")