diff --git a/README.org b/README.org index 9988a035..ab43e389 100644 --- a/README.org +++ b/README.org @@ -1,5 +1,7 @@ #+TITLE: Chris's Personal Emacs Config #+AUTHOR: Chris Cochrun +From: Chris Cochrun +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 +Date: Sat, 27 Apr 2024 22:31:11 -0500 diff --git a/init.el b/init.el index 6821f7d5..374fb949 100644 --- a/init.el +++ b/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")) diff --git a/lumina.el b/lumina.el index 6642428a..98b7a9e8 100644 --- a/lumina.el +++ b/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")