| 1 | ;;; bandali-ebdb.el --- bandali's EBDB configuration -*- lexical-binding: t; -*- |
| 2 | |
| 3 | ;; Copyright (C) 2018-2020 Amin Bandali |
| 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 | |
| 27 | (with-eval-after-load 'gnus |
| 28 | (require 'ebdb) |
| 29 | (csetq ebdb-sources (b/var "ebdb")) |
| 30 | (with-eval-after-load 'swiper |
| 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)) |
| 34 | |
| 35 | (with-eval-after-load 'ebdb |
| 36 | (with-eval-after-load 'ebdb-complete |
| 37 | ;; (csetq ebdb-complete-mail 'capf) |
| 38 | (csetq ebdb-completion-display-record nil) ; <87pn2kk2ig.fsf@ericabrahamsen.net> |
| 39 | (ebdb-complete-enable)) |
| 40 | |
| 41 | (require 'ebdb-message) |
| 42 | |
| 43 | (require 'ebdb-gnus) |
| 44 | (csetq ebdb-gnus-window-size 0.3) |
| 45 | |
| 46 | (require 'ebdb-mua) |
| 47 | (csetq ebdb-mua-pop-up nil)) |
| 48 | |
| 49 | ;; (with-eval-after-load 'company-ebdb |
| 50 | ;; (defun company-ebdb--post-complete (_) nil)) |
| 51 | |
| 52 | (provide 'bandali-ebdb) |
| 53 | ;;; bandali-ebdb.el ends here |