From 74860a68f092ce7d195eb83c6b6de7a0cb77acdc Mon Sep 17 00:00:00 2001 From: Miquel Sabaté Solà Date: Tue, 7 Feb 2017 17:02:43 +0100 Subject: emacs: added recentf MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Miquel Sabaté Solà --- emacs/init.html | 1334 ++++++++++++++++++++++++++++--------------------------- emacs/init.org | 12 + 2 files changed, 687 insertions(+), 659 deletions(-) (limited to 'emacs') diff --git a/emacs/init.html b/emacs/init.html index 959bd75..784972d 100644 --- a/emacs/init.html +++ b/emacs/init.html @@ -4,7 +4,7 @@ mssola's GNU Emacs configuration - + @@ -206,22 +206,22 @@ file always. The initial contents of the init.el are: 
;; We can't tangle without org!
-(require 'org)
+(require 'org)
 
 ;; Follow symlinks
-(setq vc-follow-symlinks t)
+(setq vc-follow-symlinks t)
 
 ;; Open the configuration
-(find-file (concat user-emacs-directory "init.org"))
+(find-file (concat user-emacs-directory "init.org"))
 
 ;; Tangle it
-(org-babel-tangle)
+(org-babel-tangle)
 
 ;; Load it
-(load-file (concat user-emacs-directory "init.el"))
+(load-file (concat user-emacs-directory "init.el"))
 
 ;; Finally byte-compile it
-(byte-compile-file (concat user-emacs-directory "init.el"))
+(byte-compile-file (concat user-emacs-directory "init.el"))
@@ -244,21 +244,21 @@ on each change, the following function is provided:
-
(defun tangle-init ()
+
(defun tangle-init ()
   "If the current buffer is 'init.org' the code-blocks are
   tangled, and the tangled file is compiled. Morever, an init.html is generated."
 
-  (when (or (equal (buffer-file-name)
-                   (expand-file-name (concat user-emacs-directory "init.org")))
-            (string-suffix-p "dotfiles/emacs/init.org" (buffer-file-name)))
+  (when (or (equal (buffer-file-name)
+                   (expand-file-name (concat user-emacs-directory "init.org")))
+            (string-suffix-p "dotfiles/emacs/init.org" (buffer-file-name)))
 
     ;; Avoid running hooks when tangling
-    (let ((prog-mode-hook nil))
-      (org-babel-tangle)
-      (org-html-export-to-html)
-      (byte-compile-file (concat user-emacs-directory "init.el")))))
+    (let ((prog-mode-hook nil))
+      (org-babel-tangle)
+      (org-html-export-to-html)
+      (byte-compile-file (concat user-emacs-directory "init.el")))))
 
-(add-hook 'after-save-hook 'tangle-init)
+(add-hook 'after-save-hook 'tangle-init)
@@ -274,8 +274,8 @@ individually handled.
-
(unless (>= emacs-major-version 24)
-  (error "Don't be a cheap bastard and upgrade to at least GNU Emacs 24"))
+
(unless (>= emacs-major-version 24)
+  (error "Don't be a cheap bastard and upgrade to at least GNU Emacs 24"))
@@ -286,11 +286,11 @@ Temporarily reduce garbage collection so startup time is lower. Idea taken from
-
(defconst mssola-initial-gc-cons-threshold gc-cons-threshold
-  "Initial value of `gc-cons-threshold' at start-up time.")
-(setq gc-cons-threshold (* 1024 1024 1024))
-(add-hook 'after-init-hook
-          (lambda () (setq gc-cons-threshold mssola-initial-gc-cons-threshold)))
+
(defconst mssola-initial-gc-cons-threshold gc-cons-threshold
+  "Initial value of `gc-cons-threshold' at start-up time.")
+(setq gc-cons-threshold (* 1024 1024 1024))
+(add-hook 'after-init-hook
+          (lambda () (setq gc-cons-threshold mssola-initial-gc-cons-threshold)))
@@ -300,8 +300,8 @@ User name and email.
-
(setq user-full-name "Miquel Sabaté Solà"
-      user-mail-address "mikisabate@gmail.com")
+
(setq user-full-name "Miquel Sabaté Solà"
+      user-mail-address "mikisabate@gmail.com")
@@ -325,12 +325,12 @@ name of the buffer is displayed (e.g. "mssola: scratch").
-
(setq frame-title-format
-  '((:eval
-    (concat (user-real-login-name) ": "
-      (if (buffer-file-name)
-        (abbreviate-file-name (buffer-file-name))
-        "%b")))))
+
(setq frame-title-format
+  '((:eval
+    (concat (user-real-login-name) ": "
+      (if (buffer-file-name)
+        (abbreviate-file-name (buffer-file-name))
+        "%b")))))
@@ -341,21 +341,21 @@ modes.
-
(menu-bar-mode -1)
-(when (fboundp 'set-scroll-bar-mode)
-  (set-scroll-bar-mode nil))
-(when (fboundp 'tool-bar-mode)
-  (tool-bar-mode -1))
-(when (fboundp 'tooltip-mode)
-  (tooltip-mode 0))
+
(menu-bar-mode -1)
+(when (fboundp 'set-scroll-bar-mode)
+  (set-scroll-bar-mode nil))
+(when (fboundp 'tool-bar-mode)
+  (tool-bar-mode -1))
+(when (fboundp 'tooltip-mode)
+  (tooltip-mode 0))
 
-(line-number-mode 1)
-(column-number-mode 1)
+(line-number-mode 1)
+(column-number-mode 1)
 
 ;; Nice scrolling
-(setq scroll-margin 0
+(setq scroll-margin 0
       scroll-conservatively 100000
-      scroll-preserve-screen-position 1)
+      scroll-preserve-screen-position 1)
@@ -370,11 +370,11 @@ Use UTF-8 always.
-
(prefer-coding-system 'utf-8)
-(set-default-coding-systems 'utf-8)
-(set-terminal-coding-system 'utf-8)
-(set-keyboard-coding-system 'utf-8)
-(set-language-environment 'utf-8)
+
(prefer-coding-system 'utf-8)
+(set-default-coding-systems 'utf-8)
+(set-terminal-coding-system 'utf-8)
+(set-keyboard-coding-system 'utf-8)
+(set-language-environment 'utf-8)
@@ -389,17 +389,17 @@ I'm using "Droid Sans Mono" simply because I've grown used to it.
-
(set-frame-font "Droid Sans Mono Dotted for Powerline-10")
-(add-to-list 'default-frame-alist '(font . "Droid Sans Mono Dotted for Powerline-10"))
+
(set-frame-font "Droid Sans Mono Dotted for Powerline-10")
+(add-to-list 'default-frame-alist '(font . "Droid Sans Mono Dotted for Powerline-10"))
 
 ; Emacs in daemon mode does not like `set-face-attribute` because this is only
 ; applied if there is a frame in place, which doesn't happen when starting the
 ; daemon. Thus, we should call that after the frame has been created (e.g. by
 ; emacsclient).
 ; See: https://lists.gnu.org/archive/html/help-gnu-emacs/2015-03/msg00016.html
-(add-hook 'after-make-frame-functions-hook
-  (lambda ()
-    (set-face-attribute 'default t :font "Droid Sans Mono Dotted for Powerline-10")))
+(add-hook 'after-make-frame-functions-hook
+  (lambda ()
+    (set-face-attribute 'default t :font "Droid Sans Mono Dotted for Powerline-10")))
@@ -410,7 +410,7 @@ I've hacked my own theme called soria<
-
(load-theme 'soria t)
+
(load-theme 'soria t)
@@ -425,7 +425,7 @@ Use kill-this-buffer instead of kill-buffer.
-
(global-set-key (kbd "C-x k") 'kill-this-buffer)
+
(global-set-key (kbd "C-x k") 'kill-this-buffer)
@@ -437,7 +437,7 @@ cannot be loaded due to some error.
-
(global-unset-key (kbd "C-z"))
+
(global-unset-key (kbd "C-z"))
@@ -447,8 +447,8 @@ Disable all the Fn keys.
-
(dotimes (i 12)
-  (global-unset-key (kbd (format "<f%d>" (+ i 1)))))
+
(dotimes (i 12)
+  (global-unset-key (kbd (format "<f%d>" (+ i 1)))))
@@ -458,7 +458,7 @@ Disable overwrite-mode.
-
(define-key global-map [(insert)] nil)
+
(define-key global-map [(insert)] nil)
@@ -473,7 +473,7 @@ Revert buffers automatically when underlying files are changed externally.
-
(global-auto-revert-mode t)
+
(global-auto-revert-mode t)
@@ -483,7 +483,7 @@ Follow symlinks.
-
(setq vc-follow-symlinks t)
+
(setq vc-follow-symlinks t)
@@ -493,7 +493,7 @@ Remove the initial message from the scratch buffer.
-
(setq initial-scratch-message nil)
+
(setq initial-scratch-message nil)
@@ -503,11 +503,11 @@ Never kill the scratch buffer, bury it instead.
-
(defadvice kill-buffer (around kill-buffer-around-advice activate)
-  (let ((buffer-to-kill (ad-get-arg 0)))
-    (if (equal buffer-to-kill "*scratch*")
-        (bury-buffer)
-      ad-do-it)))
+
(defadvice kill-buffer (around kill-buffer-around-advice activate)
+  (let ((buffer-to-kill (ad-get-arg 0)))
+    (if (equal buffer-to-kill "*scratch*")
+        (bury-buffer)
+      ad-do-it)))
@@ -517,8 +517,24 @@ No backups
-
(setq-default make-backup-files nil)
-(setq-default auto-save-default nil)
+
(setq-default make-backup-files nil)
+(setq-default auto-save-default nil)
+

+
+ +

+But at least save the list of recently open files. +

+ +
+ +
(require 'recentf)
+
+(recentf-mode 1)
+(global-set-key "\C-x\ \C-r" 'recentf-open-files)
+
+; Save the list every 5 minutes
+(run-at-time nil (* 5 60) 'recentf-save-list)
@@ -528,7 +544,7 @@ No welcome screen
-
(setq-default inhibit-startup-message t)
+
(setq-default inhibit-startup-message t)
@@ -538,7 +554,7 @@ Enable y/n answers
-
(fset 'yes-or-no-p 'y-or-n-p)
+
(fset 'yes-or-no-p 'y-or-n-p)
@@ -548,7 +564,7 @@ Let flyspell be performant.
-
(defvar flyspell-issue-message-flag nil)
+
(defvar flyspell-issue-message-flag nil)
@@ -558,9 +574,9 @@ Save custom-variables somewhere else.
-
(setq custom-file (expand-file-name "custom.el" user-emacs-directory))
-(if (file-exists-p custom-file)
-    (load custom-file))
+
(setq custom-file (expand-file-name "custom.el" user-emacs-directory))
+(if (file-exists-p custom-file)
+    (load custom-file))
@@ -576,7 +592,7 @@ We catalans start our weeks on Monday.
-
(defvar calendar-week-start-day 1)
+
(defvar calendar-week-start-day 1)
@@ -586,7 +602,7 @@ Global key binding.
-
(global-set-key (kbd "C-c c") 'calendar)
+
(global-set-key (kbd "C-c c") 'calendar)
@@ -596,9 +612,9 @@ Fix some stuff for evil mode.
-
(with-eval-after-load "evil"
-  (evil-set-initial-state 'calendar-mode 'normal)
-  (evil-define-key 'normal calendar-mode-map
+
(with-eval-after-load "evil"
+  (evil-set-initial-state 'calendar-mode 'normal)
+  (evil-define-key 'normal calendar-mode-map
     "j" 'calendar-forward-week
     "k" 'calendar-backward-week
     "b" 'calendar-backward-day
@@ -611,7 +627,7 @@ Fix some stuff for evil mode.
     "\C-j" 'evil-window-down
     "\C-k" 'evil-window-up
     "\C-n" 'calendar-scroll-left-three-months
-    "\C-p" 'calendar-scroll-right-three-months))
+    "\C-p" 'calendar-scroll-right-three-months))
@@ -627,15 +643,15 @@ the NEWS file from the git server and then opens it in a buffer.
-
(defun mssola-view-emacs-latest-news ()
+
(defun mssola-view-emacs-latest-news ()
   "Allow users to fetch the latest Emacs' NEWS file."
-  (interactive)
+  (interactive)
 
-  (url-copy-file
+  (url-copy-file
    "http://git.savannah.gnu.org/cgit/emacs.git/plain/etc/NEWS"
-   "/tmp/emacs-news" t)
+   "/tmp/emacs-news" t)
 
-  (find-file-read-only "/tmp/emacs-news" t))
+  (find-file-read-only "/tmp/emacs-news" t))
@@ -645,14 +661,14 @@ Sometimes I want to debug my initialization time.
-
(defun emacs-init-time ()
+
(defun emacs-init-time ()
   "Redefine the `emacs-init-time' function so it is more detailed.
 Idea taken from @purcell."
 
-  (interactive)
-  (let ((init-time
-         (float-time (time-subtract after-init-time before-init-time))))
-    (message "%.3fs" init-time)))
+  (interactive)
+  (let ((init-time
+         (float-time (time-subtract after-init-time before-init-time))))
+    (message "%.3fs" init-time)))
@@ -670,8 +686,8 @@ Compile the g.el script and bind it to M-g.
-
(byte-compile-file (concat user-emacs-directory "lisp/g.el") t)
-(global-set-key (kbd "M-g") 'g)
+
(byte-compile-file (concat user-emacs-directory "lisp/g.el") t)
+(global-set-key (kbd "M-g") 'g)
@@ -686,14 +702,14 @@ Initialize package.
-
(require 'package)
+
(require 'package)
 
-(add-to-list 'package-archives
-             '("melpa" . "http://melpa.milkbox.net/packages/") t)
-(add-to-list 'package-archives
-             '("melpa-stable" . "https://stable.melpa.org/packages/") t)
+(add-to-list 'package-archives
+             '("melpa" . "http://melpa.milkbox.net/packages/") t)
+(add-to-list 'package-archives
+             '("melpa-stable" . "https://stable.melpa.org/packages/") t)
 
-(package-initialize)
+(package-initialize)
@@ -706,9 +722,9 @@ package-install, I decided on use-package because I feel more well-organized.
-
(unless (package-installed-p 'use-package)
-  (package-refresh-contents)
-  (package-install 'use-package))
+
(unless (package-installed-p 'use-package)
+  (package-refresh-contents)
+  (package-install 'use-package))
@@ -719,8 +735,8 @@ require it here on the very top.
-
(use-package diminish
-  :ensure t)
+
(use-package diminish
+  :ensure t)
@@ -737,19 +753,19 @@ Ayo silver!
-
(use-package ag
+
(use-package ag
   :ensure t
   :config
 
   ; Avoid some disagreements between ag and evil.
-  (with-eval-after-load 'evil
-    (add-hook 'ag-mode-hook
-              (lambda ()
-                (define-key ag-mode-map (kbd "n") 'evil-search-next)
-                (define-key ag-mode-map (kbd "N") 'evil-search-previous)
-                (define-key ag-mode-map (kbd "gg") 'evil-goto-first-line))))
-  (setq ag-reuse-buffers t)
-  (setq ag-reuse-window t))
+  (with-eval-after-load 'evil
+    (add-hook 'ag-mode-hook
+              (lambda ()
+                (define-key ag-mode-map (kbd "n") 'evil-search-next)
+                (define-key ag-mode-map (kbd "N") 'evil-search-previous)
+                (define-key ag-mode-map (kbd "gg") 'evil-goto-first-line))))
+  (setq ag-reuse-buffers t)
+  (setq ag-reuse-window t))
@@ -759,57 +775,57 @@ Then, for keeping up with my projects I use the Projectile + Helm combination.
-
(use-package projectile
+
(use-package projectile
   :ensure t
   :config
-  (projectile-mode 1)
-  (setq projectile-mode-line
-    '(:eval (format " %s" (projectile-project-name)))))
+  (projectile-mode 1)
+  (setq projectile-mode-line
+    '(:eval (format " %s" (projectile-project-name)))))
 
-(use-package helm
+(use-package helm
   :ensure t
   :config
-  (setq projectile-completion-system 'helm)
+  (setq projectile-completion-system 'helm)
 
   ; Allow the search pattern to be on the header. Taken from this Reddit thread:
   ; https://www.reddit.com/r/emacs/comments/3asbyn/new_and_very_useful_helm_feature_enter_search/
-  (setq helm-echo-input-in-header-line t)
+  (setq helm-echo-input-in-header-line t)
 
-  (defun helm-hide-minibuffer-maybe ()
+  (defun helm-hide-minibuffer-maybe ()
     "Hide the minibuffer if we are in a Helm session"
 
-    (when (with-helm-buffer helm-echo-input-in-header-line)
-      (let ((ov (make-overlay (point-min) (point-max) nil nil t)))
-        (overlay-put ov 'window (selected-window))
-        (overlay-put ov 'face (let ((bg-color (face-background 'default nil)))
-                                `(:background ,bg-color :foreground ,bg-color)))
-        (setq-local cursor-type nil))))
+    (when (with-helm-buffer helm-echo-input-in-header-line)
+      (let ((ov (make-overlay (point-min) (point-max) nil nil t)))
+        (overlay-put ov 'window (selected-window))
+        (overlay-put ov 'face (let ((bg-color (face-background 'default nil)))
+                                `(:background ,bg-color :foreground ,bg-color)))
+        (setq-local cursor-type nil))))
 
-  (add-hook 'helm-minibuffer-set-up-hook 'helm-hide-minibuffer-maybe)
-  (setq helm-split-window-in-side-p t)
+  (add-hook 'helm-minibuffer-set-up-hook 'helm-hide-minibuffer-maybe)
+  (setq helm-split-window-in-side-p t)
 
   ; Preview files with tab
-  (define-key helm-map (kbd "<tab>") 'helm-execute-persistent-action)
+  (define-key helm-map (kbd "<tab>") 'helm-execute-persistent-action)
 
   ; Show available options
-  (define-key helm-map (kbd "C-a")  'helm-select-action)
+  (define-key helm-map (kbd "C-a")  'helm-select-action)
 
   ; Some vim-like bindings
-  (define-key helm-map (kbd "C-j") 'helm-next-line)
-  (define-key helm-map (kbd "C-k") 'helm-previous-line)
+  (define-key helm-map (kbd "C-j") 'helm-next-line)
+  (define-key helm-map (kbd "C-k") 'helm-previous-line)
 
-  (use-package helm-ag
-    :ensure t))
+  (use-package helm-ag
+    :ensure t))
 
-(use-package helm-projectile
+(use-package helm-projectile
   :ensure t
   :config
-  (helm-projectile-on)
+  (helm-projectile-on)
 
   ; Define M-p as a way to quickly list all the available projects.
-  (with-eval-after-load 'evil
-    (define-key evil-normal-state-map (kbd "M-p")
-      'helm-projectile-switch-project)))
+  (with-eval-after-load 'evil
+    (define-key evil-normal-state-map (kbd "M-p")
+      'helm-projectile-switch-project)))
@@ -822,37 +838,37 @@ buffers.
-
(defun mssola-erc-helm-buffer-list ()
+
(defun mssola-erc-helm-buffer-list ()
   "Returns a list with the ERC buffers."
-  (mapcar 'buffer-name (erc-buffer-list)))
+  (mapcar 'buffer-name (erc-buffer-list)))
 
-(defconst mssola-helm-source-erc-channel-list
-      '((name . "ERC Channels")
-        (candidates . mssola-erc-helm-buffer-list)
-        (action . switch-to-buffer)))
+(defconst mssola-helm-source-erc-channel-list
+      '((name . "ERC Channels")
+        (candidates . mssola-erc-helm-buffer-list)
+        (action . switch-to-buffer)))
 
-(defun mssola-erc-helm-switch-buffer ()
+(defun mssola-erc-helm-switch-buffer ()
   "Use helm to select an active ERC buffer."
 
-  (interactive)
+  (interactive)
 
-  (helm :sources '(mssola-helm-source-erc-channel-list)
-        :buffer "*helm-erc-channels*"))
+  (helm :sources '(mssola-helm-source-erc-channel-list)
+        :buffer "*helm-erc-channels*"))
 
-(defun mssola-find-file ()
+(defun mssola-find-file ()
   "Call the proper Helm function for finding files."
 
-  (interactive)
+  (interactive)
 
-  (if (string= major-mode "erc-mode")
-      (mssola-erc-helm-switch-buffer)
-    (condition-case nil
-        (helm-projectile-find-file)
-      (error
-       (helm-find-files nil)))))
+  (if (string= major-mode "erc-mode")
+      (mssola-erc-helm-switch-buffer)
+    (condition-case nil
+        (helm-projectile-find-file)
+      (error
+       (helm-find-files nil)))))
 
-(with-eval-after-load 'evil
-  (define-key evil-normal-state-map (kbd "C-p") 'mssola-find-file))
+(with-eval-after-load 'evil
+  (define-key evil-normal-state-map (kbd "C-p") 'mssola-find-file))
@@ -863,17 +879,17 @@ binding to ,a a function that calls to the proper function.
-
(defun mssola-helm-ag ()
+
(defun mssola-helm-ag ()
   "Call the right ag command for helm-ag."
 
-  (interactive)
+  (interactive)
 
-  (condition-case nil
-      (helm-ag-project-root)
-    (error (helm-ag))))
+  (condition-case nil
+      (helm-ag-project-root)
+    (error (helm-ag))))
 
-(with-eval-after-load 'evil-leader
-  (evil-leader/set-key "a" 'mssola-helm-ag))
+(with-eval-after-load 'evil-leader
+  (evil-leader/set-key "a" 'mssola-helm-ag))
@@ -892,18 +908,18 @@ recent versions of GNU Emacs.
-
(with-eval-after-load 'undo-tree
-  (global-undo-tree-mode 1)
+
(with-eval-after-load 'undo-tree
+  (global-undo-tree-mode 1)
 
-  (setq undo-tree-visualizer-diff t
+  (setq undo-tree-visualizer-diff t
         undo-tree-visualizer-timestamps t
-        undo-tree-visualizer-relative-timestamps t)
+        undo-tree-visualizer-relative-timestamps t)
 
-  (diminish 'undo-tree-mode)
+  (diminish 'undo-tree-mode)
 
-  (with-eval-after-load 'evil-leader
-    (evil-leader/set-key
-      "u" 'undo-tree-visualize)))
+  (with-eval-after-load 'evil-leader
+    (evil-leader/set-key
+      "u" 'undo-tree-visualize)))
@@ -914,21 +930,21 @@ extension. This works with lots of languages with proper glue code.
-
(use-package let-alist
-  :ensure t)
+
(use-package let-alist
+  :ensure t)
 
-(use-package flycheck
+(use-package flycheck
   :ensure t
   :diminish
   :config
-  (add-hook 'after-init-hook 'global-flycheck-mode)
+  (add-hook 'after-init-hook 'global-flycheck-mode)
 
   ;; Only show the errors buffer if it isn't there and if I'm saving the
   ;; buffer.
-  (setq flycheck-emacs-lisp-load-path 'inherit)
-  (setq flycheck-check-syntax-automatically '(mode-enabled save))
-  (setq flycheck-display-errors-function
-    #'flycheck-display-error-messages-unless-error-list))
+  (setq flycheck-emacs-lisp-load-path 'inherit)
+  (setq flycheck-check-syntax-automatically '(mode-enabled save))
+  (setq flycheck-display-errors-function
+    #'flycheck-display-error-messages-unless-error-list))
@@ -940,11 +956,11 @@ with your editor, you have to increase/decrease the fonts. I use the
-
(use-package default-text-scale
+
(use-package default-text-scale
   :ensure t
   :config
-  (global-set-key (kbd "C-+") 'default-text-scale-increase)
-  (global-set-key (kbd "C--") 'default-text-scale-decrease))
+  (global-set-key (kbd "C-+") 'default-text-scale-increase)
+  (global-set-key (kbd "C--") 'default-text-scale-decrease))
@@ -957,8 +973,8 @@ supports it).
-
(use-package rainbow-delimiters
-  :ensure t)
+
(use-package rainbow-delimiters
+  :ensure t)
@@ -968,11 +984,11 @@ I never use the mouse.
-
(use-package disable-mouse
+
(use-package disable-mouse
   :ensure t
   :diminish
   :config
-  (global-disable-mouse-mode))
+  (global-disable-mouse-mode))
@@ -984,8 +1000,8 @@ commands for the current chord as a list.
-
(use-package which-key
-  :ensure t)
+
(use-package which-key
+  :ensure t)
@@ -996,8 +1012,8 @@ this, we have wc-mode.
-
(use-package wc-mode
-  :ensure t)
+
(use-package wc-mode
+  :ensure t)
@@ -1008,8 +1024,8 @@ that often, but it's cool to have a distraction-free screen from time to time.
-
(use-package writeroom-mode
-  :ensure t)
+
(use-package writeroom-mode
+  :ensure t)
@@ -1021,27 +1037,27 @@ most of my uses, it's convenient to have this tool anyways.
-
(use-package expand-region
+
(use-package expand-region
   :ensure t
   :config
 
   ; Set C-e as the expand command (mnemonic: expand). This command will
   ; supercede the evil binding for "move one line", which I never use anyways.
-  (global-set-key (kbd "\C-e") 'er/expand-region)
-  (with-eval-after-load 'evil
-    (define-key evil-normal-state-map (kbd "\C-e") 'er/expand-region)
-    (define-key evil-visual-state-map (kbd "\C-e") 'er/expand-region)))
+  (global-set-key (kbd "\C-e") 'er/expand-region)
+  (with-eval-after-load 'evil
+    (define-key evil-normal-state-map (kbd "\C-e") 'er/expand-region)
+    (define-key evil-visual-state-map (kbd "\C-e") 'er/expand-region)))
 
-(defun er/add-text-mode-expansions ()
+(defun er/add-text-mode-expansions ()
   "This way we can also expand the region into paragraphs & pages in text mode.
 Directly taken from: https://github.com/magnars/expand-region.el."
 
-  (set (make-local-variable 'er/try-expand-list) (append
+  (set (make-local-variable 'er/try-expand-list) (append
                                                   er/try-expand-list
-                                                  '(mark-paragraph
-                                                    mark-page))))
+                                                  '(mark-paragraph
+                                                    mark-page))))
 
-(add-hook 'text-mode-hook 'er/add-text-mode-expansions)
+(add-hook 'text-mode-hook 'er/add-text-mode-expansions)
@@ -1055,14 +1071,14 @@ snippets in another buffer.
-
(use-package yasnippet
+
(use-package yasnippet
   :ensure t
   :diminish yas-minor-mode
-  :init (yas-global-mode)
+  :init (yas-global-mode)
   :config
-  (yas-global-mode 1)
-  (with-eval-after-load 'evil-leader
-    (evil-leader/set-key "h" 'yas-describe-tables)))
+  (yas-global-mode 1)
+  (with-eval-after-load 'evil-leader
+    (evil-leader/set-key "h" 'yas-describe-tables)))
@@ -1078,9 +1094,9 @@ whenever I use it, I want basic evil movement.
-
(with-eval-after-load 'evil
-  (evil-add-hjkl-bindings dired-mode-map 'normal
-    (kbd "w") 'evil-forward-word-begin))
+
(with-eval-after-load 'evil
+  (evil-add-hjkl-bindings dired-mode-map 'normal
+    (kbd "w") 'evil-forward-word-begin))
@@ -1090,12 +1106,12 @@ I also extend dired with some handy tweaks.
-
(setq directory-free-space-args "-Pkh"
+
(setq directory-free-space-args "-Pkh"
       dired-dwim-target t
       dired-omit-mode nil
       dired-recursive-copies 'always
       dired-recursive-deletes 'always
-      delete-old-versions t)
+      delete-old-versions t)
@@ -1107,24 +1123,24 @@ from the mu4
-
(require 'gnus-dired)
+
(require 'gnus-dired)
 
 ;; Make the `gnus-dired-mail-buffers' function also work on message-mode derived
 ;; modes, such as mu4e-compose-mode.
-(defun gnus-dired-mail-buffers ()
+(defun gnus-dired-mail-buffers ()
   "Return a list of active message buffers."
 
-  (let (buffers)
-    (save-current-buffer
-      (dolist (buffer (buffer-list t))
-        (set-buffer buffer)
-        (when (and (derived-mode-p 'message-mode)
-                (null message-sent-message-via))
-          (push (buffer-name buffer) buffers))))
-    (nreverse buffers)))
+  (let (buffers)
+    (save-current-buffer
+      (dolist (buffer (buffer-list t))
+        (set-buffer buffer)
+        (when (and (derived-mode-p 'message-mode)
+                (null message-sent-message-via))
+          (push (buffer-name buffer) buffers))))
+    (nreverse buffers)))
 
-(setq gnus-dired-mail-mode 'mu4e-user-agent)
-(add-hook 'dired-mode-hook 'turn-on-gnus-dired-mode)
+(setq gnus-dired-mail-mode 'mu4e-user-agent)
+(add-hook 'dired-mode-hook 'turn-on-gnus-dired-mode)
@@ -1147,65 +1163,65 @@ First of all, let's define a function that will be called whenever Evil is loade
-
(defun mssola-evil ()
+
(defun mssola-evil ()
   "Configure evil mode."
 
   ; We can safely remap <C-u> because the counting will be handled a-la Vim.
-  (define-key evil-normal-state-map (kbd "C-u") 'evil-scroll-up)
+  (define-key evil-normal-state-map (kbd "C-u") 'evil-scroll-up)
 
   ; Make window navigation easier.
-  (define-key evil-normal-state-map (kbd "C-j") 'evil-window-down)
-  (define-key evil-normal-state-map (kbd "C-k") 'evil-window-up)
-  (define-key evil-normal-state-map (kbd "C-l") 'evil-window-right)
-  (define-key evil-normal-state-map (kbd "C-h") 'evil-window-left)
+  (define-key evil-normal-state-map (kbd "C-j") 'evil-window-down)
+  (define-key evil-normal-state-map (kbd "C-k") 'evil-window-up)
+  (define-key evil-normal-state-map (kbd "C-l") 'evil-window-right)
+  (define-key evil-normal-state-map (kbd "C-h") 'evil-window-left)
 
   ; The window navigation tweaks effectively wipe out the help prefix, which
   ; is bad. Fortunately we can workaround this by providing "M-h" as the new
   ; help prefix. This prefix is only used in emacs mode to mark lines, which is
   ; something already handled by Evil.
-  (define-key global-map (kbd "M-h") 'help-command)
-  (fset 'help-command help-map)
+  (define-key global-map (kbd "M-h") 'help-command)
+  (fset 'help-command help-map)
 
   ; I use the Super key in combination with j & k to move around i3. Let's unset
   ; M- combos for these two fellows for whenever I misstype them.
-  (global-unset-key (kbd "M-j"))
-  (global-unset-key (kbd "M-k"))
+  (global-unset-key (kbd "M-j"))
+  (global-unset-key (kbd "M-k"))
 
   ; both this function and the subsequent lines about [escape] are taken from
   ; @aaronbieber configuration.
-  (defun minibuffer-keyboard-quit ()
+  (defun minibuffer-keyboard-quit ()
     "Abort recursive edit.
 In Delete Selection mode, if the mark is active, just deactivate it;
 then it takes a second \\[keyboard-quit] to abort the minibuffer."
-    (interactive)
-    (if (and delete-selection-mode transient-mark-mode mark-active)
-        (setq deactivate-mark  t)
-      (when (get-buffer "*Completions*") (delete-windows-on "*Completions*"))
-      (abort-recursive-edit)))
+    (interactive)
+    (if (and delete-selection-mode transient-mark-mode mark-active)
+        (setq deactivate-mark  t)
+      (when (get-buffer "*Completions*") (delete-windows-on "*Completions*"))
+      (abort-recursive-edit)))
 
   ;; Make escape quit everything, whenever possible.
-  (define-key evil-normal-state-map [escape] 'keyboard-quit)
-  (define-key evil-visual-state-map [escape] 'keyboard-quit)
-  (define-key minibuffer-local-map [escape] 'minibuffer-keyboard-quit)
-  (define-key minibuffer-local-ns-map [escape] 'minibuffer-keyboard-quit)
-  (define-key minibuffer-local-completion-map [escape] 'minibuffer-keyboard-quit)
-  (define-key minibuffer-local-must-match-map [escape] 'minibuffer-keyboard-quit)
-  (define-key minibuffer-local-isearch-map [escape] 'minibuffer-keyboard-quit)
+  (define-key evil-normal-state-map [escape] 'keyboard-quit)
+  (define-key evil-visual-state-map [escape] 'keyboard-quit)
+  (define-key minibuffer-local-map [escape] 'minibuffer-keyboard-quit)
+  (define-key minibuffer-local-ns-map [escape] 'minibuffer-keyboard-quit)
+  (define-key minibuffer-local-completion-map [escape] 'minibuffer-keyboard-quit)
+  (define-key minibuffer-local-must-match-map [escape] 'minibuffer-keyboard-quit)
+  (define-key minibuffer-local-isearch-map [escape] 'minibuffer-keyboard-quit)
 
   ; I store macros on the <q> register for convenience, so I used to use the
   ; <C-q> combo to execute this macro in Vim. In Emacs though, this combo is
   ; reserved to a rather useful function, and I'd like to keep it that way. So,
   ; now the mapping is set to <C-2> (mnemonic: where the @ symbol is). Moreover,
   ; it's applied as many times as specified by the numeric prefix argument.
-  (define-key evil-normal-state-map (kbd "C-2")
-    (lambda (n)
-      (interactive "p")
-      (evil-execute-macro n "@q")))
+  (define-key evil-normal-state-map (kbd "C-2")
+    (lambda (n)
+      (interactive "p")
+      (evil-execute-macro n "@q")))
 
   ; C-s: switch to normal mode and save the buffer. I know :)
-  (define-key evil-normal-state-map (kbd "C-s") 'save-buffer)
-  (define-key evil-insert-state-map (kbd "C-s")
-    (lambda () (interactive) (save-buffer) (evil-force-normal-state))))
+  (define-key evil-normal-state-map (kbd "C-s") 'save-buffer)
+  (define-key evil-insert-state-map (kbd "C-s")
+    (lambda () (interactive) (save-buffer) (evil-force-normal-state))))
@@ -1215,24 +1231,24 @@ Now make sure that Evil is installed, and call the relevant configuration functi
-
(use-package evil
+
(use-package evil
   :ensure t
   :config
 
-  (add-hook 'evil-mode-hook 'mssola-evil)
-  (evil-mode 1)
+  (add-hook 'evil-mode-hook 'mssola-evil)
+  (evil-mode 1)
 
   ;; C-z is unused and it's close to my beloved C-c. Since I don't want to mess
   ;; with one of the most sacred Emacs prefixes, I'm moving to C-z.
-  (define-key key-translation-map (kbd "C-z") [escape])
-  (define-key evil-operator-state-map (kbd "C-z") 'keyboard-quit)
-  (set-quit-char "C-z")
+  (define-key key-translation-map (kbd "C-z") [escape])
+  (define-key evil-operator-state-map (kbd "C-z") 'keyboard-quit)
+  (set-quit-char "C-z")
 
   ;; Use the proper initial evil state for the following modes.
-  (evil-set-initial-state 'help-mode 'normal)
-  (evil-set-initial-state 'debugger-mode 'normal)
-  (evil-set-initial-state 'describe-mode 'normal)
-  (evil-set-initial-state 'Buffer-menu-mode 'normal)
+  (evil-set-initial-state 'help-mode 'normal)
+  (evil-set-initial-state 'debugger-mode 'normal)
+  (evil-set-initial-state 'describe-mode 'normal)
+  (evil-set-initial-state 'Buffer-menu-mode 'normal)
@@ -1245,22 +1261,22 @@ Vim into Evil.
-
(use-package evil-leader
+
(use-package evil-leader
   :ensure t
   :config
-  (global-evil-leader-mode)
-  (evil-leader/set-leader ",")
-  (setq evil-leader/in-all-states 1)
-  (evil-leader/set-key
+  (global-evil-leader-mode)
+  (evil-leader/set-leader ",")
+  (setq evil-leader/in-all-states 1)
+  (evil-leader/set-key
     "," 'back-to-indentation
     "c" 'delete-window
     "k" 'kill-buffer-and-window
     "v" 'split-window-right
-    "V" (lambda () (interactive) (split-window-right) (other-window 1))
+    "V" (lambda () (interactive) (split-window-right) (other-window 1))
     "f" 'flycheck-list-errors
     "e" 'eval-last-sexp
     "b" 'view-buffer
-    "o" 'browse-url-at-point))
+    "o" 'browse-url-at-point))
@@ -1272,10 +1288,10 @@ having double quotes with single quotes in a single command).
-
(use-package evil-surround
+
(use-package evil-surround
   :ensure t
   :config
-  (global-evil-surround-mode 1))
+  (global-evil-surround-mode 1))
@@ -1288,10 +1304,10 @@ the current line, regardless of the programming language.
-
(use-package evil-commentary
+
(use-package evil-commentary
   :ensure t
   :config
-  (evil-commentary-mode t))
+  (evil-commentary-mode t))
@@ -1304,20 +1320,20 @@ respectively.
-
(use-package evil-args
+
(use-package evil-args
   :ensure t
   :config
   ; Configuration taken from the documentation of evil-args.
 
   ;; Bind evil-args text objects
-  (define-key evil-inner-text-objects-map "a" 'evil-inner-arg)
-  (define-key evil-outer-text-objects-map "a" 'evil-outer-arg)
+  (define-key evil-inner-text-objects-map "a" 'evil-inner-arg)
+  (define-key evil-outer-text-objects-map "a" 'evil-outer-arg)
 
   ;; Bind evil-forward/backward-args
-  (define-key evil-normal-state-map "L" 'evil-forward-arg)
-  (define-key evil-normal-state-map "H" 'evil-backward-arg)
-  (define-key evil-motion-state-map "L" 'evil-forward-arg)
-  (define-key evil-motion-state-map "H" 'evil-backward-arg))
+  (define-key evil-normal-state-map "L" 'evil-forward-arg)
+  (define-key evil-normal-state-map "H" 'evil-backward-arg)
+  (define-key evil-motion-state-map "L" 'evil-forward-arg)
+  (define-key evil-motion-state-map "H" 'evil-backward-arg))
@@ -1330,11 +1346,11 @@ into Evil: C-a for increasing a number, and
-
(use-package evil-numbers
+
(use-package evil-numbers
   :ensure t
   :config
-  (define-key evil-normal-state-map (kbd "C-a") 'evil-numbers/inc-at-pt)
-  (define-key evil-normal-state-map (kbd "C-c -") 'evil-numbers/dec-at-pt)))
+  (define-key evil-normal-state-map (kbd "C-a") 'evil-numbers/inc-at-pt)
+  (define-key evil-normal-state-map (kbd "C-c -") 'evil-numbers/dec-at-pt)))
@@ -1350,37 +1366,37 @@ certainly useful for some common tasks (I guess that I still need some learning)
-
(use-package magit
+
(use-package magit
   :ensure t
   :config
 
   ; Proper initial states.
-  (with-eval-after-load 'evil
-    (add-hook 'git-commit-mode-hook 'evil-insert-state)
-    (evil-set-initial-state 'magit-log-edit-mode 'insert))
+  (with-eval-after-load 'evil
+    (add-hook 'git-commit-mode-hook 'evil-insert-state)
+    (evil-set-initial-state 'magit-log-edit-mode 'insert))
 
   ; When showing the status, hide the usually-redundant "branch" section and
   ; show the rest.
-  (add-hook 'magit-section-set-visibility-hook
-            '(lambda (section)
-               (if (string= (magit-section-type section) "branch")
+  (add-hook 'magit-section-set-visibility-hook
+            '(lambda (section)
+               (if (string= (magit-section-type section) "branch")
                    'hide
-                 'show)))
+                 'show)))
 
-  (with-eval-after-load 'evil-leader
-    (evil-leader/set-key "s" 'magit-status)
+  (with-eval-after-load 'evil-leader
+    (evil-leader/set-key "s" 'magit-status)
 
-    (use-package evil-magit
+    (use-package evil-magit
       :ensure t
       :config
 
       ; The magit + evil-magit combo messes up some chords, let's fix this.
-      (evil-define-key 'normal magit-mode-map
+      (evil-define-key 'normal magit-mode-map
         "\C-h" 'evil-window-left
         "\C-l" 'evil-window-right
         "\C-j" 'evil-window-down
         "\C-k" 'evil-window-up
-        "\M-p"  'helm-projectile-switch-project))))
+        "\M-p"  'helm-projectile-switch-project))))
@@ -1402,10 +1418,10 @@ I'm using an RPM that I've built on -
(add-to-list 'load-path "/usr/share/emacs/site-lisp/mu4e")
-(require 'mu4e)
+
(add-to-list 'load-path "/usr/share/emacs/site-lisp/mu4e")
+(require 'mu4e)
 
-(when (featurep 'mu4e)
+(when (featurep 'mu4e)
 

 
 
@@ -1415,9 +1431,9 @@ Diferent SMTP options that will be used for each context.
 
 

 
-
(setq message-send-mail-function 'smtpmail-send-it
-      mu4e-maildir (expand-file-name "~/.mail")
-      starttls-use-gnutls t)
+
(setq message-send-mail-function 'smtpmail-send-it
+      mu4e-maildir (expand-file-name "~/.mail")
+      starttls-use-gnutls t)
 

 

 
@@ -1428,35 +1444,35 @@ the configuration.
 
 

 
-
(defun mssola-smtp (server port)
+
(defun mssola-smtp (server port)
   "Set SMTP variables depending on the given SERVER and PORT."
 
-  (require 'smtpmail)
+  (require 'smtpmail)
 
-  (setq smtpmail-starttls-credentials
-        '((server port nil nil))
+  (setq smtpmail-starttls-credentials
+        '((server port nil nil))
         smtpmail-auth-credentials
-        (expand-file-name "~/.authinfo.gpg")
+        (expand-file-name "~/.authinfo.gpg")
         smtpmail-default-smtp-server server
         smtpmail-smtp-server server
-        smtpmail-smtp-service port))
+        smtpmail-smtp-service port))
 
 ; https://www.reddit.com/r/emacs/comments/47t9ec/share_your_mu4econtext_configs/d0fsih6
-(defun mu4e-message-maildir-matches (msg rx)
+(defun mu4e-message-maildir-matches (msg rx)
   "Returns true if the maildir of MSG matches the given regexp RX."
 
-  (when rx
-    (if (listp rx)
+  (when rx
+    (if (listp rx)
         ;; if rx is a list, try each one for a match
-        (or (mu4e-message-maildir-matches msg (car rx))
-            (mu4e-message-maildir-matches msg (cdr rx)))
+        (or (mu4e-message-maildir-matches msg (car rx))
+            (mu4e-message-maildir-matches msg (cdr rx)))
       ;; not a list, check rx
-      (string-match rx (mu4e-message-field msg :maildir)))))
+      (string-match rx (mu4e-message-field msg :maildir)))))
 
-(defun suse-refile-folder (key)
+(defun suse-refile-folder (key)
   "Returns the refile folder for the given SUSE account in the KEY arg"
-  (concat "/" key "/Archives/"
-          (format-time-string "%Y" (current-time))))
+  (concat "/" key "/Archives/"
+          (format-time-string "%Y" (current-time))))
 

 

 
@@ -1467,58 +1483,58 @@ this way is relatively new (since mu 0.9.16).
 
 

 
-
(setq mu4e-contexts
-      `(
+
(setq mu4e-contexts
+      `(
         ;; GMail
-        ,(make-mu4e-context
+        ,(make-mu4e-context
           :name "gmail"
-          :enter-func (lambda ()
-                        (mu4e-message "Switching to gmail.com")
-                        (mssola-smtp "smtp.gmail.com" 587))
-          :match-func (lambda (msg)
-                        (when msg
-                          (mu4e-message-maildir-matches msg "^/gmail")))
-          :vars '(
-                  (user-mail-address     . "mikisabate@gmail.com")
-                  (mu4e-reply-to-address . "mikisabate@gmail.com")
-                  (mu4e-drafts-folder    . "/gmail/Drafts")
-                  (mu4e-sent-folder      . "/gmail/Sent")
-                  (mu4e-refile-folder    . "/gmail/All")
-                  (mu4e-trash-folder     . "/gmail/Trash")))
+          :enter-func (lambda ()
+                        (mu4e-message "Switching to gmail.com")
+                        (mssola-smtp "smtp.gmail.com" 587))
+          :match-func (lambda (msg)
+                        (when msg
+                          (mu4e-message-maildir-matches msg "^/gmail")))
+          :vars '(
+                  (user-mail-address     . "mikisabate@gmail.com")
+                  (mu4e-reply-to-address . "mikisabate@gmail.com")
+                  (mu4e-drafts-folder    . "/gmail/Drafts")
+                  (mu4e-sent-folder      . "/gmail/Sent")
+                  (mu4e-refile-folder    . "/gmail/All")
+                  (mu4e-trash-folder     . "/gmail/Trash")))
 
         ;; suse.com
-        ,(make-mu4e-context
+        ,(make-mu4e-context
           :name "comsuse"
-          :enter-func (lambda ()
-                        (mu4e-message "Switching to suse.com")
-                        (mssola-smtp "smtp.novell.com" 25))
-          :match-func (lambda (msg)
-                        (when msg
-                          (mu4e-message-maildir-matches msg "^/susecom")))
-          :vars `(
-                  (user-mail-address     . "msabate@suse.com")
-                  (mu4e-reply-to-address . "msabate@suse.com")
-                  (mu4e-drafts-folder    . "/susecom/Drafts")
-                  (mu4e-sent-folder      . "/susecom/Sent")
-                  (mu4e-refile-folder    . ,(suse-refile-folder "susecom"))
-                  (mu4e-trash-folder     . "/susecom/Trash")))
+          :enter-func (lambda ()
+                        (mu4e-message "Switching to suse.com")
+                        (mssola-smtp "smtp.novell.com" 25))
+          :match-func (lambda (msg)
+                        (when msg
+                          (mu4e-message-maildir-matches msg "^/susecom")))
+          :vars `(
+                  (user-mail-address     . "msabate@suse.com")
+                  (mu4e-reply-to-address . "msabate@suse.com")
+                  (mu4e-drafts-folder    . "/susecom/Drafts")
+                  (mu4e-sent-folder      . "/susecom/Sent")
+                  (mu4e-refile-folder    . ,(suse-refile-folder "susecom"))
+                  (mu4e-trash-folder     . "/susecom/Trash")))
 
         ;; suse.de
-        ,(make-mu4e-context
+        ,(make-mu4e-context
           :name "desuse"
-          :enter-func (lambda ()
-                        (mu4e-message "Switching to suse.de")
-                        (mssola-smtp "imap.suse.de" 587))
-          :match-func (lambda (msg)
-                        (when msg
-                          (mu4e-message-maildir-matches msg "^/susede")))
-          :vars `(
-                  (user-mail-address     . "msabate@suse.de")
-                  (mu4e-reply-to-address . "msabate@suse.de")
-                  (mu4e-drafts-folder    . "/susede/Drafts")
-                  (mu4e-sent-folder      . "/susede/Sent")
-                  (mu4e-refile-folder    . ,(suse-refile-folder "susede"))
-                  (mu4e-trash-folder     . "/susede/Trash")))))
+          :enter-func (lambda ()
+                        (mu4e-message "Switching to suse.de")
+                        (mssola-smtp "imap.suse.de" 587))
+          :match-func (lambda (msg)
+                        (when msg
+                          (mu4e-message-maildir-matches msg "^/susede")))
+          :vars `(
+                  (user-mail-address     . "msabate@suse.de")
+                  (mu4e-reply-to-address . "msabate@suse.de")
+                  (mu4e-drafts-folder    . "/susede/Drafts")
+                  (mu4e-sent-folder      . "/susede/Sent")
+                  (mu4e-refile-folder    . ,(suse-refile-folder "susede"))
+                  (mu4e-trash-folder     . "/susede/Trash")))))
 

 

 
@@ -1528,8 +1544,8 @@ If mu4e cannot figure things out, ask me.
 
 

 
-
(setq mu4e-context-policy 'ask)
-(setq mu4e-compose-context-policy 'ask)
+
(setq mu4e-context-policy 'ask)
+(setq mu4e-compose-context-policy 'ask)
 

 

 
@@ -1539,13 +1555,13 @@ Fill the mu4e-user-mail-address-list variable with the contexts.
 
 

 
-
(setq mu4e-user-mail-address-list
-      (delq nil
-            (mapcar (lambda (context)
-                      (when (mu4e-context-vars context)
-                        (cdr (assq 'user-mail-address
-                                   (mu4e-context-vars context)))))
-                    mu4e-contexts)))
+
(setq mu4e-user-mail-address-list
+      (delq nil
+            (mapcar (lambda (context)
+                      (when (mu4e-context-vars context)
+                        (cdr (assq 'user-mail-address
+                                   (mu4e-context-vars context)))))
+                    mu4e-contexts)))
 

 

 
@@ -1555,10 +1571,10 @@ Setting my bookmarks
 
 

 
-
(setq mu4e-bookmarks
-      '(("maildir:/gmail/inbox OR maildir:/susecom/inbox OR maildir:/susede/inbox" "Inbox Folders" ?n)
-        ("flag:unread AND NOT flag:trashed" "Unread messages" ?u)
-        ("date:today..now" "Today's messages" ?t)))
+
(setq mu4e-bookmarks
+      '(("maildir:/gmail/inbox OR maildir:/susecom/inbox OR maildir:/susede/inbox" "Inbox Folders" ?n)
+        ("flag:unread AND NOT flag:trashed" "Unread messages" ?u)
+        ("date:today..now" "Today's messages" ?t)))
 

 

 
@@ -1569,10 +1585,10 @@ format=flowed or not.
 
 

 
-
(setq mu4e-compose-signature
-      (concat
+
(setq mu4e-compose-signature
+      (concat
        "Miquel Sabaté Solà,\n"
-       "PGP: 4096R / 1BA5 3C7A C93D CA2A CFDF DA97 96BE 8C6F D89D 6565\n"))
+       "PGP: 4096R / 1BA5 3C7A C93D CA2A CFDF DA97 96BE 8C6F D89D 6565\n"))
 

 

 
@@ -1582,7 +1598,7 @@ Sign outgoing emails always.
 
 

 
-
(add-hook 'message-send-hook 'mml-secure-message-sign-pgpmime)
+
(add-hook 'message-send-hook 'mml-secure-message-sign-pgpmime)
 

 

 
@@ -1592,7 +1608,7 @@ To avoid UID clashes. See 
 
-
(setq mu4e-change-filenames-when-moving t)
+
(setq mu4e-change-filenames-when-moving t)
 

 
 
@@ -1602,7 +1618,7 @@ Miscellaneous settings.
 
 

 
-
(setq mu4e-html2text-command "w3m -T text/html"
+
(setq mu4e-html2text-command "w3m -T text/html"
       mu4e-attachment-dir  "~/Downloads"
       mu4e-headers-date-format "%Y-%m-%d %H:%M"
       message-citation-line-format "%N @ %Y-%m-%d %H:%M %Z:\n"
@@ -1614,7 +1630,7 @@ Miscellaneous settings.
       mu4e-compose-format-flowed t
       mu4e-headers-skip-duplicates t
       mu4e-headers-include-related t
-      mu4e-headers-auto-update t)
+      mu4e-headers-auto-update t)
 

 

 
@@ -1626,11 +1642,11 @@ These are the defaults:
 
 

 
-
(setq mu4e-headers-fields
-      '( (:date          .  18)
-         (:mailing-list  .  15)
-         (:from-or-to    .  20)
-         (:subject       .  nil)))
+
(setq mu4e-headers-fields
+      '( (:date          .  18)
+         (:mailing-list  .  15)
+         (:from-or-to    .  20)
+         (:subject       .  nil)))
 

 

 
@@ -1640,12 +1656,12 @@ Show images
 
 

 
-
(setq mu4e-view-show-images t
-      mu4e-view-image-max-width 800)
+
(setq mu4e-view-show-images t
+      mu4e-view-image-max-width 800)
 
 ; Use imagemagick, if available
-(when (fboundp 'imagemagick-register-types)
-  (imagemagick-register-types))
+(when (fboundp 'imagemagick-register-types)
+  (imagemagick-register-types))
 

 

 
@@ -1656,9 +1672,9 @@ render an HTML message with Webkit.
 
 

 
-
(if (>= emacs-major-version 25)
-    (add-to-list 'mu4e-view-actions
-                 '("webkit" . mu4e-action-view-with-xwidget)))
+
(if (>= emacs-major-version 25)
+    (add-to-list 'mu4e-view-actions
+                 '("webkit" . mu4e-action-view-with-xwidget)))
 

 

 
@@ -1670,9 +1686,9 @@ on it.
 
 

 
-
(let ((exec (locate-file "msg2pdf" exec-path exec-suffixes)))
-  (if exec
-      (setq mu4e-msg2pdf exec)))
+
(let ((exec (locate-file "msg2pdf" exec-path exec-suffixes)))
+  (if exec
+      (setq mu4e-msg2pdf exec)))
 

 

 
@@ -1682,33 +1698,33 @@ Adding hooks for composing and viewing messages.
 
 

 
-
(defun mssola-compose-mode ()
+
(defun mssola-compose-mode ()
   "My settings for message composition."
 
   ; If we are composing an email from scratch, it's more convenient to be in
   ; insert mode. Otherwise start with normal mode.
-  (with-eval-after-load 'evil
-    (if mu4e-compose-parent-message
-        (evil-set-initial-state 'mu4e-compose-mode 'normal)
-      (evil-set-initial-state 'mu4e-compose-mode 'insert)))
+  (with-eval-after-load 'evil
+    (if mu4e-compose-parent-message
+        (evil-set-initial-state 'mu4e-compose-mode 'normal)
+      (evil-set-initial-state 'mu4e-compose-mode 'insert)))
 
   ; Guess hard newlines
-  (use-hard-newlines t 'guess)
+  (use-hard-newlines t 'guess)
 
   ; So it's easy to encrypt/decrypt emails.
-  (epa-mail-mode)
+  (epa-mail-mode)
 
   ; Spellz
-  (flyspell-mode))
+  (flyspell-mode))
 
-(add-hook 'mu4e-compose-mode-hook 'mssola-compose-mode)
+(add-hook 'mu4e-compose-mode-hook 'mssola-compose-mode)
 
 ; I want to read messages in the format that the sender used. I'm also
 ; enabling epa-mail-mode, so it's easy to decrypt received emails.
-(add-hook 'mu4e-view-mode-hook
-          (lambda ()
-            (epa-mail-mode)
-            (visual-line-mode 1)))
+(add-hook 'mu4e-view-mode-hook
+          (lambda ()
+            (epa-mail-mode)
+            (visual-line-mode 1)))
 

 

 
@@ -1718,35 +1734,35 @@ I want desktop notifications when receiving email.
 
 

 
-
(use-package mu4e-alert
+
(use-package mu4e-alert
   :ensure t
   :config
 
   ; Notify me for unread emails from my inbox.
-  (mu4e-alert-set-default-style 'libnotify)
-  (add-hook 'after-init-hook #'mu4e-alert-enable-notifications)
-  (add-hook 'after-init-hook #'mu4e-alert-enable-mode-line-display)
-  (setq mu4e-alert-interesting-mail-query
-        (concat
+  (mu4e-alert-set-default-style 'libnotify)
+  (add-hook 'after-init-hook #'mu4e-alert-enable-notifications)
+  (add-hook 'after-init-hook #'mu4e-alert-enable-mode-line-display)
+  (setq mu4e-alert-interesting-mail-query
+        (concat
          "(maildir:/gmail/inbox OR maildir:/susecom/inbox OR maildir:/susede/inbox) "
-         "AND flag:unread AND NOT flag:trashed"))
-  (setq mu4e-alert-email-notification-types '(count)))
+         "AND flag:unread AND NOT flag:trashed"))
+  (setq mu4e-alert-email-notification-types '(count)))
 
 ; Evil mode in mu4e
-(with-eval-after-load 'evil
-  (use-package evil-mu4e
+(with-eval-after-load 'evil
+  (use-package evil-mu4e
     :ensure t
     :config
 
     ; Idea taken from evil-mu4e.el
-    (defvar mssola-evil-mu4e-mode-map-bindings
-      `((,evil-mu4e-state mu4e-headers-mode-map "\C-u" evil-scroll-up)
-        (,evil-mu4e-state mu4e-main-mode-map    "\C-u" evil-scroll-up)
-        (,evil-mu4e-state mu4e-view-mode-map    "h" evil-backward-char)))
+    (defvar mssola-evil-mu4e-mode-map-bindings
+      `((,evil-mu4e-state mu4e-headers-mode-map "\C-u" evil-scroll-up)
+        (,evil-mu4e-state mu4e-main-mode-map    "\C-u" evil-scroll-up)
+        (,evil-mu4e-state mu4e-view-mode-map    "h" evil-backward-char)))
 
-    (dolist (binding mssola-evil-mu4e-mode-map-bindings)
-      (evil-define-key
-        (nth 0 binding) (nth 1 binding) (nth 2 binding) (nth 3 binding)))))
+    (dolist (binding mssola-evil-mu4e-mode-map-bindings)
+      (evil-define-key
+        (nth 0 binding) (nth 1 binding) (nth 2 binding) (nth 3 binding)))))
 

 

 
@@ -1758,7 +1774,7 @@ And finally define a proper shortcut.
 
 
; The trailing parenthesis closes the "(when (featurep 'mu4e)" statement from
 ; the very beginning.
-(global-set-key (kbd "C-c m") 'mu4e))
+(global-set-key (kbd "C-c m") 'mu4e))
 

 
 
@@ -1774,7 +1790,7 @@ etc. Moreover, it's built in GNU Emacs:
 
 

 
-
(require 'org)
+
(require 'org)
 

 

 
@@ -1788,34 +1804,34 @@ First of all, let me define some helper functions.
 
 

 
-
(defun mssola-org-skip-if-priority (priority &optional subtree)
+
(defun mssola-org-skip-if-priority (priority &optional subtree)
   "Skip an agenda item if it has a priority of PRIORITY.
 PRIORITY may be one of the characters ?A, ?B, or ?C.
 Skips the current entry unless SUBTREE is not nil.  This function has been
 copied from @aaronbieber."
 
-  (let ((end (if subtree (save-excursion (org-end-of-subtree t))
-               (save-excursion (progn (outline-next-heading) (1- (point))))))
-        (pri-value (* 1000 (- org-lowest-priority priority)))
-        (pri-current (org-get-priority (thing-at-point 'line t))))
-    (if (= pri-value pri-current)
+  (let ((end (if subtree (save-excursion (org-end-of-subtree t))
+               (save-excursion (progn (outline-next-heading) (1- (point))))))
+        (pri-value (* 1000 (- org-lowest-priority priority)))
+        (pri-current (org-get-priority (thing-at-point 'line t))))
+    (if (= pri-value pri-current)
         end
-      nil)))
+      nil)))
 
-(defun mssola-org-skip-if-not-closed-in-day (time &optional subtree)
+(defun mssola-org-skip-if-not-closed-in-day (time &optional subtree)
   "Skip entries that were not closed in the given TIME.
 Skip the current entry unless SUBTREE is not nil, in which case skip
 the entire subtree.  Idea taken from @aaronbieber"
 
-  (let ((end (if subtree (save-excursion (org-end-of-subtree t))
-               (save-excursion (progn (outline-next-heading) (1- (point))))))
-        (day-prefix (format-time-string "%Y-%m-%d" time)))
+  (let ((end (if subtree (save-excursion (org-end-of-subtree t))
+               (save-excursion (progn (outline-next-heading) (1- (point))))))
+        (day-prefix (format-time-string "%Y-%m-%d" time)))
 
-    (if (save-excursion
-          (and (re-search-forward org-closed-time-regexp end t)
-               (string= (substring (match-string-no-properties 1) 0 10) day-prefix)))
+    (if (save-excursion
+          (and (re-search-forward org-closed-time-regexp end t)
+               (string= (substring (match-string-no-properties 1) 0 10) day-prefix)))
         nil
-      end)))
+      end)))
 

 

 
@@ -1825,21 +1841,21 @@ Some general UI settings for org mode.
 
 

 
-
(setq org-src-tab-acts-natively t
+
(setq org-src-tab-acts-natively t
       org-confirm-babel-evaluate nil
-      org-edit-src-content-indentation 0)
+      org-edit-src-content-indentation 0)
 
-(setq org-todo-keywords
-      '((sequence "TODO(t)"  "|"  "DONE(d!)")
-        (sequence "IDEA(i)"  "WORKING(w)"  "|"  "USED(u@/!)"  "DISCARDED(x@/!)")))
+(setq org-todo-keywords
+      '((sequence "TODO(t)"  "|"  "DONE(d!)")
+        (sequence "IDEA(i)"  "WORKING(w)"  "|"  "USED(u@/!)"  "DISCARDED(x@/!)")))
 
-(setq org-todo-keyword-faces
-      '(("TODO"      . org-todo)
-        ("IDEA"      . font-lock-constant-face)
-        ("WORKING"   . font-lock-constant-face)
-        ("DONE"      . org-done)
-        ("USED"      . org-done)
-        ("DISCARDED" . org-done)))
+(setq org-todo-keyword-faces
+      '(("TODO"      . org-todo)
+        ("IDEA"      . font-lock-constant-face)
+        ("WORKING"   . font-lock-constant-face)
+        ("DONE"      . org-done)
+        ("USED"      . org-done)
+        ("DISCARDED" . org-done)))
 

 

 
@@ -1849,9 +1865,9 @@ Logging settings.
 
 

 
-
(setq org-log-done t)
-(setq org-log-redeadline (quote time))
-(setq org-log-reschedule (quote time))
+
(setq org-log-done t)
+(setq org-log-redeadline (quote time))
+(setq org-log-reschedule (quote time))
 

 

 
@@ -1861,7 +1877,7 @@ Where org files reside.
 
 

 
-
(setq org-agenda-files '("~/org/"))
+
(setq org-agenda-files '("~/org/"))
 

 

 
@@ -1878,8 +1894,8 @@ blocks to be converted into HTML as well, so we can properly colorize it).
 
 

 
-
(use-package htmlize
-  :ensure t)
+
(use-package htmlize
+  :ensure t)
 

 

 
@@ -1889,13 +1905,13 @@ And now let's set all the related settings.
 
 

 
-
(setq org-src-fontify-natively t
+
(setq org-src-fontify-natively t
       org-html-include-timestamps nil
       org-html-toplevel-hlevel 2
       org-html-htmlize-output-type 'css
       org-export-with-section-numbers nil
       org-export-with-sub-superscripts nil
-      org-export-htmlize-output-type 'css)
+      org-export-htmlize-output-type 'css)
 

 

 
@@ -1910,73 +1926,73 @@ Custom commands for org-agenda.
 
 

 
-
(setq org-agenda-custom-commands
-      '(("p" "Printed agenda"
+
(setq org-agenda-custom-commands
+      '(("p" "Printed agenda"
          ; Daily agenda with a 2-weeks deadline warning. Tasks are
          ; represented as [ ] items.
-         ((agenda ""
-                  ((org-agenda-ndays 1)
-                   (org-deadline-warning-days 14)
-                   (org-agenda-todo-keyword-format "[ ]")
-                   (org-agenda-scheduled-leaders '("" ""))))
+         ((agenda ""
+                  ((org-agenda-ndays 1)
+                   (org-deadline-warning-days 14)
+                   (org-agenda-todo-keyword-format "[ ]")
+                   (org-agenda-scheduled-leaders '("" ""))))
 
          ; Display a "High Priority" list of tasks on top.
-          (tags "PRIORITY=\"A\""
-                ((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
-                 (org-agenda-sorting-strategy '(tag-up priority-down))
-                 (org-agenda-todo-keyword-format "")
-                 (org-agenda-overriding-header "\nHigh priority\n--------------\n")))
+          (tags "PRIORITY=\"A\""
+                ((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
+                 (org-agenda-sorting-strategy '(tag-up priority-down))
+                 (org-agenda-todo-keyword-format "")
+                 (org-agenda-overriding-header "\nHigh priority\n--------------\n")))
 
 
           ; All tasks except those already listed as high priority or
           ; ideas. Scheduled and deadlines are also ignored here.
-          (alltodo ""
-                   ((org-agenda-skip-function '(or (mssola-org-skip-if-priority ?A)
-                                                   (org-agenda-skip-entry-if 'todo '("IDEA" "WORKING"))
-                                                   (org-agenda-skip-if nil '(scheduled deadline))))
-                    (org-agenda-sorting-strategy '(tag-up priority-down))
-                    (org-agenda-todo-keyword-format "")
-                    (org-agenda-overriding-header "\nAll tasks\n----------\n")))
+          (alltodo ""
+                   ((org-agenda-skip-function '(or (mssola-org-skip-if-priority ?A)
+                                                   (org-agenda-skip-entry-if 'todo '("IDEA" "WORKING"))
+                                                   (org-agenda-skip-if nil '(scheduled deadline))))
+                    (org-agenda-sorting-strategy '(tag-up priority-down))
+                    (org-agenda-todo-keyword-format "")
+                    (org-agenda-overriding-header "\nAll tasks\n----------\n")))
 
           ; List of ideas.
-          (todo "IDEA"
-                ((org-agenda-overriding-header "\nIdeas\n------\n")
-                 (org-agenda-todo-keyword-format ""))))
+          (todo "IDEA"
+                ((org-agenda-overriding-header "\nIdeas\n------\n")
+                 (org-agenda-todo-keyword-format ""))))
 
-         ((org-agenda-compact-blocks t)
-          (org-agenda-remove-tags t)))
+         ((org-agenda-compact-blocks t)
+          (org-agenda-remove-tags t)))
 
         ; List of done items. Useful for standups, review meetings, weekly
         ; reports, etc.
-        ("d" "Done items"
+        ("d" "Done items"
          ; First show the items done yesterday. Useful for standups.
-         ((todo "DONE"
-                ((org-agenda-overriding-header "Done yesterday\n---------------\n")
-                 (org-agenda-skip-function
-                  '(mssola-org-skip-if-not-closed-in-day
-                    (time-subtract (current-time) (seconds-to-time 86400))))
-                 (org-agenda-todo-keyword-format "")))
+         ((todo "DONE"
+                ((org-agenda-overriding-header "Done yesterday\n---------------\n")
+                 (org-agenda-skip-function
+                  '(mssola-org-skip-if-not-closed-in-day
+                    (time-subtract (current-time) (seconds-to-time 86400))))
+                 (org-agenda-todo-keyword-format "")))
 
           ; Then show what I've done today.
-          (todo "DONE"
-                ((org-agenda-overriding-header "\nDone today\n-----------\n")
-                 (org-agenda-skip-function
-                  '(mssola-org-skip-if-not-closed-in-day
-                    (current-time)))
-                 (org-agenda-todo-keyword-format "")))
+          (todo "DONE"
+                ((org-agenda-overriding-header "\nDone today\n-----------\n")
+                 (org-agenda-skip-function
+                  '(mssola-org-skip-if-not-closed-in-day
+                    (current-time)))
+                 (org-agenda-todo-keyword-format "")))
 
           ; Finally show what I've been doing in the past 15 days. Useful for
           ; review meetings and weekly reports.
-          (todo "DONE"
-                ((org-agenda-start-day "-15d")
-                 (org-agenda-span 15)
-                 (org-agenda-start-on-weekday nil)
-                 (org-agenda-todo-keyword-format "")
-                 (org-agenda-scheduled-leaders '("" ""))
-                 (org-agenda-overriding-header "\nDone during the past 15 days\n-----------------------------\n"))))
+          (todo "DONE"
+                ((org-agenda-start-day "-15d")
+                 (org-agenda-span 15)
+                 (org-agenda-start-on-weekday nil)
+                 (org-agenda-todo-keyword-format "")
+                 (org-agenda-scheduled-leaders '("" ""))
+                 (org-agenda-overriding-header "\nDone during the past 15 days\n-----------------------------\n"))))
 
-         ((org-agenda-compact-blocks t)
-          (org-agenda-remove-tags t)))))
+         ((org-agenda-compact-blocks t)
+          (org-agenda-remove-tags t)))))
 

 

 
@@ -1986,9 +2002,9 @@ The prefix for the different kinds of types being used.
 
 

 
-
(setq org-agenda-prefix-format '((agenda . "%t%s")
-                                 (tags   . "%c:%s")
-                                 (todo   . "%c:%t%s")))
+
(setq org-agenda-prefix-format '((agenda . "%t%s")
+                                 (tags   . "%c:%s")
+                                 (todo   . "%c:%t%s")))
 

 

 
@@ -2003,21 +2019,21 @@ Insert a <kbd></kbd> value in org mode. See this 
 
-
(defun endless/insert-key (key)
+
(defun endless/insert-key (key)
   "Ask for a key then insert its description.
 Will work on both org-mode and any mode that accepts plain html."
-  (interactive "kType key sequence: ")
-  (let* ((is-org-mode (derived-mode-p 'org-mode))
-         (tag (if is-org-mode
+  (interactive "kType key sequence: ")
+  (let* ((is-org-mode (derived-mode-p 'org-mode))
+         (tag (if is-org-mode
                   "@@html:<kbd>%s</kbd>@@"
-                "<kbd>%s</kbd>")))
-    (if (null (equal key "\r"))
-        (insert
-         (format tag (help-key-description key nil)))
-      (insert (format tag ""))
-      (forward-char (if is-org-mode -8 -6)))))
+                "<kbd>%s</kbd>")))
+    (if (null (equal key "\r"))
+        (insert
+         (format tag (help-key-description key nil)))
+      (insert (format tag ""))
+      (forward-char (if is-org-mode -8 -6)))))
 
-(define-key org-mode-map "\C-ck" #'endless/insert-key)
+(define-key org-mode-map "\C-ck" #'endless/insert-key)
 

 
 
@@ -2047,15 +2063,15 @@ I'm giving ERC a chance. First of all, I'm setting up basic stuff.
 
 

 
-
(use-package erc
+
(use-package erc
   :config
 
-  (erc-track-mode t)
+  (erc-track-mode t)
 
-  (setq erc-hide-list '("PART")
-        erc-prompt (lambda () (concat (buffer-name) ">"))
-        erc-track-exclude-types '("JOIN" "NICK" "PART" "QUIT" "MODE")
-        erc-server-coding-system '(utf-8 . utf-8)
+  (setq erc-hide-list '("PART")
+        erc-prompt (lambda () (concat (buffer-name) ">"))
+        erc-track-exclude-types '("JOIN" "NICK" "PART" "QUIT" "MODE")
+        erc-server-coding-system '(utf-8 . utf-8)
         erc-kill-buffer-on-part t
         erc-kill-queries-on-quit t
         erc-kill-server-buffer-on-quit t
@@ -2071,16 +2087,16 @@ I'm giving ERC a chance. First of all, I'm setting up basic stuff.
         erc-hide-timestamps nil
         erc-whowas-on-nosuchnick t
         erc-public-away-p nil
-        erc-echo-notice-always-hook '(erc-echo-notice-in-minibuffer)
+        erc-echo-notice-always-hook '(erc-echo-notice-in-minibuffer)
         erc-auto-set-away nil
         erc-autoaway-message "%i seconds out..."
         erc-away-nickname "msabate"
         erc-enable-logging t
-        erc-query-on-unjoined-chan-privmsg t)
+        erc-query-on-unjoined-chan-privmsg t)
 
-  (setq erc-autojoin-channels-alist
-        '(("irc.freenode.net" "#gnu" "#emacs")
-          ("irc.suse.de" "#suse" "#docker")))
+  (setq erc-autojoin-channels-alist
+        '(("irc.freenode.net" "#gnu" "#emacs")
+          ("irc.suse.de" "#suse" "#docker")))
 

 

 
@@ -2090,11 +2106,11 @@ Use the erc-hl-nicks package, so highlight support for nicknames is
 
 

 
-
(use-package erc-hl-nicks
+
(use-package erc-hl-nicks
   :ensure t
   :init
-  (with-eval-after-load 'erc
-    (add-to-list 'erc-modules 'hl-nicks)))
+  (with-eval-after-load 'erc
+    (add-to-list 'erc-modules 'hl-nicks)))
 

 

 
@@ -2106,13 +2122,13 @@ GNU Emacs 24.3.
 
 

 
-
(with-eval-after-load 'erc
-  (setq erc-notifications-icon
-        (concat
+
(with-eval-after-load 'erc
+  (setq erc-notifications-icon
+        (concat
          "/usr/share/emacs/"
-         (format "%s.%s" emacs-major-version emacs-minor-version)
-         "/etc/images/icons/hicolor/24x24/apps/emacs.png"))
-  (add-to-list 'erc-modules 'notifications))
+         (format "%s.%s" emacs-major-version emacs-minor-version)
+         "/etc/images/icons/hicolor/24x24/apps/emacs.png"))
+  (add-to-list 'erc-modules 'notifications))
 

 

 
@@ -2122,17 +2138,17 @@ Some extra cookies: allow ERC to display images and Youtube thumbnails.
 
 

 
-
(use-package erc-yt
+
(use-package erc-yt
   :ensure t
   :init
-  (with-eval-after-load 'erc
-    (add-to-list 'erc-modules 'youtube)))
+  (with-eval-after-load 'erc
+    (add-to-list 'erc-modules 'youtube)))
 
-(use-package erc-image
+(use-package erc-image
   :ensure t
   :init
-  (with-eval-after-load 'erc
-    (add-to-list 'erc-modules 'image)))
+  (with-eval-after-load 'erc
+    (add-to-list 'erc-modules 'image)))
 

 

 
@@ -2142,8 +2158,8 @@ At this point, we can safely update all the loaded ERC modules.
 
 

 
-
(add-hook 'erc-connect-pre-hook
-          (lambda (x) (erc-update-modules)))
+
(add-hook 'erc-connect-pre-hook
+          (lambda (x) (erc-update-modules)))
 

 

 
@@ -2154,8 +2170,8 @@ According to the wiki,
 
 

 
-
(add-hook 'erc-mode-hook
-          (lambda () (auto-fill-mode 0)))
+
(add-hook 'erc-mode-hook
+          (lambda () (auto-fill-mode 0)))
 

 

 
@@ -2165,15 +2181,15 @@ And now define a function to connect to both IRC servers.
 
 

 
-
(defun mssola-erc ()
+
(defun mssola-erc ()
   "Join pre-speciifed servers and channels."
 
-  (interactive)
+  (interactive)
 
-  (erc :server "irc.freenode.net" :port 6667 :nick "mssola")
-  (erc-tls :server "irc.suse.de" :port 6697 :nick "mssola"))
+  (erc :server "irc.freenode.net" :port 6667 :nick "mssola")
+  (erc-tls :server "irc.suse.de" :port 6697 :nick "mssola"))
 
-(global-set-key (kbd "C-c i") 'mssola-erc))
+(global-set-key (kbd "C-c i") 'mssola-erc))
 

 

 
@@ -2189,12 +2205,12 @@ First of all, define a function that identifies some warning keywords
 
 

 
-
(defun warnings-mode-hook ()
+
(defun warnings-mode-hook ()
   "Hook for enabling the warning face on strings with a warning prefix."
 
-  (font-lock-add-keywords nil
-    '(("\\(XXX\\|FIXME\\|TODO\\|HACK\\|NOTE\\)"
-    1 font-lock-warning-face prepend))))
+  (font-lock-add-keywords nil
+    '(("\\(XXX\\|FIXME\\|TODO\\|HACK\\|NOTE\\)"
+    1 font-lock-warning-face prepend))))
 

 

 
@@ -2205,10 +2221,10 @@ context too. In this case, I want spell check and wc-mode activated
 
 

 
-
(add-hook 'text-mode-hook
-          (lambda ()
-            (flyspell-mode 1)
-            (wc-mode 1)))
+
(add-hook 'text-mode-hook
+          (lambda ()
+            (flyspell-mode 1)
+            (wc-mode 1)))
 

 

 
@@ -2220,13 +2236,13 @@ confusing. Moreover, I'm also enabling eldoc-mode and the aforement
 
 

 
-
(add-hook 'emacs-lisp-mode-hook
-          (lambda ()
-            (eldoc-mode 1)
-            (warnings-mode-hook)
-            (rainbow-delimiters-mode 1)
+
(add-hook 'emacs-lisp-mode-hook
+          (lambda ()
+            (eldoc-mode 1)
+            (warnings-mode-hook)
+            (rainbow-delimiters-mode 1)
             ; https://github.com/jhenahan/emacs.d/blob/master/emacs-init.org#emacs-lisp
-            (setq mode-name "ξ")))
+            (setq mode-name "ξ")))
 

 

 
@@ -2238,16 +2254,16 @@ comments and the usage of tabs instead of spaces.
 

 
 
; Note that C-common includes languages with a similar syntax of C.
-(add-hook 'c-mode-common-hook 'warnings-mode-hook)
-(add-hook 'c-mode-common-hook (lambda() (flyspell-prog-mode)))
+(add-hook 'c-mode-common-hook 'warnings-mode-hook)
+(add-hook 'c-mode-common-hook (lambda() (flyspell-prog-mode)))
 
 ;; C
-(add-hook 'c-mode-hook
-  (lambda () (setq indent-tabs-mode t)))
+(add-hook 'c-mode-hook
+  (lambda () (setq indent-tabs-mode t)))
 
 ;; C++
-(add-hook 'c++-mode-hook
-  (lambda () (setq indent-tabs-mode t)))
+(add-hook 'c++-mode-hook
+  (lambda () (setq indent-tabs-mode t)))
 

 

 
@@ -2257,7 +2273,7 @@ Include warning keywords in Ruby.
 
 

 
-
(add-hook 'ruby-mode-hook 'warnings-mode-hook)
+
(add-hook 'ruby-mode-hook 'warnings-mode-hook)
 

 

 
@@ -2268,46 +2284,46 @@ And now my Go configuration. This includes stuff like the usage of goimpor
 
 

 
-
(defun mssola-go-mode ()
+
(defun mssola-go-mode ()
   "My configuration for Go mode."
 
   ; Use goimports instead of go-fmt
-  (setq gofmt-command "goimports")
+  (setq gofmt-command "goimports")
 
   ; Call Gofmt before saving
-  (add-hook 'before-save-hook 'gofmt-before-save)
+  (add-hook 'before-save-hook 'gofmt-before-save)
 
   ; Integration flycheck with Go
-  (add-to-list 'load-path
-    (concat (getenv "GOPATH") "/src/github.com/dougm/goflymake"))
-  (require 'go-flycheck)
+  (add-to-list 'load-path
+    (concat (getenv "GOPATH") "/src/github.com/dougm/goflymake"))
+  (require 'go-flycheck)
 
-  (evil-leader/set-key
-    "." 'godef-jump-other-window)
+  (evil-leader/set-key
+    "." 'godef-jump-other-window)
 
-  (setq indent-tabs-mode t)
-  (flyspell-prog-mode)
+  (setq indent-tabs-mode t)
+  (flyspell-prog-mode)
 
   ; eldoc support
-  (use-package go-eldoc
+  (use-package go-eldoc
     :ensure t
     :config
-    (require 'go-eldoc))
+    (require 'go-eldoc))
 
-  (use-package go-add-tags
+  (use-package go-add-tags
     :ensure t
     :config
-    (evil-leader/set-key "t" 'go-add-tags)))
+    (evil-leader/set-key "t" 'go-add-tags)))
 
 ;; Go
-(use-package go-mode
+(use-package go-mode
   :ensure t
   :pin melpa-stable
   :config
 
-  (add-hook 'go-mode-hook 'warnings-mode-hook)
-  (add-hook 'go-mode-hook 'go-eldoc-setup)
-  (add-hook 'go-mode-hook 'mssola-go-mode))
+  (add-hook 'go-mode-hook 'warnings-mode-hook)
+  (add-hook 'go-mode-hook 'go-eldoc-setup)
+  (add-hook 'go-mode-hook 'mssola-go-mode))
 

 

 
@@ -2319,13 +2335,13 @@ usings tabs for indentation (C, C++ and Go).
 
 

 
-
(use-package smart-tabs-mode
+
(use-package smart-tabs-mode
   :ensure t
   :config
-  (smart-tabs-add-language-support golang go-mode-hook
-    ((c-indent-line . c-basic-offset)
-     (c-indent-region . c-basic-offset)))
-  (smart-tabs-insinuate 'c 'c++ 'golang))
+  (smart-tabs-add-language-support golang go-mode-hook
+    ((c-indent-line . c-basic-offset)
+     (c-indent-region . c-basic-offset)))
+  (smart-tabs-insinuate 'c 'c++ 'golang))
 

 

 
@@ -2336,28 +2352,28 @@ Inferior markup languages.
 

 
 
;; Markdown mode with preview mode in the browser.
-(use-package markdown-mode
+(use-package markdown-mode
   :ensure t
   :config
 
   ; This is the one that I got from openSUSE.
-  (custom-set-variables
-    '(markdown-command "/usr/bin/markdown-calibre"))
+  (custom-set-variables
+    '(markdown-command "/usr/bin/markdown-calibre"))
 
   ; Preview mode does its things through websockets, so it's a requirement.
   ; After that, we can safely require it.
-  (use-package websocket
+  (use-package websocket
     :ensure t
     :config
-    (use-package markdown-preview-mode
-      :ensure t)))
+    (use-package markdown-preview-mode
+      :ensure t)))
 
 ; YAML
-(use-package yaml-mode
+(use-package yaml-mode
   :ensure t
   :config
 
-  (add-hook 'yaml-mode-hook 'warnings-mode-hook))
+  (add-hook 'yaml-mode-hook 'warnings-mode-hook))
 

 

 
@@ -2367,32 +2383,32 @@ Web-related stuff.
 
 

 
-
(use-package slim-mode
-  :ensure t)
+
(use-package slim-mode
+  :ensure t)
 
-(use-package scss-mode
+(use-package scss-mode
   :ensure t
   :config
 
-  (setq scss-compile-at-save nil)
-  (add-hook 'yaml-mode-hook 'warnings-mode-hook))
+  (setq scss-compile-at-save nil)
+  (add-hook 'yaml-mode-hook 'warnings-mode-hook))
 
-(use-package php-mode
-  :ensure t)
+(use-package php-mode
+  :ensure t)
 
-(use-package web-mode
+(use-package web-mode
   :ensure t
   :config
 
-  (add-to-list 'auto-mode-alist '("\\.erb\\'" . web-mode))
-  (add-to-list 'auto-mode-alist '("\\.jinja\\'" . web-mode))
-  (add-to-list 'auto-mode-alist '("\\.html?\\'" . web-mode))
+  (add-to-list 'auto-mode-alist '("\\.erb\\'" . web-mode))
+  (add-to-list 'auto-mode-alist '("\\.jinja\\'" . web-mode))
+  (add-to-list 'auto-mode-alist '("\\.html?\\'" . web-mode))
 
-  (add-hook 'web-mode-hook
-            (lambda ()
-              (setq web-mode-markup-indent-offset 2)
-              (setq web-mode-css-indent-offset 2)
-              (setq web-mode-code-indent-offset 2))))
+  (add-hook 'web-mode-hook
+            (lambda ()
+              (setq web-mode-markup-indent-offset 2)
+              (setq web-mode-css-indent-offset 2)
+              (setq web-mode-code-indent-offset 2))))
 

 

 
@@ -2402,22 +2418,22 @@ CMake for y'all.
 
 

 
-
(use-package cmake-mode
+
(use-package cmake-mode
   :ensure t
   :config
 
-  (setq auto-mode-alist
-        (append
-         '(("CMakeLists\\.txt\\'" . cmake-mode))
-         '(("\\.cmake\\'" . cmake-mode))
-         auto-mode-alist))
+  (setq auto-mode-alist
+        (append
+         '(("CMakeLists\\.txt\\'" . cmake-mode))
+         '(("\\.cmake\\'" . cmake-mode))
+         auto-mode-alist))
 
-  (use-package cmake-font-lock
+  (use-package cmake-font-lock
     :ensure t
     :config
 
-    (add-hook 'cmake-mode-hook 'cmake-font-lock-activate)
-    (add-hook 'yaml-mode-hook 'warnings-mode-hook)))
+    (add-hook 'cmake-mode-hook 'cmake-font-lock-activate)
+    (add-hook 'yaml-mode-hook 'warnings-mode-hook)))
 

 

 
@@ -2428,20 +2444,20 @@ now because it's buggy, but I still have hope.
 
 

 
-
(use-package dockerfile-mode
+
(use-package dockerfile-mode
   :ensure t
   :config
 
-  (add-to-list 'auto-mode-alist '("Dockerfile\\'" . dockerfile-mode)))
+  (add-to-list 'auto-mode-alist '("Dockerfile\\'" . dockerfile-mode)))
 
-(use-package terraform-mode
+(use-package terraform-mode
   :ensure t
   :config
 
-  (terraform-format-on-save-mode))
+  (terraform-format-on-save-mode))
 
-(use-package hcl-mode
-  :ensure t)
+(use-package hcl-mode
+  :ensure t)
 
 ;(use-package salt-mode
   ;:ensure t)
@@ -2457,11 +2473,11 @@ criteria really).
 
 

 
-
(dolist (lang-hook '(ruby-mode-hook
+
(dolist (lang-hook '(ruby-mode-hook
                      php-mode-hook
                      perl-mode-hook
-                     emacs-lisp-mode-hook))
-  (add-hook lang-hook 'soria-purple-identifiers))
+                     emacs-lisp-mode-hook))
+  (add-hook lang-hook 'soria-purple-identifiers))
 

 

 

@@ -2477,16 +2493,16 @@ takes care of visualizing man pages. Let's properly setup Evil mode for this:
 
 

 
-
(with-eval-after-load "evil"
-  (evil-set-initial-state 'woman-mode 'normal)
-  (evil-define-key 'normal woman-mode-map
+
(with-eval-after-load "evil"
+  (evil-set-initial-state 'woman-mode 'normal)
+  (evil-define-key 'normal woman-mode-map
     "J" 'Man-next-section
     "K" 'Man-previous-section
     "\C-h" 'evil-window-left
     "\C-l" 'evil-window-right
     "\C-j" 'evil-window-down
     "\C-k" 'evil-window-up
-    "\C-u" 'evil-scroll-up))
+    "\C-u" 'evil-scroll-up))
 

 

 
@@ -2496,7 +2512,7 @@ Finally, I want man pages to fill all the frame:
 
 

 
-
(setq woman-fill-frame t)
+
(setq woman-fill-frame t)
 

 

 
@@ -2513,11 +2529,11 @@ too many things into my leader and these shortcuts look sensible to me).
 
 

 
-
(use-package crux
+
(use-package crux
   :ensure t
-  :bind (("C-c d" . crux-delete-file-and-buffer)
-         ("C-c r" . crux-rename-file-and-buffer)
-         ("C-c o" . crux-open-with)))
+  :bind (("C-c d" . crux-delete-file-and-buffer)
+         ("C-c r" . crux-rename-file-and-buffer)
+         ("C-c o" . crux-open-with)))
 

 

 
@@ -2575,7 +2591,7 @@ along with this program.  If not, see <
 
 
diff --git a/emacs/init.org b/emacs/init.org
index 4e7fc22..79c332f 100644
--- a/emacs/init.org
+++ b/emacs/init.org
@@ -266,6 +266,18 @@ No backups
   (setq-default auto-save-default nil)
 #+END_SRC
 
+But at least save the list of recently open files.
+
+#+BEGIN_SRC elisp
+(require 'recentf)
+
+(recentf-mode 1)
+(global-set-key "\C-x\ \C-r" 'recentf-open-files)
+
+; Save the list every 5 minutes
+(run-at-time nil (* 5 60) 'recentf-save-list)
+#+END_SRC
+
 No welcome screen
 
 #+BEGIN_SRC elisp
-- 
cgit v1.2.3