emacs/lisp/init-jabber.el 1.1 K raw
1
;;; init-jabber.el -*- lexical-binding: t; -*-
2
3
;; Built from git for OMEMO. Native module needs mbedtls 3.x headers, gcc,
4
;; make and pkg-config on PATH (4.x dropped mbedtls/aes.h).
5
(use-package jabber
6
  :vc (:url "https://git.thanosapollo.org/emacs-jabber"
7
            :lisp-dir "lisp"
8
            :shell-command "MBED_STATIC=1 make module")
9
  :defer t
10
  :init
11
  (with-eval-after-load 'jabber-roster-menu (require 'jabber))
12
  :config
13
  (setq jabber-account-list
14
        `(("stevedylandev@xmpp.is"
15
           (:password . ,(auth-source-pass-get 'secret "xmpp/stevedylandev@xmpp.is")))))
16
  (jabber-modeline-mode 1))
17
18
(with-eval-after-load 'jabber-omemo-trust
19
  (evil-define-key 'normal jabber-omemo-trust-mode-map
20
    "t" #'jabber-omemo-trust-set-verified
21
    "u" #'jabber-omemo-trust-set-untrusted
22
    "w" #'jabber-omemo-trust-copy-fingerprint
23
    "r" #'jabber-omemo-reset-session
24
    "d" #'jabber-omemo-trust-delete
25
    "G" #'jabber-omemo-trust-refresh
26
    "?" #'jabber-omemo-trust-menu))
27
28
(setq jabber-muc-decorate-presence-patterns
29
      '((".")))  ; "Hide all"
30
31
(provide 'init-jabber)