fixing mu4e more betterer
This commit is contained in:
parent
24e83ba3d7
commit
ecf67be595
31
README.org
31
README.org
|
|
@ -1,5 +1,7 @@
|
|||
#+TITLE: Chris's Personal Emacs Config
|
||||
#+AUTHOR: Chris Cochrun
|
||||
From: Chris Cochrun <chris@tfcconnection.org>
|
||||
Date: Sat, 27 Apr 2024 22:36:33 -0500
|
||||
|
||||
* Table of Contents :toc:
|
||||
- [[#init][Init]]
|
||||
|
|
@ -4078,7 +4080,7 @@ Ledger mode
|
|||
(smtpmail-starttls-credentials . '(("smtp.office365.com" 587 nil nil)))
|
||||
(smtpmail-auth-credentials . '(("smtp.office365.com" 587 "chris@tfcconnection.org" nil)))
|
||||
(smtpmail-smtp-server . "smtp.office365.com")
|
||||
(mu4e-compose-signature . "Praising God in all things,\nChris Cochrun")))
|
||||
(mu4e-compose-signature . "")))
|
||||
(make-mu4e-context
|
||||
:name "personal"
|
||||
:match-func
|
||||
|
|
@ -4094,7 +4096,7 @@ Ledger mode
|
|||
(smtpmail-starttls-credentials . '(("mail.cochrun.xyz" 587 nil nil)))
|
||||
(smtpmail-auth-credentials . '(("mail.cochrun.xyz" 587 "chris@cochrun.xyz" nil)))
|
||||
(smtpmail-smtp-server . "mail.cochrun.xyz")
|
||||
(mu4e-compose-signature . "Praising God in all things,\nChris Cochrun\nchris@tfcconnection.org\nchris@cochrun.xyz")))))
|
||||
(mu4e-compose-signature . "")))))
|
||||
|
||||
;; Add the ability to send email
|
||||
(setq message-send-mail-function 'smtpmail-send-it
|
||||
|
|
@ -4160,8 +4162,8 @@ Ledger mode
|
|||
("show this thread" . mu4e-action-show-thread)))
|
||||
|
||||
(defun chris/setup-mu4e-headers ()
|
||||
(toggle-truncate-lines +1)
|
||||
(display-line-numbers-mode -1))
|
||||
(display-line-numbers-mode -1)
|
||||
(toggle-truncate-lines +1))
|
||||
|
||||
|
||||
(defun chris/setup-mu4e-view ()
|
||||
|
|
@ -4173,7 +4175,8 @@ Ledger mode
|
|||
(toggle-truncate-lines +1))
|
||||
|
||||
;; (remove-hook 'mu4e-main-mode-hook '(display-line-numbers-mode -1))
|
||||
;; (add-hook 'mu4e-headers-mode-hook #'chris/setup-mu4e-headers)
|
||||
(add-hook 'mu4e-headers-mode-hook #'chris/setup-mu4e-headers)
|
||||
(add-hook 'mu4e-headers-mode-hook #'chris/setup-mu4e-headers)
|
||||
;; (add-hook 'mu4e-view-mode-hook #'chris/setup-mu4e-view)
|
||||
|
||||
|
||||
|
|
@ -4198,20 +4201,26 @@ Let's add org-msg to write emails in org-mode
|
|||
:hook (mu4e-compose-mode . org-msg-edit-mode)
|
||||
:config
|
||||
(org-msg-mode)
|
||||
|
||||
(defun org-msg-edit-mode-mu4e ()
|
||||
"Setup mu4e faces, addresses completion and run mu4e."
|
||||
(mu4e--compose-remap-faces)
|
||||
(unless (mu4e-running-p)
|
||||
(if (fboundp #'mu4e~start) (mu4e~start) (mu4e--start)))
|
||||
(when mu4e-compose-complete-addresses
|
||||
(mu4e--compose-setup-completion)))
|
||||
|
||||
(setq mail-user-agent 'mu4e-user-agent
|
||||
org-msg-options "html-postamble:nil H:5 num:nil ^:{} toc:nil author:nil email:nil \\n:t"
|
||||
org-msg-startup "hidestars indent inlineimages"
|
||||
org-msg-greeting-fmt "\n%s\n"
|
||||
org-msg-greeting-fmt "\nHey%s\n\n"
|
||||
org-msg-recipient-names '(("chris@tfcconnection.org" . "Chris Cochrun"))
|
||||
org-msg-greeting-name-limit 3
|
||||
org-msg-default-alternatives '((new . (text html))
|
||||
(reply-to-html . (text html))
|
||||
(reply-to-text . (text)))
|
||||
org-msg-convert-citation t
|
||||
org-msg-signature "
|
||||
|
||||
#+begin_signature
|
||||
--
|
||||
org-msg-signature "#+begin_signature
|
||||
*Chris*
|
||||
/Praising God in all things!/
|
||||
#+end_signature"))
|
||||
|
|
@ -5402,3 +5411,5 @@ As of right now I haven't fully setup my early-init file, this does not export i
|
|||
;; ;; Load the heart of Doom Emacs
|
||||
;; (load (concat user-emacs-directory "core/core") nil 'nomessage)
|
||||
#+end_src
|
||||
From: Chris Cochrun <chris@tfcconnection.org>
|
||||
Date: Sat, 27 Apr 2024 22:31:11 -0500
|
||||
|
|
|
|||
27
init.el
27
init.el
|
|
@ -2929,7 +2929,7 @@ targets."
|
|||
(smtpmail-starttls-credentials . '(("smtp.office365.com" 587 nil nil)))
|
||||
(smtpmail-auth-credentials . '(("smtp.office365.com" 587 "chris@tfcconnection.org" nil)))
|
||||
(smtpmail-smtp-server . "smtp.office365.com")
|
||||
(mu4e-compose-signature . "Praising God in all things,\nChris Cochrun")))
|
||||
(mu4e-compose-signature . "")))
|
||||
(make-mu4e-context
|
||||
:name "personal"
|
||||
:match-func
|
||||
|
|
@ -2945,7 +2945,7 @@ targets."
|
|||
(smtpmail-starttls-credentials . '(("mail.cochrun.xyz" 587 nil nil)))
|
||||
(smtpmail-auth-credentials . '(("mail.cochrun.xyz" 587 "chris@cochrun.xyz" nil)))
|
||||
(smtpmail-smtp-server . "mail.cochrun.xyz")
|
||||
(mu4e-compose-signature . "Praising God in all things,\nChris Cochrun\nchris@tfcconnection.org\nchris@cochrun.xyz")))))
|
||||
(mu4e-compose-signature . "")))))
|
||||
|
||||
;; Add the ability to send email
|
||||
(setq message-send-mail-function 'smtpmail-send-it
|
||||
|
|
@ -3011,8 +3011,8 @@ targets."
|
|||
("show this thread" . mu4e-action-show-thread)))
|
||||
|
||||
(defun chris/setup-mu4e-headers ()
|
||||
(toggle-truncate-lines +1)
|
||||
(display-line-numbers-mode -1))
|
||||
(display-line-numbers-mode -1)
|
||||
(toggle-truncate-lines +1))
|
||||
|
||||
|
||||
(defun chris/setup-mu4e-view ()
|
||||
|
|
@ -3024,7 +3024,8 @@ targets."
|
|||
(toggle-truncate-lines +1))
|
||||
|
||||
;; (remove-hook 'mu4e-main-mode-hook '(display-line-numbers-mode -1))
|
||||
;; (add-hook 'mu4e-headers-mode-hook #'chris/setup-mu4e-headers)
|
||||
(add-hook 'mu4e-headers-mode-hook #'chris/setup-mu4e-headers)
|
||||
(add-hook 'mu4e-headers-mode-hook #'chris/setup-mu4e-headers)
|
||||
;; (add-hook 'mu4e-view-mode-hook #'chris/setup-mu4e-view)
|
||||
|
||||
|
||||
|
|
@ -3042,20 +3043,26 @@ targets."
|
|||
:hook (mu4e-compose-mode . org-msg-edit-mode)
|
||||
:config
|
||||
(org-msg-mode)
|
||||
|
||||
(defun org-msg-edit-mode-mu4e ()
|
||||
"Setup mu4e faces, addresses completion and run mu4e."
|
||||
(mu4e--compose-remap-faces)
|
||||
(unless (mu4e-running-p)
|
||||
(if (fboundp #'mu4e~start) (mu4e~start) (mu4e--start)))
|
||||
(when mu4e-compose-complete-addresses
|
||||
(mu4e--compose-setup-completion)))
|
||||
|
||||
(setq mail-user-agent 'mu4e-user-agent
|
||||
org-msg-options "html-postamble:nil H:5 num:nil ^:{} toc:nil author:nil email:nil \\n:t"
|
||||
org-msg-startup "hidestars indent inlineimages"
|
||||
org-msg-greeting-fmt "\n%s\n"
|
||||
org-msg-greeting-fmt "\nHey%s\n\n"
|
||||
org-msg-recipient-names '(("chris@tfcconnection.org" . "Chris Cochrun"))
|
||||
org-msg-greeting-name-limit 3
|
||||
org-msg-default-alternatives '((new . (text html))
|
||||
(reply-to-html . (text html))
|
||||
(reply-to-text . (text)))
|
||||
org-msg-convert-citation t
|
||||
org-msg-signature "
|
||||
|
||||
#+begin_signature
|
||||
--
|
||||
org-msg-signature "#+begin_signature
|
||||
*Chris*
|
||||
/Praising God in all things!/
|
||||
#+end_signature"))
|
||||
|
|
|
|||
25
lumina.el
25
lumina.el
|
|
@ -158,6 +158,31 @@
|
|||
(concat "https://api.genius.com/songs/" id
|
||||
"?access_token=R0Y0ZW50Il9LSh5su3LKfdyfmQRx41NpVvLFJ0VxMo-hQ_4H1OVg_IE0Q-UUoFQx")))))
|
||||
|
||||
(defun lumina-presentation ()
|
||||
"Creates a lumina presentation from an org document")
|
||||
|
||||
(defun lumina-add-item ()
|
||||
"add and item to the lumina presentation org buffer"
|
||||
(interactive)
|
||||
(with-current-buffer (get-buffer "*lumina*")
|
||||
(goto-char (point-max))
|
||||
(insert "
|
||||
*
|
||||
:PROPERTIES:
|
||||
:TITLE:
|
||||
:AUTHOR:
|
||||
:AUDIO:
|
||||
:VERSE_ORDER:
|
||||
:BACKGROUND:
|
||||
:BACKGROUND_TYPE:
|
||||
:HALIGN:
|
||||
:VALIGN:
|
||||
:FONT:
|
||||
:FONT_SIZE:
|
||||
:END:
|
||||
|
||||
")))
|
||||
|
||||
(cdr (elt (elt (elt (lumina-get-lyrics-genius "Death Was Arrested") 0) 3) 7))
|
||||
|
||||
(lumina-get-lyrics-genius "Death Was Arrested")
|
||||
|
|
|
|||
Loading…
Reference in a new issue