byteio/nixos-config
1
0
Fork 0
mirror of https://github.com/librephoenix/nixos-config synced 2025-01-19 07:05:51 +05:30
Code Issues Packages Projects Releases Wiki Activity

Minor emacs config fixes

Browse source
This commit is contained in:
Emmet 2024-03-05 20:48:44 -06:00
parent 9e72d18661
commit f662ca1e37
2 changed files with 12 additions and 60 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
user/app/doom-emacs/config.el
View file

@ -1331,45 +1331,20 @@ https://github.com/magit/magit/issues/460 (@cpitclaudel)."
(setq message-sendmail-extra-arguments '("--read-envelope-from")) (setq message-sendmail-extra-arguments '("--read-envelope-from"))
(setq message-send-mail-function 'message-send-mail-with-sendmail) (setq message-send-mail-function 'message-send-mail-with-sendmail)
(if (file-exists-p "~/.emacs.d/mu4e-private.el") (load! "~/.emacs.d/mu4e-private.el")) (if (file-exists-p "~/.emacs.d/mu4e-private.el") (load! "~/.emacs.d/mu4e-private.el"))
;;(setq mu4e-contexts
;; `(
;; ,(my-make-mu4e-context "example1" "user@example1.com" "user@example1.com" "John Doe" "Example Company" "John Doe\nThis is my signature" "Personal.p")
;; ,(my-make-mu4e-context "example2" "user@example1.com" "user@example2.com" "Johnny" "Example Organization" "John Doe\nThis is my other signature" "Personal.p")
;; ))
;;(mu4e-context-switch t "example1")
;; https://emacs.stackexchange.com/questions/3061/how-to-stop-mu4e-from-inserting-line-breaks ;; https://emacs.stackexchange.com/questions/3061/how-to-stop-mu4e-from-inserting-line-breaks
(defun no-auto-fill () (defun no-auto-fill ()
"Turn off auto-fill-mode." "Turn off auto-fill-mode."
(auto-fill-mode -1)) (auto-fill-mode -1))
(defun no-org-msg-mode () (defun no-org-msg-mode ()
"Disable org-msg-mode since it doesn't respect multiline emails" "Disable org-msg-mode since it doesn't respect multiline emails"
(org-msg-mode 0)) (org-msg-mode 0))
(add-hook 'mu4e-compose-mode-hook #'no-auto-fill) (add-hook 'mu4e-compose-mode-hook #'no-auto-fill)
(add-hook 'mu4e-compose-pre-hook #'no-org-msg-mode) (add-hook 'mu4e-compose-pre-hook #'no-org-msg-mode)
) )
;; TODO fix my make-mu4e-context wrapper
;;(defun my-make-mu4e-context (context-name address catch-address full-name organization-name signature org-roam-db)
;; (make-mu4e-context
;; :name context-name
;; :enter-func `(lambda () ,(mu4e-message (concat "Entering " context-name " context"))
;; (org-roam-switch-db org-roam-db t)
;; ,(setq user-mail-address address)
;; ,(setq user-full-name full-name)
;; ,(setq message-user-organization organization-name)
;; ,(setq mu4e-maildir (concat "~/.mail/" address))
;; ,(setq mu4e-compose-signature signature)
;; )
;; :leave-func `(lambda () ,(mu4e-message (concat "Leaving " context-name " context")))
;; ;; we match based on the contact-fields of the message
;; :match-func `(lambda (msg)
;; (when msg
;; (mu4e-message-contact-field-matches msg
;; :to ,catch-address)))))
;;;-- Load emacs direnv;;;-- ;;;-- Load emacs direnv;;;--
(require 'direnv) (require 'direnv)
(direnv-mode) (direnv-mode)
@ -1393,7 +1368,7 @@ https://github.com/magit/magit/issues/460 (@cpitclaudel)."
;;;-- projectile wrapper commands ;;;-- ;;;-- projectile wrapper commands ;;;--
(require 'sudo-edit) (require 'sudo-edit)
(setq sudo-edit-local-method "su") (setq sudo-edit-local-method "doas")
(map! :leader (map! :leader
:desc "Open current file as root" :desc "Open current file as root"
@ -1453,6 +1428,7 @@ https://github.com/magit/magit/issues/460 (@cpitclaudel)."
(setq browse-url-chromium-program "mpv") (setq browse-url-chromium-program "mpv")
(setq browse-url-chrome-program "mpv") (setq browse-url-chrome-program "mpv")
(setq browse-url-handlers '(("youtube.com" . browse-url-chrome) (setq browse-url-handlers '(("youtube.com" . browse-url-chrome)
("youtu.be" . browse-url-chrome)
("odcyn.com" . browse-url-chrome) ("odcyn.com" . browse-url-chrome)
("odysee.com" . browse-url-chrome) ("odysee.com" . browse-url-chrome)
("tilvids.com" . browse-url-chrome))) ("tilvids.com" . browse-url-chrome)))

