Moved .doom.d -> .config/doom

Signed-off-by: Miquel Sabaté Solà <msabate@suse.com>

1 files changed, 0 insertions, 386 deletions

diff --git a/.doom.d/config.el b/.doom.d/config.el
deleted file mode 100644
index b895de2..0000000
--- a/.doom.d/config.el
+++ /dev/null
@@ -1,386 +0,0 @@
-;;; $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)