Commit | Line | Data |
---|---|---|
4c05c418 AB |
1 | ;;; bandali-ebdb.el --- bandali's EBDB configuration -*- lexical-binding: t; -*- |
2 | ||
ccb32b49 | 3 | ;; Copyright (C) 2018-2021 Amin Bandali |
4c05c418 AB |
4 | |
5 | ;; Author: Amin Bandali <bandali@gnu.org> | |
6 | ;; Keywords: tools | |
7 | ||
8 | ;; This program is free software; you can redistribute it and/or modify | |
9 | ;; it under the terms of the GNU General Public License as published by | |
10 | ;; the Free Software Foundation, either version 3 of the License, or | |
11 | ;; (at your option) any later version. | |
12 | ||
13 | ;; This program is distributed in the hope that it will be useful, | |
14 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
16 | ;; GNU General Public License for more details. | |
17 | ||
18 | ;; You should have received a copy of the GNU General Public License | |
19 | ;; along with this program. If not, see <https://www.gnu.org/licenses/>. | |
20 | ||
21 | ;;; Commentary: | |
22 | ||
23 | ;; My EBDB setup. | |
24 | ||
25 | ;;; Code: | |
26 | ||
c84be134 AB |
27 | (with-eval-after-load 'gnus |
28 | (require 'ebdb) | |
29 | (csetq ebdb-sources (b/var "ebdb")) | |
e2178fd3 | 30 | (with-eval-after-load 'swiper |
c84be134 AB |
31 | (add-to-list 'swiper-font-lock-exclude #'ebdb-mode t)) |
32 | ;; local key bindings | |
33 | (define-key gnus-group-mode-map (kbd "e") #'ebdb)) | |
e2178fd3 | 34 | |
c84be134 AB |
35 | (with-eval-after-load 'ebdb |
36 | (with-eval-after-load 'ebdb-complete | |
37 | ;; (csetq ebdb-complete-mail 'capf) | |
9867e4bb | 38 | (csetq ebdb-completion-display-record nil) ; <87pn2kk2ig.fsf@ericabrahamsen.net> |
c84be134 | 39 | (ebdb-complete-enable)) |
e2178fd3 | 40 | |
c84be134 AB |
41 | (require 'ebdb-message) |
42 | ||
43 | (require 'ebdb-gnus) | |
44 | (csetq ebdb-gnus-window-size 0.3) | |
e2178fd3 | 45 | |
c84be134 | 46 | (require 'ebdb-mua) |
9867e4bb | 47 | (csetq ebdb-mua-pop-up nil)) |
e2178fd3 | 48 | |
c84be134 | 49 | ;; (with-eval-after-load 'company-ebdb |
e2178fd3 AB |
50 | ;; (defun company-ebdb--post-complete (_) nil)) |
51 | ||
e2178fd3 | 52 | (provide 'bandali-ebdb) |
4c05c418 | 53 | ;;; bandali-ebdb.el ends here |