From 2de21b5dac6090a5c65acce88c85e648fa78ee8d Mon Sep 17 00:00:00 2001 From: Marc Coquand Date: Sun, 22 Dec 2024 11:06:54 +0100 Subject: Remove rmail and corfu --- home/dots/.emacs | 144 +------------------------------------------------------ 1 file changed, 1 insertion(+), 143 deletions(-) (limited to 'home/dots/.emacs') diff --git a/home/dots/.emacs b/home/dots/.emacs index be5dfed..0fadb4e 100644 --- a/home/dots/.emacs +++ b/home/dots/.emacs @@ -269,26 +269,6 @@ (geiser-mode . (lambda () (keymap-set geiser-mode-map "C-." nil)))) -;; (use-package corfu -;; :defer t -;; ;; Optional customizations -;; :custom -;; (corfu-cycle t) ;; Enable cycling for `corfu-next/previous' -;; ;; (corfu-auto t) ;; Enable auto completion -;; ;; (corfu-quit-at-boundary nil) ;; Never quit at completion boundary -;; (corfu-quit-no-match t) ;; Never quit, even if there is no match -;; (corfu-preview-current t) ;; Disable current candidate preview -;; (corfu-preselect 'prompt) ;; Preselect the prompt -;; (corfu-quit-no-match t) -;; (corfu-on-exact-match 'show) ;; Configure handling of exact matches -;; -;; ;; Recommended: Enable Corfu globally. This is recommended since Dabbrev can -;; ;; be used globally (M-/). See also the customization variable -;; ;; `global-corfu-modes' to exclude certain modes. -;; :init -;; (global-corfu-mode) -;; (corfu-popupinfo-mode)) - (use-package dabbrev ;; Swap M-/ and C-M-/ :bind (("M-/" . dabbrev-completion) @@ -389,7 +369,7 @@ (use-package notmuch :bind - (("C-c m " . notmuch-jump-search)) + (("C-c m" . notmuch-jump-search)) :custom ((notmuch-show-logo nil))) @@ -1436,128 +1416,6 @@ Index includes links and headings." :custom (sendmail-program (executable-find "msmtp"))) -;; (use-package rmail -;; :init -;; (defvar selected-rmail-account "home") -;; (defun rmail-reply-t () -;; "Reply only to the sender of the current message. (See rmail-reply.)" -;; (interactive) -;; (rmail-reply t)) -;; -;; (defmacro without-yes-or-no (&rest body) -;; "Override `yes-or-no-p' & `y-or-n-p', not to prompt for input and return t." -;; (declare (indent 1)) -;; `(cl-letf (((symbol-function 'yes-or-no-p) (lambda (&rest _) t)) -;; ((symbol-function 'y-or-n-p) (lambda (&rest _) t))) -;; ,@body)) -;; -;; ;; Copied from the pipe of mu4e -;; (defun rmail-process-file-through-pipe (path pipecmd) -;; "Process file at PATH through a pipe with PIPECMD." -;; (let ((buf (get-buffer-create "*rmail-output"))) -;; (with-current-buffer buf -;; (let ((inhibit-read-only t)) -;; (erase-buffer) -;; (call-process-shell-command pipecmd path t t) -;; (view-mode))) -;; (display-buffer buf))) -;; -;; (defun rmail-pipe-email (cmd) -;; (interactive "sShell command: ") -;; (let ((path -;; (concat "/tmp/rmail-pipe-msg-" -;; (number-to-string (time-convert (current-time) 'integer)) -;; ".mbox"))) -;; (without-yes-or-no -;; (rmail-output-as-seen path nil t) -;; (rmail-process-file-through-pipe path cmd)))) -;; :hook -;; ((rmail-mode . variable-pitch-mode) -;; (rmail-quit . rmail-expunge-and-save)) -;; :bind -;; (("C-c m" . rmail-open) -;; ("C-c M" . rmail-open-no-check) -;; :map rmail-mode-map -;; ("r" . rmail-reply-t) -;; ("R" . rmail-reply) -;; ("|" . rmail-pipe-email)) -;; :config -;; (defun rmail-no-check () -;; (interactive) -;; (rmail-input rmail-file-name)) -;; -;; (defun mail-work () -;; (interactive) -;; (setq -;; rmail-primary-inbox-list (list (concat "imaps://" "marc.coquand%40piva.earth" ":" piva-password "@imap.gmail.com:993")) -;; rmail-default-file "~/personal-db/mail/work/RMAIL" -;; rmail-file-name "~/personal-db/mail/work/RMAIL" -;; user-mail-address "marc.coquand@piva.earth" -;; unrmail-mbox-format 'mboxo -;; user-full-name "Marc Coquand" -;; message-default-headers "FCC: ~/personal-db/mail/work/out/sent.mbox" -;; message-signature "Marc Coquand\nFounder at Pivå")) -;; -;; (defun mail-home () -;; (interactive) -;; (setq -;; rmail-default-file "~/personal-db/mail/home/RMAIL" -;; rmail-primary-inbox-list (list (concat "imaps://" "marcc%40fastmail.fr" ":" fastmail-password "@imap.fastmail.com:993")) -;; rmail-secondary-file-regexp "~/personal-db/mail/home/archives/*.mbox" -;; rmail-output-file-alist '(("\\[PATCH.*\\]" . "patch.mbox") -;; ("[rR]eceipt" . "receipt.mbox") -;; ("[pP]ayment" . "receipt.mbox") -;; ("[oO]rder" . "receipt.mbox") -;; (".*" . "archive.mbox")) -;; rmail-file-name "~/personal-db/mail/home/RMAIL" -;; ;; In case there are errors, you can set '("--set=onerror=delete") -;; rmail-movemail-flags nil -;; user-mail-address "marc@coquand.email" -;; unrmail-mbox-format 'mboxo -;; user-full-name "Marc Coquand" -;; message-default-headers "FCC: ~/personal-db/mail/home/out/sent.mbox" -;; message-signature "Marc")) -;; -;; (defun rmail-open-no-check () -;; "Set account and open rmail. Will not check for new messages." -;; (interactive) -;; (let ((prev selected-rmail-account)) -;; (setq selected-rmail-account -;; (completing-read -;; "Account: " -;; '(("home" 1) ("work" 2)) nil t)) -;; (unless (eq selected-rmail-account prev) -;; ;; First kill all RMAIL buffers to not leave any dangling -;; (kill-matching-buffers "\\.mbox\\|^RMAIL" nil t)) -;; (if (string= selected-rmail-account "home") -;; (mail-home)) -;; (if (string= selected-rmail-account "work") -;; (mail-work))) -;; (rmail-no-check)) -;; -;; (defun rmail-open () -;; "Set account and open rmail. Will check for new messages" -;; (interactive) -;; (let ((prev selected-rmail-account)) -;; (setq selected-rmail-account -;; (completing-read -;; "Account: " -;; '(("home" 1) ("work" 2)) nil t)) -;; (unless (eq selected-rmail-account prev) -;; ;; First kill all RMAIL buffers to not leave any dangling -;; (kill-matching-buffers "\\.mbox\\|^RMAIL" nil t)) -;; (if (string= selected-rmail-account "home") -;; (mail-home)) -;; (if (string= selected-rmail-account "work") -;; (mail-work))) -;; (rmail)) -;; :custom -;; (rmail-remote-password-required nil) -;; (rmail-preserve-inbox nil) -;; (rmail-mime-prefer-html nil) -;; ;; Makes forwarding works as expected -;; (rmail-enable-mime-composing nil) -;; (rmail-displayed-headers "^\\(?:Cc\\|Date\\|From\\|Subject\\|To\\|List-Id\\):")) (use-package mastodon -- cgit v1.2.3