• My Emacs' configuration
  • General tweaking
  • use-package
  • General settings
  • Org configuration
  • Theming
  • EXWM
  • Evil
  • Vterm
  • Helm
  • Projectile
  • Treemacs
  • Company
  • Nix(Os) integration
  • Paredit
  • Pass
  • Emms
  • MPDel
  • Elfeed
  • Edit-server
  • Magit
  • Zoom
  • Dired+

My Emacs' configuration

This is my Emacs configuration, it's written as literate programming using org-mode's Babel. All the settings are enclosed inside this single file named /aciceri/emacs/src/commit/5c30bcc18e21fdcdc51ea5aff04134d645413a2e/README.org, the reason of this choice is that many services (like GitHub) automatically looks for these names. The configuration of different Emacs' aspects are kept divided in different paragraphs.

This file must be considered part of the Git repository to which it belongs and it may not work properly without the other files. Despite I mainly use NixOS I chose to keep my Emacs configuration detached from my Nix files, this way I should be able get my Emacs' settings in a non-Nix environment.

However the installing process of the required packages is not managed by this configuration; for example on my NixOS system I use the emacs-overlay which automatically parses this file looking for the (use-package <package>) declarations and then downloads and builds the latest versions from MELPA. I preferred to maintain this agnostic approach in order to don't make this already dense file even more complex. Indeed, as it's configured, use-package should ensure that the packages are installed, and if this is not the case it should install them.

I use EXWM (i.e. Emacs X Window Manager) but since I wanted to keep the possibility to use this configuration also on different systems (maybe without X.org) I tried to isolate its settings. So, even if I never tried, it should be easy to disable it without consequences.

General tweaking

This should increase the space thresold before the garbage collector starts doing its work. Some users on the internet said that this snippet speeded up the boot.

  (let* ((normal-gc-cons-threshold (* 20 1024 1024))
	 (init-gc-cons-threshold (* 128 1024 1024)))
    (setq gc-cons-threshold init-gc-cons-threshold)
    (add-hook 'emacs-startup-hook
	      (lambda () (setq gc-cons-threshold normal-gc-cons-threshold))))

use-package

