cspark
/
Emacs-Configuration-Modern
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Compare commits

base: cspark:98aba64caa326f07b7bf327e196fde2649175749
Branches Tags
cspark:main
..
compare: cspark:08ca7c8516158fa0d408050de985c0c25e9959d8
Branches Tags
cspark:main

No commits in common. "98aba64caa326f07b7bf327e196fde2649175749" and "08ca7c8516158fa0d408050de985c0c25e9959d8" have entirely different histories.
98aba64caa ... 08ca7c8516

1 changed files with 24 additions and 73 deletions
Show Stats Expand all files Collapse all files

95
init.el
View File

@ -123,7 +123,6 @@
(elpaca-use-package-mode)) (elpaca-use-package-mode))
(elpaca-wait) (elpaca-wait)
;; Optimisation ;; Optimisation
; GCMH ; GCMH
;Enforce a sneaky Garbage Collection strategy to minimize GC interference with user activity. ;Enforce a sneaky Garbage Collection strategy to minimize GC interference with user activity.
@ -161,7 +160,6 @@
(lambda () (lambda ()
(setq jit-lock-defer-time 0)) nil t)) (setq jit-lock-defer-time 0)) nil t))
;; TRAMP ;; TRAMP
;TRAMP edit files over SSH configuration ;TRAMP edit files over SSH configuration
(use-package tramp (use-package tramp
@ -182,6 +180,7 @@
(when (eq window-system 'w32) (when (eq window-system 'w32)
(setq tramp-default-method "plink"))) (setq tramp-default-method "plink")))
; Tramp RPC - Alternate backend promising more speed ; Tramp RPC - Alternate backend promising more speed
(use-package tramp-rpc (use-package tramp-rpc
:ensure (:host github :repo "ArthurHeymans/emacs-tramp-rpc") :ensure (:host github :repo "ArthurHeymans/emacs-tramp-rpc")
@ -190,7 +189,6 @@
(setq tramp-rpc-deploy-local-cache-directory (setq tramp-rpc-deploy-local-cache-directory
"~/.cache/emacs/tramp-rpc-binaries")) "~/.cache/emacs/tramp-rpc-binaries"))
;; Org Mode Config ;; Org Mode Config
;Agenda ;Agenda
;For Org-Agenda, you can set a location of your Org Agenda file here. Set Agenda Directory: ;For Org-Agenda, you can set a location of your Org Agenda file here. Set Agenda Directory:
@ -219,6 +217,7 @@
(setq org-startup-folded t)) (setq org-startup-folded t))
; For Org Pomodoro notification sound ; For Org Pomodoro notification sound
(use-package sound-wav (use-package sound-wav
:ensure t) :ensure t)
@ -261,6 +260,7 @@
(plist-get info :message))))) (plist-get info :message)))))
(setq alert-default-style 'custom-org-alert-notification)) (setq alert-default-style 'custom-org-alert-notification))
; System notifications of org agenda items ; System notifications of org agenda items
(use-package org-wild-notifier (use-package org-wild-notifier
:ensure t :ensure t
@ -281,6 +281,7 @@
(setq org-wild-notifier-extra-alert-plist '(:persistent t)) (setq org-wild-notifier-extra-alert-plist '(:persistent t))
(org-wild-notifier-mode)) (org-wild-notifier-mode))
; Upcoming agenda items in modeline ; Upcoming agenda items in modeline
(use-package org-upcoming-modeline (use-package org-upcoming-modeline
:ensure t :ensure t
@ -288,6 +289,7 @@
:config :config
(org-upcoming-modeline-mode)) (org-upcoming-modeline-mode))
; Org Mode Journalling ; Org Mode Journalling
(use-package org-journal (use-package org-journal
:ensure t :ensure t
@ -297,6 +299,7 @@
(setq org-journal-file-type 'daily) (setq org-journal-file-type 'daily)
(setq org-journal-file-format "%Y%m%d.org")) (setq org-journal-file-format "%Y%m%d.org"))
;; Org Latex Preview Scale ;; Org Latex Preview Scale
; Automatically toggle Org mode LaTeX fragment previews as the cursor enters and exits them ; Automatically toggle Org mode LaTeX fragment previews as the cursor enters and exits them
(use-package org-fragtog (use-package org-fragtog
@ -328,6 +331,7 @@
'(read-only t cursor-intangible t face minibuffer-prompt))) '(read-only t cursor-intangible t face minibuffer-prompt)))
;; Doom Theme ;; Doom Theme
(use-package doom-themes (use-package doom-themes
:ensure t :ensure t
@ -375,8 +379,7 @@
:config :config
(define-key global-map [remap isearch-forward] 'consult-ripgrep) (define-key global-map [remap isearch-forward] 'consult-ripgrep)
(define-key global-map [remap switch-to-buffer] 'consult-buffer) (define-key global-map [remap switch-to-buffer] 'consult-buffer)
(define-key global-map [remap set-fill-column] 'consult-fd) (define-key global-map [remap set-fill-column] 'consult-fd))
(define-key global-map [remap eshell-previous-matching-input] 'consult-history))
;; Persist history over Emacs restarts. Vertico sorts by history position. ;; Persist history over Emacs restarts. Vertico sorts by history position.
@ -496,17 +499,10 @@
:ensure t :ensure t
:after transient) :after transient)
;; Auth Source Pass - Use pass for authentication with mail
(use-package auth-source-pass
:ensure nil
:init
(auth-source-pass-enable))
;; Mu4e Mail Config ;; Mu4e Mail Config
(if (executable-find "mu") (if (executable-find "mu")
(use-package mu4e (use-package mu4e
:ensure nil :ensure nil
:after auth-source-pass
:config :config
(setq mu4e-mu-binary (executable-find "mu")) (setq mu4e-mu-binary (executable-find "mu"))
@ -525,10 +521,7 @@
(setq mu4e-compose-format-flowed t) (setq mu4e-compose-format-flowed t)
;; Use completing read AKA vertico ;; Use completing read AKA vertico
(setq mu4e-completing-read-function #'completing-read) (setq mu4e-completing-read-function 'completing-read)
;; Immediately send SMTP with credentials
(setq smtpmail-servers-requiring-authorization "*")
(setq mu4e-contexts (setq mu4e-contexts
(list (list
@ -541,10 +534,9 @@
(string-prefix-p "/work-cspark" (mu4e-message-field msg :maildir)))) (string-prefix-p "/work-cspark" (mu4e-message-field msg :maildir))))
:vars '((user-mail-address . "work@cspark.dev") :vars '((user-mail-address . "work@cspark.dev")
(user-full-name . "Curt Spark (Work)") (user-full-name . "Curt Spark (Work)")
(smtpmail-smtp-server . "mail.cspark.dev") (smtpmail-smtp-server . "smtp.cspark.dev")
(smtpmail-smtp-user . "work@cspark.dev") (smtpmail-smtp-service . 465)
(smtpmail-smtp-service . 587) (smtpmail-stream-type . ssl)
(smtpmail-stream-type . starttls)
(mu4e-compose-signature . "- Curt") (mu4e-compose-signature . "- Curt")
(mu4e-inbox-folder . "/work-cspark/Inbox") (mu4e-inbox-folder . "/work-cspark/Inbox")
(mu4e-drafts-folder . "/work-cspark/Drafts") (mu4e-drafts-folder . "/work-cspark/Drafts")
@ -560,10 +552,9 @@
(string-prefix-p "/services-cspark" (mu4e-message-field msg :maildir)))) (string-prefix-p "/services-cspark" (mu4e-message-field msg :maildir))))
:vars '((user-mail-address . "services@cspark.dev") :vars '((user-mail-address . "services@cspark.dev")
(user-full-name . "Curt Spark (services)") (user-full-name . "Curt Spark (services)")
(smtpmail-smtp-server . "mail.cspark.dev") (smtpmail-smtp-server . "smtp.cspark.dev")
(smtpmail-smtp-user . "services@cspark.dev") (smtpmail-smtp-service . 465)
(smtpmail-smtp-service . 587) (smtpmail-stream-type . ssl)
(smtpmail-stream-type . starttls)
(mu4e-compose-signature . "- Curt") (mu4e-compose-signature . "- Curt")
(mu4e-inbox-folder . "/services-cspark/Inbox") (mu4e-inbox-folder . "/services-cspark/Inbox")
(mu4e-drafts-folder . "/services-cspark/Drafts") (mu4e-drafts-folder . "/services-cspark/Drafts")
@ -579,72 +570,32 @@
(string-prefix-p "/personal-cspark" (mu4e-message-field msg :maildir)))) (string-prefix-p "/personal-cspark" (mu4e-message-field msg :maildir))))
:vars '((user-mail-address . "personal@cspark.dev") :vars '((user-mail-address . "personal@cspark.dev")
(user-full-name . "Curt Spark (personal)") (user-full-name . "Curt Spark (personal)")
(smtpmail-smtp-server . "mail.cspark.dev") (smtpmail-smtp-server . "smtp.cspark.dev")
(smtpmail-smtp-user . "personal@cspark.dev") (smtpmail-smtp-service . 465)
(smtpmail-smtp-service . 587) (smtpmail-stream-type . ssl)
(smtpmail-stream-type . starttls)
(mu4e-compose-signature . "- Curt") (mu4e-compose-signature . "- Curt")
(mu4e-inbox-folder . "/personal-cspark/Inbox") (mu4e-inbox-folder . "/personal-cspark/Inbox")
(mu4e-drafts-folder . "/personal-cspark/Drafts") (mu4e-drafts-folder . "/personal-cspark/Drafts")
(mu4e-sent-folder . "/personal-cspark/Sent Mail") (mu4e-sent-folder . "/personal-cspark/Sent Mail")
(mu4e-trash-folder . "/personal-cspark/Trash"))) (mu4e-trash-folder . "/personal-cspark/Trash")))
;; Alerts account
(make-mu4e-context
:name "D CSpark Alerts"
:match-func
(lambda (msg)
(when msg
(string-prefix-p "/alerts-cspark" (mu4e-message-field msg :maildir))))
:vars '((user-mail-address . "alerts@cspark.dev")
(user-full-name . "Curt Spark (alerts)")
(smtpmail-smtp-server . "mail.cspark.dev")
(smtpmail-smtp-user . "alerts@cspark.dev")
(smtpmail-smtp-service . 587)
(smtpmail-stream-type . starttls)
(mu4e-compose-signature . "- Curt")
(mu4e-inbox-folder . "/alerts-cspark/Inbox")
(mu4e-drafts-folder . "/alerts-cspark/Drafts")
(mu4e-sent-folder . "/alerts-cspark/Sent Mail")
(mu4e-trash-folder . "/alerts-cspark/Trash")))
;; Tuxtank Services account ;; Tuxtank Services account
(make-mu4e-context (make-mu4e-context
:name "E Tuxtank Services" :name "D Tuxtank Services"
:match-func :match-func
(lambda (msg) (lambda (msg)
(when msg (when msg
(string-prefix-p "/personal-tuxtank" (mu4e-message-field msg :maildir)))) (string-prefix-p "/personal-tuxtank" (mu4e-message-field msg :maildir))))
:vars '((user-mail-address . "personal@tuxtank.dev") :vars '((user-mail-address . "personal@tuxtank.dev")
(user-full-name . "Tuxtank (personal)") (user-full-name . "Tuxtank (personal)")
(smtpmail-smtp-server . "mail.tuxtank.dev") (smtpmail-smtp-server . "smtp.tuxtank.dev")
(smtpmail-smtp-user . "personal@tuxtank.dev") (smtpmail-smtp-service . 465)
(smtpmail-smtp-service . 587) (smtpmail-stream-type . ssl)
(smtpmail-stream-type . starttls)
(mu4e-compose-signature . "- Tuxtank") (mu4e-compose-signature . "- Tuxtank")
(mu4e-inbox-folder . "/personal-tuxtank/Inbox") (mu4e-inbox-folder . "/personal-tuxtank/Inbox")
(mu4e-drafts-folder . "/personal-tuxtank/Drafts") (mu4e-drafts-folder . "/personal-tuxtank/Drafts")
(mu4e-sent-folder . "/personal-tuxtank/Sent Mail") (mu4e-sent-folder . "/personal-tuxtank/Sent Mail")
(mu4e-trash-folder . "/personal-tuxtank/Trash"))) (mu4e-trash-folder . "/personal-tuxtank/Trash")))))))
;; Tuxtank Alerts account
(make-mu4e-context
:name "F Tuxtank Alerts"
:match-func
(lambda (msg)
(when msg
(string-prefix-p "/alerts-tuxtank" (mu4e-message-field msg :maildir))))
:vars '((user-mail-address . "alerts@tuxtank.dev")
(user-full-name . "Tuxtank (alerts)")
(smtpmail-smtp-server . "mail.tuxtank.dev")
(smtpmail-smtp-user . "alerts@tuxtank.dev")
(smtpmail-smtp-service . 587)
(smtpmail-stream-type . starttls)
(mu4e-compose-signature . "- Tuxtank")
(mu4e-inbox-folder . "/alerts-tuxtank/Inbox")
(mu4e-drafts-folder . "/alerts-tuxtank/Drafts")
(mu4e-sent-folder . "/alerts-tuxtank/Sent Mail")
(mu4e-trash-folder . "/alerts-tuxtank/Trash")))))))
;(setq mu4e-maildir-shortcuts ;(setq mu4e-maildir-shortcuts