[config.git] / djavu-asus / elpa / jabber-20230715.456 / jabber.el

;;; jabber.el --- a minimal jabber client  -*- lexical-binding: t; -*-

;; Author: Magnus Henoch <mange@freemail.hu>
;; Maintainer: wgreenhouse <wgreenhouse@tilde.club>
;; Keywords: comm
;; Homepage: https://codeberg.org/emacs-jabber/emacs-jabber
;; Package-Requires: ((emacs "27.1") (fsm "0.1.0") (srv "0.1.0"))
;; Version: 0.8.92

;; Copyright (C) 2003, 2004, 2007, 2008 - Magnus Henoch - mange@freemail.hu
;; Copyright (C) 2002, 2003, 2004 - Tom Berger - object@intelectronica.net

;; SSL - Support, mostly inspired by Gnus
;; Copyright (C) 2005 - Georg Lehner - jorge@magma.com.ni

;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2 of the License, or
;; (at your option) any later version.

;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this program; if not, write to the Free Software
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

;;; Commentary:
;; jabber.el is an XMPP client for Emacs. XMPP (also known as
;; 'Jabber') is the IETF-standard federated instant messaging protocol
;; - see http://xmpp.org for more information.

;;; History:
;;

;;; Code:

(require 'cl-lib)
(require 'goto-addr)

;; These are variables shared with more than one section. For
;; instance, `jabber-process-buffer' is used in jabber-core.el but also in
;; jabber-conn.el.

;; Placing these variable definitions before using them avoid
;; byte-compile warnings. Moreover, it is common practice to define
;; variables before its usage.

(defvar jabber-enable-legacy-features-p nil)

;; This was originally defined in jabber-core.el
(defvar jabber-process-buffer " *-jabber-process-*"
  "The name of the process buffer.")

(defcustom jabber-debug-keep-process-buffers nil
  "If nil, kill process buffers when the process dies.
Contents of process buffers might be useful for debugging."
  :type 'boolean
  :group 'jabber-debug)

(defcustom jabber-silent-mode nil
  "If non-nil, do not ask for confirmation for some operations.  DANGEROUS!"
  :type 'boolean
  :group 'jabber)

;;; these customize fields should come first
(defgroup jabber nil "Jabber instant messaging"
  :group 'applications)

;;;###autoload
(defcustom jabber-account-list nil
  "List of Jabber accounts.
Each element of the list is a cons cell describing a Jabber account,
where the car is a JID and the CDR is an alist.

JID is a full Jabber ID string (e.g.  foo@bar.tld).  You can also
specify the resource (e.g.  foo@bar.tld/emacs).
The following keys can be present in the alist:

  :password is a string to authenticate ourself against the server.
  It can be empty.  If you don't want to store your password in your
  Emacs configuration, try auth-source (info node `(auth)Top').

  :network-server is a string identifying the address to connect to,
  if it's different from the server part of the JID.

  :port is the port to use (default depends on connection type).

  :connection-type is a symbol.  Valid symbols are `starttls',
  `network' and `ssl'.

Only JID is mandatory.  The rest can be guessed at run-time.

Examples:

Two accounts without any special configuration:
\((\"foo@example.com\") (\"bar@example.net\"))

One disabled account with a non-standard port:
\((\"romeo@montague.net\" (:port . 5242) (:disabled . t)))

If you don't have SRV and STARTTLS capabilities in your Emacs,
configure a Google Talk account like this:
\((\"username@gmail.com\"
  (:network-server . \"talk.google.com\")
  (:connection-type . ssl)))"
  :type '(repeat
	  (cons :tag "Account information"
		(string :tag "JID")
		(set :format "%v"
		     (cons :format "%v"
			   (const :format "" :disabled)
			   (const :tag "Disabled" t))
		     (cons :format "%v"
			   (const :format "" :password)
			   (string :tag "Password"))
		     (cons :format "%v"
			   (const :format "" :network-server)
			   (string :tag "Network server"))
		     (cons :format "%v"
			   (const :format "" :port)
			   (integer :tag "Port" 5222))
		     (cons :format "%v"
			   (const :format "" :connection-type)
			   (choice :tag "Connection type"
				   ;; XXX: detect whether we have STARTTLS?  option
				   ;; for enforcing encryption?
				   (const :tag "STARTTLS" starttls)
				   (const :tag "Unencrypted" network)
				   (const :tag "Legacy SSL/TLS" ssl))))))
  :group 'jabber)

(defcustom jabber-default-show ""
  "Default show state."
  :type '(choice (const :tag "Online" "")
		 (const :tag "Chatty" "chat")
		 (const :tag "Away" "away")
		 (const :tag "Extended away" "xa")
		 (const :tag "Do not disturb" "dnd"))
  :group 'jabber)

(defcustom jabber-default-status ""
  "Default status string."
  :type 'string
  :group 'jabber)

(defcustom jabber-default-priority 10
  "Default priority."
  :type 'integer
  :group 'jabber)

;;; guess internal dependencies!
(require 'jabber-util)
(require 'jabber-menu)
(require 'jabber-xml)
(require 'jabber-conn)
(require 'jabber-core)
(require 'jabber-logon)
(require 'jabber-roster)
(require 'jabber-presence)
(require 'jabber-alert)
(require 'jabber-chat)
(require 'jabber-disco)
(require 'jabber-iq)
(require 'jabber-widget)
(require 'jabber-register)
(require 'jabber-search)
(require 'jabber-browse)
(require 'jabber-muc)
(require 'jabber-muc-nick-completion)
(require 'jabber-version)
(require 'jabber-ahc-presence)
(require 'jabber-modeline)
(require 'jabber-watch)
(require 'jabber-activity)
(require 'jabber-vcard)
(require 'jabber-events)
(require 'jabber-chatstates)
(require 'jabber-vcard-avatars)
(require 'jabber-autoaway)
(require 'jabber-time)
(require 'jabber-truncate)

;;;###autoload
(defvar *jabber-current-status* nil
  "The user's current presence status.")

;;;###autoload
(defvar *jabber-current-show* nil
  "The user's current presence show.")

;;;###autoload
(defvar *jabber-current-priority* nil
  "The user's current priority.")

(defvar *jabber-status-history* nil
  "History of status messages.")

(defgroup jabber-faces nil "Faces for displaying Jabber instant messaging."
  :group 'jabber)

(defface jabber-title-small
  '((t (:weight bold :width semi-expanded :height 1.0 :inherit variable-pitch)))
  "Face for small titles."
  :group 'jabber-faces)

(defface jabber-title-medium
  '((t (:weight bold :width expanded :height 2.0 :inherit variable-pitch)))
  "Face for medium titles."
  :group 'jabber-faces)

(defface jabber-title-large
  '((t (:weight bold :width ultra-expanded :height 3.0 :inherit variable-pitch)))
  "Face for large titles."
  :group 'jabber-faces)

(defgroup jabber-debug nil "debugging options"
  :group 'jabber)

;;;###autoload
(defconst jabber-presence-faces
 '(("" . jabber-roster-user-online)
   ("away" . jabber-roster-user-away)
   ("xa" . jabber-roster-user-xa)
   ("dnd" . jabber-roster-user-dnd)
   ("chat" . jabber-roster-user-chatty)
   ("error" . jabber-roster-user-error)
   (nil . jabber-roster-user-offline))
 "Mapping from presence types to faces.")

(defconst jabber-presence-strings
  `(("" . ,(jabber-propertize "Online" 'face 'jabber-roster-user-online))
    ("away" . ,(jabber-propertize "Away" 'face 'jabber-roster-user-away))
    ("xa" . ,(jabber-propertize "Extended Away" 'face 'jabber-roster-user-xa))
    ("dnd" . ,(jabber-propertize "Do not Disturb" 'face 'jabber-roster-user-dnd))
    ("chat" . ,(jabber-propertize "Chatty" 'face 'jabber-roster-user-chatty))
    ("error" . ,(jabber-propertize "Error" 'face 'jabber-roster-user-error))
    (nil . ,(jabber-propertize "Offline" 'face 'jabber-roster-user-offline)))
  "Mapping from presence types to readable, colorized strings.")

;;;###autoload
(defun jabber-customize ()
  "Customize Jabber options."
  (interactive)
  (customize-group 'jabber))

;;;###autoload
(defun jabber-info ()
  "Open jabber.el manual."
  (interactive)
  (info "jabber"))

(provide 'jabber)

;;; arch-tag: 5145153e-4d19-4dc2-800c-b1282feb155d
;;; jabber.el ends here
Commit	Line	Data
53e6db90 DC	1	;;; jabber.el --- a minimal jabber client -- lexical-binding: t; --
	2
	3	;; Author: Magnus Henoch <mange@freemail.hu>
	4	;; Maintainer: wgreenhouse <wgreenhouse@tilde.club>
	5	;; Keywords: comm
	6	;; Homepage: https://codeberg.org/emacs-jabber/emacs-jabber
	7	;; Package-Requires: ((emacs "27.1") (fsm "0.1.0") (srv "0.1.0"))
	8	;; Version: 0.8.92
	9
	10	;; Copyright (C) 2003, 2004, 2007, 2008 - Magnus Henoch - mange@freemail.hu
	11	;; Copyright (C) 2002, 2003, 2004 - Tom Berger - object@intelectronica.net
	12
	13	;; SSL - Support, mostly inspired by Gnus
	14	;; Copyright (C) 2005 - Georg Lehner - jorge@magma.com.ni
	15
	16	;; This program is free software; you can redistribute it and/or modify
	17	;; it under the terms of the GNU General Public License as published by
	18	;; the Free Software Foundation; either version 2 of the License, or
	19	;; (at your option) any later version.
	20
	21	;; This program is distributed in the hope that it will be useful,
	22	;; but WITHOUT ANY WARRANTY; without even the implied warranty of
	23	;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	24	;; GNU General Public License for more details.
	25
	26	;; You should have received a copy of the GNU General Public License
	27	;; along with this program; if not, write to the Free Software
	28	;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
	29
	30	;;; Commentary:
	31	;; jabber.el is an XMPP client for Emacs. XMPP (also known as
	32	;; 'Jabber') is the IETF-standard federated instant messaging protocol
	33	;; - see http://xmpp.org for more information.
	34
	35	;;; History:
	36	;;
	37
	38	;;; Code:
	39
	40	(require 'cl-lib)
	41	(require 'goto-addr)
	42
	43	;; These are variables shared with more than one section. For
	44	;; instance, `jabber-process-buffer' is used in jabber-core.el but also in
	45	;; jabber-conn.el.
	46
	47	;; Placing these variable definitions before using them avoid
	48	;; byte-compile warnings. Moreover, it is common practice to define
	49	;; variables before its usage.
	50
	51	(defvar jabber-enable-legacy-features-p nil)
	52
	53	;; This was originally defined in jabber-core.el
	54	(defvar jabber-process-buffer " -jabber-process-"
	55	"The name of the process buffer.")
	56
	57	(defcustom jabber-debug-keep-process-buffers nil
	58	"If nil, kill process buffers when the process dies.
	59	Contents of process buffers might be useful for debugging."
	60	:type 'boolean
	61	:group 'jabber-debug)
	62
	63	(defcustom jabber-silent-mode nil
	64	"If non-nil, do not ask for confirmation for some operations. DANGEROUS!"
65	:type 'boolean
66	:group 'jabber)
67
68	;;; these customize fields should come first
69	(defgroup jabber nil "Jabber instant messaging"
70	:group 'applications)
71
72	;;;###autoload
73	(defcustom jabber-account-list nil
74	"List of Jabber accounts.
75	Each element of the list is a cons cell describing a Jabber account,
76	where the car is a JID and the CDR is an alist.
77
78	JID is a full Jabber ID string (e.g. foo@bar.tld). You can also
79	specify the resource (e.g. foo@bar.tld/emacs).
80	The following keys can be present in the alist:
81
82	:password is a string to authenticate ourself against the server.
83	It can be empty. If you don't want to store your password in your
84	Emacs configuration, try auth-source (info node `(auth)Top').
85
86	:network-server is a string identifying the address to connect to,
87	if it's different from the server part of the JID.
88
89	:port is the port to use (default depends on connection type).
90
91	:connection-type is a symbol. Valid symbols are `starttls',
92	`network' and `ssl'.
93
94	Only JID is mandatory. The rest can be guessed at run-time.
95
96	Examples:
97
98	Two accounts without any special configuration:
99	\((\"foo@example.com\") (\"bar@example.net\"))
100
101	One disabled account with a non-standard port:
102	\((\"romeo@montague.net\" (:port . 5242) (:disabled . t)))
103
104	If you don't have SRV and STARTTLS capabilities in your Emacs,
105	configure a Google Talk account like this:
106	\((\"username@gmail.com\"
107	(:network-server . \"talk.google.com\")
108	(:connection-type . ssl)))"
109	:type '(repeat
110	(cons :tag "Account information"
111	(string :tag "JID")
112	(set :format "%v"
113	(cons :format "%v"
114	(const :format "" :disabled)
115	(const :tag "Disabled" t))
116	(cons :format "%v"
117	(const :format "" :password)
118	(string :tag "Password"))
119	(cons :format "%v"
120	(const :format "" :network-server)
121	(string :tag "Network server"))
122	(cons :format "%v"
123	(const :format "" :port)
124	(integer :tag "Port" 5222))
125	(cons :format "%v"
126	(const :format "" :connection-type)
127	(choice :tag "Connection type"
128	;; XXX: detect whether we have STARTTLS? option
129	;; for enforcing encryption?
130	(const :tag "STARTTLS" starttls)
131	(const :tag "Unencrypted" network)
132	(const :tag "Legacy SSL/TLS" ssl))))))
133	:group 'jabber)
134
135	(defcustom jabber-default-show ""
136	"Default show state."
137	:type '(choice (const :tag "Online" "")
138	(const :tag "Chatty" "chat")
139	(const :tag "Away" "away")
140	(const :tag "Extended away" "xa")
141	(const :tag "Do not disturb" "dnd"))
142	:group 'jabber)
143
144	(defcustom jabber-default-status ""
145	"Default status string."
146	:type 'string
147	:group 'jabber)
148
149	(defcustom jabber-default-priority 10
150	"Default priority."
151	:type 'integer
152	:group 'jabber)
153
154	;;; guess internal dependencies!
155	(require 'jabber-util)
156	(require 'jabber-menu)
157	(require 'jabber-xml)
158	(require 'jabber-conn)
159	(require 'jabber-core)
160	(require 'jabber-logon)
161	(require 'jabber-roster)
162	(require 'jabber-presence)
163	(require 'jabber-alert)
164	(require 'jabber-chat)
165	(require 'jabber-disco)
166	(require 'jabber-iq)
167	(require 'jabber-widget)
168	(require 'jabber-register)
169	(require 'jabber-search)
170	(require 'jabber-browse)
171	(require 'jabber-muc)
172	(require 'jabber-muc-nick-completion)
173	(require 'jabber-version)
174	(require 'jabber-ahc-presence)
175	(require 'jabber-modeline)
176	(require 'jabber-watch)
177	(require 'jabber-activity)
178	(require 'jabber-vcard)
179	(require 'jabber-events)
180	(require 'jabber-chatstates)
181	(require 'jabber-vcard-avatars)
182	(require 'jabber-autoaway)
183	(require 'jabber-time)
184	(require 'jabber-truncate)
185
186	;;;###autoload
187	(defvar jabber-current-status nil
188	"The user's current presence status.")
189
190	;;;###autoload
191	(defvar jabber-current-show nil
192	"The user's current presence show.")
193
194	;;;###autoload
195	(defvar jabber-current-priority nil
196	"The user's current priority.")
197
198	(defvar jabber-status-history nil
199	"History of status messages.")
200
201	(defgroup jabber-faces nil "Faces for displaying Jabber instant messaging."
202	:group 'jabber)
203
204	(defface jabber-title-small
205	'((t (:weight bold :width semi-expanded :height 1.0 :inherit variable-pitch)))
206	"Face for small titles."
207	:group 'jabber-faces)
208
209	(defface jabber-title-medium
210	'((t (:weight bold :width expanded :height 2.0 :inherit variable-pitch)))
211	"Face for medium titles."
212	:group 'jabber-faces)
213
214	(defface jabber-title-large
215	'((t (:weight bold :width ultra-expanded :height 3.0 :inherit variable-pitch)))
216	"Face for large titles."
217	:group 'jabber-faces)
218
219	(defgroup jabber-debug nil "debugging options"
220	:group 'jabber)
221
222	;;;###autoload
223	(defconst jabber-presence-faces
224	'(("" . jabber-roster-user-online)
225	("away" . jabber-roster-user-away)
226	("xa" . jabber-roster-user-xa)
227	("dnd" . jabber-roster-user-dnd)
228	("chat" . jabber-roster-user-chatty)
229	("error" . jabber-roster-user-error)
230	(nil . jabber-roster-user-offline))
231	"Mapping from presence types to faces.")
232
233	(defconst jabber-presence-strings
234	`(("" . ,(jabber-propertize "Online" 'face 'jabber-roster-user-online))
235	("away" . ,(jabber-propertize "Away" 'face 'jabber-roster-user-away))
236	("xa" . ,(jabber-propertize "Extended Away" 'face 'jabber-roster-user-xa))
237	("dnd" . ,(jabber-propertize "Do not Disturb" 'face 'jabber-roster-user-dnd))
238	("chat" . ,(jabber-propertize "Chatty" 'face 'jabber-roster-user-chatty))
239	("error" . ,(jabber-propertize "Error" 'face 'jabber-roster-user-error))
240	(nil . ,(jabber-propertize "Offline" 'face 'jabber-roster-user-offline)))
241	"Mapping from presence types to readable, colorized strings.")
242
243	;;;###autoload
244	(defun jabber-customize ()
245	"Customize Jabber options."
246	(interactive)
247	(customize-group 'jabber))
248
249	;;;###autoload
250	(defun jabber-info ()
251	"Open jabber.el manual."
252	(interactive)
253	(info "jabber"))
254
255	(provide 'jabber)
256
257	;;; arch-tag: 5145153e-4d19-4dc2-800c-b1282feb155d
258	;;; jabber.el ends here