diff options
Diffstat (limited to 'doom-emacs/.config/doom/config.el')
| -rw-r--r-- | doom-emacs/.config/doom/config.el | 191 |
1 files changed, 191 insertions, 0 deletions
diff --git a/doom-emacs/.config/doom/config.el b/doom-emacs/.config/doom/config.el new file mode 100644 index 0000000..34c2cf2 --- /dev/null +++ b/doom-emacs/.config/doom/config.el @@ -0,0 +1,191 @@ +;;; $DOOMDIR/config.el -*- lexical-binding: t; -*- + +;; Place your private configuration here! Remember, you do not need to run 'doom +;; sync' after modifying this file! + + +;; Some functionality uses this to identify you, e.g. GPG configuration, email +;; clients, file templates and snippets. +;; +(setq user-full-name "la-ninpre") +(setq user-mail-address "leobrekalini@gmail.com") + +;; Doom exposes five (optional) variables for controlling fonts in Doom. Here +;; are the three important ones: +;; +;; + `doom-font' +;; + `doom-variable-pitch-font' +;; + `doom-big-font' -- used for `doom-big-font-mode'; use this for +;; presentations or streaming. +;; +;; They all accept either a font-spec, font string ("Input Mono-12"), or xlfd +;; font string. You generally only need these two: +;; (setq doom-font (font-spec :family "monospace" :size 12 :weight 'semi-light) +;; doom-variable-pitch-font (font-spec :family "sans" :size 13)) + +;; There are two ways to load a theme. Both assume the theme is installed and +;; available. You can either set `doom-theme' or manually load a theme with the +;; `load-theme' function. This is the default: + +(setq doom-theme 'la-ninpre) + +(setq doom-font (font-spec :family "JetBrains Mono" :size 14 :weight 'medium) + doom-big-font (font-spec :family "JetBrains Mono" :size 36) + doom-unicode-font (font-spec :family "Noto") + doom-serif-font (font-spec :family "Noto Serif") + doom-variable-pitch-font (font-spec :family "Lato" :size 14)) + +;; If you use `org' and don't want your org files in the default location below, +;; change `org-directory'. It must be set before org loads! +(setq org-directory "~/Documents/org/") + +;; This determines the style of line numbers in effect. If set to `nil', line +;; numbers are disabled. For relative line numbers, set this to `relative'. +(setq display-line-numbers-type 'relative) + +;; disable exit prompt +(setq confirm-kill-emacs nil) + +;; fix path for pandoc +(add-to-list 'exec-path "~/.local/bin") + +;; mu4e +(add-to-list 'load-path "/usr/local/share/emacs/site-lisp/mu4e") +(require 'mu4e) + +(setq mu4e-change-filenames-when-moving t) +(setq message-send-mail-function 'smtpmail-send-it) +(setq mu4e-get-mail-command "mbsync -c ~/.config/mbsyncrc -a" + mu4e-update-interval 300 + mu4e-sent-messages-behavior 'delete + mu4e-attachment-dir "~/Downloads" + message-send-mail-function 'smtpmail-send-it + starttls-use-gnutls t + mu4e-compose-format-flowed t) + +(setq mu4e-context-policy 'pick-first) +(setq mu4e-compose-context-policy 'ask-if-none) + +(add-to-list 'load-path "~/.config/doom") +(require 'la-ninpre-email) +;; actual `mu4e-contexts' is in =~/.config/doom/la-ninpre-email.el=. +;; i don't want to include it, but it looks very similar to this below. +;; also there's an example `mbsyncrc' in =~/.config/mbsyncrc-example= + +;; (setq mu4e-contexts +;; (list +;; (make-mu4e-context +;; :name "acct-1" +;; :enter-func (lambda () (mu4e-message "Entering context acct-1")) +;; :leave-func (lambda () (mu4e-message "Leaving context acct-1")) +;; :match-func (lambda (msg) +;; (when msg +;; (mu4e-message-contact-field-matches +;; msg '(:from :to :cc :bcc) "acct-1@example.com"))) +;; :vars '((user-mail-address . "acct-1@example.com") +;; (user-full-name . "acct-1") +;; (mu4e-sent-folder . "/acct-1/Sent") +;; (mu4e-drafts-folder . "/acct-1/Drafts") +;; (mu4e-trash-folder . "/acct-1/Trash") +;; (smtpmail-smtp-user . "acct-1@example.com") +;; (smtpmail-starttls-credentials . (("smtp.example.com" 587 nil nil))) +;; (smtpmail-auth-credentials +;; . (expand-file-name "~/.password-store/acct-1.gpg")) +;; (smtpmail-default-smtp-server . "smtp.example.com") +;; (smtpmail-smtp-server . "smtp.example.com") +;; (smtpmail-smtp-service . 587) +;; (smtpmail-debug-info . t) +;; (smtpmail-debug-verbose . t) +;; (mu4e-maildir-shortcuts . (("/acct-1/INBOX" . ?i) +;; ("/acct-1/Sent" . ?s) +;; ("/acct-1/Trash" . ?t) +;; ("/acct-1/All Mail" . ?a) +;; ("/acct-1/Starred" . ?r) +;; ("/acct-1/drafts" . ?d) +;; )))) +;; (make-mu4e-context +;; :name "acct-2" +;; :enter-func (lambda () (mu4e-message "Entering context acct-2")) +;; :leave-func (lambda () (mu4e-message "Leaving context acct-2")) +;; :match-func (lambda (msg) +;; (when msg +;; (mu4e-message-contact-field-matches +;; msg '(:from :to :cc :bcc) "acct-2@example.com"))) +;; :vars '((user-mail-address . "acct-2@example.com") +;; (user-full-name . "acct-2") +;; (mu4e-sent-folder . "/acct-2/[Gmail].Sent Mail") +;; (mu4e-drafts-folder . "/acct-2/[Gmail].Drafts") +;; (mu4e-trash-folder . "/acct-2/[Gmail].Bin") +;; (smtpmail-smtp-user . "acct-2@example.com") +;; (smtpmail-starttls-credentials . (("smtp.gmail.com" 587 nil nil))) +;; (smtpmail-auth-credentials +;; . (expand-file-name "~/.password-store/self/acct-2.gpg")) +;; (smtpmail-default-smtp-server . "smtp.gmail.com") +;; (smtpmail-smtp-server . "smtp.gmail.com") +;; (smtpmail-smtp-service . 587) +;; (smtpmail-debug-info . t) +;; (smtpmail-debug-verbose . t) +;; (mu4e-maildir-shortcuts . (("/acct-2/INBOX" . ?i) +;; ("/acct-2/[Gmail].Sent Mail" . ?s) +;; ("/acct-2/[Gmail].Bin" . ?t) +;; ("/acct-2/[Gmail].All Mail" . ?a) +;; ("/acct-2/[Gmail].Starred" . ?r) +;; ("/acct-2/[Gmail].drafts" . ?d) +;; )))))) +;; (provide 'la-ninpre-email) + + +(setq mml-secure-openpgp-signers '("DD1F79DC24054C1F42440F2E405C2C163EF6A2C9")) + +(add-hook 'message-send-hook 'mml-secure-message-sign-pgpmime) + +;; dired + +(setq dired-listing-switches "-la --group-directories-first") + +(defun xah-syntax-color-hex () + "syntax color text of the form `#ff1100' and #abc in current buffer. +url `http://ergoemacs.org/emacs/emacs_CSS_colors.html' +version 2017-03-12" + (interactive) + (font-lock-add-keywords + nil + '(("#[[:xdigit:]]\\{3\\}" + (0 (put-text-property + (match-beginning 0) + (match-end 0) + 'face (list :background + (let* ( + (ms (match-string-no-properties 0)) + (r (substring ms 1 2)) + (g (substring ms 2 3)) + (b (substring ms 3 4))) + (concat "#" r r g g b b)))))) + ("#[[:xdigit:]]\\{6\\}" + (0 (put-text-property + (match-beginning 0) + (match-end 0) + 'face (list :background (match-string-no-properties 0))))))) + (font-lock-flush)) + +(add-hook 'emacs-lisp-mode 'xah-syntax-color-hex) +(add-hook 'css-mode-hook 'xah-syntax-color-hex) +(add-hook 'yaml-mode-hook 'xah-syntax-color-hex) +(add-hook 'html-mode-hook 'xah-syntax-color-hex) + +;; Here are some additional functions/macros that could help you configure Doom: +;; +;; - `load!' for loading external *.el files relative to this one +;; - `use-package!' for configuring packages +;; - `after!' for running code after a package has loaded +;; - `add-load-path!' for adding directories to the `load-path', relative to +;; this file. Emacs searches the `load-path' when you load packages with +;; `require' or `use-package'. +;; - `map!' for binding new keys +;; +;; To get information about any of these functions/macros, move the cursor over +;; the highlighted symbol at press 'K' (non-evil users must press 'C-c c k'). +;; This will open documentation for it, including demos of how they are used. +;; +;; You can also try 'gd' (or 'C-c c d') to jump to their definition and see how +;; they are implemented. |