mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
tvl-depot/users/grfn/emacs.d/email.el

54 lines
2.3 KiB
EmacsLisp
Raw Normal View History

refactor(users/glittershark): Rename to grfn Rename my //users directory and all places that refer to glittershark to grfn, including nix references and documentation. This may require some extra attention inside of gerrit's database after it lands to allow me to actually push things. Change-Id: I4728b7ec2c60024392c1c1fa6e0d4a59b3e266fa Reviewed-on: https://cl.tvl.fyi/c/depot/+/2933 Tested-by: BuildkiteCI Reviewed-by: tazjin <mail@tazj.in> Reviewed-by: lukegb <lukegb@tvl.fyi> Reviewed-by: glittershark <grfn@gws.fyi>
2021-04-11 23:53:27 +02:00
;;; -*- lexical-binding: t; -*-
refactor(gs/emacs): Break email config into its own file Change-Id: I90327cbd2d8a735cdedae7f7b5412959cf710aef Reviewed-on: https://cl.tvl.fyi/c/depot/+/938 Tested-by: BuildkiteCI Reviewed-by: glittershark <grfn@gws.fyi>
2020-07-06 17:08:03 +02:00
(after! notmuch
(setq notmuch-saved-searches
'((:name "inbox" :query "tag:inbox tag:important not tag:trash" :key "i")
(:name "flagged" :query "tag:flagged" :key "f")
(:name "sent" :query "tag:sent" :key "s")
(:name "drafts" :query "tag:draft" :key "d")
(:name "work" :query "tag:inbox and tag:important and path:work/**"
:key "w")
(:name "personal" :query "tag:inbox and tag:important and path:personal/**"
:key "p"))
fix(gs/emacs): Pass --read-envelope-from to sendmail Change-Id: I8e4c0171336cad3ed817956b07b371aba706ab9f Reviewed-on: https://cl.tvl.fyi/c/depot/+/3248 Reviewed-by: grfn <grfn@gws.fyi> Tested-by: BuildkiteCI
2021-07-15 14:59:56 +02:00
message-send-mail-function 'message-send-mail-with-sendmail
message-sendmail-f-is-evil 't
message-sendmail-envelope-from 'header
message-sendmail-extra-arguments '("--read-envelope-from"))
refactor(gs/emacs): Break email config into its own file Change-Id: I90327cbd2d8a735cdedae7f7b5412959cf710aef Reviewed-on: https://cl.tvl.fyi/c/depot/+/938 Tested-by: BuildkiteCI Reviewed-by: glittershark <grfn@gws.fyi>
2020-07-06 17:08:03 +02:00
(add-hook! notmuch-message-mode-hook #'notmuch-company-setup))
fix(gs/emacs): Set notmuch saved searches at the top-level For some reason having these in a with-eval-after-load isn't working, so let's try this out. Change-Id: Ia419962626c7bd26776ed6fde977698998a18155 Reviewed-on: https://cl.tvl.fyi/c/depot/+/1998 Reviewed-by: glittershark <grfn@gws.fyi> Tested-by: BuildkiteCI
2020-09-23 17:12:33 +02:00
(setq notmuch-saved-searches
'((:name "inbox" :query "tag:inbox tag:important not tag:trash" :key "i")
(:name "flagged" :query "tag:flagged" :key "f")
(:name "sent" :query "tag:sent" :key "s")
(:name "drafts" :query "tag:draft" :key "d")
(:name "work" :query "tag:inbox and tag:important and path:work/**"
:key "w")
(:name "personal" :query "tag:inbox and tag:important and path:personal/**"
:key "p"))
fix(gs/emacs): Pass --read-envelope-from to sendmail Change-Id: I8e4c0171336cad3ed817956b07b371aba706ab9f Reviewed-on: https://cl.tvl.fyi/c/depot/+/3248 Reviewed-by: grfn <grfn@gws.fyi> Tested-by: BuildkiteCI
2021-07-15 14:59:56 +02:00
message-send-mail-function 'message-send-mail-with-sendmail
message-sendmail-f-is-evil 't
message-sendmail-envelope-from 'header
message-sendmail-extra-arguments '("--read-envelope-from"))
feat(grfn/emacs): Configure notmuch popup window rules I want notmuch to open in a full window, not as a bottom-of-the-screen popup. Change-Id: If539ff315fabae94d5a849c526c4322f9bdf8c61 Reviewed-on: https://cl.tvl.fyi/c/depot/+/3024 Reviewed-by: grfn <grfn@gws.fyi> Tested-by: BuildkiteCI
2021-04-16 16:51:14 +02:00
(set-popup-rule! "^\\*notmuch-saved-search-"
:ignore t)
(set-popup-rule! (lambda (_ action)
(eq (car action)
'display-buffer-same-window))
:ignore t)
feat(grfn/home): Add binding for extracting patch from email Change-Id: Id568f8b479cebe547e1ad8a309ccfa395bf99b83 Reviewed-on: https://cl.tvl.fyi/c/depot/+/5935 Tested-by: BuildkiteCI Reviewed-by: grfn <grfn@gws.fyi> Autosubmit: grfn <grfn@gws.fyi>
2022-06-14 16:15:53 +02:00
(defun apply-thread-patchset (repo branch)
(interactive "Dgit repo: \nsnew branch name: ")
(let ((tid notmuch-show-thread-id)
(tmp "/tmp/notmuch-patchset"))
(shell-command (format "notmuch-extract-patch %s > %s && ( cd %s && git checkout -b %s && git am %s )"
(shell-quote-argument tid)
(shell-quote-argument tmp)
(shell-quote-argument (expand-file-name repo))
(shell-quote-argument branch)
(shell-quote-argument tmp)))))
Reference in a new issue Copy permalink