This is the only package that has to be manually installed (automatically installed if using the NixOS' emacs-overlay)

(require 'use-package)
(setq use-package-alwaysensure t) ;automatically downloads packages if not installed

General settings

This snippet contatins different things that I wasn't able to gather better. Hopefully, in a future, this section won't exist anymore.

(setq backup-directory-alist `(("." . "~/.emacs-saves")))
(setq backup-by-copying t)
(setq delete-old-versions t
  kept-new-versions 6
  kept-old-versions 2
  version-control t)

(defalias 'yes-or-no-p 'y-or-n-p)
(setq use-dialog-box nil)
(menu-bar-mode -1)
(tool-bar-mode -1)
(scroll-bar-mode -1)
(fringe-mode 1)
(setq display-time-format "%H:%M")
(display-time-mode 1)
(setq mouse-autoselect-window 't)

(setq inhibit-startup-screen t)

(setq async-shell-command-buffer 'new-buffer)
(add-hook 'prog-mode-hook 'display-line-numbers-mode)
(add-hook 'prog-mode-hook 'hl-line-mode)
(add-hook 'org-mode-hook 'auto-fill-mode)
(set-fill-column 80)

(add-to-list 'default-frame-alist '(font . "Fira Code-12"))
(set-face-attribute 'default t :font "Fira Code-12")

(setq show-paren-delay 0)
(set-face-background 'show-paren-match "#111")
(set-face-attribute 'show-paren-match nil :weight 'extra-bold)
(show-paren-mode 1)

(use-package quelpa-use-package)

(package-initialize)

(server-start)

Org configuration

(require 'org-protocol)
(setq org-default-notes-file (concat org-directory "~/notes.org"))
(setq org-capture-templates `(
	("p" "Protocol" entry (file+headline ,(concat org-directory "notes.org") "Inbox")
        "* %^{Title}\nSource: %u, %c\n #+BEGIN_QUOTE\n%i\n#+END_QUOTE\n\n\n%?")
	("L" "Protocol Link" entry (file+headline ,(concat org-directory "notes.org") "Inbox")
        "* %? [[%:link][%:description]] \nCaptured On: %U")
))

(org-babel-do-load-languages
 'org-babel-load-languages
 '((python . t)))

Theming

I'm using the doom-one theme from the doom-themes package. In addition it's loaded the all-the-icons fonts and a special modeline from doom-modeline.

(use-package doom-themes
  :after treemacs
  :config
  ;; Global settings (defaults)
  (setq doom-themes-enable-bold t    ; if nil, bold is universally disabled
        doom-themes-enable-italic t) ; if nil, italics is universally disabled
  (load-theme 'doom-one t)

  ;; Enable flashing mode-line on errors
  (doom-themes-visual-bell-config)
  
  (setq doom-themes-treemacs-theme "doom-colors") ; use the colorful treemacs theme
  (doom-themes-treemacs-config)
  
  ;; Corrects (and improves) org-mode's native fontification.
  (doom-themes-org-config)
  )

(use-package all-the-icons)

(use-package doom-modeline
  :init (doom-modeline-mode 1))

(use-package fira-code-mode
  :hook prog-mode
  :config (setq fira-code-mode-disabled-ligatures '("x")))

EXWM

The following configuration must be commented out one doesn't want to use Emacs as windows manager.

(use-package exwm
  :if window-system
  :config
  (progn
    (require 'seq)
    
  (setq exwm-input-global-keys
	`(
	  ([?\s-c] . exwm-reset) ; works?

	  ([?\s-w] . exwm-workspace-switch)
	  ,@(mapcar (lambda (i)
		      `(,(kbd (format "s-%d" i)) .
			(lambda ()
			  (interactive)
			  (exwm-workspace-switch-create ,i))))
		    (number-sequence 0 9))

	  ([?\s-f] . exwm-layout-toggle-fullscreen)
	  ([?\s-g] . exwm-floating-toggle-floating)

	  ([?\s-t] . helm-exwm)

	  ([?\s-q] . kill-current-buffer)

	  ([?\s-m] . (lambda () (interactive)
		       (async-shell-command "spotify")
		       (async-shell-command "spotify-adkiller")))

	  ([?\s-b] . (lambda () (interactive)
		       (start-process "" nil "firefox")))

	  ([?\s-p] . (lambda () (interactive)
		       (start-process "" nil "screenshot")))
	  
	  ([?\s-d] . helm-run-external-command)))

 
  (defun exwm-rename-buffer-to-title ()
    (exwm-workspace-rename-buffer exwm-title))
  (add-hook 'exwm-update-title-hook 'exwm-rename-buffer-to-title)

  (add-hook 'exwm-floating-setup-hook 'exwm-layout-hide-mode-line)
  (add-hook 'exwm-floating-exit-hook 'exwm-layout-show-mode-line)

  (setq exwm-workspace-show-all-buffers t)
  
  (setq window-divider-default-bottom-width 2
	window-divider-default-right-width 2)
  (window-divider-mode)

  (exwm-input-set-key (kbd "s-h") #'windmove-left)
  (exwm-input-set-key (kbd "s-j") #'windmove-down)
  (exwm-input-set-key (kbd "s-k") #'windmove-up)
  (exwm-input-set-key (kbd "s-l") #'windmove-right)
  
  (exwm-enable)))

(use-package windsize
  :after exwm
  :config (progn
	    (windsize-default-keybindings)
	    (exwm-input-set-key (kbd "s-H") #'windsize-left)
	    (exwm-input-set-key (kbd "s-J") #'windsize-down)
	    (exwm-input-set-key (kbd "s-K") #'windsize-up)
	    (exwm-input-set-key (kbd "s-L") #'windsize-right)
	    ))

(use-package helm-exwm
  :after (exwm helm)
  :config (setq helm-exwm-buffer-max-length nil)
)

Evil

In a future I think I'll try the Emacs keybindings, but for now I prefer the Vim keybindings, at least for the text editing. Since I use small keyboards I think it's better to use a modal editor, however for everything that is not text editing I use the normal Emacs keybindings.

(use-package evil
  :init
  (setq evil-want-keybinding nil)
  :config
  (progn
    (evil-mode 1) ; globally enable evil-mode except for the following modes
    (mapcar (lambda (mode) (evil-set-initial-state mode 'emacs))
	   '(vterm-mode
	     eshell-mode
	     dired-mode
	     ))))

(use-package evil-collection
  :after (evil company-mode vterm)
  :config
    (evil-collection-init))

(use-package org-evil)

Vterm

This is a really good terminal emulator. I tend to use Emacs for everything but sometimes I need to use external tools, and in this case I tend to use eshell which is better ingrated with Emacs, but sometimes this is not sufficient (e.g. the application uses nCurses, or I'm simply sshing in a remote shell and I don't want to use TRAMP) and then I use Vterm.

(use-package vterm)

Helm

Unfortunately this is currently unmantained (there was only a mantainer, who devoted himself to it for years) but I hope that someone in the near future will pick up the project. However this is really stable and I never had problems.

(use-package helm
  
  :init
  (progn
    (require 'helm-config)
    (setq helm-autoresize-max-height 0)
    (setq helm-autoresize-min-height 20)
    (global-set-key (kbd "C-c h") 'helm-command-prefix)
    (global-unset-key (kbd "C-x c"))

    (when (executable-find "ack")
      (setq helm-grep-default-command "ack -Hn --no-group --no-color %e %p %f"
	    helm-grep-default-recurse-command "ack -H --no-group --no-color %e %p %f"))

    (setq helm-semantic-fuzzy-match t
	  helm-imenu-fuzzy-match t
	  helm-M-x-fuzzy-match t ;; optional fuzzy matching for helm-M-x
	  helm-buffers-fuzzy-matching t
	  helm-recentf-fuzzy-match t
	  helm-split-window-in-side-p t
	  helm-buffer-max-length nil)

    (helm-mode 1)
    (helm-autoresize-mode 1))

  :bind
  (("C-c h" . helm-command-prefix)
   :map helm-command-map
   ("b" . helm-buffers-list)
   ("f" . helm-find-files)
   ("m" . helm-mini)
   ("o" . helm-imenu))
  :bind
  (("M-x" . helm-M-x)
   ("M-y" . helm-show-kill-ring)
   ("C-x b" . helm-mini)
   ("C-x C-f" . helm-find-files))
  )

Projectile

(use-package projectile
  :config
  (progn
    (define-key projectile-mode-map (kbd "s-p") 'projectile-command-map)
    (define-key projectile-mode-map (kbd "C-c p") 'projectile-command-map)
    (projectile-mode +1)))

(use-package helm-projectile
  :after projectile
  :config
  (progn
    (helm-projectile-on)))

Treemacs

(use-package treemacs)

(use-package treemacs-evil
  :after treemacs)

Company

(use-package company
  :config (global-company-mode))

Nix(Os) integration

This section contains everything related to Nix(Os).

(use-package nix-mode
  :mode "\\.nix\\'")

(use-package company-nixos-options
  :after company
  :config
  (progn
    (add-to-list 'company-backends 'company-nixos-options)))

(use-package helm-nixos-options)

Paredit

This package is fundamental when writing Lisp/Scheme.

(use-package paredit
  :hook ((lisp-mode
	  emacs-lisp-mode
	  ielm-mode
	  lisp-interaction-mode
	  scheme-mode
	  eval-expression-minibuffer-setup) .
	  paredit-mode)
  :config (eldoc-add-command 'paredit-backward-delete 'paredit-close-round))

(use-package rainbow-delimiters
  :hook (prog-mode . rainbow-delimiters-mode))

Pass

I use the `pass` password manager, to use these packages I manually configure it in the shell before.

(use-package pass)
(use-package helm-pass)

Emms

I don't use it anymore because I didn't like the way it managed MPD, however I'll leave here my configuration. Now I use `mpdel`, see the next paragraph.

;; (use-package emms
;;   :config
;;   (progn
;;     (require 'emms-setup)
;;     (require 'emms-player-mpd)
;;     (require 'emms-volume)
;;     (setq emms-player-mpd-server-name "localhost")
;;     (setq emms-player-mpd-server-port "6600")
;;     (setq emms-volume-change-function 'emms-volume-mpd-change)
;;     (add-to-list 'emms-info-functions 'emms-info-mpd)
;;     (add-to-list 'emms-player-list 'emms-player-mpd)
;;     (emms-all)
;;     (defun my-emms-browser-covers (dir dim)
;;       (emms-browser-cache-thumbnail-async (concat "/home/andrea/nas/musica/" dir) dim))
;;     (setq emms-browser-covers 'my-emms-browser-covers)
;;     (emms-cache-set-from-mpd-all)))

MPDel

This package permit to control the MPD deamon, obviously it has to be installed and started before.

(use-package mpdel
  :config
  (progn
    (setq libmpdel-hostname "localhost")
    (setq libmpdel-port "6600")))

Elfeed

To manage my RSS feeds.

(use-package elfeed-org
  :config (progn
	    (elfeed-org)
	    (setq rmh-elfeed-org-files (list "~/.emacs.d/feeds/feeds.org"))

	    (defun elfeed-v-mpv (url)
  "Watch a video from URL in MPV"
  (async-shell-command (format "mpv %s" url)))

(defun elfeed-view-mpv (&optional use-generic-p)
  "Youtube-feed link"
  (interactive "P")
  (let ((entries (elfeed-search-selected)))
    (cl-loop for entry in entries
	     do (elfeed-untag entry 'unread)
	     when (elfeed-entry-link entry)
	     do (elfeed-v-mpv it))
    (mapc #'elfeed-search-update-entry entries)
    (unless (use-region-p) (forward-line))))

(define-key elfeed-search-mode-map (kbd "v") 'elfeed-view-mpv)))

Edit-server

This package allows to edit a textbox in a browser (with the related extension installed) using an Emacs buffer.

(use-package edit-server
  :ensure t
  :commands edit-server-start
  :init (if after-init-time
              (edit-server-start)
            (add-hook 'after-init-hook
                      #'(lambda() (edit-server-start))))
  :config (setq edit-server-new-frame-alist
                '((name . "Edit with Emacs FRAME")
                  (top . 200)
                  (left . 200)
                  (width . 80)
                  (height . 25)
                  (minibuffer . t)
                  (menu-bar-lines . t)
                  (window-system . x))))

Magit

One of the most famous Emacs package, I never needed to edit the defaults.

(use-package magit)

Zoom

At the moment I'm not using it should automatically resize Emacs windows in order to mantain specifit ratios, e.g. the golden ratio.

(use-package zoom)

Dired+

Installed directly from a script fetched on emacswiki, it adds new
features to Dired.
(use-package dired+
  :quelpa (dired+ :fetcher url :url "https://www.emacswiki.org/emacs/download/dired+.el")
  :defer 1
  :init
  (setq diredp-hide-details-initially-flag nil)
  (setq diredp-hide-details-propagate-flag nil)

  :config
  (diredp-toggle-find-file-reuse-dir 1))