chvp/nixos-config
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Emacs changes

Browse source
This commit is contained in:
Charlotte Van Petegem 2021-05-01 00:25:26 +02:00
parent 6c664e8216
commit db36d40d1a
No known key found for this signature in database
GPG key ID: 019E764B7184435A
2 changed files with 38 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

13
modules/emacs.nix
View file

@ -21,6 +21,19 @@ in
}; };
config = lib.mkIf config.chvp.emacs.enable { config = lib.mkIf config.chvp.emacs.enable {
nixpkgs.overlays = [
(self: super: {
mu = super.mu.overrideAttrs (old: {
version = "1.5.12";
src = self.fetchFromGitHub {
owner = "djcb";
repo = "mu";
rev = "c5219778af65dc868eea91c910c801e5105d5cd7";
sha256 = "1z6l02bdsh4z2yv3dbixrs0fvyp2axx62dnmqwyampjn5xs5l2yf";
};
});
})
];
chvp = { chvp = {
emacs.package = emacsPkg; emacs.package = emacsPkg;
zfs.homeLinks = [ zfs.homeLinks = [

44
modules/emacs/init.el
View file

@ -186,6 +186,13 @@
:ensure nil :ensure nil
:demand t :demand t
:after (selectrum) :after (selectrum)
:hook
((message-mode . (lambda ()
(auto-fill-mode)
(setq-local fill-column 72)
(setq-local fill-flowed-encode-column 72)))
(mu4e-view-mode . display-line-numbers-mode)
)
:custom :custom
(mu4e-change-filenames-when-moving t "Avoid sync issues with mbsync") (mu4e-change-filenames-when-moving t "Avoid sync issues with mbsync")
(mu4e-maildir "/home/charlotte/mail" "Root of the maildir hierarchy") (mu4e-maildir "/home/charlotte/mail" "Root of the maildir hierarchy")
@ -198,6 +205,9 @@
(mu4e-headers-include-related nil "Don't show related messages by default") (mu4e-headers-include-related nil "Don't show related messages by default")
(mu4e-headers-skip-duplicates nil "Show duplicate emails") (mu4e-headers-skip-duplicates nil "Show duplicate emails")
(message-kill-buffer-on-exit t "Close buffer when finished with email") (message-kill-buffer-on-exit t "Close buffer when finished with email")
(mm-verify-option 'known "Always verify PGP signatures (known protocols)")
(mm-discouraged-alternatives '("text/html" "text/richtext") "Discourage showing HTML views")
(gnus-buttonized-mime-types '("multipart/signed") "Make sure signature verification is always shown")
(sendmail-program "msmtp" "Use msmtp to send email") (sendmail-program "msmtp" "Use msmtp to send email")
(message-sendmail-f-is-evil t "Remove username from the emacs message") (message-sendmail-f-is-evil t "Remove username from the emacs message")
(message-send-mail-function 'message-send-mail-with-sendmail "Use sendmail to send mail instead internal smtp") (message-send-mail-function 'message-send-mail-with-sendmail "Use sendmail to send mail instead internal smtp")
@ -321,13 +331,12 @@
"\n" "\n"
_ _
"\n" "\n"
"Ik heb je account lesgeversrechten gegeven. Je kan nu cursussen aanmaken\n" "Recent introduceerden we een formulier op Dodona waarin je"
"en oefeningen toevoegen aan het platform. Een handleiding over hoe van\n" "rechtstreeks lesgeversrechten kan aanvragen. Dat kan je vinden op"
"start te gaan met Dodona kan je hier vinden:\n" "https://dodona.ugent.be/rights_requests/new/. Als je dat formulier"
"https://dodona-edu.github.io/nl/guides/teachers/getting-started/.\n" "gebruikt is het voor ons een stuk minder werk om je die rechten te"
"\n" "geven. Hierbij zou ik je dus toch willen vragen van deze rechten via"
"Als je nog verdere vragen hebt mag je ons altijd via dodona@ugent.be\n" "dat formulier aan te vragen.\n"
"contacteren.\n"
"\n" "\n"
"Met vriendelijke groeten,\n" "Met vriendelijke groeten,\n"
"Charlotte Van Petegem" "Charlotte Van Petegem"
@ -337,15 +346,12 @@
(interactive) (interactive)
(save-excursion (message-add-header "Cc: dodona@ugent.be\nReply-To: dodona@ugent.be\n")) (save-excursion (message-add-header "Cc: dodona@ugent.be\nReply-To: dodona@ugent.be\n"))
) )
(add-hook (defun mail/auto-dodona-cc-reply-to ()
'mu4e-compose-mode-hook "Set dodona@ugent.be in CC and Reply-To headers when message was directed to dodona@ugent.be"
(defun mail/auto-dodona-cc-reply-to () (let ((msg mu4e-compose-parent-message))
"Set dodona@ugent.be in CC and Reply-To headers when message was directed to dodona@ugent.be" (when (and msg (mu4e-message-contact-field-matches msg :to "dodona@ugent.be")) (mail/dodona-cc-reply-to))
(let ((msg mu4e-compose-parent-message)) )
(when (and msg (mu4e-message-contact-field-matches msg :to "dodona@ugent.be")) (mail/dodona-cc-reply-to)) )
)
)
)
:general :general
(lmap "m" '(mu4e :which-key "mail")) (lmap "m" '(mu4e :which-key "mail"))
;; Unmap SPC in the mail view so we can still use the leader. ;; Unmap SPC in the mail view so we can still use the leader.
@ -428,7 +434,7 @@
:config (selectrum-prescient-mode 1)) :config (selectrum-prescient-mode 1))
;; TypeScript language support ;; TypeScript language support
(use-package tide (use-package typescript-mode
:mode "\\.ts'") :mode "\\.ts'")
;; HTML (and HTML template) support ;; HTML (and HTML template) support
@ -454,8 +460,8 @@
;; major modes. ;; major modes.
(electric-pair-mode) (electric-pair-mode)
;; Always display line numbers ;; Always display line numbers for text-based modes
(global-display-line-numbers-mode) (add-hook 'text-mode-hook 'display-line-numbers-mode)
;; Don't show default startup screen ;; Don't show default startup screen
(setq inhibit-startup-screen t) (setq inhibit-startup-screen t)