36
user/app/doom-emacs/doom.org
View file

@ -1554,45 +1554,20 @@ I don't have this active right now since it's kinda weird with pgtk...
(setq message-sendmail-extra-arguments '("--read-envelope-from")) (setq message-sendmail-extra-arguments '("--read-envelope-from"))
(setq message-send-mail-function 'message-send-mail-with-sendmail) (setq message-send-mail-function 'message-send-mail-with-sendmail)
(if (file-exists-p "~/.emacs.d/mu4e-private.el") (load! "~/.emacs.d/mu4e-private.el")) (if (file-exists-p "~/.emacs.d/mu4e-private.el") (load! "~/.emacs.d/mu4e-private.el"))
;;(setq mu4e-contexts
;; `(
;; ,(my-make-mu4e-context "example1" "user@example1.com" "user@example1.com" "John Doe" "Example Company" "John Doe\nThis is my signature" "Personal.p")
;; ,(my-make-mu4e-context "example2" "user@example1.com" "user@example2.com" "Johnny" "Example Organization" "John Doe\nThis is my other signature" "Personal.p")
;; ))
;;(mu4e-context-switch t "example1")
;; https://emacs.stackexchange.com/questions/3061/how-to-stop-mu4e-from-inserting-line-breaks ;; https://emacs.stackexchange.com/questions/3061/how-to-stop-mu4e-from-inserting-line-breaks
(defun no-auto-fill () (defun no-auto-fill ()
"Turn off auto-fill-mode." "Turn off auto-fill-mode."
(auto-fill-mode -1)) (auto-fill-mode -1))
(defun no-org-msg-mode () (defun no-org-msg-mode ()
"Disable org-msg-mode since it doesn't respect multiline emails" "Disable org-msg-mode since it doesn't respect multiline emails"
(org-msg-mode 0)) (org-msg-mode 0))
(add-hook 'mu4e-compose-mode-hook #'no-auto-fill) (add-hook 'mu4e-compose-mode-hook #'no-auto-fill)
(add-hook 'mu4e-compose-pre-hook #'no-org-msg-mode) (add-hook 'mu4e-compose-pre-hook #'no-org-msg-mode)
) )
;; TODO fix my make-mu4e-context wrapper
;;(defun my-make-mu4e-context (context-name address catch-address full-name organization-name signature org-roam-db)
;; (make-mu4e-context
;; :name context-name
;; :enter-func `(lambda () ,(mu4e-message (concat "Entering " context-name " context"))
;; (org-roam-switch-db org-roam-db t)
;; ,(setq user-mail-address address)
;; ,(setq user-full-name full-name)
;; ,(setq message-user-organization organization-name)
;; ,(setq mu4e-maildir (concat "~/.mail/" address))
;; ,(setq mu4e-compose-signature signature)
;; )
;; :leave-func `(lambda () ,(mu4e-message (concat "Leaving " context-name " context")))
;; ;; we match based on the contact-fields of the message
;; :match-func `(lambda (msg)
;; (when msg
;; (mu4e-message-contact-field-matches msg
;; :to ,catch-address)))))
#+END_SRC #+END_SRC
** Direnv ** Direnv
#+BEGIN_SRC emacs-lisp :tangle config.el #+BEGIN_SRC emacs-lisp :tangle config.el
@ -1624,7 +1599,7 @@ I don't have this active right now since it's kinda weird with pgtk...
#+BEGIN_SRC emacs-lisp :tangle config.el #+BEGIN_SRC emacs-lisp :tangle config.el
;;;-- projectile wrapper commands ;;;-- ;;;-- projectile wrapper commands ;;;--
(require 'sudo-edit) (require 'sudo-edit)
(setq sudo-edit-local-method "su") (setq sudo-edit-local-method "doas")
(map! :leader (map! :leader
:desc "Open current file as root" :desc "Open current file as root"
@ -1691,6 +1666,7 @@ I don't have this active right now since it's kinda weird with pgtk...
(setq browse-url-chromium-program "mpv") (setq browse-url-chromium-program "mpv")
(setq browse-url-chrome-program "mpv") (setq browse-url-chrome-program "mpv")
(setq browse-url-handlers '(("youtube.com" . browse-url-chrome) (setq browse-url-handlers '(("youtube.com" . browse-url-chrome)
("youtu.be" . browse-url-chrome)
("odcyn.com" . browse-url-chrome) ("odcyn.com" . browse-url-chrome)
("odysee.com" . browse-url-chrome) ("odysee.com" . browse-url-chrome)
("tilvids.com" . browse-url-chrome))) ("tilvids.com" . browse-url-chrome)))