diff options
Diffstat (limited to '.config/doom')
| -rw-r--r-- | .config/doom/README.org | 16 | ||||
| -rw-r--r-- | .config/doom/abbrevs.el | 317 | ||||
| -rw-r--r-- | .config/doom/config.el | 386 | ||||
| -rw-r--r-- | .config/doom/custom.el | 17 | ||||
| -rw-r--r-- | .config/doom/init.el | 175 | ||||
| -rw-r--r-- | .config/doom/packages.el | 6 |
6 files changed, 917 insertions, 0 deletions
diff --git a/.config/doom/README.org b/.config/doom/README.org new file mode 100644 index 0000000..7418747 --- /dev/null +++ b/.config/doom/README.org @@ -0,0 +1,16 @@ +* GNU Emacs configuration + +Since [[https://github.com/mssola/dotfiles/commit/7bfe3fe73208fa29a3fe4b7ddce675e79a70c246][this commit]] I have maintained my own configuration for GNU Emacs. This has +been a hell of a ride for about five years. During this time I have learned a +lot, including what I don't like: to maintain a huge blob of Lisp to keep this +beast running. That is, along the way I've been frustrated by stuff that didn't +quite work but I didn't have the time to actually fix them. Moreover, I knew +that there were plenty of things that I was missing out but that I just didn't +have enough time for it. Some time ago I discovered [[https://github.com/hlissner/doom-emacs][Doom Emacs]], a GNU Emacs +distribution that had quite a lot of appealing features. I've been including +some bits and pieces from Doom into my custom configuration, but then I decided +that it was enough: let's leave the gory details to experienced people and I can +work out on the specifics for myself. + +Thus, I'm using Doom Emacs. In order to install it you need to follow their +instructions. This is the directory where my specific configuration resides. diff --git a/.config/doom/abbrevs.el b/.config/doom/abbrevs.el new file mode 100644 index 0000000..fc8c556 --- /dev/null +++ b/.config/doom/abbrevs.el @@ -0,0 +1,317 @@ +;;-*-coding: utf-8;-*- +(define-abbrev-table 'Buffer-menu-mode-abbrev-table '()) + +(define-abbrev-table 'Custom-mode-abbrev-table '()) + +(define-abbrev-table 'Info-edit-mode-abbrev-table '()) + +(define-abbrev-table 'TeX-error-overview-mode-abbrev-table '()) + +(define-abbrev-table 'TeX-output-mode-abbrev-table '()) + +(define-abbrev-table 'TeX-special-mode-abbrev-table '()) + +(define-abbrev-table 'ag-mode-abbrev-table '()) + +(define-abbrev-table 'apropos-mode-abbrev-table '()) + +(define-abbrev-table 'awk-mode-abbrev-table + '( + )) + +(define-abbrev-table 'bats-mode-abbrev-table '()) + +(define-abbrev-table 'bibtex-mode-abbrev-table '()) + +(define-abbrev-table 'c++-mode-abbrev-table + '( + )) + +(define-abbrev-table 'c-mode-abbrev-table + '( + )) + +(define-abbrev-table 'calendar-mode-abbrev-table '()) + +(define-abbrev-table 'change-log-mode-abbrev-table '()) + +(define-abbrev-table 'cmake-mode-abbrev-table '()) + +(define-abbrev-table 'coffee-mode-abbrev-table '()) + +(define-abbrev-table 'comint-mode-abbrev-table '()) + +(define-abbrev-table 'completion-list-mode-abbrev-table '()) + +(define-abbrev-table 'diff-mode-abbrev-table '()) + +(define-abbrev-table 'dig-mode-abbrev-table '()) + +(define-abbrev-table 'display-time-world-mode-abbrev-table '()) + +(define-abbrev-table 'dockerfile-mode-abbrev-table '()) + +(define-abbrev-table 'doctex-mode-abbrev-table '()) + +(define-abbrev-table 'edebug-eval-mode-abbrev-table '()) + +(define-abbrev-table 'edit-abbrevs-mode-abbrev-table '()) + +(define-abbrev-table 'elisp-byte-code-mode-abbrev-table '()) + +(define-abbrev-table 'elpy-refactor-mode-abbrev-table '()) + +(define-abbrev-table 'emacs-lisp-mode-abbrev-table '()) + +(define-abbrev-table 'emojify-apropos-mode-abbrev-table '()) + +(define-abbrev-table 'emojify-description-mode-abbrev-table '()) + +(define-abbrev-table 'emojify-list-mode-abbrev-table '()) + +(define-abbrev-table 'epa-info-mode-abbrev-table '()) + +(define-abbrev-table 'epa-key-list-mode-abbrev-table '()) + +(define-abbrev-table 'epa-key-mode-abbrev-table '()) + +(define-abbrev-table 'erc-mode-abbrev-table '()) + +(define-abbrev-table 'eshell-mode-abbrev-table '()) + +(define-abbrev-table 'evil-command-window-mode-abbrev-table '()) + +(define-abbrev-table 'evil-list-view-mode-abbrev-table '()) + +(define-abbrev-table 'flycheck-error-list-mode-abbrev-table '()) + +(define-abbrev-table 'flycheck-error-message-mode-abbrev-table '()) + +(define-abbrev-table 'flymake-diagnostics-buffer-mode-abbrev-table '()) + +(define-abbrev-table 'fundamental-mode-abbrev-table '()) + +(define-abbrev-table 'gfm-mode-abbrev-table '()) + +(define-abbrev-table 'gfm-view-mode-abbrev-table '()) + +(define-abbrev-table 'git-commit-elisp-text-mode-abbrev-table '()) + +(define-abbrev-table 'global-abbrev-table + '( + ("..." "…" nil 0) + ("CIF" "Comissions Informatives" nil 0) + ("FiG" "Ferrer i Guàrdia" nil 0) + ("JGL" "Junta de Govern" nil 2) + ("PLJ" "Pla Local de Joventut" nil 1) + ("abbout" "about" nil 0) + ("afaict" "as far as I can tell" nil 0) + ("bibtex" "BibTeX" nil 0) + ("btw" "by the way" nil 0) + ("cca" "Consell Comarcal de l'Anoia" nil 0) + ("diba" "Diputació de Barcelona" nil 0) + ("ppcc" "Països Catalans" nil 0) + ("PPCC" "Països Catalans" nil 0) + )) + +(define-abbrev-table 'gnus-article-edit-mode-abbrev-table '()) + +(define-abbrev-table 'gnus-article-mode-abbrev-table '()) + +(define-abbrev-table 'gnus-group-mode-abbrev-table '()) + +(define-abbrev-table 'gnus-sticky-article-mode-abbrev-table '()) + +(define-abbrev-table 'go-dot-mod-mode-abbrev-table '()) + +(define-abbrev-table 'go-mode-abbrev-table '()) + +(define-abbrev-table 'godoc-mode-abbrev-table '()) + +(define-abbrev-table 'grep-mode-abbrev-table '()) + +(define-abbrev-table 'hcl-mode-abbrev-table '()) + +(define-abbrev-table 'helm-ag-mode-abbrev-table '()) + +(define-abbrev-table 'helm-grep-mode-abbrev-table '()) + +(define-abbrev-table 'helm-major-mode-abbrev-table '()) + +(define-abbrev-table 'helm-occur-mode-abbrev-table '()) + +(define-abbrev-table 'help-mode-abbrev-table '()) + +(define-abbrev-table 'ibuffer-mode-abbrev-table '()) + +(define-abbrev-table 'idl-mode-abbrev-table '()) + +(define-abbrev-table 'inf-ruby-mode-abbrev-table '()) + +(define-abbrev-table 'inferior-emacs-lisp-mode-abbrev-table '()) + +(define-abbrev-table 'inferior-python-mode-abbrev-table '()) + +(define-abbrev-table 'java-mode-abbrev-table + '( + )) + +(define-abbrev-table 'latex-mode-abbrev-table '()) + +(define-abbrev-table 'lisp-mode-abbrev-table '()) + +(define-abbrev-table 'log-edit-mode-abbrev-table '()) + +(define-abbrev-table 'log4e-mode-abbrev-table '()) + +(define-abbrev-table 'magit-cherry-mode-abbrev-table '()) + +(define-abbrev-table 'magit-diff-mode-abbrev-table '()) + +(define-abbrev-table 'magit-log-mode-abbrev-table '()) + +(define-abbrev-table 'magit-log-select-mode-abbrev-table '()) + +(define-abbrev-table 'magit-merge-preview-mode-abbrev-table '()) + +(define-abbrev-table 'magit-mode-abbrev-table '()) + +(define-abbrev-table 'magit-process-mode-abbrev-table '()) + +(define-abbrev-table 'magit-reflog-mode-abbrev-table '()) + +(define-abbrev-table 'magit-refs-mode-abbrev-table '()) + +(define-abbrev-table 'magit-repolist-mode-abbrev-table '()) + +(define-abbrev-table 'magit-revision-mode-abbrev-table '()) + +(define-abbrev-table 'magit-section-mode-abbrev-table '()) + +(define-abbrev-table 'magit-stash-mode-abbrev-table '()) + +(define-abbrev-table 'magit-stashes-mode-abbrev-table '()) + +(define-abbrev-table 'magit-status-mode-abbrev-table '()) + +(define-abbrev-table 'magit-submodule-list-mode-abbrev-table '()) + +(define-abbrev-table 'markdown-mode-abbrev-table '()) + +(define-abbrev-table 'markdown-view-mode-abbrev-table '()) + +(define-abbrev-table 'message-mode-abbrev-table '()) + +(define-abbrev-table 'messages-buffer-mode-abbrev-table '()) + +(define-abbrev-table 'mu4e-compose-mode-abbrev-table '()) + +(define-abbrev-table 'mu4e-org-mode-abbrev-table '()) + +(define-abbrev-table 'mu4e~update-mail-mode-abbrev-table '()) + +(define-abbrev-table 'objc-mode-abbrev-table + '( + )) + +(define-abbrev-table 'occur-edit-mode-abbrev-table '()) + +(define-abbrev-table 'occur-mode-abbrev-table '()) + +(define-abbrev-table 'org-export-stack-mode-abbrev-table '()) + +(define-abbrev-table 'org-mode-abbrev-table '()) + +(define-abbrev-table 'outline-mode-abbrev-table '()) + +(define-abbrev-table 'package-menu-mode-abbrev-table '()) + +(define-abbrev-table 'php-mode-abbrev-table '()) + +(define-abbrev-table 'pike-mode-abbrev-table + '( + )) + +(define-abbrev-table 'plain-tex-mode-abbrev-table '()) + +(define-abbrev-table 'process-menu-mode-abbrev-table '()) + +(define-abbrev-table 'prog-mode-abbrev-table '()) + +(define-abbrev-table 'python-mode-abbrev-table '()) + +(define-abbrev-table 'python-mode-skeleton-abbrev-table + '( + )) + +(define-abbrev-table 'react-mode-abbrev-table '()) + +(define-abbrev-table 'rst-mode-abbrev-table + '( + )) + +(define-abbrev-table 'rst-toc-mode-abbrev-table '()) + +(define-abbrev-table 'ruby-mode-abbrev-table '()) + +(define-abbrev-table 'rust-mode-abbrev-table '()) + +(define-abbrev-table 'salt-mode--doc-mode-abbrev-table '()) + +(define-abbrev-table 'salt-mode-abbrev-table '()) + +(define-abbrev-table 'scss-mode-abbrev-table '()) + +(define-abbrev-table 'select-tags-table-mode-abbrev-table '()) + +(define-abbrev-table 'sh-mode-abbrev-table '()) + +(define-abbrev-table 'shell-mode-abbrev-table '()) + +(define-abbrev-table 'slim-mode-abbrev-table '()) + +(define-abbrev-table 'slitex-mode-abbrev-table '()) + +(define-abbrev-table 'smime-mode-abbrev-table '()) + +(define-abbrev-table 'snippet-mode-abbrev-table '()) + +(define-abbrev-table 'special-mode-abbrev-table '()) + +(define-abbrev-table 'speedbar-mode-abbrev-table '()) + +(define-abbrev-table 'ssass-mode-abbrev-table '()) + +(define-abbrev-table 'tabulated-list-mode-abbrev-table '()) + +(define-abbrev-table 'tar-mode-abbrev-table '()) + +(define-abbrev-table 'terraform-mode-abbrev-table '()) + +(define-abbrev-table 'tex-mode-abbrev-table '()) + +(define-abbrev-table 'tex-shell-abbrev-table '()) + +(define-abbrev-table 'text-mode-abbrev-table '()) + +(define-abbrev-table 'url-cookie-mode-abbrev-table '()) + +(define-abbrev-table 'use-package-statistics-mode-abbrev-table '()) + +(define-abbrev-table 'vc-git-log-edit-mode-abbrev-table '()) + +(define-abbrev-table 'vc-git-log-view-mode-abbrev-table '()) + +(define-abbrev-table 'vc-git-region-history-mode-abbrev-table '()) + +(define-abbrev-table 'vc-svn-log-view-mode-abbrev-table '()) + +(define-abbrev-table 'vue-html-mode-abbrev-table '()) + +(define-abbrev-table 'vue-mode-abbrev-table '()) + +(define-abbrev-table 'web-mode-abbrev-table '()) + +(define-abbrev-table 'xref--xref-buffer-mode-abbrev-table '()) + +(define-abbrev-table 'yaml-mode-abbrev-table '()) diff --git a/.config/doom/config.el b/.config/doom/config.el new file mode 100644 index 0000000..b895de2 --- /dev/null +++ b/.config/doom/config.el @@ -0,0 +1,386 @@ +;;; $DOOMDIR/config.el -*- lexical-binding: t; -*- + +;;; Basic information. + +(defconst mssola-backup-dir "/home/backup" + "Directory located in a big partition where I dump a lot of crap.") + +;; There are some packages that expect us to have a `user-full-name' and a +;; `user-mail-address' defined. +(setq user-full-name "Miquel Sabaté Solà" + user-mail-address "mikisabate@gmail.com") + +;;; General utility functions. + +(defun mssola/workstation-p () + "Returns true if the current machine is my workstation." + + (string= (system-name) "freezeezy")) + +;;; General + +;; Bindings for managing windows, buffers, etc. +(map! "C-x k" #'kill-this-buffer) +(map! "C-x K" #'kill-buffer-and-window) +(map! "C-x v" #'split-window-right) +(map! "C-x V" (lambda () (interactive) (split-window-right) (other-window 1))) + +;; The crux package offers quite a few goodies, and I'm particularly interested +;; on the `crux-delete-file-and-buffer', which will delete the file related to +;; the current buffer as well as the buffer itself. +(use-package! crux + :bind (("C-c D" . crux-delete-file-and-buffer))) + +;;; UI + +;; Some time ago I created this title format, and now I prefer it over other +;; options, including Doom's default one. +(setq frame-title-format + (setq icon-title-format '((:eval (concat (user-real-login-name) ": " + (if (buffer-file-name) + (abbreviate-file-name (buffer-file-name)) + "%b")))))) + +;; Color theme: try to use my own theme called `soria', otherwise let's go for +;; Doom's default one (`doom-one'). There are two paths where the `soria' theme +;; might reside. The first path we are going to try is my local dev environment, +;; otherwise we will try the global installation path (as pointed out on the +;; documentation of the RPM package). If none of this worked, then just go with +;; doom's default theme. +(let ((dev-dir (concat (getenv "HOME") "/src/github.com/mssola/soria")) + (global-dir "/usr/share/emacs/site-lisp/themes")) + (if (file-exists-p dev-dir) + (add-to-list 'custom-theme-load-path dev-dir) + (when (file-exists-p global-dir) + (add-to-list 'custom-theme-load-path global-dir))) + + ;; If soria could be loaded as a theme, let's set the + ;; `soria-theme-purple-identifiers' hook for the relevant modes. + (if (load-theme 'soria t) + (dolist (lang-hook '(ruby-mode-hook + php-mode-hook + perl-mode-hook + emacs-lisp-mode-hook)) + (add-hook lang-hook 'soria-theme-purple-identifiers)) + (setq doom-theme 'doom-one))) + +(defun mssola/face-at-point (pos) + "Writes a message with the name of the face at the current + point. The `POS' argument contains the current position of the + cursor." + + (interactive "d") + + (let ((face (or (get-char-property (point) 'read-face-name) + (get-char-property (point) 'face)))) + (if face (message "Face: %s" face) (message "No face at %d" pos)))) + +;; Binding so we know the current face at a given point. Convenient when hacking +;; the `soria' theme. +(map! "C-c f" #'mssola/face-at-point) + +;; Doom allows us to define the font depending on the contex which is really +;; cool. Let's define Droid Sans Mono Dotted just because I've grown used to +;; it... +(setq doom-font (font-spec :name "Droid Sans Mono Dotted for Powerline-10") + doom-big-font (font-spec :name "Droid Sans Mono Dotted for Powerline-10" :size 24)) + +;; When in Evil mode, it just makes sense to have line numbers relatively. +(setq display-line-numbers-type 'relative) + +;; I *really* don't like highlighting the current line, let's remove it now... +(remove-hook 'doom-first-buffer-hook #'global-hl-line-mode) + +;; For whatever reason someone thought that having the tilde fringe as it +;; happens to vi was a good idea. I disagree. +(remove-hook 'text-mode-hook #'vi-tilde-fringe-mode) + +;; The modeline I was using even before switching to Doom. I modify quite a few +;; things from the default installation so it is simpler. +(use-package! doom-modeline + :init + (setq doom-modeline-height 20 + doom-modeline-persp-name nil + doom-modeline-major-mode-icon nil + doom-modeline-modal-icon t + doom-modeline-icon t + doom-modeline-buffer-file-name-style 'relative-from-project)) + +;;; Editor + +;; Some bindings that I've grown used to over the years. +(map! :i "C-z" #'evil-escape) +(map! :n "C-z" #'evil-escape) +(map! :n "C-s" #'save-buffer) +(map! :n "C-e" #'evil-end-of-line) +(map! :i "C-s" (lambda () (interactive) (save-buffer) (evil-force-normal-state))) +(map! :n "C-2" + (lambda (n) + (interactive "p") + (evil-execute-macro n "@q"))) + +;; Doom by default inserts Evil's snipe mode, which is really confusing and I +;; *really* don't like it. Let's remove it and bring back the original search +;; behavior. +(remove-hook 'doom-first-input-hook #'evil-snipe-mode) + +;; Abbreviations live in the Doom private directory, where it's versioned and +;; it's shared across computers. Moreover, abbrev mode should only spring up +;; with very specific environments, so let's enable it explicitely for them. +(setq abbrev-file-name (concat doom-private-dir "abbrevs.el") + save-abbrevs 'silent) + +(dolist (hook '(erc-mode-hook org-mode-hook text-mode-hook)) + (add-hook hook #'abbrev-mode)) + +;; Tweaking more defaults. +(setq-default tab-width 4) +(setq-default auto-save-default nil) + +;;; Spell checking + +(map! "<f8>" #'ispell-word) +(map! "M-<f8>" #'flyspell-buffer) + +(let ((lt-path "/usr/share/languagetool")) + (setq langtool-language-tool-jar (concat lt-path "/languagetool-commandline.jar") + langtool-mother-tongue "ca")) + +(when (fboundp 'langtool-check) + (map! "<f9>" #'langtool-check-buffer) + (map! "M-<f9>" #'langtool-correct-buffer)) + +;;; Organization + +;; Setting this variable before org-mode loads. +(setq org-directory "~/org/") + +;; I know there are better ways to use org, but that's how I ended up using org +;; and I don't think I will change for the foreseeable future... +(map! "C-c C-o" + (lambda () + (interactive) + (find-file (concat (file-name-as-directory org-directory) "index.org")))) + +;; Remove some Doom defaults for org (yeah yeah, I'm boring, I know). +(after! org + (setq! org-startup-indented nil + org-hide-leading-stars nil)) + +;;; Exporting: some functions I use when exporting to PDF cleanly. + +(defun mssola/move-file-to-out (dir name ext) + "Move out from `DIR' the given file `NAME' if it exists. +Note that `EXT' must include the period character." + + (when (file-exists-p (concat dir name ext)) + (unless (file-directory-p (concat dir "out/")) + (make-directory (concat dir "out/"))) + (when (file-exists-p (concat dir "out/" name ext)) + (delete-file (concat dir "out/" name ext))) + (rename-file (concat dir name ext) (concat dir "out/" name ext)))) + +(defun mssola/export-to-pdf () + "Export the current org document to PDF. +The generated file will live in an `out' directory (created if it +isn't there already). Everything else will be cleaned up, so no +littering will happen locally." + + (interactive) + + (with-current-buffer (current-buffer) + (org-latex-export-to-pdf) + + (let* ((fn (buffer-file-name (current-buffer))) + (dir (file-name-directory fn)) + (name (file-name-base fn)) + (autodir (concat dir "auto"))) + + (when (file-directory-p autodir) + (delete-directory autodir t)) + + (when (file-exists-p (concat dir name ".tex")) + (delete-file (concat dir name ".tex"))) + + (mssola/move-file-to-out dir name ".pdf")))) + +(map! "<f1>" #'mssola/export-to-pdf) + +;; Do funny things so both pdflatex and bibtex just work as expected. +(setq org-latex-pdf-process + '("pdflatex -interaction nonstopmode -output-directory %o %f" + "bibtex %b" + "pdflatex -interaction nonstopmode -output-directory %o %f" + "pdflatex -interaction nonstopmode -output-directory %o %f")) + +;;; Email + +;; Sometimes the load path is not properly set for RPM installs... +(add-to-list 'load-path "/usr/share/emacs/site-lisp/mu4e") + +(after! mu4e + ;; Use `msmtp' as the program for sending email. + (setq sendmail-program (executable-find "msmtp") + send-mail-function #'smtpmail-send-it + starttls-use-gnutls t + message-sendmail-f-is-evil t + message-sendmail-extra-arguments '("--read-envelope-from") + message-send-mail-function #'message-send-mail-with-sendmail) + + ;; The default bookmarks are cool and all, but they lack a proper sink that + ;; gathers all inboxes. + (add-to-list 'mu4e-bookmarks + '(:name "Inbox" + :query "maildir:/gmail/inbox OR maildir:/comsuse/inbox OR maildir:/desuse/inbox OR maildir:/ajuntament/inbox OR maildir:/sindicat/inbox OR maildir:/uoc/inbox" + :key ?n)) + + ;; Things to look for when acting as a cootw. + (add-to-list 'mu4e-bookmarks + '(:name "COOTW" + :query "to:scc-feedback@suse.de" + :key ?c)) + + ;; General mu4e settings. + (setq message-kill-buffer-on-exit t + mu4e-update-interval 600 + mu4e-use-fancy-chars nil + + ;; doom-emacs adds a lot of clutter here and I'm a simple man. + mu4e-headers-fields + '((:human-date . 8) + (:from-or-to . 25) + (:subject)) + + ;; Always ask, I don't trust mu4e on this and an error on this can be + ;; rather silent and embarrasing at the same time. + mu4e-context-policy 'ask-if-none + mu4e-compose-context-policy 'always-ask + + mu4e-change-filenames-when-moving t)) + +;; Let the account party begin! + +(defun mssola/mail-signature (key) + "Return the proper mail signature for the given `KEY'." + + (cond + ((string= key "pgp") + (concat + "Miquel Sabaté Solà,\n" + "PGP: 4096R / 1BA5 3C7A C93D CA2A CFDF DA97 96BE 8C6F D89D 6565\n")) + ((string= key "town") + (concat + "Miquel Sabaté Solà,\n" + "Regidor de Joventut, Participació ciutadana i Transparència\n" + "\n" + "Ajuntament de Capellades\n" + "Carrer de Ramon Godó, 9, 08786 - Capellades\n" + "Tel. 93 801 10 01 – mòbil 677 12 72 07\n" + "sabatesm@capellades.cat\n")))) + +(set-email-account! "gmail" + '((mu4e-sent-folder . "/gmail/Sent") + (mu4e-drafts-folder . "/gmail/Drafts") + (mu4e-trash-folder . "/gmail/Trash") + (mu4e-refile-folder . "/gmail/All") + (smtpmail-smtp-user . "mikisabate@gmail.com") + (user-mail-address . "mikisabate@gmail.com") + (mu4e-compose-signature . (mssola/mail-signature "pgp"))) + t) + +(set-email-account! "uoc" + '((mu4e-sent-folder . "/uoc/Sent") + (mu4e-drafts-folder . "/uoc/Drafts") + (mu4e-trash-folder . "/uoc/Trash") + (mu4e-refile-folder . "/uoc/All") + (smtpmail-smtp-user . "mssola@uoc.edu") + (user-mail-address . "mssola@uoc.edu") + (mu4e-compose-signature . (mssola/mail-signature "pgp"))) + nil) + +(set-email-account! "rovira" + '((mu4e-sent-folder . "/urv/Sent Items") + (mu4e-drafts-folder . "/urv/Drafts") + (mu4e-trash-folder . "/urv/Trash") + (mu4e-refile-folder . "/urv/Archive") + (smtpmail-smtp-user . "47108707-S@epp.urv.cat") + (user-mail-address . "47108707-S@epp.urv.cat") + (mu4e-compose-signature . (mssola/mail-signature "pgp"))) + nil) + +(set-email-account! "ajuntament" + '((mu4e-sent-folder . "/ajuntament/Elements enviats") + (mu4e-drafts-folder . "/ajuntament/Esborranys") + (mu4e-trash-folder . "/ajuntament/Elements suprimits") + (mu4e-refile-folder . "/ajuntament/Arxiu") + (smtpmail-smtp-user . "sabatesm@capellades.cat") + (user-mail-address . "sabatesm@capellades.cat") + (mu4e-compose-signature . (mssola/mail-signature "town"))) + nil) + +(set-email-account! "sindicat" + '((mu4e-sent-folder . "/sindicat/inbox/Sent") + (mu4e-drafts-folder . "/sindicat/inbox/Drafts") + (mu4e-trash-folder . "/sindicat/inbox/Trash") + (mu4e-refile-folder . "/sindicat/inbox/Archive") + (smtpmail-smtp-user . "msabate@cgtsuse.org") + (user-mail-address . "msabate@cgtsuse.org") + (mu4e-compose-signature . (mssola/mail-signature "pgp"))) + nil) + +(set-email-account! "comsuse" + '((mu4e-sent-folder . "/comsuse/Elements enviats") + (mu4e-drafts-folder . "/comsuse/Esborranys") + (mu4e-trash-folder . "/comsuse/Elements suprimits") + (mu4e-refile-folder . "/comsuse/Arxiu") + (smtpmail-smtp-user . "msabate@suse.com") + (user-mail-address . "msabate@suse.com") + (mu4e-compose-signature . (mssola/mail-signature "pgp"))) + nil) + +(set-email-account! "desuse" + '((mu4e-sent-folder . "/desuse/Sent") + (mu4e-drafts-folder . "/desuse/Drafts") + (mu4e-trash-folder . "/desuse/Trash") + (mu4e-refile-folder . "/desuse/Archives") + (smtpmail-smtp-user . "msabate@suse.de") + (user-mail-address . "msabate@suse.de") + (mu4e-compose-signature . (mssola/mail-signature "pgp"))) + nil) + +;; My main account is properly accounted as a gmail one, but the UOC one is not. +;; Let's add it here (we need to have them all listed). +(setq +mu4e-gmail-accounts '(("mikisabate@gmail.com" . "/gmail") + ("mssola@uoc.edu" . "/uoc"))) + +;; Last but not least, let's configure PGP with mu4e. +(setq mml-secure-openpgp-signers '("0x96BE8C6FD89D6565") + mml-secure-openpgp-sign-with-sender t) + +(add-hook 'message-send-hook 'mml-secure-message-sign-pgpmime) + +(defun mssola/clean-email-env () + "Clean the maildir environment." + + (interactive) + + ;; The 'ajuntament' maildir is a bit special, since I have to handle it + ;; manually for embarrasing reasons. + (mapc (lambda (f) + (unless (file-directory-p f) + (delete-file f))) + (directory-files (concat (file-name-as-directory mssola-backup-dir) + "mail/ajuntament/inbox/new") + t))) + +;; This is the only hook that `mu4e' allows us to actually do something around +;; fetching emails. Let's clean the environment before anything, which should be +;; fine for stupid maildirs such as 'ajuntament'. +;; +;; NOTE: this is only done for my workstation. For other machines this is not so +;; relevant. +(when (mssola/workstation-p) + (add-hook 'mu4e-update-pre-hook 'mssola/clean-email-env)) + +;; And a binding! +(map! "C-c m" #'mu4e) diff --git a/.config/doom/custom.el b/.config/doom/custom.el new file mode 100644 index 0000000..5108d7e --- /dev/null +++ b/.config/doom/custom.el @@ -0,0 +1,17 @@ +(custom-set-variables + ;; custom-set-variables was added by Custom. + ;; If you edit it by hand, you could mess it up, so be careful. + ;; Your init file should contain only one such instance. + ;; If there is more than one, they won't work right. + '(ansi-color-names-vector + ["#1c1c1c" "#d78787" "#b9dc92" "#ffffaf" "#87afd7" "#875f87" "#dfafdf" "#d0d0d0"]) + '(custom-safe-themes + '("4e7e1be316e5095960f5dd27402a81f6d69e0ba380355ad5215797efb5466eea" "27982b03b7d049912b600301e50637882ec095f384124180a21772ec8da5f7e8" "6395777d3007cd6d3e613812d493ab9d09aa68f17d3dbf3935bfa1672279281e" "169e5b085078237c277753e3bd83e40a398e5eef98d922eb9b92fc3dbce9046d" "568969c0ed1874dc4ae94c2792eda17f10a40562ccb531c528a112f65889af75" "6c929cd6a199700c871ef92ad47ba20accd00810fc92e8343448da67dcde0898" "840588bd742f27724df70209930633b83567026a7290b2f4105939a6eabbb4cf" "806f76b435a02f1016a5b76a6aa8f9304d7c51f98f85ebd13f33f1b148227b7f" "8185f8e6c2d6a29da892e13e33d666cc26303a9639a8582c8035fbf0987c5f20" "9c538f4387a7db52b13fa988f93bd337ab13ead7c8fdb5fed29833d7d7e0f27c" "232b0c9752006e63d3bf8b5329bda6f3592e4ac1bdf96b17879bb076f16ea82c" "45847e51cdf4bcacfd2093d48be8c727da9837830911999b2d2b31ffa27de90b" "7938d6870d8bbf41504f1338ebb3b590eaacfb201327fb9389454b08abcef0df" "21f0483411dee48b338960db918d82630516a3d726f9432f8ae8c0b8554df25f" "d300a3efcf6b385537e11bd588d08aed850ce239b66ff37ee57a7f20f1b05e47" "f2d128f0ca6290df5c608a9e3e564bbe3ee2f22b61dc1409cdf5e3c200337e7d" "f42263201f447f8c15e57474a95d26500b7e6f932e3d75a3604802a6c9a9f18f" "af2817482b04be9d60ac90ad89e386dd076b9338f135d576ef9bd357e01f64ca" "053a91acd65e7592ec1f1451f81554da96f26781858f961db65c9f1be7c6ffe0" "d55733f0ab2ab8031b3206e900f3729deed13acc6d56cf09a171ae8e26cb7181" default)) + '(delete-selection-mode nil) + '(warning-suppress-types '((org-element-cache)))) +(custom-set-faces + ;; custom-set-faces was added by Custom. + ;; If you edit it by hand, you could mess it up, so be careful. + ;; Your init file should contain only one such instance. + ;; If there is more than one, they won't work right. + ) diff --git a/.config/doom/init.el b/.config/doom/init.el new file mode 100644 index 0000000..084e17e --- /dev/null +++ b/.config/doom/init.el @@ -0,0 +1,175 @@ +;;; init.el -*- lexical-binding: t; -*- + +(doom! :input + ;;chinese + ;;japanese + ;;layout ; auie,ctsrnm is the superior home row + + :completion + company ; the ultimate code completion backend + ;;helm ; the *other* search engine for love and life + ;;ido ; the other *other* search engine... + ;;ivy ; a search engine for love and life + vertico ; the search engine of the future + + :ui + ;;deft ; notational velocity for Emacs + doom ; what makes DOOM look the way it does + ;;doom-dashboard ; a nifty splash screen for Emacs + ;;doom-quit ; DOOM quit-message prompts when you quit Emacs + ;;(emoji +unicode) ; 🙂 + hl-todo ; highlight TODO/FIXME/NOTE/DEPRECATED/HACK/REVIEW + ;;hydra + ;;indent-guides ; highlighted indent columns + ;;ligatures ; ligatures and symbols to make your code pretty again + ;;minimap ; show a map of the code on the side + modeline ; snazzy, Atom-inspired modeline, plus API + ;;nav-flash ; blink cursor line after big motions + ;;neotree ; a project drawer, like NERDTree for vim + ;;ophints ; highlight the region an operation acts on + (popup +defaults) ; tame sudden yet inevitable temporary windows + ;;tabs ; a tab bar for Emacs + ;;treemacs ; a project drawer, like neotree but cooler + ;;unicode ; extended unicode support for various languages + ;;vc-gutter ; vcs diff in the fringe + ;;vi-tilde-fringe ; fringe tildes to mark beyond EOB + ;;window-select ; visually switch windows + ;;workspaces ; tab emulation, persistence & separate workspaces + ;;zen ; distraction-free coding or writing + + :editor + (evil +everywhere) ; come to the dark side, we have cookies + file-templates ; auto-snippets for empty files + ;;fold ; (nigh) universal code folding + (format +onsave) ; automated prettiness + ;;god ; run Emacs commands without modifier keys + ;;lispy ; vim for lisp, for people who don't like vim + ;;multiple-cursors ; editing in many places at once + ;;objed ; text object editing for the innocent + ;;parinfer ; turn lisp into python, sort of + ;;rotate-text ; cycle region at point between text candidates + snippets ; my elves. They type so I don't have to + ;;word-wrap ; soft wrapping with language-aware indent + + :emacs + dired ; making dired pretty [functional] + electric ; smarter, keyword-based electric-indent + ;;ibuffer ; interactive buffer management + undo ; persistent, smarter undo for your inevitable mistakes + vc ; version-control and Emacs, sitting in a tree + + :term + ;;eshell ; the elisp shell that works everywhere + ;;shell ; simple shell REPL for Emacs + ;;term ; basic terminal emulator for Emacs + ;;vterm ; the best terminal emulation in Emacs + + :checkers + syntax ; tasing you for every semicolon you forget + (spell +flyspell +hunspell) ; tasing you for misspelling mispelling + ;;grammar ; tasing grammar mistake every you make + + :tools + ;;ansible + ;;debugger ; FIXME stepping through code, to help you add bugs + ;;direnv + docker + ;;editorconfig ; let someone else argue about tabs vs spaces + ;;ein ; tame Jupyter notebooks with emacs + (eval +overlay) ; run code, run (also, repls) + ;;gist ; interacting with github gists + lookup ; navigate your code and its documentation + ;;lsp ; M-x vscode + magit ; a git porcelain for Emacs + ;;make ; run make tasks from Emacs + ;;pass ; password manager for nerds + ;;pdf ; pdf enhancements + ;;prodigy ; FIXME managing external services & code builders + ;;rgb ; creating color strings + ;;taskrunner ; taskrunner for all your projects + terraform ; infrastructure as code + ;;tmux ; an API for interacting with tmux + ;;upload ; map local to remote projects via ssh/ftp + + :os + (:if IS-MAC macos) ; improve compatibility with macOS + (tty +osc) ; improve the terminal Emacs experience + + :lang + ;;agda ; types of types of types of types... + ;;beancount ; mind the GAAP + cc ; C > C++ == 1 + ;;clojure ; java with a lisp + ;;common-lisp ; if you've seen one lisp, you've seen them all + ;;coq ; proofs-as-programs + ;;crystal ; ruby at the speed of c + ;;csharp ; unity, .NET, and mono shenanigans + ;;data ; config/data formats + ;;(dart +flutter) ; paint ui and not much else + ;;dhall + ;;elixir ; erlang done right + ;;elm ; care for a cup of TEA? + emacs-lisp ; drown in parentheses + ;;erlang ; an elegant language for a more civilized age + ;;ess ; emacs speaks statistics + ;;factor + ;;faust ; dsp, but you get to keep your soul + ;;fsharp ; ML stands for Microsoft's Language + ;;fstar ; (dependent) types and (monadic) effects and Z3 + ;;gdscript ; the language you waited for + go ; the hipster dialect + ;;(haskell +lsp) ; a language that's lazier than I am + ;;hy ; readability of scheme w/ speed of python + ;;idris ; a language you can depend on + json ; At least it ain't XML + ;;(java +meghanada) ; the poster child for carpal tunnel syndrome + javascript ; all(hope(abandon(ye(who(enter(here)))))) + ;;julia ; a better, faster MATLAB + ;;kotlin ; a better, slicker Java(Script) + latex ; writing papers in Emacs has never been so fun + ;;lean ; for folks with too much to prove + ;;ledger ; be audit you can be + lua ; one-based indices? one-based indices + markdown ; writing docs for people to ignore + ;;nim ; python + lisp at the speed of c + ;;nix ; I hereby declare "nix geht mehr!" + ;;ocaml ; an objective camel + org ; organize your plain life in plain text + ;;php ; perl's insecure younger brother + ;;plantuml ; diagrams for confusing people more + ;;purescript ; javascript, but functional + ;;python ; beautiful is better than ugly + ;;qt ; the 'cutest' gui framework ever + ;;racket ; a DSL for DSLs + ;;raku ; the artist formerly known as perl6 + ;;rest ; Emacs as a REST client + ;;rst ; ReST in peace + (ruby +rails +rvm) ; 1.step {|i| p "Ruby is #{i.even? ? 'love' : 'life'}"} + rust ; Fe2O3.unwrap().unwrap().unwrap().unwrap() + ;;scala ; java, but good + ;;(scheme +guile) ; a fully conniving family of lisps + sh ; she sells {ba,z,fi}sh shells on the C xor + ;;sml + ;;solidity ; do you need a blockchain? No. + ;;swift ; who asked for emoji variables? + ;;terra ; Earth and Moon in alignment for performance. + web ; the tubes + yaml ; JSON, but readable + ;;zig ; C, but simpler + + :email + (mu4e +gmail) + ;;notmuch + ;;(wanderlust +gmail) + + :app + ;;calendar + ;;emms + ;;everywhere ; *leave* Emacs!? You must be joking + ;;irc ; how neckbeards socialize + ;;(rss +org) ; emacs as an RSS reader + ;;twitter ; twitter client https://twitter.com/vnought + + :config + ;;literate + (default +bindings +smartparens)) diff --git a/.config/doom/packages.el b/.config/doom/packages.el new file mode 100644 index 0000000..c8ce441 --- /dev/null +++ b/.config/doom/packages.el @@ -0,0 +1,6 @@ +;; -*- no-byte-compile: t; -*- +;;; $DOOMDIR/packages.el + +(package! crux) +(package! langtool) +(package! mu4e-alert :disable t) |