TastyPancakes
/
emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Changed how emails are sent, have to check server for dkim

This commit is contained in:
Eduardo Cueto-Mendoza 2024-04-16 13:17:25 +01:00
parent 4a8a18ce39
commit bf77adab8b
2 changed files with 77 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
Emacs.org
View File

@ -11,8 +11,8 @@ The following variables are used to tweak some of the configuration pieces for u
;; in Emacs and init.el will be generated automatically! ;; in Emacs and init.el will be generated automatically!
;; You will most likely need to adjust this font size for your system! ;; You will most likely need to adjust this font size for your system!
(defvar efs/default-font-size 200) (defvar efs/default-font-size 120)
(defvar efs/default-variable-font-size 200) (defvar efs/default-variable-font-size 120)
;; Make frame transparency overridable ;; Make frame transparency overridable
(defvar efs/frame-transparency '(90 . 90)) (defvar efs/frame-transparency '(90 . 90))
@ -61,10 +61,10 @@ Emacs has a built in package manager but it doesn't make it easy to automaticall
#+begin_src emacs-lisp #+begin_src emacs-lisp
; list the packages you want ;; list the packages you want
(setq package-list '(package use-package auto-package-update ;(setq package-list '(package use-package auto-package-update
exec-path-from-shell org-auto-tangle ; exec-path-from-shell org-auto-tangle
rtags cmake-ide)) ; rtags cmake-ide))
;; Initialize package sources ;; Initialize package sources
@ -79,10 +79,10 @@ Emacs has a built in package manager but it doesn't make it easy to automaticall
(package-refresh-contents)) (package-refresh-contents))
(package-install-selected-packages) (package-install-selected-packages)
; install the missing packages ;; install the missing packages
(dolist (package package-list) ;(dolist (package package-list)
(unless (package-installed-p package) ;(unless (package-installed-p package)
(package-install package))) ; (package-install package)))
(require 'use-package) (require 'use-package)
;; Initialize use-package on non-Linux platforms ;; Initialize use-package on non-Linux platforms
@ -228,26 +228,26 @@ I am using the [[https://github.com/tonsky/FiraCode][Fira Code]] and [[https://f
;((eq system-type 'darwin) ;((eq system-type 'darwin)
;(progn ;(progn
;( ;(
(set-face-attribute 'default nil :font "BigBlueTermPlus Nerd Font" :height efs/default-font-size) ;(set-face-attribute 'default nil :font "BigBlueTermPlus Nerd Font" :height efs/default-font-size)
;; Set the fixed pitch face ;; Set the fixed pitch face
(set-face-attribute 'fixed-pitch nil :font "BigBlueTermPlus Nerd Font" :height efs/default-font-size) ;(set-face-attribute 'fixed-pitch nil :font "BigBlueTermPlus Nerd Font" :height efs/default-font-size)
;; Set the variable pitch face ;; Set the variable pitch face
(set-face-attribute 'variable-pitch nil :font "BigBlueTermPlus Nerd Font" :height efs/default-variable-font-size :weight 'regular) ;(set-face-attribute 'variable-pitch nil :font "BigBlueTermPlus Nerd Font" :height efs/default-variable-font-size :weight 'regular)
;) ;)
;) ;)
;) ;)
;((eq system-type 'gnu/linux) ;((eq system-type 'gnu/linux)
;(progn ;(progn
;( ;(
;(set-face-attribute 'default nil :font "Comic Code" :height efs/default-font-size) (set-face-attribute 'default nil :font "Comic Code Regular" :height efs/default-font-size)
;; Set the fixed pitch face ;; Set the fixed pitch face
;(set-face-attribute 'fixed-pitch nil :font "Comic Code" :height efs/default-font-size) (set-face-attribute 'fixed-pitch nil :font "Comic Code Regular" :height efs/default-font-size)
;; Set the variable pitch face ;; Set the variable pitch face
;(set-face-attribute 'variable-pitch nil :font "Comic Code" :height efs/default-variable-font-size :weight 'regular) (set-face-attribute 'variable-pitch nil :font "Comic Code Regular" :height efs/default-variable-font-size :weight 'regular)
;) ;)
;) ;)
@ -565,7 +565,8 @@ The =efs/org-font-setup= function configures various text faces to tweak the siz
(org-level-6 . 1.1) (org-level-6 . 1.1)
(org-level-7 . 1.1) (org-level-7 . 1.1)
(org-level-8 . 1.1))) (org-level-8 . 1.1)))
(set-face-attribute (car face) nil :font "BigBlueTermPlus Nerd Font" :weight 'regular :height (cdr face))) ;(set-face-attribute (car face) nil :font "BigBlueTermPlus Nerd Font" :weight 'regular :height (cdr face)))
(set-face-attribute (car face) nil :font "Comic Code" :weight 'regular :height (cdr face)))
;; Ensure that anything that should be fixed-pitch in Org files appears that way ;; Ensure that anything that should be fixed-pitch in Org files appears that way
(set-face-attribute 'org-block nil :foreground nil :inherit 'fixed-pitch) (set-face-attribute 'org-block nil :foreground nil :inherit 'fixed-pitch)
@ -1457,8 +1458,8 @@ Dired is a built-in file manager for Emacs that does some pretty amazing things!
(use-package mu4e (use-package mu4e
:ensure nil :ensure nil
:load-path "/opt/homebrew/share/emacs/site-lisp/mu4e" ;:load-path ""
:defer 20 ; Wait until 20 seconds after startup ;:defer 20 ; Wait until 20 seconds after startup
;:defer t ;:defer t
:config :config
;; Make sure that moving a message (like to Trash) causes the ;; Make sure that moving a message (like to Trash) causes the
@ -1477,7 +1478,7 @@ Dired is a built-in file manager for Emacs that does some pretty amazing things!
(setq mu4e-drafts-folder "/Drafts") (setq mu4e-drafts-folder "/Drafts")
(setq mu4e-sent-folder "/Sent") (setq mu4e-sent-folder "/Sent")
(setq mu4e-refile-folder "/Inbox") (setq mu4e-refile-folder "/Archive")
(setq mu4e-trash-folder "/Trash") (setq mu4e-trash-folder "/Trash")
(setq mu4e-maildir-shortcuts (setq mu4e-maildir-shortcuts
@ -1503,6 +1504,25 @@ Dired is a built-in file manager for Emacs that does some pretty amazing things!
#+end_src #+end_src
** Sendmail
#+begin_src emacs-lisp
(setq smtpmail-default-smtp-server "mail.unix-talk.com") ; needs to be specified before the (require)
(require 'smtpmail)
(setq send-mail-function 'smtpmail-send-it)
(setq message-send-mail-function 'smtpmail-send-it)
(setq user-full-name "Administrator")
(setq smtpmail-local-domain "unix-talk.com")
(setq user-mail-address (concat "admin@" smtpmail-local-domain))
(setq smtpmail-smtp-server "mail.unix-talk.com"
smtpmail-smtp-service 465
smtpmail-stream-type 'ssl
smtpmail-auth-credentials "~/.authinfo.pgp")
(setq message-send-mail-function 'smtpmail-send-it)
(auth-source-pass-enable)
#+end_src
* Applications * Applications

57
init.el
View File

@ -2,8 +2,8 @@
;; in Emacs and init.el will be generated automatically! ;; in Emacs and init.el will be generated automatically!
;; You will most likely need to adjust this font size for your system! ;; You will most likely need to adjust this font size for your system!
(defvar efs/default-font-size 200) (defvar efs/default-font-size 120)
(defvar efs/default-variable-font-size 200) (defvar efs/default-variable-font-size 120)
;; Make frame transparency overridable ;; Make frame transparency overridable
(defvar efs/frame-transparency '(90 . 90)) (defvar efs/frame-transparency '(90 . 90))
@ -26,10 +26,10 @@
(add-hook 'emacs-startup-hook #'efs/display-startup-time) (add-hook 'emacs-startup-hook #'efs/display-startup-time)
; list the packages you want ;; list the packages you want
(setq package-list '(package use-package auto-package-update ;(setq package-list '(package use-package auto-package-update
exec-path-from-shell org-auto-tangle ; exec-path-from-shell org-auto-tangle
rtags cmake-ide)) ; rtags cmake-ide))
;; Initialize package sources ;; Initialize package sources
@ -44,10 +44,10 @@
(package-refresh-contents)) (package-refresh-contents))
(package-install-selected-packages) (package-install-selected-packages)
; install the missing packages ;; install the missing packages
(dolist (package package-list) ;(dolist (package package-list)
(unless (package-installed-p package) ;(unless (package-installed-p package)
(package-install package))) ; (package-install package)))
(require 'use-package) (require 'use-package)
;; Initialize use-package on non-Linux platforms ;; Initialize use-package on non-Linux platforms
@ -149,26 +149,26 @@
;((eq system-type 'darwin) ;((eq system-type 'darwin)
;(progn ;(progn
;( ;(
(set-face-attribute 'default nil :font "BigBlueTermPlus Nerd Font" :height efs/default-font-size) ;(set-face-attribute 'default nil :font "BigBlueTermPlus Nerd Font" :height efs/default-font-size)
;; Set the fixed pitch face ;; Set the fixed pitch face
(set-face-attribute 'fixed-pitch nil :font "BigBlueTermPlus Nerd Font" :height efs/default-font-size) ;(set-face-attribute 'fixed-pitch nil :font "BigBlueTermPlus Nerd Font" :height efs/default-font-size)
;; Set the variable pitch face ;; Set the variable pitch face
(set-face-attribute 'variable-pitch nil :font "BigBlueTermPlus Nerd Font" :height efs/default-variable-font-size :weight 'regular) ;(set-face-attribute 'variable-pitch nil :font "BigBlueTermPlus Nerd Font" :height efs/default-variable-font-size :weight 'regular)
;) ;)
;) ;)
;) ;)
;((eq system-type 'gnu/linux) ;((eq system-type 'gnu/linux)
;(progn ;(progn
;( ;(
;(set-face-attribute 'default nil :font "Comic Code" :height efs/default-font-size) (set-face-attribute 'default nil :font "Comic Code Regular" :height efs/default-font-size)
;; Set the fixed pitch face ;; Set the fixed pitch face
;(set-face-attribute 'fixed-pitch nil :font "Comic Code" :height efs/default-font-size) (set-face-attribute 'fixed-pitch nil :font "Comic Code Regular" :height efs/default-font-size)
;; Set the variable pitch face ;; Set the variable pitch face
;(set-face-attribute 'variable-pitch nil :font "Comic Code" :height efs/default-variable-font-size :weight 'regular) (set-face-attribute 'variable-pitch nil :font "Comic Code Regular" :height efs/default-variable-font-size :weight 'regular)
;) ;)
;) ;)
@ -363,7 +363,8 @@
(org-level-6 . 1.1) (org-level-6 . 1.1)
(org-level-7 . 1.1) (org-level-7 . 1.1)
(org-level-8 . 1.1))) (org-level-8 . 1.1)))
(set-face-attribute (car face) nil :font "BigBlueTermPlus Nerd Font" :weight 'regular :height (cdr face))) ;(set-face-attribute (car face) nil :font "BigBlueTermPlus Nerd Font" :weight 'regular :height (cdr face)))
(set-face-attribute (car face) nil :font "Comic Code" :weight 'regular :height (cdr face)))
;; Ensure that anything that should be fixed-pitch in Org files appears that way ;; Ensure that anything that should be fixed-pitch in Org files appears that way
(set-face-attribute 'org-block nil :foreground nil :inherit 'fixed-pitch) (set-face-attribute 'org-block nil :foreground nil :inherit 'fixed-pitch)
@ -851,8 +852,8 @@
(use-package mu4e (use-package mu4e
:ensure nil :ensure nil
:load-path "/opt/homebrew/share/emacs/site-lisp/mu4e" ;:load-path ""
:defer 20 ; Wait until 20 seconds after startup ;:defer 20 ; Wait until 20 seconds after startup
;:defer t ;:defer t
:config :config
;; Make sure that moving a message (like to Trash) causes the ;; Make sure that moving a message (like to Trash) causes the
@ -871,7 +872,7 @@
(setq mu4e-drafts-folder "/Drafts") (setq mu4e-drafts-folder "/Drafts")
(setq mu4e-sent-folder "/Sent") (setq mu4e-sent-folder "/Sent")
(setq mu4e-refile-folder "/Inbox") (setq mu4e-refile-folder "/Archive")
(setq mu4e-trash-folder "/Trash") (setq mu4e-trash-folder "/Trash")
(setq mu4e-maildir-shortcuts (setq mu4e-maildir-shortcuts
@ -895,5 +896,21 @@
(mu4e t) (mu4e t)
) )
(setq smtpmail-default-smtp-server "mail.unix-talk.com") ; needs to be specified before the (require)
(require 'smtpmail)
(setq send-mail-function 'smtpmail-send-it)
(setq message-send-mail-function 'smtpmail-send-it)
(setq user-full-name "Administrator")
(setq smtpmail-local-domain "unix-talk.com")
(setq user-mail-address (concat "admin@" smtpmail-local-domain))
(setq smtpmail-smtp-server "mail.unix-talk.com"
smtpmail-smtp-service 465
smtpmail-stream-type 'ssl
smtpmail-auth-credentials "~/.authinfo.pgp")
(setq message-send-mail-function 'smtpmail-send-it)
(auth-source-pass-enable)
;; Make gc pauses faster by decreasing the threshold. ;; Make gc pauses faster by decreasing the threshold.
(setq gc-cons-threshold (* 2 1000 1000)) (setq gc-cons-threshold (* 2 1000 1000))