diff options
| author | contrapunctus <contrapunctus@disroot.org> | 2021-06-04 21:51:03 +0530 |
|---|---|---|
| committer | contrapunctus <contrapunctus@disroot.org> | 2021-06-04 21:51:03 +0530 |
| commit | c9af5c303a465a053d98fa671e3bd38c8d5bf2be (patch) | |
| tree | eb480441fb386b0c3bd161417bad06bd29b6c4e1 | |
| parent | 78f06b50699da0e8a928061a3bdece79c619764b (diff) | |
Set org-tags-column to -60, run org-align-all-tags
| -rw-r--r-- | jabber.org | 1653 |
1 files changed, 827 insertions, 826 deletions
@@ -225,7 +225,7 @@ If a source block does not have syntax highlighting, press =M-o M-o= (=font-lock (require 'cl)) #+END_SRC -*** jabber-escape-xml :function: +*** jabber-escape-xml :function: #+BEGIN_SRC emacs-lisp (defun jabber-escape-xml (str) "Escape strings for XML." @@ -246,7 +246,7 @@ If a source block does not have syntax highlighting, press =M-o M-o= (=font-lock str)) #+END_SRC -*** jabber-unescape-xml :function: +*** jabber-unescape-xml :function: #+BEGIN_SRC emacs-lisp (defun jabber-unescape-xml (str) "unescape xml strings" @@ -263,7 +263,7 @@ If a source block does not have syntax highlighting, press =M-o M-o= (=font-lock str)) #+END_SRC -*** jabber-sexp2xml :function: +*** jabber-sexp2xml :function: #+BEGIN_SRC emacs-lisp (defun jabber-sexp2xml (sexp) "Return SEXP as well-formatted XML. @@ -307,7 +307,7 @@ SEXP should be in the form (tagname ((attribute-name . attribute-value)...) chil xml)))) #+END_SRC -*** jabber-xml-skip-tag-forward :function: +*** jabber-xml-skip-tag-forward :function: #+BEGIN_SRC emacs-lisp (defun jabber-xml-skip-tag-forward (&optional dont-recurse-into-stream) "Skip to end of tag or matching closing tag if present. @@ -347,7 +347,7 @@ enough for us." (throw 'unfinished nil)))) #+END_SRC -*** jabber-xml-parse-next-stanza :function: +*** jabber-xml-parse-next-stanza :function: #+BEGIN_SRC emacs-lisp (defun jabber-xml-parse-next-stanza () "Parse the first XML stanza in the current buffer. @@ -361,7 +361,7 @@ element, return nil." (xml-parse-region (point-min) (point)))) #+END_SRC -*** jabber-xml-node-name :inline:function: +*** jabber-xml-node-name :inline:function: #+BEGIN_SRC emacs-lisp (defsubst jabber-xml-node-name (node) "Return the tag associated with NODE. @@ -369,7 +369,7 @@ The tag is a lower-case symbol." (if (listp node) (car node))) #+END_SRC -*** jabber-xml-node-attributes :inline:function: +*** jabber-xml-node-attributes :inline:function: #+BEGIN_SRC emacs-lisp (defsubst jabber-xml-node-attributes (node) "Return the list of attributes of NODE. @@ -377,7 +377,7 @@ The list can be nil." (if (listp node) (nth 1 node))) #+END_SRC -*** jabber-xml-node-children :inline:function: +*** jabber-xml-node-children :inline:function: #+BEGIN_SRC emacs-lisp (defsubst jabber-xml-node-children (node) "Return the list of children of NODE. @@ -389,7 +389,7 @@ This is a list of nodes, and it can be nil." children))) #+END_SRC -*** jabber-xml-get-children :function: +*** jabber-xml-get-children :function: #+BEGIN_SRC emacs-lisp (defun jabber-xml-get-children (node child-name) "Return the children of NODE whose tag is CHILD-NAME. @@ -402,7 +402,7 @@ CHILD-NAME should be a lower case symbol." (nreverse match))) #+END_SRC -*** jabber-xml-get-attribute :inline:function: +*** jabber-xml-get-attribute :inline:function: =xml-get-attribute= returns =""= if the attribute is not found, which is not very useful. Therefore, we use =xml-get-attribute-or-nil= if present, or emulate its behavior. #+BEGIN_SRC emacs-lisp (defsubst jabber-xml-get-attribute (node attribute) @@ -412,14 +412,14 @@ Return nil if the attribute was not found." (xml-get-attribute-or-nil node attribute))) #+END_SRC -*** jabber-xml-get-xmlns :inline:function: +*** jabber-xml-get-xmlns :inline:function: #+BEGIN_SRC emacs-lisp (defsubst jabber-xml-get-xmlns (node) "Get \"xmlns\" attribute of NODE, or nil if not present." (jabber-xml-get-attribute node 'xmlns)) #+END_SRC -*** jabber-xml-path :function: +*** jabber-xml-path :function: #+BEGIN_SRC emacs-lisp (defun jabber-xml-path (xml-data path) "Find sub-node of XML-DATA according to PATH. @@ -455,7 +455,7 @@ any string character data of this node" node)) #+END_SRC -*** jabber-xml-let-attributes :macro: +*** jabber-xml-let-attributes :macro: #+BEGIN_SRC emacs-lisp (defmacro jabber-xml-let-attributes (attributes xml-data &rest body) "Bind variables to the same-name attribute values in XML-DATA." @@ -466,7 +466,7 @@ any string character data of this node" (put 'jabber-xml-let-attributes 'lisp-indent-function 2) #+END_SRC -*** jabber-xml-resolve-namespace-prefixes :function: +*** jabber-xml-resolve-namespace-prefixes :function: #+BEGIN_SRC emacs-lisp (defun jabber-xml-resolve-namespace-prefixes (xml-data &optional default-ns prefixes) (let ((node-name (jabber-xml-node-name xml-data)) @@ -499,7 +499,7 @@ any string character data of this node" xml-data)) #+END_SRC -*** jabber-xml-merge-namespace-declarations :function: +*** jabber-xml-merge-namespace-declarations :function: #+BEGIN_SRC emacs-lisp (defun jabber-xml-merge-namespace-declarations (attrs prefixes) ;; First find any xmlns:foo attributes.. @@ -534,24 +534,24 @@ any string character data of this node" (error nil)) #+END_SRC -*** jabber-jid-history :variable: +*** jabber-jid-history :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-jid-history nil "History of entered JIDs.") #+END_SRC -*** jabber-replace-in-string :inline:function: +*** jabber-replace-in-string :inline:function: #+BEGIN_SRC emacs-lisp (defsubst jabber-replace-in-string (str regexp newtext) (replace-regexp-in-string regexp newtext str t t)) #+END_SRC -*** jabber-propertize :function: +*** jabber-propertize :function: #+BEGIN_SRC emacs-lisp (defalias 'jabber-propertize 'propertize) #+END_SRC -*** bound-and-true-p :macro: +*** bound-and-true-p :macro: #+BEGIN_SRC emacs-lisp (unless (fboundp 'bound-and-true-p) (defmacro bound-and-true-p (var) @@ -559,14 +559,14 @@ any string character data of this node" `(and (boundp (quote ,var)) ,var))) #+END_SRC -*** jabber-read-with-input-method :inline:function: +*** jabber-read-with-input-method :inline:function: Preserve input method when entering a minibuffer. #+BEGIN_SRC emacs-lisp (defsubst jabber-read-with-input-method (prompt &optional initial-contents history default-value) (read-string prompt initial-contents history default-value t)) #+END_SRC -*** delete-and-extract-region :inline:function: +*** delete-and-extract-region :inline:function: #+BEGIN_SRC emacs-lisp (unless (fboundp 'delete-and-extract-region) (defsubst delete-and-extract-region (start end) @@ -575,7 +575,7 @@ Preserve input method when entering a minibuffer. (delete-region start end)))) #+END_SRC -*** access-file :inline:function: +*** access-file :inline:function: #+BEGIN_SRC emacs-lisp (unless (fboundp 'access-file) (defsubst access-file (filename error-message) @@ -583,19 +583,19 @@ Preserve input method when entering a minibuffer. (error error-message)))) #+END_SRC -*** jabber-float-time :function: +*** jabber-float-time :function: #+BEGIN_SRC emacs-lisp (defalias 'jabber-float-time 'float-time) #+END_SRC -*** jabber-cancel-timer :function: +*** jabber-cancel-timer :function: #+BEGIN_SRC emacs-lisp (defalias 'jabber-cancel-timer 'cancel-timer) #+END_SRC -*** jabber-concat-rosters :function: +*** jabber-concat-rosters :function: #+BEGIN_SRC emacs-lisp (defun jabber-concat-rosters () "Concatenate the rosters of all connected accounts." @@ -606,7 +606,7 @@ Preserve input method when entering a minibuffer. jabber-connections))) #+END_SRC -*** jabber-concat-rosters-full :function: +*** jabber-concat-rosters-full :function: #+BEGIN_SRC emacs-lisp (defun jabber-concat-rosters-full () "Concatenate the rosters of all connected accounts. @@ -623,7 +623,7 @@ Show full JIDs, with resources." jids)))) #+END_SRC -*** jabber-connection-jid :function: +*** jabber-connection-jid :function: #+BEGIN_SRC emacs-lisp (defun jabber-connection-jid (jc) "Return the full JID of connection JC." @@ -633,7 +633,7 @@ Show full JIDs, with resources." (plist-get sd :resource)))) #+END_SRC -*** jabber-connection-bare-jid :function: +*** jabber-connection-bare-jid :function: #+BEGIN_SRC emacs-lisp (defun jabber-connection-bare-jid (jc) "Return the bare JID of connection JC." @@ -642,7 +642,7 @@ Show full JIDs, with resources." (plist-get sd :server)))) #+END_SRC -*** jabber-connection-original-jid :function: +*** jabber-connection-original-jid :function: #+BEGIN_SRC emacs-lisp (defun jabber-connection-original-jid (jc) "Return the original JID of connection JC. @@ -652,7 +652,7 @@ binding." (plist-get (fsm-get-state-data jc) :original-jid)) #+END_SRC -*** jabber-find-connection :function: +*** jabber-find-connection :function: #+BEGIN_SRC emacs-lisp (defun jabber-find-connection (bare-jid) "Find the connection to the account named by BARE-JID. @@ -662,7 +662,7 @@ Return nil if none found." (return jc)))) #+END_SRC -*** jabber-find-active-connection :function: +*** jabber-find-active-connection :function: #+BEGIN_SRC emacs-lisp (defun jabber-find-active-connection (dead-jc) "Find an active connection for dead connection DEAD-JC. @@ -671,7 +671,7 @@ Return nil if none found." (jabber-find-connection jid))) #+END_SRC -*** jabber-jid-username :function: +*** jabber-jid-username :function: #+BEGIN_SRC emacs-lisp (defun jabber-jid-username (jid) "Return the username portion of JID, or nil if none found. @@ -680,7 +680,7 @@ JID must be a string." (match-string 1 jid))) #+END_SRC -*** jabber-jid-user :function: +*** jabber-jid-user :function: #+BEGIN_SRC emacs-lisp (defun jabber-jid-user (jid) "Return the user portion (username@server) of JID. @@ -691,7 +691,7 @@ JID must be a string." (match-string 0 jid)) #+END_SRC -*** jabber-jid-server :function: +*** jabber-jid-server :function: #+BEGIN_SRC emacs-lisp (defun jabber-jid-server (jid) "Return the server portion of JID." @@ -699,7 +699,7 @@ JID must be a string." (match-string 2 jid)) #+END_SRC -*** jabber-jid-rostername :function: +*** jabber-jid-rostername :function: #+BEGIN_SRC emacs-lisp (defun jabber-jid-rostername (string) "Return the name of the user, if given in roster, else nil." @@ -708,7 +708,7 @@ JID must be a string." (get user 'name)))) #+END_SRC -*** jabber-jid-displayname :function: +*** jabber-jid-displayname :function: #+BEGIN_SRC emacs-lisp (defun jabber-jid-displayname (string) "Return the name of the user, if given in roster, else username@server." @@ -718,7 +718,7 @@ JID must be a string." string)))) #+END_SRC -*** jabber-jid-bookmarkname :function: +*** jabber-jid-bookmarkname :function: #+BEGIN_SRC emacs-lisp (defun jabber-jid-bookmarkname (string) "Return the conference name from boomarks or displayname from roster, or JID if none set." @@ -730,7 +730,7 @@ JID must be a string." (jabber-jid-displayname string))) #+END_SRC -*** jabber-jid-resource :function: +*** jabber-jid-resource :function: #+BEGIN_SRC emacs-lisp (defun jabber-jid-resource (jid) "Return the resource portion of a JID, or nil if there is none. @@ -739,7 +739,7 @@ JID must be a string." (match-string 3 jid))) #+END_SRC -*** jabber-jid-symbol :function: +*** jabber-jid-symbol :function: #+BEGIN_SRC emacs-lisp (defun jabber-jid-symbol (jid) "Return the symbol for the given JID. @@ -751,7 +751,7 @@ JID must be a string." (intern (downcase (jabber-jid-user jid)) jabber-jid-obarray))) #+END_SRC -*** jabber-my-jid-p :function: +*** jabber-my-jid-p :function: #+BEGIN_SRC emacs-lisp (defun jabber-my-jid-p (jc jid) "Return non-nil if the specified JID is in jabber-account-list (modulo resource). @@ -762,7 +762,7 @@ Also return non-nil if JID matches JC, modulo resource." (member (jabber-jid-user jid) (mapcar (lambda (x) (jabber-jid-user (car x))) jabber-account-list)))) #+END_SRC -*** jabber-read-jid-completing :function: +*** jabber-read-jid-completing :function: #+BEGIN_SRC emacs-lisp (defun jabber-read-jid-completing (prompt &optional subset require-match default resource fulljids) "Read a jid out of the current roster from the minibuffer. @@ -839,7 +839,7 @@ If FULLJIDS is non-nil, complete jids with resources." chosen))))) #+END_SRC -*** jabber-read-node :function: +*** jabber-read-node :function: #+BEGIN_SRC emacs-lisp (defun jabber-read-node (prompt) "Read node name, taking default from disco item at point." @@ -850,14 +850,14 @@ If FULLJIDS is non-nil, complete jids with resources." node-at-point))) #+END_SRC -*** jabber-password-key :function: +*** jabber-password-key :function: #+BEGIN_SRC emacs-lisp (defun jabber-password-key (bare-jid) "Construct key for `password' library from BARE-JID." (concat "xmpp:" bare-jid)) #+END_SRC -*** jabber-read-password :function: +*** jabber-read-password :function: #+BEGIN_SRC emacs-lisp (defun jabber-read-password (bare-jid) "Read Jabber password from minibuffer." @@ -881,14 +881,14 @@ If FULLJIDS is non-nil, complete jids with resources." (password-read prompt (jabber-password-key bare-jid))))))) #+END_SRC -*** jabber-cache-password :function: +*** jabber-cache-password :function: #+BEGIN_SRC emacs-lisp (defun jabber-cache-password (bare-jid password) "Cache PASSWORD for BARE-JID." (password-cache-add (jabber-password-key bare-jid) password)) #+END_SRC -*** jabber-uncache-password :command: +*** jabber-uncache-password :command: #+BEGIN_SRC emacs-lisp (defun jabber-uncache-password (bare-jid) "Uncache cached password for BARE-JID. @@ -898,7 +898,7 @@ Useful if the password proved to be wrong." (password-cache-remove (jabber-password-key bare-jid))) #+END_SRC -*** jabber-read-account :function: +*** jabber-read-account :function: #+BEGIN_SRC emacs-lisp (defun jabber-read-account (&optional always-ask contact-hint) "Ask for which connected account to use. @@ -952,7 +952,7 @@ that has that contact in its roster." (cdr (assoc input completions)))))))) #+END_SRC -*** jabber-iq-query :function: +*** jabber-iq-query :function: #+BEGIN_SRC emacs-lisp (defun jabber-iq-query (xml-data) "Return the query part of an IQ stanza. @@ -967,21 +967,21 @@ The query child is often but not always <query/>." query)) #+END_SRC -*** jabber-iq-error :function: +*** jabber-iq-error :function: #+BEGIN_SRC emacs-lisp (defun jabber-iq-error (xml-data) "Return the <error/> part of an IQ stanza, if any." (car (jabber-xml-get-children xml-data 'error))) #+END_SRC -*** jabber-iq-xmlns :function: +*** jabber-iq-xmlns :function: #+BEGIN_SRC emacs-lisp (defun jabber-iq-xmlns (xml-data) "Return the namespace of an IQ stanza, i.e. the namespace of its query part." (jabber-xml-get-attribute (jabber-iq-query xml-data) 'xmlns)) #+END_SRC -*** jabber-message-timestamp :function: +*** jabber-message-timestamp :function: #+BEGIN_SRC emacs-lisp (defun jabber-message-timestamp (xml-data) "Given a <message/> element, return its timestamp, or nil if none." @@ -991,7 +991,7 @@ The query child is often but not always <query/>." (jabber-xml-path xml-data '(("jabber:x:delay" . "x")))))) #+END_SRC -*** jabber-x-delay :function: +*** jabber-x-delay :function: #+BEGIN_SRC emacs-lisp (defun jabber-x-delay (xml-data) "Return timestamp given a delayed delivery element. @@ -1012,7 +1012,7 @@ Return nil if no such data available." (jabber-parse-time stamp)))))) #+END_SRC -*** jabber-parse-legacy-time :function: +*** jabber-parse-legacy-time :function: #+BEGIN_SRC emacs-lisp (defun jabber-parse-legacy-time (timestamp) "Parse timestamp in ccyymmddThh:mm:ss format (UTC) and return as internal time value." @@ -1025,7 +1025,7 @@ Return nil if no such data available." (encode-time second minute hour day month year 0))) #+END_SRC -*** jabber-encode-legacy-time :function: +*** jabber-encode-legacy-time :function: #+BEGIN_SRC emacs-lisp (defun jabber-encode-legacy-time (timestamp) "Parse TIMESTAMP as internal time value and encode as ccyymmddThh:mm:ss (UTC)." @@ -1038,7 +1038,7 @@ Return nil if no such data available." (format-time-string "%Y%m%dT%H:%M:%S" timestamp t))) #+END_SRC -*** jabber-encode-time :function: +*** jabber-encode-time :function: #+BEGIN_SRC emacs-lisp (defun jabber-encode-time (time) "Convert TIME to a string by XEP-0082. @@ -1046,7 +1046,7 @@ TIME is in a format accepted by `format-time-string'." (format-time-string "%Y-%m-%dT%H:%M:%SZ" time t)) #+END_SRC -*** jabber-encode-timezone :function: +*** jabber-encode-timezone :function: #+BEGIN_SRC emacs-lisp (defun jabber-encode-timezone () (let ((time-zone-offset (nth 0 (current-time-zone)))) @@ -1058,7 +1058,7 @@ TIME is in a format accepted by `format-time-string'." (format "%s%02d:%02d"(if positivep "+" "-") hours minutes))))) #+END_SRC -*** jabber-parse-time :function: +*** jabber-parse-time :function: #+BEGIN_SRC emacs-lisp (defun jabber-parse-time (raw-time) "Parse the DateTime encoded in TIME according to XEP-0082." @@ -1093,7 +1093,7 @@ TIME is in a format accepted by `format-time-string'." (encode-time second minute hour day month year timezone-seconds)))) #+END_SRC -*** jabber-report-success :function: +*** jabber-report-success :function: #+BEGIN_SRC emacs-lisp (defun jabber-report-success (jc xml-data context) "IQ callback reporting success or failure of the operation. @@ -1112,7 +1112,7 @@ the echo area." "No error message given")))))))) #+END_SRC -*** jabber-error-messages :constant: +*** jabber-error-messages :constant: #+BEGIN_SRC emacs-lisp (defconst jabber-error-messages (list @@ -1141,7 +1141,7 @@ the echo area." "String descriptions of XMPP stanza errors") #+END_SRC -*** jabber-legacy-error-messages :constant: +*** jabber-legacy-error-messages :constant: #+BEGIN_SRC emacs-lisp (defconst jabber-legacy-error-messages (list @@ -1165,7 +1165,7 @@ the echo area." "String descriptions of legacy errors (XEP-0086)") #+END_SRC -*** jabber-parse-error :function: +*** jabber-parse-error :function: #+BEGIN_SRC emacs-lisp (defun jabber-parse-error (error-xml) "Parse the given <error/> tag and return a string fit for human consumption. @@ -1191,7 +1191,7 @@ See secton 9.3, Stanza Errors, of XMPP Core, and XEP-0086, Legacy Errors." (if text (format ": %s" text))))) #+END_SRC -*** jabber-error-condition :function: +*** jabber-error-condition :function: #+BEGIN_SRC emacs-lisp (defun jabber-error-condition (error-xml) "Parse the given <error/> tag and return the condition symbol." @@ -1203,7 +1203,7 @@ See secton 9.3, Stanza Errors, of XMPP Core, and XEP-0086, Legacy Errors." (throw 'condition (jabber-xml-node-name child)))))) #+END_SRC -*** jabber-stream-error-messages :variable: +*** jabber-stream-error-messages :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-stream-error-messages (list @@ -1234,7 +1234,7 @@ See secton 9.3, Stanza Errors, of XMPP Core, and XEP-0086, Legacy Errors." "String descriptions of XMPP stream errors") #+END_SRC -*** jabber-stream-error-condition :function: +*** jabber-stream-error-condition :function: #+BEGIN_SRC emacs-lisp (defun jabber-stream-error-condition (error-xml) "Return the condition of a <stream:error/> tag." @@ -1248,7 +1248,7 @@ See secton 9.3, Stanza Errors, of XMPP Core, and XEP-0086, Legacy Errors." (return (jabber-xml-node-name node))))) #+END_SRC -*** jabber-parse-stream-error :function: +*** jabber-parse-stream-error :function: #+BEGIN_SRC emacs-lisp (defun jabber-parse-stream-error (error-xml) "Parse the given <stream:error/> tag and return a sting fit for human consumption." @@ -1270,7 +1270,7 @@ See secton 9.3, Stanza Errors, of XMPP Core, and XEP-0086, Legacy Errors." "Jabber error") #+END_SRC -*** jabber-signal-error :function: +*** jabber-signal-error :function: #+BEGIN_SRC emacs-lisp (defun jabber-signal-error (error-type condition &optional text app-specific) "Signal an error to be sent by Jabber. @@ -1285,7 +1285,7 @@ See section 9.3 of XMPP Core." (list error-type condition text app-specific))) #+END_SRC -*** jabber-unhex :function: +*** jabber-unhex :function: #+BEGIN_SRC emacs-lisp (defun jabber-unhex (string) "Convert a hex-encoded UTF-8 string to Emacs representation. @@ -1294,7 +1294,7 @@ For example, \"ji%C5%99i@%C4%8Dechy.example/v%20Praze\" becomes (decode-coding-string (url-unhex-string string) 'utf-8)) #+END_SRC -*** jabber-handle-uri :command: +*** jabber-handle-uri :command: #+BEGIN_SRC emacs-lisp (defun jabber-handle-uri (uri &rest ignored-args) "Handle XMPP links according to draft-saintandre-xmpp-iri-04. @@ -1349,7 +1349,7 @@ See Info node `(jabber)XMPP URIs'." (jabber-chat-with (jabber-read-account) jid))))) #+END_SRC -*** url-xmpp :function: +*** url-xmpp :function: #+BEGIN_SRC emacs-lisp (defun url-xmpp (url) "Handle XMPP URLs from internal Emacs functions." @@ -1358,7 +1358,7 @@ See Info node `(jabber)XMPP URIs'." (jabber-handle-uri (url-recreate-url url))) #+END_SRC -*** string>-numerical :function: +*** string>-numerical :function: #+BEGIN_SRC emacs-lisp (defun string>-numerical (s1 s2) "Return t if first arg string is more than second in numerical order." @@ -1370,7 +1370,7 @@ See Info node `(jabber)XMPP URIs'." (t (string>-numerical (substring s1 1) (substring s2 1))))) #+END_SRC -*** jabber-append-string-to-file :function: +*** jabber-append-string-to-file :function: #+BEGIN_SRC emacs-lisp (defun jabber-append-string-to-file (string file &optional func &rest args) "Append STRING (may be nil) to FILE. Create FILE if needed. @@ -1383,7 +1383,7 @@ temporaly buffer _before_ inserting STRING." (write-region (point-min) (point-max) file t (list t))))) #+END_SRC -*** jabber-tree-map :function: +*** jabber-tree-map :function: #+BEGIN_SRC emacs-lisp (defun jabber-tree-map (fn tree) "Apply FN to all nodes in the TREE starting with root. FN is @@ -1412,7 +1412,7 @@ applied to the node and not to the data itself." (eval-when-compile (require 'cl)) #+END_SRC -*** jabber-menu :variable: +*** jabber-menu :variable: #+BEGIN_SRC emacs-lisp ;;;###autoload (defvar jabber-menu @@ -1508,7 +1508,7 @@ applied to the node and not to the data itself." map)) #+END_SRC -*** jabber-display-menu :custom:variable: +*** jabber-display-menu :custom:variable: #+BEGIN_SRC emacs-lisp ;;;###autoload (defcustom jabber-display-menu 'maybe @@ -1523,7 +1523,7 @@ if any of `jabber-account-list' or `jabber-connections' is non-nil." (const :tag "When installed by user, or when any accounts have been configured or connected" maybe))) #+END_SRC -*** jabber-menu :command: +*** jabber-menu :command: #+BEGIN_SRC emacs-lisp (defun jabber-menu (&optional remove) "Put \"Jabber\" menu on menubar. @@ -1548,37 +1548,37 @@ This used to be: =(define-key-after global-map [menu-bar jabber-menu] ...)= but (bound-and-true-p jabber-connections)))))) #+END_SRC -*** jabber-jid-chat-menu :variable: +*** jabber-jid-chat-menu :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-jid-chat-menu nil "Menu items for chat menu.") #+END_SRC -*** jabber-jid-info-menu :variable: +*** jabber-jid-info-menu :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-jid-info-menu nil "Menu item for info menu.") #+END_SRC -*** jabber-jid-roster-menu :variable: +*** jabber-jid-roster-menu :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-jid-roster-menu nil "Menu items for roster menu.") #+END_SRC -*** jabber-jid-muc-menu :variable: +*** jabber-jid-muc-menu :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-jid-muc-menu nil "Menu items for MUC menu.") #+END_SRC -*** jabber-jid-service-menu :variable: +*** jabber-jid-service-menu :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-jid-service-menu nil "Menu items for service menu.") #+END_SRC -*** jabber-popup-menu :function: +*** jabber-popup-menu :function: #+BEGIN_SRC emacs-lisp (defun jabber-popup-menu (which-menu) "Popup specified menu." @@ -1590,7 +1590,7 @@ This used to be: =(define-key-after global-map [menu-bar jabber-menu] ...)= but (call-interactively choice)))) #+END_SRC -*** jabber-popup-chat-menu :command: +*** jabber-popup-chat-menu :command: #+BEGIN_SRC emacs-lisp (defun jabber-popup-chat-menu () "Popup chat menu." @@ -1598,7 +1598,7 @@ This used to be: =(define-key-after global-map [menu-bar jabber-menu] ...)= but (jabber-popup-menu jabber-jid-chat-menu)) #+END_SRC -*** jabber-popup-info-menu :command: +*** jabber-popup-info-menu :command: #+BEGIN_SRC emacs-lisp (defun jabber-popup-info-menu () "Popup info menu." @@ -1606,7 +1606,7 @@ This used to be: =(define-key-after global-map [menu-bar jabber-menu] ...)= but (jabber-popup-menu jabber-jid-info-menu)) #+END_SRC -*** jabber-popup-roster-menu :command: +*** jabber-popup-roster-menu :command: #+BEGIN_SRC emacs-lisp (defun jabber-popup-roster-menu () "Popup roster menu." @@ -1614,7 +1614,7 @@ This used to be: =(define-key-after global-map [menu-bar jabber-menu] ...)= but (jabber-popup-menu jabber-jid-roster-menu)) #+END_SRC -*** jabber-popup-muc-menu :command: +*** jabber-popup-muc-menu :command: #+BEGIN_SRC emacs-lisp (defun jabber-popup-muc-menu () "Popup MUC menu." @@ -1622,7 +1622,7 @@ This used to be: =(define-key-after global-map [menu-bar jabber-menu] ...)= but (jabber-popup-menu jabber-jid-muc-menu)) #+END_SRC -*** jabber-popup-service-menu :command: +*** jabber-popup-service-menu :command: #+BEGIN_SRC emacs-lisp (defun jabber-popup-service-menu () "Popup service menu." @@ -1630,7 +1630,7 @@ This used to be: =(define-key-after global-map [menu-bar jabber-menu] ...)= but (jabber-popup-menu jabber-jid-service-menu)) #+END_SRC -*** jabber-popup-combined-menu :command: +*** jabber-popup-combined-menu :command: #+BEGIN_SRC emacs-lisp (defun jabber-popup-combined-menu () "Popup combined menu." @@ -1668,13 +1668,13 @@ A collection of functions, that hide the details of transmitting to and fro a Ja "srv not found in `load-path' or jabber-fallback-lib/ directory."))) #+END_SRC -*** jabber-conn :custom:group: +*** jabber-conn :custom:group: #+BEGIN_SRC emacs-lisp (defgroup jabber-conn nil "Jabber Connection Settings" :group 'jabber) #+END_SRC -*** jabber-have-starttls :function: +*** jabber-have-starttls :function: #+BEGIN_SRC emacs-lisp (defun jabber-have-starttls () "Return true if we can use STARTTLS." @@ -1687,7 +1687,7 @@ A collection of functions, that hide the details of transmitting to and fro a Ja (executable-find starttls-program)))))) #+END_SRC -*** jabber-default-connection-type :constant: +*** jabber-default-connection-type :constant: #+BEGIN_SRC emacs-lisp (defconst jabber-default-connection-type (cond @@ -1701,7 +1701,7 @@ A collection of functions, that hide the details of transmitting to and fro a Ja See `jabber-connect-methods'.") #+END_SRC -*** jabber-connection-ssl-program :custom:variable: +*** jabber-connection-ssl-program :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-connection-ssl-program nil "Program used for SSL/TLS connections. @@ -1714,7 +1714,7 @@ nil means prefer gnutls but fall back to openssl. :group 'jabber-conn) #+END_SRC -*** jabber-invalid-certificate-servers :custom:variable: +*** jabber-invalid-certificate-servers :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-invalid-certificate-servers () "Jabber servers for which we accept invalid TLS certificates. @@ -1727,7 +1727,7 @@ or later." :group 'jabber-conn) #+END_SRC -*** jabber-connect-methods :variable: +*** jabber-connect-methods :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-connect-methods `((network jabber-network-connect jabber-network-send) @@ -1746,7 +1746,7 @@ Second item is the connect function. Third item is the send function.") #+END_SRC -*** jabber-get-connect-function :function: +*** jabber-get-connect-function :function: #+BEGIN_SRC emacs-lisp (defun jabber-get-connect-function (type) "Get the connect function associated with TYPE. @@ -1755,7 +1755,7 @@ TYPE is a symbol; see `jabber-connection-type'." (nth 1 entry))) #+END_SRC -*** jabber-get-send-function :function: +*** jabber-get-send-function :function: #+BEGIN_SRC emacs-lisp (defun jabber-get-send-function (type) "Get the send function associated with TYPE. @@ -1764,7 +1764,7 @@ TYPE is a symbol; see `jabber-connection-type'." (nth 2 entry))) #+END_SRC -*** jabber-srv-targets :function: +*** jabber-srv-targets :function: #+BEGIN_SRC emacs-lisp (defun jabber-srv-targets (server network-server port) "Find host and port to connect to. @@ -1780,7 +1780,7 @@ If we can't find SRV records, use standard defaults." (list (cons server 5222))))) #+END_SRC -*** jabber-network-connect :function: +*** jabber-network-connect :function: #+BEGIN_SRC emacs-lisp ;; Plain TCP/IP connection (defun jabber-network-connect (fsm server network-server port) @@ -1797,7 +1797,7 @@ connection fails." (jabber-network-connect-sync fsm server network-server port)))) #+END_SRC -*** jabber-network-connect-async :function: +*** jabber-network-connect-async :function: #+BEGIN_SRC emacs-lisp (defun jabber-network-connect-async (fsm server network-server port) ;; Get all potential targets... @@ -1867,7 +1867,7 @@ connection fails." (connect (car targets) (cdr targets))))) #+END_SRC -*** jabber-network-connect-sync :function: +*** jabber-network-connect-sync :function: #+BEGIN_SRC emacs-lisp (defun jabber-network-connect-sync (fsm server network-server port) ;; This code will AFAIK only be used on Windows. Apologies in @@ -1913,14 +1913,14 @@ connection fails." (fsm-send fsm (list :connection-failed (nreverse errors)))))) #+END_SRC -*** jabber-network-send :function: +*** jabber-network-send :function: #+BEGIN_SRC emacs-lisp (defun jabber-network-send (connection string) "Send a string via a plain TCP/IP connection to the Jabber Server." (process-send-string connection string)) #+END_SRC -*** jabber-ssl-connect :function: +*** jabber-ssl-connect :function: #+BEGIN_SRC emacs-lisp ;; SSL connection, we use openssl's s_client function for encryption ;; of the link @@ -1966,7 +1966,7 @@ connection fails." (when error-msg (list error-msg)))))))) #+END_SRC -*** jabber-ssl-send :function: +*** jabber-ssl-send :function: #+BEGIN_SRC emacs-lisp (defun jabber-ssl-send (connection string) "Send a string via an SSL-encrypted connection to the Jabber Server." @@ -1975,7 +1975,7 @@ connection fails." (process-send-string connection "\n")) #+END_SRC -*** jabber-starttls-connect :function: +*** jabber-starttls-connect :function: #+BEGIN_SRC emacs-lisp (defun jabber-starttls-connect (fsm server network-server port) "Connect via an external GnuTLS process to a Jabber Server. @@ -2020,7 +2020,7 @@ connection fails." (fsm-send fsm (list :connection-failed (nreverse errors)))))) #+END_SRC -*** jabber-starttls-initiate :function: +*** jabber-starttls-initiate :function: #+BEGIN_SRC emacs-lisp (defun jabber-starttls-initiate (fsm) "Initiate a starttls connection." @@ -2028,7 +2028,7 @@ connection fails." '(starttls ((xmlns . "urn:ietf:params:xml:ns:xmpp-tls"))))) #+END_SRC -*** jabber-starttls-process-input :function: +*** jabber-starttls-process-input :function: #+BEGIN_SRC emacs-lisp (defun jabber-starttls-process-input (fsm xml-data) "Process result of starttls request. @@ -2059,7 +2059,7 @@ On failure, signal error." (error "Command rejected by server")))) #+END_SRC -*** *jabber-virtual-server-function* :variable: +*** *jabber-virtual-server-function* :variable: #+BEGIN_SRC emacs-lisp (defvar *jabber-virtual-server-function* nil "Function to use for sending stanzas on a virtual connection. @@ -2067,7 +2067,7 @@ The function should accept two arguments, the connection object and a string that the connection wants to send.") #+END_SRC -*** jabber-virtual-connect :function: +*** jabber-virtual-connect :function: #+BEGIN_SRC emacs-lisp (defun jabber-virtual-connect (fsm server network-server port) "Connect to a virtual \"server\". @@ -2079,7 +2079,7 @@ Use `*jabber-virtual-server-function*' as send function." (fsm-send fsm (list :connected fsm))) #+END_SRC -*** jabber-virtual-send :function: +*** jabber-virtual-send :function: #+BEGIN_SRC emacs-lisp (defun jabber-virtual-send (connection string) (funcall *jabber-virtual-server-function* connection string)) @@ -2105,7 +2105,7 @@ Use `*jabber-virtual-server-function*' as send function." ;;; See XMPP-CORE and XMPP-IM for details about the protocol. #+END_SRC -*** jabber-sasl-start-auth :function: +*** jabber-sasl-start-auth :function: #+BEGIN_SRC emacs-lisp (defun jabber-sasl-start-auth (jc stream-features) ;; Find a suitable common mechanism. @@ -2168,7 +2168,7 @@ Use `*jabber-virtual-server-function*' as send function." (list client step passphrase)))))) #+END_SRC -*** jabber-sasl-read-passphrase-closure :function: +*** jabber-sasl-read-passphrase-closure :function: #+BEGIN_SRC emacs-lisp (defun jabber-sasl-read-passphrase-closure (jc remember) "Return a lambda function suitable for `sasl-read-passphrase' for JC. @@ -2181,7 +2181,7 @@ Call REMEMBER with the password. REMEMBER is expected to return it as well." (lambda (prompt) (funcall remember (jabber-read-password bare-jid)))))) #+END_SRC -*** jabber-sasl-process-input :function: +*** jabber-sasl-process-input :function: #+BEGIN_SRC emacs-lisp (defun jabber-sasl-process-input (jc xml-data sasl-data) (let* ((client (first sasl-data)) @@ -2244,7 +2244,7 @@ Call REMEMBER with the password. REMEMBER is expected to return it as well." (error nil)) #+END_SRC -*** jabber-common-keymap :variable: +*** jabber-common-keymap :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-common-keymap (let ((map (make-sparse-keymap))) @@ -2261,7 +2261,7 @@ Call REMEMBER with the password. REMEMBER is expected to return it as well." map)) #+END_SRC -*** jabber-global-keymap :variable: +*** jabber-global-keymap :variable: #+BEGIN_SRC emacs-lisp ;;;###autoload (defvar jabber-global-keymap @@ -2295,7 +2295,7 @@ Call REMEMBER with the password. REMEMBER is expected to return it as well." (require 'sgml-mode) ;we base on this mode to hightlight XML #+END_SRC -*** jabber-console-name-format :custom:variable: +*** jabber-console-name-format :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-console-name-format "*-jabber-console-%s-*" "Format for console buffer name. %s mean connection jid." @@ -2303,7 +2303,7 @@ Call REMEMBER with the password. REMEMBER is expected to return it as well." :group 'jabber-debug) #+END_SRC -*** jabber-console-truncate-lines :custom:variable: +*** jabber-console-truncate-lines :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-console-truncate-lines 3000 "Maximum number of lines in console buffer. @@ -2312,19 +2312,19 @@ Not truncate if set to 0" :group 'jabber-debug) #+END_SRC -*** jabber-point-insert :variable: +*** jabber-point-insert :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-point-insert nil "Position where the message being composed starts") #+END_SRC -*** jabber-send-function :variable: +*** jabber-send-function :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-send-function nil "Function for sending a message from a chat buffer.") #+END_SRC -*** jabber-console-mode-hook :variable: +*** jabber-console-mode-hook :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-console-mode-hook nil "Hook called at the end of `jabber-console-mode'. @@ -2332,13 +2332,13 @@ Note that functions in this hook have no way of knowing what kind of chat buffer is being created.") #+END_SRC -*** jabber-console-ewoc :variable: +*** jabber-console-ewoc :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-console-ewoc nil "The ewoc showing the XML elements of this stream buffer.") #+END_SRC -*** jabber-console-mode-map :variable: +*** jabber-console-mode-map :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-console-mode-map (let ((map (make-sparse-keymap))) @@ -2347,7 +2347,7 @@ what kind of chat buffer is being created.") map)) #+END_SRC -*** jabber-console-create-buffer :function: +*** jabber-console-create-buffer :function: #+BEGIN_SRC emacs-lisp (defun jabber-console-create-buffer (jc) (with-current-buffer @@ -2359,7 +2359,7 @@ what kind of chat buffer is being created.") (current-buffer))) #+END_SRC -*** jabber-console-send :function: +*** jabber-console-send :function: #+BEGIN_SRC emacs-lisp (defun jabber-console-send (jc data) ;; Put manual string into buffers ewoc @@ -2368,7 +2368,7 @@ what kind of chat buffer is being created.") (jabber-send-string jc data)) #+END_SRC -*** jabber-console-comment :function: +*** jabber-console-comment :function: #+BEGIN_SRC emacs-lisp (defun jabber-console-comment (str) "Insert comment into console buffer." @@ -2380,7 +2380,7 @@ what kind of chat buffer is being created.") (insert string))) #+END_SRC -*** jabber-console-pp :function: +*** jabber-console-pp :function: #+BEGIN_SRC emacs-lisp (defun jabber-console-pp (data) "Pretty Printer for XML-sexp and raw data" @@ -2402,7 +2402,7 @@ what kind of chat buffer is being created.") "\n" jabber-debug-log-xml 'xml-print xml-list)))))) #+END_SRC -*** jabber-console-mode :major:mode: +*** jabber-console-mode :major:mode: #+BEGIN_SRC emacs-lisp (define-derived-mode jabber-console-mode sgml-mode "Jabber Console" "Major mode for debug XMPP protocol" @@ -2429,7 +2429,7 @@ what kind of chat buffer is being created.") (put 'jabber-console-mode 'mode-class 'special) #+END_SRC -*** jabber-console-sanitize :function: +*** jabber-console-sanitize :function: #+BEGIN_SRC emacs-lisp (defun jabber-console-sanitize (xml-data) "Sanitize XML-DATA for jabber-process-console" @@ -2438,7 +2438,7 @@ what kind of chat buffer is being created.") xml-data)) #+END_SRC -*** jabber-process-console :function: +*** jabber-process-console :function: #+BEGIN_SRC emacs-lisp ;;;###autoload (defun jabber-process-console (jc direction xml-data) @@ -2478,62 +2478,62 @@ Standards (probably) involved - "fsm not found in `load-path' or jabber-fallback-lib/ directory."))) #+END_SRC -*** jabber-connections :variable: +*** jabber-connections :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-connections nil "List of jabber-connection FSMs.") #+END_SRC -*** *jabber-roster* :variable: +*** *jabber-roster* :variable: #+BEGIN_SRC emacs-lisp (defvar *jabber-roster* nil "the roster list") #+END_SRC -*** jabber-jid-obarray :variable: +*** jabber-jid-obarray :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-jid-obarray (make-vector 127 0) "obarray for keeping JIDs") #+END_SRC -*** *jabber-disconnecting* :variable: +*** *jabber-disconnecting* :variable: #+BEGIN_SRC emacs-lisp (defvar *jabber-disconnecting* nil "boolean - are we in the process of disconnecting by free will") #+END_SRC -*** jabber-message-chain :variable: +*** jabber-message-chain :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-message-chain nil "Incoming messages are sent to these functions, in order.") #+END_SRC -*** jabber-iq-chain :variable: +*** jabber-iq-chain :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-iq-chain nil "Incoming infoqueries are sent to these functions, in order.") #+END_SRC -*** jabber-presence-chain :variable: +*** jabber-presence-chain :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-presence-chain nil "Incoming presence notifications are sent to these functions, in order.") #+END_SRC -*** jabber-namespace-prefixes :variable: +*** jabber-namespace-prefixes :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-namespace-prefixes nil "XML namespace prefixes used for the current connection.") (make-variable-buffer-local 'jabber-namespace-prefixes) #+END_SRC -*** jabber-core :custom:group: +*** jabber-core :custom:group: #+BEGIN_SRC emacs-lisp (defgroup jabber-core nil "customize core functionality" :group 'jabber) #+END_SRC -*** jabber-post-connect-hooks :custom:variable: +*** jabber-post-connect-hooks :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-post-connect-hooks '(jabber-send-current-presence jabber-muc-autojoin @@ -2551,7 +2551,7 @@ The functions should accept one argument, the connection object." :group 'jabber-core) #+END_SRC -*** jabber-pre-disconnect-hook :custom:variable: +*** jabber-pre-disconnect-hook :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-pre-disconnect-hook nil "*Hooks run just before voluntary disconnection @@ -2560,7 +2560,7 @@ This might be due to failed authentication." :group 'jabber-core) #+END_SRC -*** jabber-lost-connection-hooks :custom:variable: +*** jabber-lost-connection-hooks :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-lost-connection-hooks nil "*Hooks run after involuntary disconnection. @@ -2569,7 +2569,7 @@ The functions are called with one argument: the connection object." :group 'jabber-core) #+END_SRC -*** jabber-post-disconnect-hook :custom:variable: +*** jabber-post-disconnect-hook :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-post-disconnect-hook nil "*Hooks run after disconnection" @@ -2577,7 +2577,7 @@ The functions are called with one argument: the connection object." :group 'jabber-core) #+END_SRC -*** jabber-auto-reconnect :custom:variable: +*** jabber-auto-reconnect :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-auto-reconnect nil "Reconnect automatically after losing connection? @@ -2588,7 +2588,7 @@ indefinitely. See `password-cache' and `password-cache-expiry'." :group 'jabber-core) #+END_SRC -*** jabber-reconnect-delay :custom:variable: +*** jabber-reconnect-delay :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-reconnect-delay 5 "Seconds to wait before reconnecting" @@ -2596,7 +2596,7 @@ indefinitely. See `password-cache' and `password-cache-expiry'." :group 'jabber-core) #+END_SRC -*** jabber-roster-buffer :custom:variable: +*** jabber-roster-buffer :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-roster-buffer "*-jabber-roster-*" "The name of the roster buffer" @@ -2604,13 +2604,13 @@ indefinitely. See `password-cache' and `password-cache-expiry'." :group 'jabber-core) #+END_SRC -*** jabber-process-buffer :variable: +*** jabber-process-buffer :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-process-buffer " *-jabber-process-*" "The name of the process buffer") #+END_SRC -*** jabber-use-sasl :custom:variable: +*** jabber-use-sasl :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-use-sasl t "If non-nil, use SASL if possible. @@ -2623,26 +2623,26 @@ problems." :group 'jabber-core) #+END_SRC -*** jabber-have-sasl-p :inline:function: +*** jabber-have-sasl-p :inline:function: #+BEGIN_SRC emacs-lisp (defsubst jabber-have-sasl-p () "Return non-nil if SASL functions are available." (featurep 'sasl)) #+END_SRC -*** jabber-account-history :variable: +*** jabber-account-history :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-account-history () "Keeps track of previously used jabber accounts") #+END_SRC -*** jabber-connection-type-history :variable: +*** jabber-connection-type-history :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-connection-type-history () "Keeps track of previously used connection types") #+END_SRC -*** jabber-connect-all :command: +*** jabber-connect-all :command: #+BEGIN_SRC emacs-lisp ;;;###autoload (autoload 'jabber-connect-all "jabber" "Connect to all configured Jabber accounts.\nSee `jabber-account-list'.\nIf no accounts are configured (or ARG supplied), call `jabber-connect' interactively." t) (defun jabber-connect-all (&optional arg) @@ -2689,7 +2689,7 @@ With many prefix arguments, one less is passed to `jabber-connect'." (message "All configured Jabber accounts are already connected")))))) #+END_SRC -*** jabber-connect :command: +*** jabber-connect :command: #+BEGIN_SRC emacs-lisp ;;;###autoload (autoload 'jabber-connect "jabber" "Connect to the Jabber server and start a Jabber XML stream.\nWith prefix argument, register a new account.\nWith double prefix argument, specify more connection details." t) (defun jabber-connect (username server resource &optional @@ -2765,7 +2765,7 @@ With double prefix argument, specify more connection details." jabber-connections))) #+END_SRC -*** jabber-connection :fsm: +*** jabber-connection :fsm: #+BEGIN_SRC emacs-lisp (define-state-machine jabber-connection :start ((username server resource registerp password network-server port connection-type) @@ -2898,7 +2898,7 @@ With double prefix argument, specify more connection details." :defer))) #+END_SRC -*** jabber-fsm-handle-sentinel :inline:function: +*** jabber-fsm-handle-sentinel :inline:function: #+BEGIN_SRC emacs-lisp (defsubst jabber-fsm-handle-sentinel (state-data event) "Handle sentinel event for jabber fsm." @@ -3287,7 +3287,7 @@ With double prefix argument, specify more connection details." (list (plist-put state-data :ever-session-established t) nil)) #+END_SRC -*** jabber-pending-presence-timeout :variable: +*** jabber-pending-presence-timeout :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-pending-presence-timeout 0.5 "Wait this long before doing presence packet batch processing.") @@ -3352,7 +3352,7 @@ With double prefix argument, specify more connection details." :disconnection-expected t))))) #+END_SRC -*** jabber-disconnect :command: +*** jabber-disconnect :command: #+BEGIN_SRC emacs-lisp (defun jabber-disconnect (&optional arg) "Disconnect from all Jabber servers. If ARG supplied, disconnect one account." @@ -3373,7 +3373,7 @@ With double prefix argument, specify more connection details." (message "Disconnected from Jabber server(s)"))))))) #+END_SRC -*** jabber-disconnect-one :command: +*** jabber-disconnect-one :command: #+BEGIN_SRC emacs-lisp (defun jabber-disconnect-one (jc &optional dont-redisplay) "Disconnect from one Jabber server. @@ -3387,7 +3387,7 @@ If DONT-REDISPLAY is non-nil, don't update roster buffer." (jabber-display-roster))) #+END_SRC -*** jabber-disconnected :function: +*** jabber-disconnected :function: #+BEGIN_SRC emacs-lisp (defun jabber-disconnected () "Re-initialise jabber package variables. @@ -3401,7 +3401,7 @@ Call this function after disconnection." (run-hooks 'jabber-post-disconnect-hook)) #+END_SRC -*** jabber-log-xml :function: +*** jabber-log-xml :function: #+BEGIN_SRC emacs-lisp (defun jabber-log-xml (fsm direction data) "Print DATA to XML console (and, optionally, in file). @@ -3413,7 +3413,7 @@ DATA is any sexp." (jabber-process-console fsm direction data))) #+END_SRC -*** jabber-pre-filter :function: +*** jabber-pre-filter :function: #+BEGIN_SRC emacs-lisp (defun jabber-pre-filter (process string fsm) (with-current-buffer (process-buffer process) @@ -3426,7 +3426,7 @@ DATA is any sexp." (jabber-filter process fsm))))) #+END_SRC -*** jabber-filter :function: +*** jabber-filter :function: #+BEGIN_SRC emacs-lisp (defun jabber-filter (process fsm) "the filter function for the jabber process" @@ -3504,7 +3504,7 @@ DATA is any sexp." )))) #+END_SRC -*** jabber-process-input :function: +*** jabber-process-input :function: #+BEGIN_SRC emacs-lisp (defun jabber-process-input (jc xml-data) "process an incoming parsed tag" @@ -3519,7 +3519,7 @@ DATA is any sexp." (fsm-debug-output "Error %S while processing %S with function %s" e xml-data f)))))) #+END_SRC -*** jabber-process-stream-error :function: +*** jabber-process-stream-error :function: #+BEGIN_SRC emacs-lisp (defun jabber-process-stream-error (xml-data state-data) "Process an incoming stream error. @@ -3539,7 +3539,7 @@ Return an fsm result list if it is." (list nil state-data)))) #+END_SRC -*** jabber-clear-roster :function: +*** jabber-clear-roster :function: #+BEGIN_SRC emacs-lisp ;; XXX: This function should probably die. The roster is stored ;; inside the connection plists, and the obarray shouldn't be so big @@ -3553,7 +3553,7 @@ Return an fsm result list if it is." (setq *jabber-roster* nil)) #+END_SRC -*** jabber-send-sexp :function: +*** jabber-send-sexp :function: #+BEGIN_SRC emacs-lisp (defun jabber-send-sexp (jc sexp) "Send the xml corresponding to SEXP to connection JC." @@ -3566,14 +3566,14 @@ Return an fsm result list if it is." (jabber-send-string jc (jabber-sexp2xml sexp))) #+END_SRC -*** jabber-send-sexp-if-connected :function: +*** jabber-send-sexp-if-connected :function: #+BEGIN_SRC emacs-lisp (defun jabber-send-sexp-if-connected (jc sexp) "Send the stanza SEXP only if JC has established a session." (fsm-send-sync jc (cons :send-if-connected sexp))) #+END_SRC -*** jabber-send-stream-header :function: +*** jabber-send-stream-header :function: #+BEGIN_SRC emacs-lisp (defun jabber-send-stream-header (jc) "Send stream header to connection JC." @@ -3592,7 +3592,7 @@ Return an fsm result list if it is." (jabber-send-string jc stream-header))) #+END_SRC -*** jabber-send-string :function: +*** jabber-send-string :function: #+BEGIN_SRC emacs-lisp (defun jabber-send-string (jc string) "Send STRING to the connection JC." @@ -3615,7 +3615,7 @@ In Emacs 24, sha1 is built in, so this =require= is only needed for earlier vers (require 'sha1)) #+END_SRC -*** jabber-get-auth :function: +*** jabber-get-auth :function: #+BEGIN_SRC emacs-lisp (defun jabber-get-auth (jc to session-id) "Send IQ get request in namespace \"jabber:iq:auth\"." @@ -3627,7 +3627,7 @@ In Emacs 24, sha1 is built in, so this =require= is only needed for earlier vers #'jabber-report-success "Impossible error - auth field request")) #+END_SRC -*** jabber-do-logon :function: +*** jabber-do-logon :function: #+BEGIN_SRC emacs-lisp (defun jabber-do-logon (jc xml-data session-id) "Send username and password in logon attempt." @@ -3660,7 +3660,7 @@ In Emacs 24, sha1 is built in, so this =require= is only needed for earlier vers #'jabber-process-logon nil)))) #+END_SRC -*** jabber-process-logon :function: +*** jabber-process-logon :function: #+BEGIN_SRC emacs-lisp (defun jabber-process-logon (jc xml-data closure-data) "receive login success or failure, and request roster. @@ -3683,13 +3683,13 @@ CLOSURE-DATA should be the password on success and nil on failure." (require 'format-spec) (require 'cl) ;for `find' #+END_SRC -*** jabber-roster :custom:group: +*** jabber-roster :custom:group: #+BEGIN_SRC emacs-lisp (defgroup jabber-roster nil "roster display options" :group 'jabber) #+END_SRC -*** jabber-roster-line-format :custom:variable: +*** jabber-roster-line-format :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-roster-line-format " %a %c %-25n %u %-8s %S" "The format specification of the lines in the roster display. @@ -3711,7 +3711,7 @@ These fields are available: :group 'jabber-roster) #+END_SRC -*** jabber-roster-subscription-display :custom:variable: +*** jabber-roster-subscription-display :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-roster-subscription-display '(("none" . " ") ("from" . "< ") @@ -3738,7 +3738,7 @@ display them: ← → ⇄ ↔" :group 'jabber-roster) #+END_SRC -*** jabber-resource-line-format :custom:variable: +*** jabber-resource-line-format :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-resource-line-format " %r - %s (%S), priority %p" "The format specification of resource lines in the roster display. @@ -3757,7 +3757,7 @@ These fields are available: :group 'jabber-roster) #+END_SRC -*** jabber-roster-sort-functions :custom:variable: +*** jabber-roster-sort-functions :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-roster-sort-functions '(jabber-roster-sort-by-status jabber-roster-sort-by-displayname) @@ -3774,7 +3774,7 @@ These functions should take two roster items A and B, and return: :group 'jabber-roster) #+END_SRC -*** jabber-sort-order :custom:variable: +*** jabber-sort-order :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-sort-order '("chat" "" "away" "dnd" "xa") "Sort by status in this order. Anything not in list goes last. @@ -3783,7 +3783,7 @@ Offline is represented as nil." :group 'jabber-roster) #+END_SRC -*** jabber-show-resources :custom:variable: +*** jabber-show-resources :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-show-resources 'sometimes "Show contacts' resources in roster? @@ -3798,7 +3798,7 @@ always Always show resources" :group 'jabber-roster) #+END_SRC -*** jabber-show-offline-contacts :custom:variable: +*** jabber-show-offline-contacts :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-show-offline-contacts t "Show offline contacts in roster when non-nil" @@ -3806,7 +3806,7 @@ always Always show resources" :group 'jabber-roster) #+END_SRC -*** jabber-remove-newlines :custom:variable: +*** jabber-remove-newlines :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-remove-newlines t "Remove newlines in status messages? @@ -3819,7 +3819,7 @@ Trailing newlines are always removed, regardless of this variable." :group 'jabber-roster) #+END_SRC -*** jabber-roster-show-bindings :custom:variable: +*** jabber-roster-show-bindings :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-roster-show-bindings t "Show keybindings in roster buffer?" @@ -3827,7 +3827,7 @@ Trailing newlines are always removed, regardless of this variable." :group 'jabber-roster) #+END_SRC -*** jabber-roster-show-title :custom:variable: +*** jabber-roster-show-title :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-roster-show-title t "Show title in roster buffer?" @@ -3835,7 +3835,7 @@ Trailing newlines are always removed, regardless of this variable." :group 'jabber-roster) #+END_SRC -*** jabber-roster-mode-hook :custom:variable: +*** jabber-roster-mode-hook :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-roster-mode-hook nil "Hook run when entering Roster mode." @@ -3843,7 +3843,7 @@ Trailing newlines are always removed, regardless of this variable." :type 'hook) #+END_SRC -*** jabber-roster-default-group-name :custom:variable: +*** jabber-roster-default-group-name :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-roster-default-group-name "other" "Default group name for buddies without groups." @@ -3861,7 +3861,7 @@ Trailing newlines are always removed, regardless of this variable." ) #+END_SRC -*** jabber-roster-show-empty-group :custom:variable: +*** jabber-roster-show-empty-group :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-roster-show-empty-group nil "Show empty groups in roster?" @@ -3869,7 +3869,7 @@ Trailing newlines are always removed, regardless of this variable." :type 'boolean) #+END_SRC -*** jabber-roster-roll-up-group :custom:variable: +*** jabber-roster-roll-up-group :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-roster-roll-up-group nil "Show empty groups in roster?" @@ -3877,7 +3877,7 @@ Trailing newlines are always removed, regardless of this variable." :type 'boolean) #+END_SRC -*** jabber-roster-user-online :face: +*** jabber-roster-user-online :face: #+BEGIN_SRC emacs-lisp (defface jabber-roster-user-online '((t (:foreground "blue" :weight bold :slant normal))) @@ -3885,7 +3885,7 @@ Trailing newlines are always removed, regardless of this variable." :group 'jabber-roster) #+END_SRC -*** jabber-roster-user-xa :face: +*** jabber-roster-user-xa :face: #+BEGIN_SRC emacs-lisp (defface jabber-roster-user-xa '((((background dark)) (:foreground "magenta" :weight normal :slant italic)) @@ -3894,7 +3894,7 @@ Trailing newlines are always removed, regardless of this variable." :group 'jabber-roster) #+END_SRC -*** jabber-roster-user-dnd :face: +*** jabber-roster-user-dnd :face: #+BEGIN_SRC emacs-lisp (defface jabber-roster-user-dnd '((t (:foreground "red" :weight normal :slant italic))) @@ -3902,7 +3902,7 @@ Trailing newlines are always removed, regardless of this variable." :group 'jabber-roster) #+END_SRC -*** jabber-roster-user-away :face: +*** jabber-roster-user-away :face: #+BEGIN_SRC emacs-lisp (defface jabber-roster-user-away '((t (:foreground "dark green" :weight normal :slant italic))) @@ -3910,7 +3910,7 @@ Trailing newlines are always removed, regardless of this variable." :group 'jabber-roster) #+END_SRC -*** jabber-roster-user-chatty :face: +*** jabber-roster-user-chatty :face: #+BEGIN_SRC emacs-lisp (defface jabber-roster-user-chatty '((t (:foreground "dark orange" :weight bold :slant normal))) @@ -3918,7 +3918,7 @@ Trailing newlines are always removed, regardless of this variable." :group 'jabber-roster) #+END_SRC -*** jabber-roster-user-error :face: +*** jabber-roster-user-error :face: #+BEGIN_SRC emacs-lisp (defface jabber-roster-user-error '((t (:foreground "red" :weight light :slant italic))) @@ -3926,7 +3926,7 @@ Trailing newlines are always removed, regardless of this variable." :group 'jabber-roster) #+END_SRC -*** jabber-roster-user-offline :face: +*** jabber-roster-user-offline :face: #+BEGIN_SRC emacs-lisp (defface jabber-roster-user-offline '((t (:foreground "dark grey" :weight light :slant italic))) @@ -3934,13 +3934,13 @@ Trailing newlines are always removed, regardless of this variable." :group 'jabber-roster) #+END_SRC -*** jabber-roster-debug :variable: +*** jabber-roster-debug :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-roster-debug nil "debug roster draw") #+END_SRC -*** jabber-roster-mode-map :variable: +*** jabber-roster-mode-map :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-roster-mode-map (let ((map (make-sparse-keymap))) @@ -3971,7 +3971,7 @@ Trailing newlines are always removed, regardless of this variable." map)) #+END_SRC -*** jabber-roster-ret-action-at-point :command: +*** jabber-roster-ret-action-at-point :command: #+BEGIN_SRC emacs-lisp (defun jabber-roster-ret-action-at-point () "Action for ret. Before try to roll up/down group. Eval @@ -3992,7 +3992,7 @@ chat-with-jid-at-point is no group at point" jid-at-point)))) #+END_SRC -*** jabber-roster-ret-action-at-point-1 :function: +*** jabber-roster-ret-action-at-point-1 :function: #+BEGIN_SRC emacs-lisp (defun jabber-roster-ret-action-at-point-1 (jc jid result) ;; If we get an error, assume it's a normal contact. @@ -4011,7 +4011,7 @@ chat-with-jid-at-point is no group at point" (jabber-chat-with jc jid))))) #+END_SRC -*** jabber-roster-mouse-2-action-at-point :command: +*** jabber-roster-mouse-2-action-at-point :command: #+BEGIN_SRC emacs-lisp (defun jabber-roster-mouse-2-action-at-point (e) "Action for mouse-2. Before try to roll up/down group. Eval @@ -4027,7 +4027,7 @@ chat-with-jid-at-point is no group at point" (jabber-popup-combined-menu)))) #+END_SRC -*** jabber-roster-delete-at-point :command: +*** jabber-roster-delete-at-point :command: #+BEGIN_SRC emacs-lisp (defun jabber-roster-delete-at-point () "Delete at point from roster. @@ -4050,7 +4050,7 @@ Delete a jid if there is no group at point." (jabber-roster-delete-jid-at-point)))) #+END_SRC -*** jabber-roster-edit-action-at-point :command: +*** jabber-roster-edit-action-at-point :command: #+BEGIN_SRC emacs-lisp (defun jabber-roster-edit-action-at-point () "Action for e. Before try to edit group name. @@ -4072,7 +4072,7 @@ Eval `jabber-roster-change' is no group at point" (call-interactively 'jabber-roster-change)))) #+END_SRC -*** jabber-roster-roll-group :function: +*** jabber-roster-roll-group :function: #+BEGIN_SRC emacs-lisp (defun jabber-roster-roll-group (jc group-name &optional set) "Roll up/down group in roster. @@ -4099,7 +4099,7 @@ If SET is nor t or nil, roll down group." (jabber-display-roster)))) #+END_SRC -*** jabber-roster-mode :function: +*** jabber-roster-mode :function: #+BEGIN_SRC emacs-lisp (defun jabber-roster-mode () "Major mode for Jabber roster display. @@ -4121,7 +4121,7 @@ bring up menus of actions. (put 'jabber-roster-mode 'mode-class 'special) #+END_SRC -*** jabber-switch-to-roster-buffer :command: +*** jabber-switch-to-roster-buffer :command: #+BEGIN_SRC emacs-lisp ;;;###autoload (defun jabber-switch-to-roster-buffer (&optional jc) @@ -4134,7 +4134,7 @@ be used in `jabber-post-connection-hooks'." (switch-to-buffer jabber-roster-buffer))) #+END_SRC -*** jabber-sort-roster :function: +*** jabber-sort-roster :function: #+BEGIN_SRC emacs-lisp (defun jabber-sort-roster (jc) "sort roster according to online status" @@ -4149,7 +4149,7 @@ be used in `jabber-post-connection-hooks'." (plist-get state-data :roster-hash)))))) #+END_SRC -*** jabber-roster-prepare-roster :function: +*** jabber-roster-prepare-roster :function: #+BEGIN_SRC emacs-lisp (defun jabber-roster-prepare-roster (jc) "make a hash based roster" @@ -4191,7 +4191,7 @@ be used in `jabber-post-connection-hooks'." hash))) #+END_SRC -*** jabber-roster-sort-items :function: +*** jabber-roster-sort-items :function: #+BEGIN_SRC emacs-lisp (defun jabber-roster-sort-items (a b) "Sort roster items A and B according to `jabber-roster-sort-functions'. @@ -4205,7 +4205,7 @@ Return t if A is less than B." (return nil)))))) #+END_SRC -*** jabber-roster-sort-by-status :function: +*** jabber-roster-sort-by-status :function: #+BEGIN_SRC emacs-lisp (defun jabber-roster-sort-by-status (a b) "Sort roster items by online status. @@ -4223,7 +4223,7 @@ See `jabber-sort-order' for order used." 0))))) #+END_SRC -*** jabber-roster-sort-by-displayname :function: +*** jabber-roster-sort-by-displayname :function: #+BEGIN_SRC emacs-lisp (defun jabber-roster-sort-by-displayname (a b) "Sort roster items by displayed name." @@ -4235,7 +4235,7 @@ See `jabber-sort-order' for order used." (t 1)))) #+END_SRC -*** jabber-roster-sort-by-group :function: +*** jabber-roster-sort-by-group :function: #+BEGIN_SRC emacs-lisp (defun jabber-roster-sort-by-group (a b) "Sort roster items by group membership." @@ -4248,7 +4248,7 @@ See `jabber-sort-order' for order used." (t 1))))) #+END_SRC -*** jabber-fix-status :function: +*** jabber-fix-status :function: #+BEGIN_SRC emacs-lisp (defun jabber-fix-status (status) "Make status strings more readable" @@ -4261,7 +4261,7 @@ See `jabber-sort-order' for order used." status)) #+END_SRC -*** jabber-roster-ewoc :variable: +*** jabber-roster-ewoc :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-roster-ewoc nil "Ewoc displaying the roster. @@ -4269,7 +4269,7 @@ There is only one; we don't rely on buffer-local variables or such.") #+END_SRC -*** jabber-roster-filter-display :function: +*** jabber-roster-filter-display :function: #+BEGIN_SRC emacs-lisp (defun jabber-roster-filter-display (buddies) "Filter BUDDIES for items to be displayed in the roster" @@ -4278,7 +4278,7 @@ such.") buddies)) #+END_SRC -*** jabber-roster-toggle-offline-display :command: +*** jabber-roster-toggle-offline-display :command: #+BEGIN_SRC emacs-lisp (defun jabber-roster-toggle-offline-display () "Toggle display of offline contacts. @@ -4289,7 +4289,7 @@ To change this permanently, customize the `jabber-show-offline-contacts'." (jabber-display-roster)) #+END_SRC -*** jabber-roster-toggle-binding-display :command: +*** jabber-roster-toggle-binding-display :command: #+BEGIN_SRC emacs-lisp (defun jabber-roster-toggle-binding-display () "Toggle display of the roster binding text." @@ -4299,7 +4299,7 @@ To change this permanently, customize the `jabber-show-offline-contacts'." (jabber-display-roster)) #+END_SRC -*** jabber-display-roster :command: +*** jabber-display-roster :command: #+BEGIN_SRC emacs-lisp (defun jabber-display-roster () "switch to the main jabber buffer and refresh the roster display to reflect the current information" @@ -4404,7 +4404,7 @@ H Toggle displaying this text (move-to-column current-column))))) #+END_SRC -*** jabber-display-roster-entry :function: +*** jabber-display-roster-entry :function: #+BEGIN_SRC emacs-lisp (defun jabber-display-roster-entry (jc group-name buddy) "Format and insert a roster entry for BUDDY at point. @@ -4513,7 +4513,7 @@ BUDDY is a JID symbol." (insert group-name)))) #+END_SRC -*** jabber-roster-update :function: +*** jabber-roster-update :function: #+BEGIN_SRC emacs-lisp ;;;###autoload (defun jabber-roster-update (jc new-items changed-items deleted-items) @@ -4617,7 +4617,7 @@ three being lists of JID symbols." (make-obsolete 'jabber-presence-update-roster 'ignore) #+END_SRC -*** jabber-next-property :function: +*** jabber-next-property :function: #+BEGIN_SRC emacs-lisp (defun jabber-next-property (&optional prev) "Return position of next property appearence or nil if there is none. @@ -4641,7 +4641,7 @@ If optional PREV is non-nil, return position of previous property appearence." pos)) #+END_SRC -*** jabber-go-to-next-roster-item :command: +*** jabber-go-to-next-roster-item :command: #+BEGIN_SRC emacs-lisp (defun jabber-go-to-next-roster-item () "Move the cursor to the next jid/group in the buffer" @@ -4654,7 +4654,7 @@ If optional PREV is non-nil, return position of previous property appearence." (goto-char (point-min))))) #+END_SRC -*** jabber-go-to-previous-roster-item :command: +*** jabber-go-to-previous-roster-item :command: #+BEGIN_SRC emacs-lisp (defun jabber-go-to-previous-roster-item () "Move the cursor to the previous jid/group in the buffer" @@ -4667,7 +4667,7 @@ If optional PREV is non-nil, return position of previous property appearence." (goto-char (point-max))))) #+END_SRC -*** jabber-roster-restore-groups :command: +*** jabber-roster-restore-groups :command: #+BEGIN_SRC emacs-lisp (defun jabber-roster-restore-groups (jc) "Restore roster's groups rolling state from private storage" @@ -4676,7 +4676,7 @@ If optional PREV is non-nil, return position of previous property appearence." 'jabber-roster-restore-groups-1 'ignore)) #+END_SRC -*** jabber-roster-restore-groups-1 :function: +*** jabber-roster-restore-groups-1 :function: #+BEGIN_SRC emacs-lisp (defun jabber-roster-restore-groups-1 (jc xml-data) "Parse roster groups and restore rolling state" @@ -4687,7 +4687,7 @@ If optional PREV is non-nil, return position of previous property appearence." (jabber-roster-roll-group jc group t))))) #+END_SRC -*** jabber-roster-save-groups :command: +*** jabber-roster-save-groups :command: #+BEGIN_SRC emacs-lisp (defun jabber-roster-save-groups () "Save roster's groups rolling state in private storage" @@ -4714,17 +4714,17 @@ If optional PREV is non-nil, return position of previous property appearence." (require 'cl) #+END_SRC -*** jabber-export-roster-widget :variable: +*** jabber-export-roster-widget :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-export-roster-widget nil) #+END_SRC -*** jabber-import-subscription-p-widget :variable: +*** jabber-import-subscription-p-widget :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-import-subscription-p-widget nil) #+END_SRC -*** jabber-export-roster :command: +*** jabber-export-roster :command: #+BEGIN_SRC emacs-lisp ;;;###autoload (defun jabber-export-roster (jc) @@ -4735,7 +4735,7 @@ If optional PREV is non-nil, return position of previous property appearence." (jabber-roster-to-sexp (plist-get state-data :roster))))) #+END_SRC -*** jabber-export-roster-do-it :command: +*** jabber-export-roster-do-it :command: #+BEGIN_SRC emacs-lisp (defun jabber-export-roster-do-it (roster) "Create buffer from which ROSTER can be exported to a file." @@ -4765,7 +4765,7 @@ not affect your actual roster. (switch-to-buffer (current-buffer)))) #+END_SRC -*** jabber-import-roster :command: +*** jabber-import-roster :command: #+BEGIN_SRC emacs-lisp ;;;###autoload (defun jabber-import-roster (jc file) @@ -4807,7 +4807,7 @@ not affect your actual roster. (switch-to-buffer (current-buffer))))) #+END_SRC -*** jabber-export-remove-regexp :function: +*** jabber-export-remove-regexp :function: #+BEGIN_SRC emacs-lisp (defun jabber-export-remove-regexp (&rest ignore) (let* ((value (widget-value jabber-export-roster-widget)) @@ -4822,7 +4822,7 @@ not affect your actual roster. (message "%d items removed" (- length-before (length value))))) #+END_SRC -*** jabber-export-save :function: +*** jabber-export-save :function: #+BEGIN_SRC emacs-lisp (defun jabber-export-save (&rest ignore) "Export roster to file." @@ -4836,7 +4836,7 @@ not affect your actual roster. (message "Roster saved"))) #+END_SRC -*** jabber-import-doit :function: +*** jabber-import-doit :function: #+BEGIN_SRC emacs-lisp (defun jabber-import-doit (&rest ignore) "Import roster being edited in widget." @@ -4899,7 +4899,7 @@ not affect your actual roster. #'jabber-report-success "Roster import")))) #+END_SRC -*** jabber-roster-to-sexp :function: +*** jabber-roster-to-sexp :function: #+BEGIN_SRC emacs-lisp (defun jabber-roster-to-sexp (roster) "Convert ROSTER to simpler sexp format. @@ -4916,7 +4916,7 @@ where groups is a list of strings." roster)) #+END_SRC -*** jabber-roster-sexp-to-xml :function: +*** jabber-roster-sexp-to-xml :function: #+BEGIN_SRC emacs-lisp (defun jabber-roster-sexp-to-xml (sexp &optional omit-subscription) "Convert SEXP to XML format. @@ -4933,7 +4933,7 @@ Return an XML node." (nth 3 sexp)))) #+END_SRC -*** jabber-roster-xml-to-sexp :function: +*** jabber-roster-xml-to-sexp :function: #+BEGIN_SRC emacs-lisp (defun jabber-roster-xml-to-sexp (xml-data) "Convert XML-DATA to simpler sexp format. @@ -4955,7 +4955,7 @@ See `jabber-roster-to-sexp' for description of output format." (jabber-xml-get-children query 'item)))) #+END_SRC -*** jabber-export-display :function: +*** jabber-export-display :function: #+BEGIN_SRC emacs-lisp (defun jabber-export-display (roster) (setq jabber-export-roster-widget @@ -4981,25 +4981,25 @@ See `jabber-roster-to-sexp' for description of output format." :old-file: jabber-iq.el :END: -*** *jabber-open-info-queries* :variable: +*** *jabber-open-info-queries* :variable: #+BEGIN_SRC emacs-lisp (defvar *jabber-open-info-queries* nil "an alist of open query id and their callback functions") #+END_SRC -*** jabber-iq-get-xmlns-alist :variable: +*** jabber-iq-get-xmlns-alist :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-iq-get-xmlns-alist nil "Mapping from XML namespace to handler for IQ GET requests.") #+END_SRC -*** jabber-iq-set-xmlns-alist :variable: +*** jabber-iq-set-xmlns-alist :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-iq-set-xmlns-alist nil "Mapping from XML namespace to handler for IQ SET requests.") #+END_SRC -*** jabber-browse-mode-map :variable: +*** jabber-browse-mode-map :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-browse-mode-map (let ((map (make-sparse-keymap))) @@ -5008,7 +5008,7 @@ See `jabber-roster-to-sexp' for description of output format." map)) #+END_SRC -*** jabber-browse-mode-hook :custom:variable: +*** jabber-browse-mode-hook :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-browse-mode-hook nil "Hook run when entering Browse mode." @@ -5016,13 +5016,13 @@ See `jabber-roster-to-sexp' for description of output format." :type 'hook) #+END_SRC -*** jabber-browse :custom:group: +*** jabber-browse :custom:group: #+BEGIN_SRC emacs-lisp (defgroup jabber-browse nil "browse display options" :group 'jabber) #+END_SRC -*** jabber-browse-buffer-format :custom:variable: +*** jabber-browse-buffer-format :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-browse-buffer-format "*-jabber-browse:-%n-*" "The format specification for the name of browse buffers. @@ -5034,7 +5034,7 @@ These fields are available at this moment: :group 'jabber-browse) #+END_SRC -*** jabber-browse-mode :function: +*** jabber-browse-mode :function: #+BEGIN_SRC emacs-lisp (defun jabber-browse-mode () "\\{jabber-browse-mode-map}" @@ -5053,7 +5053,7 @@ These fields are available at this moment: (put 'jabber-browse-mode 'mode-class 'special) #+END_SRC -*** jabber-process-iq :function: +*** jabber-process-iq :function: #+BEGIN_SRC emacs-lisp (add-to-list 'jabber-iq-chain 'jabber-process-iq) (defun jabber-process-iq (jc xml-data) @@ -5091,7 +5091,7 @@ These fields are available at this moment: (jabber-send-iq-error jc from id query "cancel" 'feature-not-implemented))))))) #+END_SRC -*** jabber-send-iq :function: +*** jabber-send-iq :function: #+BEGIN_SRC emacs-lisp (defun jabber-send-iq (jc to type query success-callback success-closure-data error-callback error-closure-data &optional result-id) @@ -5126,7 +5126,7 @@ with XML-DATA being the IQ stanza received in response. " query)))) #+END_SRC -*** jabber-send-iq-error :function: +*** jabber-send-iq-error :function: #+BEGIN_SRC emacs-lisp (defun jabber-send-iq-error (jc to id original-query error-type condition &optional text app-specific) @@ -5157,7 +5157,7 @@ See section 9.3 of XMPP Core." ,@app-specific)))) #+END_SRC -*** jabber-process-data :function: +*** jabber-process-data :function: #+BEGIN_SRC emacs-lisp (defun jabber-process-data (jc xml-data closure-data) "Process random results from various requests." @@ -5192,7 +5192,7 @@ See section 9.3 of XMPP Core." (run-hook-with-args hook 'browse (current-buffer) (funcall jabber-alert-info-message-function 'browse (current-buffer)))))))) #+END_SRC -*** jabber-silent-process-data :function: +*** jabber-silent-process-data :function: #+BEGIN_SRC emacs-lisp (defun jabber-silent-process-data (jc xml-data closure-data) "Process random results from various requests to only alert hooks." @@ -5217,13 +5217,13 @@ See section 9.3 of XMPP Core." (require 'cl) #+END_SRC -*** jabber-alerts :custom:group: +*** jabber-alerts :custom:group: #+BEGIN_SRC emacs-lisp (defgroup jabber-alerts nil "auditory and visual alerts for jabber events" :group 'jabber) #+END_SRC -*** jabber-alert-message-hooks :custom:variable: +*** jabber-alert-message-hooks :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-alert-message-hooks '(jabber-message-echo jabber-message-scroll) @@ -5247,7 +5247,7 @@ other uses, see `jabber-message-hooks'." :group 'jabber-alerts) #+END_SRC -*** jabber-message-hooks :variable: +*** jabber-message-hooks :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-message-hooks nil "Internal hooks run when a new message arrives. @@ -5256,7 +5256,7 @@ This hook works just like `jabber-alert-message-hooks', except that it's not meant to be customized by the user.") #+END_SRC -*** jabber-alert-message-function :custom:variable: +*** jabber-alert-message-function :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-alert-message-function 'jabber-message-default-message @@ -5273,7 +5273,7 @@ every time." :group 'jabber-alerts) #+END_SRC -*** jabber-alert-muc-hooks :custom:variable: +*** jabber-alert-muc-hooks :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-alert-muc-hooks '(jabber-muc-echo jabber-muc-scroll) "Hooks run when a new MUC message arrives. @@ -5294,7 +5294,7 @@ not have to call it themselves." :group 'jabber-alerts) #+END_SRC -*** jabber-muc-hooks :variable: +*** jabber-muc-hooks :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-muc-hooks '() "Internal hooks run when a new MUC message arrives. @@ -5303,7 +5303,7 @@ This hook works just like `jabber-alert-muc-hooks', except that it's not meant to be customized by the user.") #+END_SRC -*** jabber-alert-muc-function :custom:variable: +*** jabber-alert-muc-function :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-alert-muc-function 'jabber-muc-default-message @@ -5320,7 +5320,7 @@ every time." :group 'jabber-alerts) #+END_SRC -*** jabber-alert-presence-hooks :custom:variable: +*** jabber-alert-presence-hooks :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-alert-presence-hooks '(jabber-presence-echo) @@ -5342,7 +5342,7 @@ one of \"subscribe\", \"unsubscribe\", \"subscribed\" and :group 'jabber-alerts) #+END_SRC -*** jabber-presence-hooks :variable: +*** jabber-presence-hooks :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-presence-hooks '(jabber-presence-watch) "Internal hooks run when a user's presence changes. @@ -5351,7 +5351,7 @@ This hook works just like `jabber-alert-presence-hooks', except that it's not meant to be customized by the user.") #+END_SRC -*** jabber-alert-presence-message-function :custom:variable: +*** jabber-alert-presence-message-function :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-alert-presence-message-function 'jabber-presence-default-message @@ -5368,7 +5368,7 @@ All hooks refrain from action if this function returns nil." :group 'jabber-alerts) #+END_SRC -*** jabber-alert-info-message-hooks :custom:variable: +*** jabber-alert-info-message-hooks :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-alert-info-message-hooks '(jabber-info-display jabber-info-echo) "Hooks run when an info request is completed. @@ -5387,7 +5387,7 @@ Third argument is PROPOSED-ALERT, containing the string returned by :group 'jabber-alerts) #+END_SRC -*** jabber-info-message-hooks :variable: +*** jabber-info-message-hooks :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-info-message-hooks '() "Internal hooks run when an info request is completed. @@ -5396,7 +5396,7 @@ This hook works just like `jabber-alert-info-message-hooks', except that it's not meant to be customized by the user.") #+END_SRC -*** jabber-alert-info-message-function :custom:variable: +*** jabber-alert-info-message-function :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-alert-info-message-function 'jabber-info-default-message @@ -5408,7 +5408,7 @@ and BUFFER, a buffer containing the result." :group 'jabber-alerts) #+END_SRC -*** jabber-info-message-alist :custom:variable: +*** jabber-info-message-alist :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-info-message-alist '((roster . "Roster display updated") @@ -5419,7 +5419,7 @@ and BUFFER, a buffer containing the result." :group 'jabber-alerts) #+END_SRC -*** jabber-alert-message-wave :custom:variable: +*** jabber-alert-message-wave :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-alert-message-wave "" "A sound file to play when a message arrived. @@ -5429,7 +5429,7 @@ for specific contacts." :group 'jabber-alerts) #+END_SRC -*** jabber-alert-message-wave-alist :custom:variable: +*** jabber-alert-message-wave-alist :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-alert-message-wave-alist nil "Specific sound files for messages from specific contacts. @@ -5439,7 +5439,7 @@ files." :group 'jabber-alerts) #+END_SRC -*** jabber-alert-muc-wave :custom:variable: +*** jabber-alert-muc-wave :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-alert-muc-wave "" "a sound file to play when a MUC message arrived" @@ -5447,7 +5447,7 @@ files." :group 'jabber-alerts) #+END_SRC -*** jabber-alert-presence-wave :custom:variable: +*** jabber-alert-presence-wave :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-alert-presence-wave "" "a sound file to play when a presence arrived" @@ -5455,7 +5455,7 @@ files." :group 'jabber-alerts) #+END_SRC -*** jabber-alert-presence-wave-alist :custom:variable: +*** jabber-alert-presence-wave-alist :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-alert-presence-wave-alist nil "Specific sound files for presence from specific contacts. @@ -5465,7 +5465,7 @@ files." :group 'jabber-alerts) #+END_SRC -*** jabber-alert-info-wave :custom:variable: +*** jabber-alert-info-wave :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-alert-info-wave "" "a sound file to play when an info query result arrived" @@ -5473,7 +5473,7 @@ files." :group 'jabber-alerts) #+END_SRC -*** jabber-play-sound-file :custom:variable: +*** jabber-play-sound-file :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-play-sound-file 'play-sound-file "a function to call to play alert sound files" @@ -5481,7 +5481,7 @@ files." :group 'jabber-alerts) #+END_SRC -*** define-jabber-alert :macro: +*** define-jabber-alert :macro: #+BEGIN_SRC emacs-lisp (defmacro define-jabber-alert (name docstring function) "Define a new family of external alert hooks. @@ -5538,7 +5538,7 @@ Examples: (lambda (&rest ignore) (beep))) #+END_SRC -*** jabber-message-default-message :function: +*** jabber-message-default-message :function: #+BEGIN_SRC emacs-lisp ;; Message alert hooks (defun jabber-message-default-message (from buffer text) @@ -5551,7 +5551,7 @@ Examples: (format "Message from %s" (jabber-jid-displayname from))))) #+END_SRC -*** jabber-message-alert-same-buffer :custom:variable: +*** jabber-message-alert-same-buffer :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-message-alert-same-buffer t "If nil, don't display message alerts for the current buffer." @@ -5559,7 +5559,7 @@ Examples: :group 'jabber-alerts) #+END_SRC -*** jabber-muc-alert-self :custom:variable: +*** jabber-muc-alert-self :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-muc-alert-self nil "If nil, don't display MUC alerts for your own messages." @@ -5567,7 +5567,7 @@ Examples: :group 'jabber-alerts) #+END_SRC -*** jabber-message-wave :function: +*** jabber-message-wave :function: #+BEGIN_SRC emacs-lisp (defun jabber-message-wave (from buffer text title) "Play the wave file specified in `jabber-alert-message-wave'" @@ -5582,7 +5582,7 @@ Examples: (funcall jabber-play-sound-file sound-file))))) #+END_SRC -*** jabber-message-display :function: +*** jabber-message-display :function: #+BEGIN_SRC emacs-lisp (defun jabber-message-display (from buffer text title) "Display the buffer where a new message has arrived." @@ -5590,7 +5590,7 @@ Examples: (display-buffer buffer))) #+END_SRC -*** jabber-message-switch :function: +*** jabber-message-switch :function: #+BEGIN_SRC emacs-lisp (defun jabber-message-switch (from buffer text title) "Switch to the buffer where a new message has arrived." @@ -5598,7 +5598,7 @@ Examples: (switch-to-buffer buffer))) #+END_SRC -*** jabber-message-scroll :function: +*** jabber-message-scroll :function: #+BEGIN_SRC emacs-lisp (defun jabber-message-scroll (from buffer text title) "Scroll all nonselected windows where the chat buffer is displayed." @@ -5622,7 +5622,7 @@ Examples: (set-window-point w new-point-max))))) #+END_SRC -*** jabber-muc-default-message :function: +*** jabber-muc-default-message :function: #+BEGIN_SRC emacs-lisp ;; MUC alert hooks (defun jabber-muc-default-message (nick group buffer text) @@ -5636,7 +5636,7 @@ Examples: (format "Message in %s" (jabber-jid-displayname group))))) #+END_SRC -*** jabber-muc-wave :function: +*** jabber-muc-wave :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-wave (nick group buffer text title) "Play the wave file specified in `jabber-alert-muc-wave'" @@ -5644,7 +5644,7 @@ Examples: (funcall jabber-play-sound-file jabber-alert-muc-wave))) #+END_SRC -*** jabber-muc-display :function: +*** jabber-muc-display :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-display (nick group buffer text title) "Display the buffer where a new message has arrived." @@ -5652,7 +5652,7 @@ Examples: (display-buffer buffer))) #+END_SRC -*** jabber-muc-switch :function: +*** jabber-muc-switch :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-switch (nick group buffer text title) "Switch to the buffer where a new message has arrived." @@ -5660,14 +5660,14 @@ Examples: (switch-to-buffer buffer))) #+END_SRC -*** jabber-muc-scroll :function: +*** jabber-muc-scroll :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-scroll (nick group buffer text title) "Scroll buffer even if it is in an unselected window." (jabber-message-scroll nil buffer nil nil)) #+END_SRC -*** jabber-presence-default-message :function: +*** jabber-presence-default-message :function: #+BEGIN_SRC emacs-lisp ;; Presence alert hooks (defun jabber-presence-default-message (who oldstatus newstatus statustext) @@ -5698,7 +5698,7 @@ This function is not called directly, but is the default for (concat formattedname formattedstatus))))) #+END_SRC -*** jabber-presence-only-chat-open-message :function: +*** jabber-presence-only-chat-open-message :function: #+BEGIN_SRC emacs-lisp (defun jabber-presence-only-chat-open-message (who oldstatus newstatus statustext) "This function returns the same as `jabber-presence-default-message' but only @@ -5711,7 +5711,7 @@ This function is not called directly, but can be used as the value for (jabber-presence-default-message who oldstatus newstatus statustext))) #+END_SRC -*** jabber-presence-wave :function: +*** jabber-presence-wave :function: #+BEGIN_SRC emacs-lisp (defun jabber-presence-wave (who oldstatus newstatus statustext proposed-alert) "Play the wave file specified in `jabber-alert-presence-wave'" @@ -5726,7 +5726,7 @@ This function is not called directly, but can be used as the value for (funcall jabber-play-sound-file sound-file))))) #+END_SRC -*** +jabber-presence-update-roster+ :function: +*** +jabber-presence-update-roster+ :function: #+BEGIN_SRC emacs-lisp ;; This is now defined in jabber-roster.el. ;; (defun jabber-presence-update-roster (who oldstatus newstatus statustext proposed-alert) @@ -5734,7 +5734,7 @@ This function is not called directly, but can be used as the value for ;; (jabber-display-roster)) #+END_SRC -*** jabber-presence-display :function: +*** jabber-presence-display :function: #+BEGIN_SRC emacs-lisp (defun jabber-presence-display (who oldstatus newstatus statustext proposed-alert) "Display the roster buffer" @@ -5742,7 +5742,7 @@ This function is not called directly, but can be used as the value for (display-buffer jabber-roster-buffer))) #+END_SRC -*** jabber-presence-switch :function: +*** jabber-presence-switch :function: #+BEGIN_SRC emacs-lisp (defun jabber-presence-switch (who oldstatus newstatus statustext proposed-alert) "Switch to the roster buffer" @@ -5752,7 +5752,7 @@ This function is not called directly, but can be used as the value for #+END_SRC *** info alert hooks -**** jabber-info-default-message :function: +**** jabber-info-default-message :function: #+BEGIN_SRC emacs-lisp (defun jabber-info-default-message (infotype buffer) "Function for constructing info alert messages. @@ -5763,7 +5763,7 @@ This function uses `jabber-info-message-alist' to find a message." " (buffer "(buffer-name buffer) ")")) #+END_SRC -**** jabber-info-wave :function: +**** jabber-info-wave :function: #+BEGIN_SRC emacs-lisp (defun jabber-info-wave (infotype buffer proposed-alert) "Play the wave file specified in `jabber-alert-info-wave'" @@ -5771,7 +5771,7 @@ This function uses `jabber-info-message-alist' to find a message." (funcall jabber-play-sound-file jabber-alert-info-wave))) #+END_SRC -**** jabber-info-display :function: +**** jabber-info-display :function: #+BEGIN_SRC emacs-lisp (defun jabber-info-display (infotype buffer proposed-alert) "Display buffer of completed request" @@ -5779,7 +5779,7 @@ This function uses `jabber-info-message-alist' to find a message." (display-buffer buffer))) #+END_SRC -**** jabber-info-switch :function: +**** jabber-info-switch :function: #+BEGIN_SRC emacs-lisp (defun jabber-info-switch (infotype buffer proposed-alert) "Switch to buffer of completed request" @@ -5787,7 +5787,7 @@ This function uses `jabber-info-message-alist' to find a message." (switch-to-buffer buffer))) #+END_SRC -*** define-personal-jabber-alert :macro: +*** define-personal-jabber-alert :macro: #+BEGIN_SRC emacs-lisp ;;; Personal alert hooks (defmacro define-personal-jabber-alert (name) @@ -5811,7 +5811,7 @@ This function uses `jabber-info-message-alist' to find a message." (define-personal-jabber-alert jabber-muc-display) #+END_SRC -*** jabber-autoanswer-alist :custom:variable: +*** jabber-autoanswer-alist :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-autoanswer-alist nil "Specific phrases to autoanswer on specific message. @@ -5821,7 +5821,7 @@ autoanswer phrase." :group 'jabber-alerts) #+END_SRC -**** jabber-autoanswer-answer :function: +**** jabber-autoanswer-answer :function: #+BEGIN_SRC emacs-lisp (defun jabber-autoanswer-answer (from buffer text proposed-alert) "Answer automaticaly when incoming text matches first element @@ -5837,7 +5837,7 @@ of `jabber-autoanswer-alist'" (pushnew 'jabber-autoanswer-answer (get 'jabber-alert-message-hooks 'custom-options)) #+END_SRC -**** jabber-autoanswer-answer-muc :function: +**** jabber-autoanswer-answer-muc :function: #+BEGIN_SRC emacs-lisp (defun jabber-autoanswer-answer-muc (nick group buffer text proposed-alert) "Answer automaticaly when incoming text matches first element @@ -5863,14 +5863,14 @@ of `jabber-autoanswer-alist'" *** Log format Each message is on one separate line, represented as a vector with five elements. The first element is time encoded according to XEP-0082. The second element is direction, "in" or "out". The third element is the sender, "me" or a JID. The fourth element is the recipient. The fifth element is the text of the message. -*** jabber-history :custom:group: +*** jabber-history :custom:group: #+BEGIN_SRC emacs-lisp (defgroup jabber-history nil "Customization options for Emacs Jabber history files." :group 'jabber) #+END_SRC -*** jabber-history-enabled :custom:variable: +*** jabber-history-enabled :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-history-enabled nil "Non-nil means message logging is enabled." @@ -5878,7 +5878,7 @@ Jabber history files." :group 'jabber-history) #+END_SRC -*** jabber-history-muc-enabled :custom:variable: +*** jabber-history-muc-enabled :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-history-muc-enabled nil "Non-nil means MUC logging is enabled. @@ -5887,7 +5887,7 @@ Default is nil, cause MUC logging may be i/o-intensive." :group 'jabber-history) #+END_SRC -*** jabber-history-dir :custom:variable: +*** jabber-history-dir :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-history-dir (locate-user-emacs-file "jabber-history" ".emacs-jabber") @@ -5897,7 +5897,7 @@ Used only when `jabber-use-global-history' is nil." :group 'jabber-history) #+END_SRC -*** jabber-global-history-filename :custom:variable: +*** jabber-global-history-filename :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-global-history-filename (locate-user-emacs-file "jabber-global-message-log" ".jabber_global_message_log") @@ -5907,7 +5907,7 @@ Used when `jabber-use-global-history' is non-nil." :group 'jabber-history) #+END_SRC -*** jabber-use-global-history :custom:variable: +*** jabber-use-global-history :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-use-global-history ;; Using a global history file by default was a bad idea. Let's @@ -5922,7 +5922,7 @@ messages are stored in per-user files under the :group 'jabber-history) #+END_SRC -*** jabber-history-enable-rotation :custom:variable: +*** jabber-history-enable-rotation :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-history-enable-rotation nil "Whether history files should be renamed when reach @@ -5934,7 +5934,7 @@ number after the last rotation." :group 'jabber-history) #+END_SRC -*** jabber-history-size-limit :custom:variable: +*** jabber-history-size-limit :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-history-size-limit 1024 "Maximum history file size in kilobytes. @@ -5945,7 +5945,7 @@ number after the last rotation." :group 'jabber-history) #+END_SRC -*** jabber-history-inhibit-received-message-functions :variable: +*** jabber-history-inhibit-received-message-functions :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-history-inhibit-received-message-functions nil "Functions determining whether to log an incoming message stanza. @@ -5955,7 +5955,7 @@ If any of the functions returns non-nil, the stanza is not logged in the message history.") #+END_SRC -*** jabber-rotate-history-p :function: +*** jabber-rotate-history-p :function: #+BEGIN_SRC emacs-lisp (defun jabber-rotate-history-p (history-file) "Return true if HISTORY-FILE should be rotated." @@ -5965,7 +5965,7 @@ in the message history.") jabber-history-size-limit))) #+END_SRC -*** jabber-history-rotate :function: +*** jabber-history-rotate :function: #+BEGIN_SRC emacs-lisp (defun jabber-history-rotate (history-file &optional try) "Rename HISTORY-FILE to HISTORY-FILE-TRY." @@ -5975,7 +5975,7 @@ in the message history.") (rename-file history-file (concat history-file "-" suffix))))) #+END_SRC -*** jabber-message-history :function: +*** jabber-message-history :function: #+BEGIN_SRC emacs-lisp (add-to-list 'jabber-message-chain 'jabber-message-history) (defun jabber-message-history (jc xml-data) @@ -6004,7 +6004,7 @@ in the message history.") (add-hook 'jabber-chat-send-hooks 'jabber-history-send-hook) #+END_SRC -*** jabber-history-send-hook :function: +*** jabber-history-send-hook :function: #+BEGIN_SRC emacs-lisp (defun jabber-history-send-hook (body id) "Log outgoing message to log file." @@ -6017,7 +6017,7 @@ in the message history.") (jabber-history-log-message "out" nil jabber-chatting-with body (current-time)))) #+END_SRC -*** jabber-history-filename :function: +*** jabber-history-filename :function: #+BEGIN_SRC emacs-lisp (defun jabber-history-filename (contact) "Return a history filename for CONTACT if the per-user file @@ -6029,7 +6029,7 @@ in the message history.") "/" (symbol-name (jabber-jid-symbol contact))))) #+END_SRC -*** jabber-history-log-message :function: +*** jabber-history-log-message :function: #+BEGIN_SRC emacs-lisp (defun jabber-history-log-message (direction from to body timestamp) "Log a message" @@ -6067,7 +6067,7 @@ in the message history.") (message "Unable to write history: %s" (error-message-string e))))))) #+END_SRC -*** jabber-history-query :function: +*** jabber-history-query :function: #+BEGIN_SRC emacs-lisp (defun jabber-history-query (start-time end-time @@ -6143,7 +6143,7 @@ of the log file." collected)))) #+END_SRC -*** jabber-backlog-days :custom:variable: +*** jabber-backlog-days :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-backlog-days 3.0 "Age limit on messages in chat buffer backlog, in days" @@ -6152,7 +6152,7 @@ of the log file." (const :tag "No limit" nil))) #+END_SRC -*** jabber-backlog-number :custom:variable: +*** jabber-backlog-number :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-backlog-number 10 "Maximum number of messages in chat buffer backlog" @@ -6160,7 +6160,7 @@ of the log file." :type 'integer) #+END_SRC -*** jabber-history-backlog :function: +*** jabber-history-backlog :function: #+BEGIN_SRC emacs-lisp (defun jabber-history-backlog (jid &optional before) "Fetch context from previous chats with JID. @@ -6179,7 +6179,7 @@ applies, though." (jabber-history-filename jid))) #+END_SRC -*** jabber-history-move-to-per-user :command: +*** jabber-history-move-to-per-user :command: #+BEGIN_SRC emacs-lisp (defun jabber-history-move-to-per-user () "Migrate global history to per-user files." @@ -6229,19 +6229,19 @@ applies, though." :old-file: jabber-chatbuffer.el :END: -*** jabber-point-insert :variable: +*** jabber-point-insert :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-point-insert nil "Position where the message being composed starts") #+END_SRC -*** jabber-send-function :variable: +*** jabber-send-function :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-send-function nil "Function for sending a message from a chat buffer.") #+END_SRC -*** jabber-chat-mode-hook :variable: +*** jabber-chat-mode-hook :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-chat-mode-hook nil "Hook called at the end of `jabber-chat-mode'. @@ -6249,7 +6249,7 @@ Note that functions in this hook have no way of knowing what kind of chat buffer is being created.") #+END_SRC -*** jabber-chat-fill-long-lines :custom:variable: +*** jabber-chat-fill-long-lines :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-chat-fill-long-lines t "If non-nil, fill long lines in chat buffers. @@ -6259,13 +6259,13 @@ window or at `fill-column', whichever is shorter." :type 'boolean) #+END_SRC -*** jabber-chat-ewoc :variable: +*** jabber-chat-ewoc :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-chat-ewoc nil "The ewoc showing the messages of this chat buffer.") #+END_SRC -*** jabber-buffer-connection :variable: +*** jabber-buffer-connection :variable: #+BEGIN_SRC emacs-lisp ;;;###autoload (defvar jabber-buffer-connection nil @@ -6274,7 +6274,7 @@ window or at `fill-column', whichever is shorter." (make-variable-buffer-local 'jabber-buffer-connection) #+END_SRC -*** jabber-chat-mode :function: +*** jabber-chat-mode :function: #+BEGIN_SRC emacs-lisp (defun jabber-chat-mode (jc ewoc-pp) "\\{jabber-chat-mode-map}" @@ -6311,7 +6311,7 @@ window or at `fill-column', whichever is shorter." (run-hooks 'jabber-chat-mode-hook))) #+END_SRC -*** jabber-chat-mode-flyspell-verify :function: +*** jabber-chat-mode-flyspell-verify :function: #+BEGIN_SRC emacs-lisp (put 'jabber-chat-mode 'mode-class 'special) @@ -6322,7 +6322,7 @@ window or at `fill-column', whichever is shorter." 'jabber-chat-mode-flyspell-verify) #+END_SRC -*** jabber-chat-mode-map :variable: +*** jabber-chat-mode-map :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-chat-mode-map (let ((map (make-sparse-keymap))) @@ -6331,7 +6331,7 @@ window or at `fill-column', whichever is shorter." map)) #+END_SRC -*** jabber-chat-buffer-send :command: +*** jabber-chat-buffer-send :command: #+BEGIN_SRC emacs-lisp (defun jabber-chat-buffer-send () (interactive) @@ -6352,7 +6352,7 @@ window or at `fill-column', whichever is shorter." (funcall jabber-send-function jabber-buffer-connection body)))) #+END_SRC -*** jabber-chat-buffer-fill-long-lines :command: +*** jabber-chat-buffer-fill-long-lines :command: #+BEGIN_SRC emacs-lisp (defun jabber-chat-buffer-fill-long-lines () "Fill lines that are wider than the window width." @@ -6379,7 +6379,7 @@ window or at `fill-column', whichever is shorter." :PROPERTIES: :old-file: jabber-compose.el :END: -*** jabber-compose :command: +*** jabber-compose :command: #+BEGIN_SRC emacs-lisp ;;;###autoload (defun jabber-compose (jc &optional recipient) @@ -6425,7 +6425,7 @@ window or at `fill-column', whichever is shorter." (goto-char (point-min)))) #+END_SRC -**** jabber-compose-send :function: +**** jabber-compose-send :function: #+BEGIN_SRC emacs-lisp (defun jabber-compose-send (&rest ignore) (let ((recipients (widget-value (cdr (assq :recipients jabber-widget-alist)))) @@ -6452,13 +6452,13 @@ window or at `fill-column', whichever is shorter." (eval-when-compile (require 'cl)) #+END_SRC -*** jabber-chat :custom:group: +*** jabber-chat :custom:group: #+BEGIN_SRC emacs-lisp (defgroup jabber-chat nil "chat display options" :group 'jabber) #+END_SRC -*** jabber-chat-buffer-format :custom:variable: +*** jabber-chat-buffer-format :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-chat-buffer-format "*-jabber-chat-%n-*" "The format specification for the name of chat buffers. @@ -6473,7 +6473,7 @@ with): :group 'jabber-chat) #+END_SRC -*** jabber-chat-header-line-format :custom:variable: +*** jabber-chat-header-line-format :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-chat-header-line-format '("" (jabber-chat-buffer-show-avatar @@ -6500,7 +6500,7 @@ The format is that of `mode-line-format' and `header-line-format'." :group 'jabber-chat) #+END_SRC -*** jabber-chat-buffer-show-avatar :custom:variable: +*** jabber-chat-buffer-show-avatar :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-chat-buffer-show-avatar t "Show avatars in header line of chat buffer? @@ -6510,7 +6510,7 @@ This variable might not take effect if you have changed :group 'jabber-chat) #+END_SRC -*** jabber-chat-time-format :custom:variable: +*** jabber-chat-time-format :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-chat-time-format "%H:%M" "The format specification for instant messages in the chat buffer. @@ -6521,7 +6521,7 @@ See `format-time-string' for valid values." :group 'jabber-chat) #+END_SRC -*** jabber-chat-delayed-time-format :custom:variable: +*** jabber-chat-delayed-time-format :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-chat-delayed-time-format "%Y-%m-%d %H:%M" "The format specification for delayed messages in the chat buffer. @@ -6532,7 +6532,7 @@ See `format-time-string' for valid values." :group 'jabber-chat) #+END_SRC -*** jabber-print-rare-time :custom:variable: +*** jabber-print-rare-time :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-print-rare-time t "Non-nil means to print \"rare time\" indications in chat buffers. @@ -6541,7 +6541,7 @@ The default settings tell every new hour." :group 'jabber-chat) #+END_SRC -*** jabber-rare-time-format :custom:variable: +*** jabber-rare-time-format :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-rare-time-format "%a %e %b %Y %H:00" "The format specification for the rare time information. @@ -6552,7 +6552,7 @@ rare time printed." :group 'jabber-chat) #+END_SRC -*** jabber-rare-time-face :face: +*** jabber-rare-time-face :face: #+BEGIN_SRC emacs-lisp (defface jabber-rare-time-face '((t (:foreground "darkgreen" :underline t))) @@ -6560,7 +6560,7 @@ rare time printed." :group 'jabber-chat) #+END_SRC -*** jabber-chat-local-prompt-format :custom:variable: +*** jabber-chat-local-prompt-format :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-chat-local-prompt-format "[%t] %n> " "The format specification for lines you type in the chat buffer. @@ -6577,7 +6577,7 @@ These fields are available: :group 'jabber-chat) #+END_SRC -*** jabber-chat-foreign-prompt-format :custom:variable: +*** jabber-chat-foreign-prompt-format :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-chat-foreign-prompt-format "[%t] %n> " "The format specification for lines others type in the chat buffer. @@ -6594,7 +6594,7 @@ These fields are available: :group 'jabber-chat) #+END_SRC -*** jabber-chat-system-prompt-format :custom:variable: +*** jabber-chat-system-prompt-format :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-chat-system-prompt-format "[%t] *** " "The format specification for lines from the system or that are special in the chat buffer." @@ -6602,7 +6602,7 @@ These fields are available: :group 'jabber-chat) #+END_SRC -*** jabber-chat-prompt-local :face: +*** jabber-chat-prompt-local :face: #+BEGIN_SRC emacs-lisp (defface jabber-chat-prompt-local '((t (:foreground "blue" :weight bold))) @@ -6610,7 +6610,7 @@ These fields are available: :group 'jabber-chat) #+END_SRC -*** jabber-chat-prompt-foreign :face: +*** jabber-chat-prompt-foreign :face: #+BEGIN_SRC emacs-lisp (defface jabber-chat-prompt-foreign '((t (:foreground "red" :weight bold))) @@ -6618,7 +6618,7 @@ These fields are available: :group 'jabber-chat) #+END_SRC -*** jabber-chat-prompt-system :face: +*** jabber-chat-prompt-system :face: #+BEGIN_SRC emacs-lisp (defface jabber-chat-prompt-system '((t (:foreground "green" :weight bold))) @@ -6626,21 +6626,21 @@ These fields are available: :group 'jabber-chat) #+END_SRC -*** jabber-chat-text-local :face: +*** jabber-chat-text-local :face: #+BEGIN_SRC emacs-lisp (defface jabber-chat-text-local '((t ())) "Face used for text you write" :group 'jabber-chat) #+END_SRC -*** jabber-chat-text-foreign :face: +*** jabber-chat-text-foreign :face: #+BEGIN_SRC emacs-lisp (defface jabber-chat-text-foreign '((t ())) "Face used for text others write" :group 'jabber-chat) #+END_SRC -*** jabber-chat-error :face: +*** jabber-chat-error :face: #+BEGIN_SRC emacs-lisp (defface jabber-chat-error '((t (:foreground "red" :weight bold))) @@ -6648,14 +6648,14 @@ These fields are available: :group 'jabber-chat) #+END_SRC -*** jabber-chatting-with :variable: +*** jabber-chatting-with :variable: #+BEGIN_SRC emacs-lisp ;;;###autoload (defvar jabber-chatting-with nil "JID of the person you are chatting with") #+END_SRC -*** jabber-chat-printers :variable: +*** jabber-chat-printers :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-chat-printers '(jabber-chat-print-subject jabber-chat-print-body @@ -6670,7 +6670,7 @@ MODE :insert or :printp. For :insert, insert text at point. For :printp, return non-nil if function would insert text.") #+END_SRC -*** jabber-body-printers :variable: +*** jabber-body-printers :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-body-printers '(jabber-chat-normal-body) "List of functions that may be able to print a body for a message. @@ -6688,7 +6688,7 @@ Add a function to the beginning of this list if the tag it handles replaces the contents of the <body/> tag.") #+END_SRC -*** jabber-chat-send-hooks :variable: +*** jabber-chat-send-hooks :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-chat-send-hooks nil "List of functions called when a chat message is sent. @@ -6699,14 +6699,14 @@ The functions should return a list of XML nodes they want to be added to the outgoing message.") #+END_SRC -*** jabber-chat-earliest-backlog :variable: +*** jabber-chat-earliest-backlog :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-chat-earliest-backlog nil "Float-time of earliest backlog entry inserted into buffer. nil if no backlog has been inserted.") #+END_SRC -*** jabber-chat-get-buffer :function: +*** jabber-chat-get-buffer :function: #+BEGIN_SRC emacs-lisp ;;;###autoload (defun jabber-chat-get-buffer (chat-with) @@ -6720,7 +6720,7 @@ Either a string or a buffer is returned, so use `get-buffer' or (cons ?r (or (jabber-jid-resource chat-with) ""))))) #+END_SRC -*** jabber-chat-create-buffer :function: +*** jabber-chat-create-buffer :function: #+BEGIN_SRC emacs-lisp (defun jabber-chat-create-buffer (jc chat-with) "Prepare a buffer for chatting with CHAT-WITH. @@ -6752,7 +6752,7 @@ This function is idempotent." (current-buffer))) #+END_SRC -*** jabber-chat-insert-backlog-entry :function: +*** jabber-chat-insert-backlog-entry :function: #+BEGIN_SRC emacs-lisp (defun jabber-chat-insert-backlog-entry (msg) "Insert backlog entry MSG at beginning of buffer." @@ -6785,7 +6785,7 @@ This function is idempotent." (cons "Display more context" 'jabber-chat-display-more-backlog)) #+END_SRC -*** jabber-chat-display-more-backlog :command: +*** jabber-chat-display-more-backlog :command: #+BEGIN_SRC emacs-lisp (defun jabber-chat-display-more-backlog (how-many) "Display more context. HOW-MANY is number of messages. Specify 0 to display all messages." @@ -6809,7 +6809,7 @@ This function is idempotent." (add-to-list 'jabber-message-chain 'jabber-process-chat) #+END_SRC -*** jabber-get-forwarded-message :function: +*** jabber-get-forwarded-message :function: #+BEGIN_SRC emacs-lisp (defun jabber-get-forwarded-message (xml-data) (let* ((sent (car (jabber-xml-get-children xml-data 'sent))) @@ -6819,7 +6819,7 @@ This function is idempotent." forwarded-message))) #+END_SRC -*** jabber-process-chat :function: +*** jabber-process-chat :function: #+BEGIN_SRC emacs-lisp (defun jabber-process-chat (jc xml-data) "If XML-DATA is a one-to-one chat message, handle it as such." @@ -6868,7 +6868,7 @@ This function is idempotent." from (current-buffer) body-text))))))))) #+END_SRC -*** jabber-chat-send :function: +*** jabber-chat-send :function: #+BEGIN_SRC emacs-lisp (defun jabber-chat-send (jc body) "Send BODY through connection JC, and display it in chat buffer." @@ -6898,7 +6898,7 @@ This function is idempotent." (jabber-send-sexp jc stanza-to-send))) #+END_SRC -*** jabber-chat-pp :function: +*** jabber-chat-pp :function: #+BEGIN_SRC emacs-lisp (defun jabber-chat-pp (data) "Pretty-print a <message/> stanza. @@ -6989,7 +6989,7 @@ This function is used as an ewoc prettyprinter." (put-text-property beg (point) 'rear-nonsticky t))) #+END_SRC -*** jabber-rare-time-needed :function: +*** jabber-rare-time-needed :function: #+BEGIN_SRC emacs-lisp (defun jabber-rare-time-needed (time1 time2) "Return non-nil if a timestamp should be printed between TIME1 and TIME2." @@ -6997,7 +6997,7 @@ This function is used as an ewoc prettyprinter." (format-time-string jabber-rare-time-format time2)))) #+END_SRC -*** jabber-maybe-print-rare-time :function: +*** jabber-maybe-print-rare-time :function: #+BEGIN_SRC emacs-lisp (defun jabber-maybe-print-rare-time (node) "Print rare time before NODE, if appropriate." @@ -7016,7 +7016,7 @@ This function is used as an ewoc prettyprinter." (list :rare-time (entry-time data))))))) #+END_SRC -*** jabber-chat-print-prompt :function: +*** jabber-chat-print-prompt :function: #+BEGIN_SRC emacs-lisp (defun jabber-chat-print-prompt (xml-data timestamp delayed dont-print-nick-p) "Print prompt for received message in XML-DATA. @@ -7045,7 +7045,7 @@ If DONT-PRINT-NICK-P is true, don't include nickname." (concat (format-time-string "On %Y-%m-%d %H:%M:%S" timestamp) " from " from))))) #+END_SRC -*** jabber-chat-system-prompt :function: +*** jabber-chat-system-prompt :function: #+BEGIN_SRC emacs-lisp (defun jabber-chat-system-prompt (timestamp) (insert (jabber-propertize @@ -7062,7 +7062,7 @@ If DONT-PRINT-NICK-P is true, don't include nickname." (concat (format-time-string "System message on %Y-%m-%d %H:%M:%S" timestamp))))) #+END_SRC -*** jabber-chat-self-prompt :function: +*** jabber-chat-self-prompt :function: #+BEGIN_SRC emacs-lisp (defun jabber-chat-self-prompt (timestamp delayed dont-print-nick-p) "Print prompt for sent message. @@ -7093,7 +7093,7 @@ If DONT-PRINT-NICK-P is true, don't include nickname." (concat (format-time-string "On %Y-%m-%d %H:%M:%S" timestamp) " from you"))))) #+END_SRC -*** jabber-chat-print-error :function: +*** jabber-chat-print-error :function: #+BEGIN_SRC emacs-lisp (defun jabber-chat-print-error (xml-data) "Print error in given <message/> in a readable way." @@ -7104,7 +7104,7 @@ If DONT-PRINT-NICK-P is true, don't include nickname." 'face 'jabber-chat-error)))) #+END_SRC -*** jabber-chat-print-subject :function: +*** jabber-chat-print-subject :function: #+BEGIN_SRC emacs-lisp (defun jabber-chat-print-subject (xml-data who mode) "Print subject of given <message/>, if any." @@ -7125,13 +7125,13 @@ If DONT-PRINT-NICK-P is true, don't include nickname." "\n")))))) #+END_SRC -*** jabber-chat-print-body :function: +*** jabber-chat-print-body :function: #+BEGIN_SRC emacs-lisp (defun jabber-chat-print-body (xml-data who mode) (run-hook-with-args-until-success 'jabber-body-printers xml-data who mode)) #+END_SRC -*** jabber-chat-normal-body :function: +*** jabber-chat-normal-body :function: #+BEGIN_SRC emacs-lisp (defun jabber-chat-normal-body (xml-data who mode) "Print body for received message in XML-DATA." @@ -7166,7 +7166,7 @@ If DONT-PRINT-NICK-P is true, don't include nickname." t))) #+END_SRC -*** jabber-chat-print-url :function: +*** jabber-chat-print-url :function: #+BEGIN_SRC emacs-lisp (defun jabber-chat-print-url (xml-data who mode) "Print URLs provided in jabber:x:oob namespace." @@ -7188,7 +7188,7 @@ If DONT-PRINT-NICK-P is true, don't include nickname." foundp)) #+END_SRC -*** jabber-chat-goto-address :function: +*** jabber-chat-goto-address :function: #+BEGIN_SRC emacs-lisp (defun jabber-chat-goto-address (xml-data who mode) "Call `goto-address' on the newly written text." @@ -7205,7 +7205,7 @@ If DONT-PRINT-NICK-P is true, don't include nickname." (cons "Compose message" 'jabber-compose)) #+END_SRC -*** jabber-send-message :command: +*** jabber-send-message :command: #+BEGIN_SRC emacs-lisp (defun jabber-send-message (jc to subject body type) "send a message tag to the server" @@ -7232,7 +7232,7 @@ If DONT-PRINT-NICK-P is true, don't include nickname." (cons "Start chat" 'jabber-chat-with)) #+END_SRC -*** jabber-chat-with :command: +*** jabber-chat-with :command: #+BEGIN_SRC emacs-lisp (defun jabber-chat-with (jc jid &optional other-window) "Open an empty chat window for chatting with JID. @@ -7250,7 +7250,7 @@ Returns the chat buffer." (switch-to-buffer buffer)))) #+END_SRC -*** jabber-chat-with-jid-at-point :command: +*** jabber-chat-with-jid-at-point :command: #+BEGIN_SRC emacs-lisp (defun jabber-chat-with-jid-at-point (&optional other-window) "Start chat with JID at point. @@ -7271,7 +7271,7 @@ With a prefix argument, open buffer in other window." :old-file: jabber-presence.el :END: -*** jabber-presence-element-functions :variable: +*** jabber-presence-element-functions :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-presence-element-functions nil "List of functions returning extra elements for <presence/> stanzas. @@ -7280,13 +7280,13 @@ possibly empty list of extra child element of the <presence/> stanza.") #+END_SRC -*** jabber-presence-history :variable: +*** jabber-presence-history :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-presence-history () "Keeps track of previously used presence status types") #+END_SRC -*** jabber-process-roster :function: +*** jabber-process-roster :function: #+BEGIN_SRC emacs-lisp (add-to-list 'jabber-iq-set-xmlns-alist (cons "jabber:iq:roster" (function (lambda (jc x) (jabber-process-roster jc x nil))))) @@ -7375,7 +7375,7 @@ CLOSURE-DATA should be 'initial if initial roster push, nil otherwise." (run-hook-with-args 'jabber-post-connect-hooks jc))) #+END_SRC -*** jabber-initial-roster-failure :function: +*** jabber-initial-roster-failure :function: #+BEGIN_SRC emacs-lisp (defun jabber-initial-roster-failure (jc xml-data _closure-data) ;; If the initial roster request fails, let's report it, but run @@ -7385,7 +7385,7 @@ CLOSURE-DATA should be 'initial if initial roster push, nil otherwise." (run-hook-with-args 'jabber-post-connect-hooks jc)) #+END_SRC -*** jabber-process-presence :function: +*** jabber-process-presence :function: #+BEGIN_SRC emacs-lisp (add-to-list 'jabber-presence-chain 'jabber-process-presence) (defun jabber-process-presence (jc xml-data) @@ -7494,7 +7494,7 @@ CLOSURE-DATA should be 'initial if initial roster push, nil otherwise." (plist-get resource-plist 'status))))))))))) #+END_SRC -*** jabber-process-subscription-request :function: +*** jabber-process-subscription-request :function: #+BEGIN_SRC emacs-lisp (defun jabber-process-subscription-request (jc from presence-status) "process an incoming subscription request" @@ -7505,28 +7505,28 @@ CLOSURE-DATA should be 'initial if initial roster push, nil otherwise." (run-hook-with-args hook (jabber-jid-symbol from) nil "subscribe" presence-status (funcall jabber-alert-presence-message-function (jabber-jid-symbol from) nil "subscribe" presence-status))))) #+END_SRC -*** jabber-subscription-accept-mutual :function: +*** jabber-subscription-accept-mutual :function: #+BEGIN_SRC emacs-lisp (defun jabber-subscription-accept-mutual (&rest ignored) (message "Subscription accepted; reciprocal subscription request sent") (jabber-subscription-reply "subscribed" "subscribe")) #+END_SRC -*** jabber-subscription-accept-one-way :function: +*** jabber-subscription-accept-one-way :function: #+BEGIN_SRC emacs-lisp (defun jabber-subscription-accept-one-way (&rest ignored) (message "Subscription accepted") (jabber-subscription-reply "subscribed")) #+END_SRC -*** jabber-subscription-decline :function: +*** jabber-subscription-decline :function: #+BEGIN_SRC emacs-lisp (defun jabber-subscription-decline (&rest ignored) (message "Subscription declined") (jabber-subscription-reply "unsubscribed")) #+END_SRC -*** jabber-subscription-reply :function: +*** jabber-subscription-reply :function: #+BEGIN_SRC emacs-lisp (defun jabber-subscription-reply (&rest types) (let ((to (jabber-jid-user jabber-chatting-with))) @@ -7534,7 +7534,7 @@ CLOSURE-DATA should be 'initial if initial roster push, nil otherwise." (jabber-send-sexp jabber-buffer-connection `(presence ((to . ,to) (type . ,type))))))) #+END_SRC -*** jabber-prioritize-resources :function: +*** jabber-prioritize-resources :function: #+BEGIN_SRC emacs-lisp (defun jabber-prioritize-resources (buddy) "Set connected, show and status properties for BUDDY from highest-priority resource." @@ -7569,7 +7569,7 @@ CLOSURE-DATA should be 'initial if initial roster push, nil otherwise." resource-alist))) #+END_SRC -*** jabber-count-connected-resources :function: +*** jabber-count-connected-resources :function: #+BEGIN_SRC emacs-lisp (defun jabber-count-connected-resources (buddy) "Return the number of connected resources for BUDDY." @@ -7581,7 +7581,7 @@ CLOSURE-DATA should be 'initial if initial roster push, nil otherwise." count)) #+END_SRC -*** jabber-send-presence :command: +*** jabber-send-presence :command: #+BEGIN_SRC emacs-lisp ;;;###autoload (defun jabber-send-presence (show status priority) @@ -7624,7 +7624,7 @@ CLOSURE-DATA should be 'initial if initial roster push, nil otherwise." (jabber-display-roster)) #+END_SRC -*** jabber-presence-children :function: +*** jabber-presence-children :function: #+BEGIN_SRC emacs-lisp (defun jabber-presence-children (jc) "Return the children for a <presence/> stanza." @@ -7639,7 +7639,7 @@ CLOSURE-DATA should be 'initial if initial roster push, nil otherwise." jabber-presence-element-functions)))) #+END_SRC -*** jabber-send-directed-presence :command: +*** jabber-send-directed-presence :command: #+BEGIN_SRC emacs-lisp (defun jabber-send-directed-presence (jc jid type) "Send a directed presence stanza to JID. @@ -7693,7 +7693,7 @@ TYPE is one of: ,@(jabber-presence-children jc))))))) #+END_SRC -*** jabber-send-away-presence :command: +*** jabber-send-away-presence :command: #+BEGIN_SRC emacs-lisp (defun jabber-send-away-presence (&optional status) "Set status to away. @@ -7707,7 +7707,7 @@ With prefix argument, ask for status message." *jabber-current-priority*)) #+END_SRC -*** jabber-send-xa-presence :command: +*** jabber-send-xa-presence :command: #+BEGIN_SRC emacs-lisp ;; XXX code duplication! (defun jabber-send-xa-presence (&optional status) @@ -7722,7 +7722,7 @@ With prefix argument, ask for status message." *jabber-current-priority*)) #+END_SRC -*** jabber-send-default-presence :command: +*** jabber-send-default-presence :command: #+BEGIN_SRC emacs-lisp ;;;###autoload (defun jabber-send-default-presence (&optional ignore) @@ -7734,7 +7734,7 @@ Default presence is specified by `jabber-default-show', jabber-default-show jabber-default-status jabber-default-priority)) #+END_SRC -*** jabber-send-current-presence :command: +*** jabber-send-current-presence :command: #+BEGIN_SRC emacs-lisp (defun jabber-send-current-presence (&optional ignore) "(Re-)send current presence. @@ -7747,7 +7747,7 @@ otherwise send defaults (see `jabber-send-default-presence')." (jabber-send-default-presence))) #+END_SRC -*** jabber-send-subscription-request :command: +*** jabber-send-subscription-request :command: #+BEGIN_SRC emacs-lisp (add-to-list 'jabber-jid-roster-menu (cons "Send subscription request" 'jabber-send-subscription-request)) @@ -7765,13 +7765,13 @@ text, if specified" (list `(status () ,request)))))) #+END_SRC -*** jabber-roster-group-history :variable: +*** jabber-roster-group-history :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-roster-group-history nil "History of entered roster groups") #+END_SRC -*** jabber-roster-change :command: +*** jabber-roster-change :command: #+BEGIN_SRC emacs-lisp (add-to-list 'jabber-jid-roster-menu (cons "Add/modify roster entry" 'jabber-roster-change)) @@ -7820,7 +7820,7 @@ text, if specified" #'jabber-report-success "Roster item change")) #+END_SRC -*** jabber-roster-delete :command: +*** jabber-roster-delete :command: #+BEGIN_SRC emacs-lisp (add-to-list 'jabber-jid-roster-menu (cons "Delete roster entry" 'jabber-roster-delete)) @@ -7835,7 +7835,7 @@ text, if specified" #'jabber-report-success "Roster item removal")) #+END_SRC -*** jabber-roster-delete-jid-at-point :command: +*** jabber-roster-delete-jid-at-point :command: #+BEGIN_SRC emacs-lisp (defun jabber-roster-delete-jid-at-point () "Delete JID at point from roster. @@ -7850,7 +7850,7 @@ Signal an error if there is no JID at point." (error "No contact at point")))) #+END_SRC -*** jabber-roster-delete-group-from-jids :command: +*** jabber-roster-delete-group-from-jids :command: #+BEGIN_SRC emacs-lisp (defun jabber-roster-delete-group-from-jids (jc jids group) "Delete group `group' from all JIDs" @@ -7862,7 +7862,7 @@ Signal an error if there is no JID at point." (get jid 'groups))))) #+END_SRC -*** jabber-roster-edit-group-from-jids :command: +*** jabber-roster-edit-group-from-jids :command: #+BEGIN_SRC emacs-lisp (defun jabber-roster-edit-group-from-jids (jc jids group) "Edit group `group' from all JIDs" @@ -7893,12 +7893,12 @@ Signal an error if there is no JID at point." '(add-to-list 'jabber-presence-chain #'jabber-process-caps)) #+END_SRC -*** jabber-caps-cache :variable: +*** jabber-caps-cache :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-caps-cache (make-hash-table :test 'equal)) #+END_SRC -*** jabber-caps-hash-names :constant: +*** jabber-caps-hash-names :constant: #+BEGIN_SRC emacs-lisp (defconst jabber-caps-hash-names (if (fboundp 'secure-hash) @@ -7918,7 +7918,7 @@ to symbols accepted by `secure-hash'. XEP-0115 currently recommends SHA-1, but let's be future-proof.") #+END_SRC -*** jabber-caps-get-cached :function: +*** jabber-caps-get-cached :function: #+BEGIN_SRC emacs-lisp (defun jabber-caps-get-cached (jid) "Get disco info from Entity Capabilities cache. @@ -7934,7 +7934,7 @@ Return (IDENTITIES FEATURES), or nil if not in cache." cache-entry))))) #+END_SRC -*** jabber-process-caps :function: +*** jabber-process-caps :function: #+BEGIN_SRC emacs-lisp ;;;###autoload (defun jabber-process-caps (jc xml-data) @@ -7956,7 +7956,7 @@ Return (IDENTITIES FEATURES), or nil if not in cache." )))))) #+END_SRC -*** jabber-process-caps-modern :function: +*** jabber-process-caps-modern :function: #+BEGIN_SRC emacs-lisp (defun jabber-process-caps-modern (jc jid hash node ver) (when (assoc hash jabber-caps-hash-names) @@ -8006,7 +8006,7 @@ Return (IDENTITIES FEATURES), or nil if not in cache." (puthash (cons jid nil) cache-entry jabber-disco-info-cache))))))) #+END_SRC -*** jabber-process-caps-info-result :function: +*** jabber-process-caps-info-result :function: #+BEGIN_SRC emacs-lisp (defun jabber-process-caps-info-result (jc xml-data closure-data) (destructuring-bind (hash node ver) closure-data @@ -8020,14 +8020,14 @@ Return (IDENTITIES FEATURES), or nil if not in cache." (jabber-caps-try-next jc hash node ver))))) #+END_SRC -*** jabber-process-caps-info-error :function: +*** jabber-process-caps-info-error :function: #+BEGIN_SRC emacs-lisp (defun jabber-process-caps-info-error (jc xml-data closure-data) (destructuring-bind (hash node ver) closure-data (jabber-caps-try-next jc hash node ver))) #+END_SRC -*** jabber-caps-try-next :function: +*** jabber-caps-try-next :function: #+BEGIN_SRC emacs-lisp (defun jabber-caps-try-next (jc hash node ver) (let* ((key (cons hash ver)) @@ -8051,7 +8051,7 @@ Return (IDENTITIES FEATURES), or nil if not in cache." #+END_SRC *** entity capabilities utility functions -**** jabber-caps-ver-string :function: +**** jabber-caps-ver-string :function: #+BEGIN_SRC emacs-lisp (defun jabber-caps-ver-string (query hash) ;; XEP-0115, section 5.1 @@ -8132,7 +8132,7 @@ Return (IDENTITIES FEATURES), or nil if not in cache." (base64-encode-string (jabber-caps--secure-hash algorithm s) t)))) #+END_SRC -**** jabber-caps--secure-hash :function: +**** jabber-caps--secure-hash :function: #+BEGIN_SRC emacs-lisp (defun jabber-caps--secure-hash (algorithm string) (cond @@ -8146,7 +8146,7 @@ Return (IDENTITIES FEATURES), or nil if not in cache." (error "Cannot use hash algorithm %s!" algorithm)))) #+END_SRC -**** jabber-caps-identity-< :function: +**** jabber-caps-identity-< :function: #+BEGIN_SRC emacs-lisp (defun jabber-caps-identity-< (a b) (let ((a-category (jabber-xml-get-attribute a 'category)) @@ -8164,25 +8164,25 @@ Return (IDENTITIES FEATURES), or nil if not in cache." #+END_SRC *** sending entity capabilities -**** jabber-caps-default-hash-function :variable: +**** jabber-caps-default-hash-function :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-caps-default-hash-function "sha-1" "Hash function to use when sending caps in presence stanzas. The value should be a key in `jabber-caps-hash-names'.") #+END_SRC -**** jabber-caps-current-hash :variable: +**** jabber-caps-current-hash :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-caps-current-hash nil "The current disco hash we're sending out in presence stanzas.") #+END_SRC -*** jabber-caps-node :constant: +*** jabber-caps-node :constant: #+BEGIN_SRC emacs-lisp (defconst jabber-caps-node "http://emacs-jabber.sourceforge.net") #+END_SRC -*** jabber-disco-advertise-feature :function: +*** jabber-disco-advertise-feature :function: #+BEGIN_SRC emacs-lisp ;;;###autoload (defun jabber-disco-advertise-feature (feature) @@ -8195,7 +8195,7 @@ The value should be a key in `jabber-caps-hash-names'.") (mapc #'jabber-send-current-presence jabber-connections)))) #+END_SRC -*** jabber-caps-recalculate-hash :function: +*** jabber-caps-recalculate-hash :function: #+BEGIN_SRC emacs-lisp (defun jabber-caps-recalculate-hash () "Update `jabber-caps-current-hash' for feature list change. @@ -8216,7 +8216,7 @@ the right node." (setq jabber-caps-current-hash new-hash))) #+END_SRC -*** jabber-caps-presence-element :function: +*** jabber-caps-presence-element :function: #+BEGIN_SRC emacs-lisp ;;;###autoload (defun jabber-caps-presence-element (_jc) @@ -8239,7 +8239,7 @@ the right node." :old-file: jabber-disco.el :END: *** Respond to disco requests -**** jabber-advertised-features :variable: +**** jabber-advertised-features :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-advertised-features (list "http://jabber.org/protocol/disco#info") @@ -8249,7 +8249,7 @@ Don't add your feature to this list directly. Instead, call `jabber-disco-advertise-feature'.") #+END_SRC -**** jabber-disco-items-nodes :variable: +**** jabber-disco-items-nodes :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-disco-items-nodes (list @@ -8272,7 +8272,7 @@ JID, and returns non-nil if access is granted. If the second item is nil, access is always granted.") #+END_SRC -**** jabber-disco-info-nodes :variable: +**** jabber-disco-info-nodes :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-disco-info-nodes (list @@ -8296,7 +8296,7 @@ JID, and returns non-nil if access is granted. If the second item is nil, access is always granted.") #+END_SRC -**** jabber-return-disco-info :function: +**** jabber-return-disco-info :function: #+BEGIN_SRC emacs-lisp (add-to-list 'jabber-iq-get-xmlns-alist (cons "http://jabber.org/protocol/disco#info" 'jabber-return-disco-info)) @@ -8337,7 +8337,7 @@ See XEP-0030." (jabber-signal-error "cancel" 'item-not-found)))) #+END_SRC -**** jabber-disco-return-client-info :function: +**** jabber-disco-return-client-info :function: #+BEGIN_SRC emacs-lisp (defun jabber-disco-return-client-info (&optional jc xml-data) `( @@ -8356,7 +8356,7 @@ See XEP-0030." #+END_SRC **** interactive disco requests -**** jabber-get-disco-items :command: +**** jabber-get-disco-items :command: #+BEGIN_SRC emacs-lisp (add-to-list 'jabber-jid-info-menu (cons "Send items disco query" 'jabber-get-disco-items)) @@ -8374,7 +8374,7 @@ See XEP-0030." #'jabber-process-data "Item discovery failed")) #+END_SRC -**** jabber-get-disco-info :command: +**** jabber-get-disco-info :command: #+BEGIN_SRC emacs-lisp (add-to-list 'jabber-jid-info-menu (cons "Send info disco query" 'jabber-get-disco-info)) @@ -8392,7 +8392,7 @@ See XEP-0030." #'jabber-process-data "Info discovery failed")) #+END_SRC -**** jabber-process-disco-info :function: +**** jabber-process-disco-info :function: #+BEGIN_SRC emacs-lisp (defun jabber-process-disco-info (jc xml-data) "Handle results from info disco requests." @@ -8421,7 +8421,7 @@ See XEP-0030." 'jabber-account jc))) #+END_SRC -**** jabber-process-disco-items :function: +**** jabber-process-disco-items :function: #+BEGIN_SRC emacs-lisp (defun jabber-process-disco-items (jc xml-data) "Handle results from items disco requests." @@ -8446,7 +8446,7 @@ See XEP-0030." #+END_SRC *** caching API for disco requests -**** jabber-disco-info-cache :variable: +**** jabber-disco-info-cache :variable: #+BEGIN_SRC emacs-lisp ;; Keys are ("jid" . "node"), where "node" is nil if appropriate. ;; Values are (identities features), where each identity is ["name" @@ -8454,14 +8454,14 @@ See XEP-0030." (defvar jabber-disco-info-cache (make-hash-table :test 'equal)) #+END_SRC -**** jabber-disco-items-cache :variable: +**** jabber-disco-items-cache :variable: #+BEGIN_SRC emacs-lisp ;; Keys are ("jid" . "node"). Values are (items), where each ;; item is ["name" "jid" "node"] (some values may be nil). (defvar jabber-disco-items-cache (make-hash-table :test 'equal)) #+END_SRC -**** jabber-disco-get-info :function: +**** jabber-disco-get-info :function: #+BEGIN_SRC emacs-lisp (defun jabber-disco-get-info (jc jid node callback closure-data &optional force) "Get disco info for JID and NODE, using connection JC. @@ -8489,7 +8489,7 @@ invalidate cache and get fresh data." (cons callback closure-data))))) #+END_SRC -**** jabber-disco-got-info :function: +**** jabber-disco-got-info :function: #+BEGIN_SRC emacs-lisp (defun jabber-disco-got-info (jc xml-data callback-data) (let ((jid (jabber-xml-get-attribute xml-data 'from)) @@ -8501,7 +8501,7 @@ invalidate cache and get fresh data." (funcall (car callback-data) jc (cdr callback-data) result)))) #+END_SRC -**** jabber-disco-parse-info :function: +**** jabber-disco-parse-info :function: #+BEGIN_SRC emacs-lisp (defun jabber-disco-parse-info (xml-data) "Extract data from an <iq/> stanza containing a disco#info result. @@ -8519,7 +8519,7 @@ See `jabber-disco-get-info' for a description of the return value." (jabber-xml-get-children (jabber-iq-query xml-data) 'feature)))) #+END_SRC -**** jabber-disco-get-info-immediately :function: +**** jabber-disco-get-info-immediately :function: #+BEGIN_SRC emacs-lisp (defun jabber-disco-get-info-immediately (jid node) "Get cached disco info for JID and NODE. @@ -8533,7 +8533,7 @@ Fill the cache with `jabber-disco-get-info'." (and (null node) (jabber-caps-get-cached jid)))) #+END_SRC -**** jabber-disco-get-items :function: +**** jabber-disco-get-items :function: #+BEGIN_SRC emacs-lisp (defun jabber-disco-get-items (jc jid node callback closure-data &optional force) "Get disco items for JID and NODE, using connection JC. @@ -8562,7 +8562,7 @@ invalidate cache and get fresh data." (cons callback closure-data))))) #+END_SRC -**** jabber-disco-got-items :function: +**** jabber-disco-got-items :function: #+BEGIN_SRC emacs-lisp (defun jabber-disco-got-items (jc xml-data callback-data) (let ((jid (jabber-xml-get-attribute xml-data 'from)) @@ -8581,14 +8581,14 @@ invalidate cache and get fresh data." (funcall (car callback-data) jc (cdr callback-data) result)))) #+END_SRC -**** jabber-disco-get-items-immediately :function: +**** jabber-disco-get-items-immediately :function: #+BEGIN_SRC emacs-lisp (defun jabber-disco-get-items-immediately (jid node) (gethash (cons jid node) jabber-disco-items-cache)) #+END_SRC *** publish -**** jabber-disco-publish :function: +**** jabber-disco-publish :function: #+BEGIN_SRC emacs-lisp (defun jabber-disco-publish (jc node item-name item-jid item-node) "Publish the given item under disco node NODE." @@ -8606,7 +8606,7 @@ invalidate cache and get fresh data." 'jabber-report-success "Disco publish")) #+END_SRC -**** jabber-disco-publish-remove :function: +**** jabber-disco-publish-remove :function: #+BEGIN_SRC emacs-lisp (defun jabber-disco-publish-remove (jc node item-jid item-node) "Remove the given item from published disco items." @@ -8632,7 +8632,7 @@ invalidate cache and get fresh data." (add-to-list 'jabber-jid-info-menu (cons "Ping" 'jabber-ping)) #+END_SRC -*** jabber-ping-send :function: +*** jabber-ping-send :function: #+BEGIN_SRC emacs-lisp (defun jabber-ping-send (jc to process-func on-success on-error) "Send XEP-0199 ping IQ stanza. JC is connection to use, TO is @@ -8645,7 +8645,7 @@ invalidate cache and get fresh data." process-func on-error)) #+END_SRC -*** jabber-ping :command: +*** jabber-ping :command: #+BEGIN_SRC emacs-lisp (defun jabber-ping (to) "Ping XMPP entity. TO is full JID. All connected JIDs is used." @@ -8654,7 +8654,7 @@ invalidate cache and get fresh data." (jabber-ping-send jc to 'jabber-silent-process-data 'jabber-process-ping "Ping is unsupported"))) #+END_SRC -*** jabber-process-ping :function: +*** jabber-process-ping :function: #+BEGIN_SRC emacs-lisp ;; called by jabber-process-data (defun jabber-process-ping (jc xml-data) @@ -8666,7 +8666,7 @@ invalidate cache and get fresh data." (jabber-disco-advertise-feature "urn:xmpp:ping") #+END_SRC -*** jabber-pong :function: +*** jabber-pong :function: #+BEGIN_SRC emacs-lisp (defun jabber-pong (jc xml-data) "Return pong as defined in XEP-0199. Sender and Id are @@ -8685,7 +8685,7 @@ determined from the incoming packet passed in XML-DATA." Send something to the server and see if it answers. These keepalive functions send a urn:xmpp:ping request to the server every X minutes, and considers the connection broken if they get no answer within Y seconds. -*** jabber-keepalive :custom:group: +*** jabber-keepalive :custom:group: #+BEGIN_SRC emacs-lisp ;;;###autoload (defgroup jabber-keepalive nil @@ -8693,7 +8693,7 @@ These keepalive functions send a urn:xmpp:ping request to the server every X min :group 'jabber) #+END_SRC -*** jabber-keepalive-interval :custom:variable: +*** jabber-keepalive-interval :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-keepalive-interval 600 "Interval in seconds between connection checks." @@ -8701,7 +8701,7 @@ These keepalive functions send a urn:xmpp:ping request to the server every X min :group 'jabber-keepalive) #+END_SRC -*** jabber-keepalive-timeout :custom:variable: +*** jabber-keepalive-timeout :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-keepalive-timeout 20 "Seconds to wait for response from server." @@ -8709,31 +8709,31 @@ These keepalive functions send a urn:xmpp:ping request to the server every X min :group 'jabber-keepalive) #+END_SRC -*** jabber-keepalive-timer :variable: +*** jabber-keepalive-timer :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-keepalive-timer nil "Timer object for keepalive function") #+END_SRC -*** jabber-keepalive-timeout-timer :variable: +*** jabber-keepalive-timeout-timer :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-keepalive-timeout-timer nil "Timer object for keepalive timeout function") #+END_SRC -*** jabber-keepalive-pending :variable: +*** jabber-keepalive-pending :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-keepalive-pending nil "List of outstanding keepalive connections") #+END_SRC -*** jabber-keepalive-debug :variable: +*** jabber-keepalive-debug :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-keepalive-debug nil "Log keepalive traffic when non-nil") #+END_SRC -*** jabber-keepalive-start :command: +*** jabber-keepalive-start :command: #+BEGIN_SRC emacs-lisp ;;;###autoload (defun jabber-keepalive-start (&optional jc) @@ -8757,7 +8757,7 @@ for all accounts regardless of the argument." (add-hook 'jabber-post-disconnect-hook 'jabber-keepalive-stop)) #+END_SRC -*** jabber-keepalive-stop :command: +*** jabber-keepalive-stop :command: #+BEGIN_SRC emacs-lisp (defun jabber-keepalive-stop () "Deactivate keepalive" @@ -8768,7 +8768,7 @@ for all accounts regardless of the argument." (setq jabber-keepalive-timer nil))) #+END_SRC -*** jabber-keepalive-do :function: +*** jabber-keepalive-do :function: #+BEGIN_SRC emacs-lisp (defun jabber-keepalive-do () (when jabber-keepalive-debug @@ -8784,7 +8784,7 @@ for all accounts regardless of the argument." (jabber-ping-send c nil 'jabber-keepalive-got-response nil nil))) #+END_SRC -*** jabber-keepalive-got-response :function: +*** jabber-keepalive-got-response :function: #+BEGIN_SRC emacs-lisp (defun jabber-keepalive-got-response (jc &rest args) (when jabber-keepalive-debug @@ -8797,7 +8797,7 @@ for all accounts regardless of the argument." (setq jabber-keepalive-timeout-timer nil))) #+END_SRC -*** jabber-keepalive-timeout :function: +*** jabber-keepalive-timeout :function: #+BEGIN_SRC emacs-lisp (defun jabber-keepalive-timeout () (jabber-cancel-timer jabber-keepalive-timer) @@ -8812,7 +8812,7 @@ for all accounts regardless of the argument." (jabber-disconnect-one c nil))) #+END_SRC -*** jabber-whitespace-ping-interval :custom:variable: +*** jabber-whitespace-ping-interval :custom:variable: Whitespace pings - less traffic, no error checking on our side. Openfire needs something like this, but I couldn't bring myself to enable keepalive by default... Whitespace pings are light and unobtrusive. @@ -8831,13 +8831,13 @@ If you want to verify that the server is able to answer, see :group 'jabber-core) #+END_SRC -*** jabber-whitespace-ping-timer :custom:variable: +*** jabber-whitespace-ping-timer :custom:variable: #+BEGIN_SRC emacs-lisp (defvar jabber-whitespace-ping-timer nil "Timer object for whitespace pings") #+END_SRC -*** jabber-whitespace-ping-start :command: +*** jabber-whitespace-ping-start :command: #+BEGIN_SRC emacs-lisp ;;;###autoload (defun jabber-whitespace-ping-start (&optional jc) @@ -8858,7 +8858,7 @@ accounts." (add-hook 'jabber-post-disconnect-hook 'jabber-whitespace-ping-stop)) #+END_SRC -*** jabber-whitespace-ping-stop :command: +*** jabber-whitespace-ping-stop :command: #+BEGIN_SRC emacs-lisp (defun jabber-whitespace-ping-stop () "Deactivate whitespace pings" @@ -8869,7 +8869,7 @@ accounts." (setq jabber-whitespace-ping-timer nil))) #+END_SRC -*** jabber-whitespace-ping-do :function: +*** jabber-whitespace-ping-do :function: #+BEGIN_SRC emacs-lisp (defun jabber-whitespace-ping-do () (dolist (c jabber-connections) @@ -8891,7 +8891,7 @@ accounts." (jabber-disco-advertise-feature "http://jabber.org/protocol/feature-neg") #+END_SRC -*** jabber-fn-parse :function: +*** jabber-fn-parse :function: #+BEGIN_SRC emacs-lisp (defun jabber-fn-parse (xml-data type) "Parse a Feature Negotiation request, return alist representation. @@ -8931,7 +8931,7 @@ alternatives." alist))) #+END_SRC -*** jabber-fn-encode :function: +*** jabber-fn-encode :function: #+BEGIN_SRC emacs-lisp (defun jabber-fn-encode (alist type) "Transform a feature alist into an <x/> node int the jabber:x:data namespace. @@ -8954,7 +8954,7 @@ TYPE is either 'request or 'response." alist)))) #+END_SRC -*** jabber-fn-intersection :function: +*** jabber-fn-intersection :function: #+BEGIN_SRC emacs-lisp (defun jabber-fn-intersection (mine theirs) "Find values acceptable to both parties. @@ -9006,13 +9006,13 @@ protocols." (require 'wid-edit) #+END_SRC -*** jabber-widget-alist :variable: +*** jabber-widget-alist :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-widget-alist nil "Alist of widgets currently used") #+END_SRC -*** jabber-form-type :variable: +*** jabber-form-type :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-form-type nil "Type of form. One of: @@ -9020,7 +9020,7 @@ protocols." 'register, as used in jabber:iq:register and jabber:iq:search") #+END_SRC -*** jabber-submit-to :variable: +*** jabber-submit-to :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-submit-to nil "JID of the entity to which form data is to be sent") @@ -9047,7 +9047,7 @@ protocols." :complete-function 'jid-complete) #+END_SRC -*** jid-complete :command: +*** jid-complete :command: #+BEGIN_SRC emacs-lisp (defun jid-complete () "Perform completion on JID preceding point." @@ -9077,7 +9077,7 @@ protocols." (message "Making completion list...done"))))) #+END_SRC -*** jabber-init-widget-buffer :function: +*** jabber-init-widget-buffer :function: #+BEGIN_SRC emacs-lisp (defun jabber-init-widget-buffer (submit-to) "Setup buffer-local variables for widgets." @@ -9093,7 +9093,7 @@ protocols." (rename-uniquely)) #+END_SRC -*** jabber-render-register-form :function: +*** jabber-render-register-form :function: #+BEGIN_SRC emacs-lisp (defun jabber-render-register-form (query &optional default-username) "Display widgets from <query/> element in jabber:iq:{register,search} namespace. @@ -9147,7 +9147,7 @@ DEFAULT-USERNAME is the default value for the username field." (widget-insert "\n")))))) #+END_SRC -*** jabber-parse-register-form :function: +*** jabber-parse-register-form :function: #+BEGIN_SRC emacs-lisp (defun jabber-parse-register-form () "Return children of a <query/> tag containing information entered in the widgets of the current buffer." @@ -9159,7 +9159,7 @@ DEFAULT-USERNAME is the default value for the username field." jabber-widget-alist)) #+END_SRC -*** jabber-render-xdata-form :function: +*** jabber-render-xdata-form :function: #+BEGIN_SRC emacs-lisp (defun jabber-render-xdata-form (x &optional defaults) "Display widgets from <x/> element in jabber:x:data namespace. @@ -9246,7 +9246,7 @@ DEFAULTS takes precedence over values specified in the form." (widget-insert "\n")))) #+END_SRC -*** jabber-parse-xdata-form :function: +*** jabber-parse-xdata-form :function: #+BEGIN_SRC emacs-lisp (defun jabber-parse-xdata-form () "Return an <x/> tag containing information entered in the widgets of the current buffer." @@ -9265,7 +9265,7 @@ DEFAULTS takes precedence over values specified in the form." jabber-widget-alist))) #+END_SRC -*** jabber-xdata-value-convert :function: +*** jabber-xdata-value-convert :function: #+BEGIN_SRC emacs-lisp (defun jabber-xdata-value-convert (value type) "Convert VALUE from form used by widget library to form required by XEP-0004. @@ -9281,7 +9281,7 @@ Return a list of strings, each of which to be included as cdata in a <value/> ta (list value))))) #+END_SRC -*** jabber-render-xdata-search-results :function: +*** jabber-render-xdata-search-results :function: #+BEGIN_SRC emacs-lisp (defun jabber-render-xdata-search-results (xdata) "Render search results in x:data form." @@ -9295,7 +9295,7 @@ Return a list of strings, each of which to be included as cdata in a <value/> ta (jabber-render-xdata-search-results-single xdata))) #+END_SRC -*** jabber-render-xdata-search-results-multi :function: +*** jabber-render-xdata-search-results-multi :function: #+BEGIN_SRC emacs-lisp (defun jabber-render-xdata-search-results-multi (xdata) "Render multi-record search results." @@ -9358,7 +9358,7 @@ Return a list of strings, each of which to be included as cdata in a <value/> ta (insert "\n"))))) #+END_SRC -*** jabber-render-xdata-search-results-single :function: +*** jabber-render-xdata-search-results-single :function: #+BEGIN_SRC emacs-lisp (defun jabber-render-xdata-search-results-single (xdata) "Render single-record search results." @@ -9374,7 +9374,7 @@ Return a list of strings, each of which to be included as cdata in a <value/> ta (insert (apply #'concat values) "\n")))) #+END_SRC -*** jabber-xdata-formtype :function: +*** jabber-xdata-formtype :function: #+BEGIN_SRC emacs-lisp (defun jabber-xdata-formtype (x) "Return the form type of the xdata form in X, by XEP-0068. @@ -9396,7 +9396,7 @@ Return nil if no form type is specified." (require 'cl) #+END_SRC -*** jabber-bookmarks :variable: +*** jabber-bookmarks :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-bookmarks (make-hash-table :test 'equal) "Mapping from full JIDs to bookmarks. @@ -9405,7 +9405,7 @@ XML elements. This is nil if bookmarks have not been retrieved, and t if no bookmarks where found.") #+END_SRC -*** jabber-get-conference-data :function: +*** jabber-get-conference-data :function: #+BEGIN_SRC emacs-lisp ;;;###autoload (defun jabber-get-conference-data (jc conference-jid cont &optional key) @@ -9430,7 +9430,7 @@ immediately, and return nil if it is not in the cache." (funcall cont jc entry))))))) #+END_SRC -*** jabber-get-conference-data-internal :function: +*** jabber-get-conference-data-internal :function: #+BEGIN_SRC emacs-lisp (defun jabber-get-conference-data-internal (result conference-jid key) (let ((entry (dolist (node result) @@ -9442,7 +9442,7 @@ immediately, and return nil if it is not in the cache." entry))) #+END_SRC -*** jabber-parse-conference-bookmark :function: +*** jabber-parse-conference-bookmark :function: #+BEGIN_SRC emacs-lisp ;;;###autoload (defun jabber-parse-conference-bookmark (node) @@ -9460,7 +9460,7 @@ The plist may contain the keys :jid, :name, :autojoin, (car (jabber-xml-get-children node 'password))))))) #+END_SRC -*** jabber-get-bookmarks :function: +*** jabber-get-bookmarks :function: #+BEGIN_SRC emacs-lisp ;;;###autoload (defun jabber-get-bookmarks (jc cont &optional refresh) @@ -9477,7 +9477,7 @@ If REFRESH is non-nil, always fetch bookmarks." callback callback))))) #+END_SRC -*** jabber-get-bookmarks-1 :function: +*** jabber-get-bookmarks-1 :function: #+BEGIN_SRC emacs-lisp (defun jabber-get-bookmarks-1 (jc result cont) (let ((my-jid (jabber-connection-bare-jid jc)) @@ -9489,7 +9489,7 @@ If REFRESH is non-nil, always fetch bookmarks." (funcall cont jc (when (listp value) value)))) #+END_SRC -*** jabber-get-bookmarks-from-cache :function: +*** jabber-get-bookmarks-from-cache :function: #+BEGIN_SRC emacs-lisp ;;;###autoload (defun jabber-get-bookmarks-from-cache (jc) @@ -9499,7 +9499,7 @@ return nil." (gethash (jabber-connection-bare-jid jc) jabber-bookmarks)) #+END_SRC -*** jabber-set-bookmarks :command: +*** jabber-set-bookmarks :command: #+BEGIN_SRC emacs-lisp (defun jabber-set-bookmarks (jc bookmarks &optional callback) "Set bookmarks to BOOKMARKS, which is a list of XML elements. @@ -9515,7 +9515,7 @@ on success or failure, respectively." callback nil)) #+END_SRC -*** jabber-edit-bookmarks :command: +*** jabber-edit-bookmarks :command: #+BEGIN_SRC emacs-lisp ;;;###autoload (defun jabber-edit-bookmarks (jc) @@ -9524,7 +9524,7 @@ on success or failure, respectively." (jabber-get-bookmarks jc 'jabber-edit-bookmarks-1 t)) #+END_SRC -*** jabber-edit-bookmarks-1 :function: +*** jabber-edit-bookmarks-1 :function: #+BEGIN_SRC emacs-lisp (defun jabber-edit-bookmarks-1 (jc bookmarks) (setq bookmarks @@ -9591,7 +9591,7 @@ on success or failure, respectively." (goto-char (point-min)))) #+END_SRC -*** jabber-bookmarks-submit :function: +*** jabber-bookmarks-submit :function: #+BEGIN_SRC emacs-lisp (defun jabber-bookmarks-submit (&rest ignore) (let ((bookmarks (widget-value (cdr (assq 'bookmarks jabber-widget-alist))))) @@ -9625,7 +9625,7 @@ on success or failure, respectively." 'jabber-report-success "Storing bookmarks"))) #+END_SRC -*** jabber-bookmarks-import :function: +*** jabber-bookmarks-import :function: #+BEGIN_SRC emacs-lisp (defun jabber-bookmarks-import (&rest ignore) (let* ((value (widget-value (cdr (assq 'bookmarks jabber-widget-alist)))) @@ -9658,7 +9658,7 @@ on success or failure, respectively." :old-file: jabber-private.el :END: -*** jabber-private-get :function: +*** jabber-private-get :function: #+BEGIN_SRC emacs-lisp ;;;###autoload (defun jabber-private-get (jc node-name namespace success-callback error-callback) @@ -9679,14 +9679,14 @@ result." (funcall error-callback jc xml-data)) error-callback)) #+END_SRC -*** jabber-private-get-1 :function: +*** jabber-private-get-1 :function: #+BEGIN_SRC emacs-lisp (defun jabber-private-get-1 (jc xml-data success-callback) (funcall success-callback jc (car (jabber-xml-node-children (jabber-iq-query xml-data))))) #+END_SRC -*** jabber-private-set :function: +*** jabber-private-set :function: #+BEGIN_SRC emacs-lisp ;;;###autoload (defun jabber-private-set (jc fragment &optional @@ -9722,7 +9722,7 @@ ERROR-CLOSURE-DATA are used as in `jabber-send-iq'." "hexrgb not found in `load-path' or jabber-fallback-lib/ directory."))) #+END_SRC -*** jabber-muc-participant-colors :custom:variable: +*** jabber-muc-participant-colors :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-muc-participant-colors nil "Alist of used colors. Format is (nick . color). Color may be @@ -9732,7 +9732,7 @@ ERROR-CLOSURE-DATA are used as in `jabber-send-iq'." :group 'jabber-chat) #+END_SRC -*** jabber-muc-colorize-local :custom:variable: +*** jabber-muc-colorize-local :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-muc-colorize-local nil "Colorize MUC messages from you." @@ -9740,7 +9740,7 @@ ERROR-CLOSURE-DATA are used as in `jabber-send-iq'." :group 'jabber-chat) #+END_SRC -*** jabber-muc-colorize-foreign :custom:variable: +*** jabber-muc-colorize-foreign :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-muc-colorize-foreign nil "Colorize MUC messages not from you." @@ -9748,7 +9748,7 @@ ERROR-CLOSURE-DATA are used as in `jabber-send-iq'." :group 'jabber-chat) #+END_SRC -*** jabber-muc-nick-saturation :custom:variable: +*** jabber-muc-nick-saturation :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-muc-nick-saturation 1.0 "Default saturation for nick coloring." @@ -9756,7 +9756,7 @@ ERROR-CLOSURE-DATA are used as in `jabber-send-iq'." :group 'jabber-chat) #+END_SRC -*** jabber-muc-nick-value :custom:variable: +*** jabber-muc-nick-value :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-muc-nick-value 1.0 "Default value for nick coloring." @@ -9764,7 +9764,7 @@ ERROR-CLOSURE-DATA are used as in `jabber-send-iq'." :group 'jabber-chat) #+END_SRC -*** jabber-muc-nick-gen-color :function: +*** jabber-muc-nick-gen-color :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-nick-gen-color (nick) "Return good enough color from available pool" @@ -9772,7 +9772,7 @@ ERROR-CLOSURE-DATA are used as in `jabber-send-iq'." (hexrgb-hsv-to-hex hue jabber-muc-nick-saturation jabber-muc-nick-value))) #+END_SRC -*** jabber-muc-nick-get-color :function: +*** jabber-muc-nick-get-color :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-nick-get-color (nick) "Get NICKs color" @@ -9797,7 +9797,7 @@ ERROR-CLOSURE-DATA are used as in `jabber-send-iq'." (require 'cl) #+END_SRC -*** *jabber-active-groupchats* :variable: +*** *jabber-active-groupchats* :variable: #+BEGIN_SRC emacs-lisp ;;;###autoload (defvar *jabber-active-groupchats* nil @@ -9806,7 +9806,7 @@ Keys are strings, the bare JID of the room. Values are strings.") #+END_SRC -*** jabber-pending-groupchats :variable: +*** jabber-pending-groupchats :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-pending-groupchats (make-hash-table) "Hash table of groupchats and nicknames. @@ -9815,7 +9815,7 @@ This table records the last nickname used to join the particular chat room. Items are thus never removed.") #+END_SRC -*** jabber-muc-participants :variable: +*** jabber-muc-participants :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-muc-participants nil "alist of groupchats and participants @@ -9823,37 +9823,37 @@ Keys are strings, the bare JID of the room. Values are lists of nickname strings.") #+END_SRC -*** jabber-group :variable: +*** jabber-group :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-group nil "the groupchat you are participating in") #+END_SRC -*** jabber-muc-topic :variable: +*** jabber-muc-topic :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-muc-topic "" "The topic of the current MUC room.") #+END_SRC -*** jabber-role-history :variable: +*** jabber-role-history :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-role-history () "Keeps track of previously used roles") #+END_SRC -*** jabber-affiliation-history :variable: +*** jabber-affiliation-history :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-affiliation-history () "Keeps track of previously used affiliations") #+END_SRC -*** jabber-muc-nickname-history :variable: +*** jabber-muc-nickname-history :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-muc-nickname-history () "Keeps track of previously referred-to nicknames") #+END_SRC -*** jabber-muc-default-nicknames :custom:variable: +*** jabber-muc-default-nicknames :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-muc-default-nicknames nil "Default nickname for specific MUC rooms." @@ -9864,7 +9864,7 @@ Values are lists of nickname strings.") (string :tag "Nickname")))) #+END_SRC -*** jabber-muc-autojoin :custom:variable: +*** jabber-muc-autojoin :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-muc-autojoin nil "List of MUC rooms to automatically join on connection. @@ -9875,7 +9875,7 @@ client; see `jabber-edit-bookmarks'." :type '(repeat (string :tag "JID of room"))) #+END_SRC -*** jabber-muc-disable-disco-check :custom:variable: +*** jabber-muc-disable-disco-check :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-muc-disable-disco-check nil "If non-nil, disable checking disco#info of rooms before joining them. @@ -9886,7 +9886,7 @@ to join chat rooms on such servers, set this variable to t." :type 'boolean) #+END_SRC -*** jabber-groupchat-buffer-format :custom:variable: +*** jabber-groupchat-buffer-format :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-groupchat-buffer-format "*-jabber-groupchat-%n-*" "The format specification for the name of groupchat buffers. @@ -9901,7 +9901,7 @@ in): :group 'jabber-chat) #+END_SRC -*** jabber-groupchat-prompt-format :custom:variable: +*** jabber-groupchat-prompt-format :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-groupchat-prompt-format "[%t] %n> " "The format specification for lines in groupchat. @@ -9916,7 +9916,7 @@ These fields are available: :group 'jabber-chat) #+END_SRC -*** jabber-muc-header-line-format :custom:variable: +*** jabber-muc-header-line-format :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-muc-header-line-format '(" " (:eval (jabber-jid-displayname jabber-group)) @@ -9928,7 +9928,7 @@ The format is that of `mode-line-format' and `header-line-format'." :group 'jabber-chat) #+END_SRC -*** jabber-muc-private-buffer-format :custom:variable: +*** jabber-muc-private-buffer-format :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-muc-private-buffer-format "*-jabber-muc-priv-%g-%n-*" "The format specification for the buffer name for private MUC messages. @@ -9941,7 +9941,7 @@ These fields are available: :group 'jabber-chat) #+END_SRC -*** jabber-muc-private-foreign-prompt-format :custom:variable: +*** jabber-muc-private-foreign-prompt-format :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-muc-private-foreign-prompt-format "[%t] %g/%n> " "The format specification for lines others type in a private MUC buffer. @@ -9955,7 +9955,7 @@ These fields are available: :group 'jabber-chat) #+END_SRC -*** jabber-muc-print-names-format :custom:variable: +*** jabber-muc-print-names-format :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-muc-print-names-format " %n %a %j\n" "The format specification for MUC list lines. @@ -9969,7 +9969,7 @@ Fields available: :group 'jabber-chat) #+END_SRC -*** jabber-muc-private-header-line-format :custom:variable: +*** jabber-muc-private-header-line-format :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-muc-private-header-line-format '(" " (:eval (jabber-jid-resource jabber-chatting-with)) @@ -9983,7 +9983,7 @@ The format is that of `mode-line-format' and `header-line-format'." :group 'jabber-chat) #+END_SRC -*** jabber-muc-printers :variable: +*** jabber-muc-printers :variable: #+BEGIN_SRC emacs-lisp ;;;###autoload (defvar jabber-muc-printers '() @@ -10005,7 +10005,7 @@ Either a string or a buffer is returned, so use `get-buffer' or (cons ?j (jabber-jid-user group))))) #+END_SRC -*** jabber-muc-create-buffer :function: +*** jabber-muc-create-buffer :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-create-buffer (jc group) "Prepare a buffer for chatroom GROUP. @@ -10023,7 +10023,7 @@ This function is idempotent." (current-buffer))) #+END_SRC -*** jabber-muc-private-get-buffer :function: +*** jabber-muc-private-get-buffer :function: #+BEGIN_SRC emacs-lisp ;;;###autoload (defun jabber-muc-private-get-buffer (group nickname) @@ -10036,7 +10036,7 @@ Either a string or a buffer is returned, so use `get-buffer' or (cons ?n nickname)))) #+END_SRC -*** jabber-muc-private-create-buffer :function: +*** jabber-muc-private-create-buffer :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-private-create-buffer (jc group nickname) "Prepare a buffer for chatting with NICKNAME in GROUP. @@ -10052,7 +10052,7 @@ This function is idempotent." (current-buffer))) #+END_SRC -*** jabber-muc-send :function: +*** jabber-muc-send :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-send (jc body) "Send BODY to MUC room in current buffer." @@ -10065,7 +10065,7 @@ This function is idempotent." (body () ,body)))) #+END_SRC -*** jabber-muc-add-groupchat :function: +*** jabber-muc-add-groupchat :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-add-groupchat (group nickname) "Remember participating in GROUP under NICKNAME." @@ -10075,7 +10075,7 @@ This function is idempotent." (add-to-list '*jabber-active-groupchats* (cons group nickname))))) #+END_SRC -*** jabber-muc-remove-groupchat :function: +*** jabber-muc-remove-groupchat :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-remove-groupchat (group) "Remove GROUP from internal bookkeeping." @@ -10087,7 +10087,7 @@ This function is idempotent." (delq whichparticipants jabber-muc-participants)))) #+END_SRC -*** jabber-muc-connection-closed :function: +*** jabber-muc-connection-closed :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-connection-closed (bare-jid) "Remove MUC data for BARE-JID. @@ -10107,7 +10107,7 @@ this JID. Suitable to call when the connection is closed." (delq room-entry jabber-muc-participants)))))))) #+END_SRC -*** jabber-muc-participant-plist :function: +*** jabber-muc-participant-plist :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-participant-plist (group nickname) "Return plist associated with NICKNAME in GROUP. @@ -10117,7 +10117,7 @@ Return nil if nothing known about that combination." (cdr (assoc nickname whichparticipants))))) #+END_SRC -*** jabber-muc-modify-participant :function: +*** jabber-muc-modify-participant :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-modify-participant (group nickname new-plist) "Assign properties in NEW-PLIST to NICKNAME in GROUP." @@ -10134,7 +10134,7 @@ Return nil if nothing known about that combination." (push (cons group (list (cons nickname new-plist))) jabber-muc-participants)))) #+END_SRC -*** jabber-muc-report-delta :function: +*** jabber-muc-report-delta :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-report-delta (nickname old-plist new-plist reason actor) "Compare OLD-PLIST and NEW-PLIST, and return a string explaining the change. @@ -10214,7 +10214,7 @@ in the user entering/staying in the room." (concat nickname " has been denied voice" actor-reason))))))) #+END_SRC -*** jabber-muc-remove-participant :function: +*** jabber-muc-remove-participant :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-remove-participant (group nickname) "Forget everything about NICKNAME in GROUP." @@ -10224,7 +10224,7 @@ in the user entering/staying in the room." (setf (cdr participants) (delq participant (cdr participants))))))) #+END_SRC -*** jabber-muc-argument-list :macro: +*** jabber-muc-argument-list :macro: #+BEGIN_SRC emacs-lisp (defmacro jabber-muc-argument-list (&optional args) "Prepend connection and group name to ARGS. @@ -10235,7 +10235,7 @@ This macro is meant for use as an argument to `interactive'." (nconc (list jabber-buffer-connection jabber-group) ,args))) #+END_SRC -*** jabber-muc-read-completing :function: +*** jabber-muc-read-completing :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-read-completing (prompt &optional allow-not-joined) "Read the name of a joined chatroom, or use chatroom of current buffer, if any. @@ -10251,7 +10251,7 @@ JID; only provide completion as a guide." jabber-group))) #+END_SRC -*** jabber-muc-read-nickname :function: +*** jabber-muc-read-nickname :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-read-nickname (group prompt) "Read the nickname of a participant in GROUP." @@ -10267,7 +10267,7 @@ JID; only provide completion as a guide." (cons "Request vcard" 'jabber-muc-vcard-get)) #+END_SRC -*** jabber-muc-vcard-get :command: +*** jabber-muc-vcard-get :command: #+BEGIN_SRC emacs-lisp ;;;###autoload (defun jabber-muc-vcard-get (jc group nickname) @@ -10279,7 +10279,7 @@ JID; only provide completion as a guide." (jabber-vcard-get jc muc-name))) #+END_SRC -*** jabber-muc-instant-config :command: +*** jabber-muc-instant-config :command: #+BEGIN_SRC emacs-lisp (defun jabber-muc-instant-config (jc group) "Accept default configuration for GROUP. @@ -10302,7 +10302,7 @@ enter it." (cons "Configure groupchat" 'jabber-muc-get-config)) #+END_SRC -*** jabber-muc-get-config :command: +*** jabber-muc-get-config :command: #+BEGIN_SRC emacs-lisp (defun jabber-muc-get-config (jc group) "Ask for MUC configuration form" @@ -10320,7 +10320,7 @@ enter it." "Deprecated. See `jabber-muc-get-config' instead.") #+END_SRC -*** jabber-muc-render-config :function: +*** jabber-muc-render-config :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-render-config (jc xml-data) "Render MUC configuration form" @@ -10353,7 +10353,7 @@ enter it." "Deprecated. See `jabber-muc-render-config' instead.") #+END_SRC -*** jabber-muc-submit-config :function: +*** jabber-muc-submit-config :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-submit-config (&rest ignore) "Submit MUC configuration form." @@ -10372,7 +10372,7 @@ enter it." "Deprecated. See `jabber-muc-submit-config' instead.") #+END_SRC -*** jabber-muc-cancel-config :function: +*** jabber-muc-cancel-config :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-cancel-config (&rest ignore) "Cancel MUC configuration form." @@ -10396,7 +10396,7 @@ enter it." (cons "Join groupchat" 'jabber-muc-join)) #+END_SRC -*** jabber-muc-join :command: +*** jabber-muc-join :command: #+BEGIN_SRC emacs-lisp (defun jabber-muc-join (jc group nickname &optional popup) "join a groupchat, or change nick. @@ -10424,7 +10424,7 @@ groupchat buffer." "Deprecated. Use `jabber-muc-join' instead.") #+END_SRC -*** jabber-muc-join-2 :function: +*** jabber-muc-join-2 :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-join-2 (jc closure result) (destructuring-bind (group nickname popup) closure @@ -10476,7 +10476,7 @@ groupchat buffer." "Deprecated. See `jabber-muc-join-2' instead.") #+END_SRC -*** jabber-muc-join-3 :function: +*** jabber-muc-join-3 :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-join-3 (jc group nickname password popup) @@ -10510,7 +10510,7 @@ groupchat buffer." "Deprecated. See `jabber-muc-join-3' instead.") #+END_SRC -*** jabber-muc-read-my-nickname :function: +*** jabber-muc-read-my-nickname :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-read-my-nickname (jc group &optional default) "Read nickname for joining GROUP. If DEFAULT is non-nil, return default nick without prompting." @@ -10542,7 +10542,7 @@ groupchat buffer." (cons "Leave groupchat" 'jabber-muc-leave)) #+END_SRC -*** jabber-muc-leave :command: +*** jabber-muc-leave :command: #+BEGIN_SRC emacs-lisp (defun jabber-muc-leave (jc group) "leave a groupchat" @@ -10566,7 +10566,7 @@ groupchat buffer." (cons "List participants" 'jabber-muc-names)) #+END_SRC -*** jabber-muc-names :command: +*** jabber-muc-names :command: #+BEGIN_SRC emacs-lisp (defun jabber-muc-names () "Print names, affiliations, and roles of participants in current buffer." @@ -10577,7 +10577,7 @@ groupchat buffer." :time (current-time)))) #+END_SRC -*** jabber-muc-format-names :function: +*** jabber-muc-format-names :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-format-names (participant) "Format one participant name" @@ -10588,7 +10588,7 @@ groupchat buffer." (cons ?j (or (plist-get (cdr participant) 'jid) ""))))) #+END_SRC -*** jabber-muc-print-names :function: +*** jabber-muc-print-names :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-print-names (participants) "Format and return data in PARTICIPANTS." @@ -10618,7 +10618,7 @@ groupchat buffer." (cons "Set topic" 'jabber-muc-set-topic)) #+END_SRC -*** jabber-muc-set-topic :command: +*** jabber-muc-set-topic :command: #+BEGIN_SRC emacs-lisp (defun jabber-muc-set-topic (jc group topic) "Set topic of GROUP to TOPIC." @@ -10628,7 +10628,7 @@ groupchat buffer." (jabber-send-message jc group topic nil "groupchat")) #+END_SRC -*** jabber-muc-snarf-topic :function: +*** jabber-muc-snarf-topic :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-snarf-topic (xml-data) "Record subject (topic) of the given <message/>, if any." @@ -10643,7 +10643,7 @@ groupchat buffer." (cons "Set role (kick, voice, op)" 'jabber-muc-set-role)) #+END_SRC -*** jabber-muc-set-role :command: +*** jabber-muc-set-role :command: #+BEGIN_SRC emacs-lisp (defun jabber-muc-set-role (jc group nickname role reason) "Set role of NICKNAME in GROUP to ROLE, specifying REASON." @@ -10670,7 +10670,7 @@ groupchat buffer." (cons "Set affiliation (ban, member, admin)" 'jabber-muc-set-affiliation)) #+END_SRC -*** jabber-muc-set-affiliation :command: +*** jabber-muc-set-affiliation :command: #+BEGIN_SRC emacs-lisp (defun jabber-muc-set-affiliation (jc group nickname-or-jid nickname-p affiliation reason) "Set affiliation of NICKNAME-OR-JID in GROUP to AFFILIATION. @@ -10714,7 +10714,7 @@ group, else it is a JID." (cons "Invite someone to chatroom" 'jabber-muc-invite)) #+END_SRC -*** jabber-muc-invite :command: +*** jabber-muc-invite :command: #+BEGIN_SRC emacs-lisp (defun jabber-muc-invite (jc jid group reason) "Invite JID to GROUP, stating REASON." @@ -10740,7 +10740,7 @@ group, else it is a JID." (add-to-list 'jabber-body-printers 'jabber-muc-print-invite) #+END_SRC -*** jabber-muc-print-invite :function: +*** jabber-muc-print-invite :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-print-invite (xml-data who mode) "Print MUC invitation" @@ -10804,7 +10804,7 @@ group, else it is a JID." (return t)))))) #+END_SRC -*** jabber-muc-autojoin :command: +*** jabber-muc-autojoin :command: #+BEGIN_SRC emacs-lisp (defun jabber-muc-autojoin (jc) "Join rooms specified in account bookmarks and global `jabber-muc-autojoin'." @@ -10826,7 +10826,7 @@ group, else it is a JID." (plist-get (fsm-get-state-data jc) :username))))))))) #+END_SRC -*** jabber-muc-message-p :function: +*** jabber-muc-message-p :function: #+BEGIN_SRC emacs-lisp ;;;###autoload (defun jabber-muc-message-p (message) @@ -10845,7 +10845,7 @@ include groupchat invites." (jabber-xml-path message '(("http://jabber.org/protocol/muc#user" . "x") invite))))) #+END_SRC -*** jabber-muc-sender-p :function: +*** jabber-muc-sender-p :function: #+BEGIN_SRC emacs-lisp ;;;###autoload (defun jabber-muc-sender-p (jid) @@ -10854,7 +10854,7 @@ include groupchat invites." (jabber-jid-resource jid))) #+END_SRC -*** jabber-muc-private-message-p :function: +*** jabber-muc-private-message-p :function: #+BEGIN_SRC emacs-lisp ;;;###autoload (defun jabber-muc-private-message-p (message) @@ -10872,7 +10872,7 @@ include groupchat invites." (cons "Open private chat" 'jabber-muc-private)) #+END_SRC -*** jabber-muc-private :command: +*** jabber-muc-private :command: #+BEGIN_SRC emacs-lisp (defun jabber-muc-private (jc group nickname) "Open private chat with NICKNAME in GROUP." @@ -10882,7 +10882,7 @@ include groupchat invites." (switch-to-buffer (jabber-muc-private-create-buffer jabber-buffer-connection group nickname))) #+END_SRC -*** jabber-muc-presence-p :function: +*** jabber-muc-presence-p :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-presence-p (presence) "Return non-nil if PRESENCE is presence from groupchat." @@ -10899,7 +10899,7 @@ include groupchat invites." (gethash (jabber-jid-symbol from) jabber-pending-groupchats))))) #+END_SRC -*** jabber-muc-parse-affiliation :function: +*** jabber-muc-parse-affiliation :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-parse-affiliation (x-muc) "Parse X-MUC in the muc#user namespace and return a plist. @@ -10910,7 +10910,7 @@ Return nil if X-MUC is nil." (car (jabber-xml-get-children x-muc 'item)))))) #+END_SRC -*** jabber-muc-print-prompt :function: +*** jabber-muc-print-prompt :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-print-prompt (xml-data &optional local dont-print-nick-p) "Print MUC prompt for message in XML-DATA." @@ -10945,7 +10945,7 @@ Return nil if X-MUC is nil." (jabber-muc-system-prompt)))) #+END_SRC -*** jabber-muc-private-print-prompt :function: +*** jabber-muc-private-print-prompt :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-private-print-prompt (xml-data) "Print prompt for private MUC message in XML-DATA." @@ -10967,7 +10967,7 @@ Return nil if X-MUC is nil." 'help-echo (concat (format-time-string "On %Y-%m-%d %H:%M:%S" timestamp) " from " nick " in " jabber-group))))) #+END_SRC -*** jabber-muc-system-prompt :function: +*** jabber-muc-system-prompt :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-system-prompt (&rest ignore) "Print system prompt for MUC." @@ -10988,7 +10988,7 @@ Return nil if X-MUC is nil." (add-to-list 'jabber-message-chain 'jabber-muc-process-message) #+END_SRC -*** jabber-muc-process-message :function: +*** jabber-muc-process-message :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-process-message (jc xml-data) "If XML-DATA is a groupchat message, handle it as such." @@ -11029,7 +11029,7 @@ Return nil if X-MUC is nil." nick group (current-buffer) body-text)))))))))) #+END_SRC -*** jabber-muc-process-presence :function: +*** jabber-muc-process-presence :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-process-presence (jc presence) (let* ((from (jabber-xml-get-attribute presence 'from)) @@ -11201,7 +11201,7 @@ Return nil if X-MUC is nil." :old-file: jabber-muc-nick-completion.el :END: -*** jabber-muc-completion-delimiter :custom:variable: +*** jabber-muc-completion-delimiter :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-muc-completion-delimiter ": " "String to add to end of completion line." @@ -11209,7 +11209,7 @@ Return nil if X-MUC is nil." :group 'jabber-chat) #+END_SRC -*** jabber-muc-looks-personaling-symbols :custom:variable: +*** jabber-muc-looks-personaling-symbols :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-muc-looks-personaling-symbols '("," ":" ">") "Symbols for personaling messages" @@ -11217,7 +11217,7 @@ Return nil if X-MUC is nil." :group 'jabber-chat) #+END_SRC -*** jabber-muc-personal-message-bonus :custom:variable: +*** jabber-muc-personal-message-bonus :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-muc-personal-message-bonus (* 60 20) "Bonus for personal message, in seconds." @@ -11225,7 +11225,7 @@ Return nil if X-MUC is nil." :group 'jabber-chat) #+END_SRC -*** jabber-muc-all-string :custom:variable: +*** jabber-muc-all-string :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-muc-all-string "all" "String meaning all conference members (to insert in completion). Note that \":\" or alike not needed (it appended in other string)" @@ -11241,13 +11241,13 @@ Return nil if X-MUC is nil." (require 'hippie-exp) #+END_SRC -*** *jabber-muc-participant-last-speaking* :variable: +*** *jabber-muc-participant-last-speaking* :variable: #+BEGIN_SRC emacs-lisp (defvar *jabber-muc-participant-last-speaking* nil "Global alist in form (group . ((member . time-of-last-speaking) ...) ...).") #+END_SRC -*** jabber-my-nick :function: +*** jabber-my-nick :function: #+BEGIN_SRC emacs-lisp (defun jabber-my-nick (&optional group) "Return my jabber nick in GROUP." @@ -11257,7 +11257,7 @@ Return nil if X-MUC is nil." )) #+END_SRC -*** jabber-muc-looks-like-personal-p :function: +*** jabber-muc-looks-like-personal-p :function: #+BEGIN_SRC emacs-lisp ;;;###autoload (defun jabber-muc-looks-like-personal-p (message &optional group) @@ -11271,7 +11271,7 @@ Optional argument GROUP to look." nil)) #+END_SRC -*** jabber-muc-nicknames :function: +*** jabber-muc-nicknames :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-nicknames () "List of conference participants, excluding self, or nil if we not in conference." @@ -11280,7 +11280,7 @@ Optional argument GROUP to look." (append (mapcar 'car (cdr (assoc jabber-group jabber-muc-participants))) (list jabber-muc-all-string)))) #+END_SRC -*** jabber-muc-participant-update-activity :function: +*** jabber-muc-participant-update-activity :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-participant-update-activity (group nick time) "Updates NICK's time of last speaking in GROUP to TIME." @@ -11300,7 +11300,7 @@ Optional argument GROUP to look." *jabber-muc-participant-last-speaking*))))))) #+END_SRC -*** jabber-muc-track-message-time :function: +*** jabber-muc-track-message-time :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-track-message-time (nick group buffer text &optional title) "Tracks time of NICK's last speaking in GROUP." @@ -11314,7 +11314,7 @@ Optional argument GROUP to look." time))))) #+END_SRC -*** jabber-sort-nicks :function: +*** jabber-sort-nicks :function: #+BEGIN_SRC emacs-lisp (defun jabber-sort-nicks (nicks group) "Return list of NICKS in GROUP, sorted." @@ -11332,7 +11332,7 @@ Optional argument GROUP to look." 'cmp))))) #+END_SRC -*** jabber-muc-beginning-of-line :function: +*** jabber-muc-beginning-of-line :function: #+BEGIN_SRC emacs-lisp (defun jabber-muc-beginning-of-line () "Return position of line begining." @@ -11356,7 +11356,7 @@ Optional argument GROUP to look." ))) #+END_SRC -*** try-expand-jabber-muc :function: +*** try-expand-jabber-muc :function: #+BEGIN_SRC emacs-lisp (defun try-expand-jabber-muc (old) "Try to expand target nick in MUC according to last speaking time. @@ -11411,7 +11411,7 @@ OLD is last tried nickname." :old-file: jabber-register.el :END: -*** jabber-get-register :command: +*** jabber-get-register :command: #+BEGIN_SRC emacs-lisp (add-to-list 'jabber-jid-service-menu (cons "Register with service" 'jabber-get-register)) @@ -11426,7 +11426,7 @@ OLD is last tried nickname." #'jabber-report-success "Registration")) #+END_SRC -*** jabber-process-register-or-search :function: +*** jabber-process-register-or-search :function: #+BEGIN_SRC emacs-lisp (defun jabber-process-register-or-search (jc xml-data) "Display results from jabber:iq:{register,search} query as a form." @@ -11487,7 +11487,7 @@ OLD is last tried nickname." (widget-minor-mode 1))) #+END_SRC -*** jabber-submit-register :function: +*** jabber-submit-register :function: #+BEGIN_SRC emacs-lisp (defun jabber-submit-register (&rest ignore) "Submit registration input. See `jabber-process-register-or-search'." @@ -11515,7 +11515,7 @@ OLD is last tried nickname." (message "Registration sent")) #+END_SRC -*** jabber-process-register-secondtime :function: +*** jabber-process-register-secondtime :function: #+BEGIN_SRC emacs-lisp (defun jabber-process-register-secondtime (jc xml-data closure-data) "Receive registration success or failure. @@ -11529,7 +11529,7 @@ CLOSURE-DATA is either 'success or 'error." (jabber-disconnect-one jc)) #+END_SRC -*** jabber-remove-register :function: +*** jabber-remove-register :function: #+BEGIN_SRC emacs-lisp (defun jabber-remove-register (&rest ignore) "Cancel registration. See `jabber-process-register-or-search'." @@ -11548,7 +11548,7 @@ CLOSURE-DATA is either 'success or 'error." :old-file: jabber-search.el :END: -*** jabber-get-search :command: +*** jabber-get-search :command: #+BEGIN_SRC emacs-lisp (add-to-list 'jabber-jid-service-menu (cons "Search directory" 'jabber-get-search)) @@ -11563,7 +11563,7 @@ CLOSURE-DATA is either 'success or 'error." #'jabber-report-success "Search field retrieval")) #+END_SRC -*** jabber-submit-search :function: +*** jabber-submit-search :function: =jabber-process-register-or-search= logically comes here, rendering the search form, but since register and search are so similar, having two functions would be serious code duplication. See [[register]]. =jabber-submit-search= is called when the "submit" button of the search form is activated. @@ -11590,7 +11590,7 @@ CLOSURE-DATA is either 'success or 'error." (message "Search sent")) #+END_SRC -*** jabber-process-search-result :function: +*** jabber-process-search-result :function: #+BEGIN_SRC emacs-lisp (defun jabber-process-search-result (jc xml-data) "Receive and display search results." @@ -11649,7 +11649,7 @@ CLOSURE-DATA is either 'success or 'error." :END: jabber.el can perform browse requests, but will not answer them. -*** jabber-get-browse :command: +*** jabber-get-browse :command: #+BEGIN_SRC emacs-lisp (add-to-list 'jabber-jid-info-menu (cons "Send browse query" 'jabber-get-browse)) @@ -11664,7 +11664,7 @@ jabber.el can perform browse requests, but will not answer them. #'jabber-process-data "Browse failed")) #+END_SRC -*** jabber-process-browse :function: +*** jabber-process-browse :function: #+BEGIN_SRC emacs-lisp ;; called from jabber-process-data (defun jabber-process-browse (jc xml-data) @@ -11734,7 +11734,7 @@ jabber.el can perform browse requests, but will not answer them. (require 'jabber-ourversion) #+END_SRC -*** jabber-version-show :custom:variable: +*** jabber-version-show :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-version-show t "Show our client version to others. Acts on loading." @@ -11742,7 +11742,7 @@ jabber.el can perform browse requests, but will not answer them. :group 'jabber) #+END_SRC -*** jabber-get-version :command: +*** jabber-get-version :command: #+BEGIN_SRC emacs-lisp (add-to-list 'jabber-jid-info-menu (cons "Request software version" 'jabber-get-version)) @@ -11758,7 +11758,7 @@ jabber.el can perform browse requests, but will not answer them. #'jabber-process-data "Version request failed")) #+END_SRC -*** jabber-process-version :function: +*** jabber-process-version :function: #+BEGIN_SRC emacs-lisp ;; called by jabber-process-data (defun jabber-process-version (jc xml-data) @@ -11779,7 +11779,7 @@ jabber.el can perform browse requests, but will not answer them. (jabber-disco-advertise-feature "jabber:iq:version"))) #+END_SRC -*** jabber-return-version :function: +*** jabber-return-version :function: #+BEGIN_SRC emacs-lisp (defun jabber-return-version (jc xml-data) "Return client version as defined in XEP-0092. Sender and ID are @@ -11810,19 +11810,19 @@ determined from the incoming packet passed in XML-DATA." :old-file: jabber-ahc.el :END: -*** jabber-ahc-sessionid :variable: +*** jabber-ahc-sessionid :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-ahc-sessionid nil "Session ID of Ad-Hoc Command session.") #+END_SRC -*** jabber-ahc-node :variable: +*** jabber-ahc-node :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-ahc-node nil "Node to send commands to.") #+END_SRC -*** jabber-ahc-commands :variable: +*** jabber-ahc-commands :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-ahc-commands nil "Commands provided. @@ -11855,7 +11855,7 @@ Use the function `jabber-ahc-add' to add a command to this list.") ((var . "http://jabber.org/protocol/disco#info")))))) #+END_SRC -**** jabber-ahc-add :function: +**** jabber-ahc-add :function: #+BEGIN_SRC emacs-lisp (defun jabber-ahc-add (node name func acl) "Add a command to internal lists. @@ -11877,7 +11877,7 @@ access allowed. nil means open for everyone." (feature ((var . "jabber:x:data"))))))) #+END_SRC -**** jabber-ahc-disco-items :function: +**** jabber-ahc-disco-items :function: #+BEGIN_SRC emacs-lisp (jabber-disco-advertise-feature "http://jabber.org/protocol/commands") (add-to-list 'jabber-disco-items-nodes @@ -11900,7 +11900,7 @@ access allowed. nil means open for everyone." jabber-ahc-commands))) #+END_SRC -**** jabber-ahc-process :function: +**** jabber-ahc-process :function: #+BEGIN_SRC emacs-lisp (add-to-list 'jabber-iq-set-xmlns-alist (cons "http://jabber.org/protocol/commands" 'jabber-ahc-process)) @@ -11929,7 +11929,7 @@ access allowed. nil means open for everyone." #+END_SRC *** client -**** jabber-ahc-get-list :command: +**** jabber-ahc-get-list :command: #+BEGIN_SRC emacs-lisp (add-to-list 'jabber-jid-service-menu (cons "Request command list" 'jabber-ahc-get-list)) @@ -11940,7 +11940,7 @@ access allowed. nil means open for everyone." (jabber-get-disco-items jc to "http://jabber.org/protocol/commands")) #+END_SRC -**** jabber-ahc-execute-command :command: +**** jabber-ahc-execute-command :command: #+BEGIN_SRC emacs-lisp (add-to-list 'jabber-jid-service-menu (cons "Execute command" 'jabber-ahc-execute-command)) @@ -11958,7 +11958,7 @@ access allowed. nil means open for everyone." #'jabber-process-data "Command execution failed")) #+END_SRC -**** jabber-ahc-display :function: +**** jabber-ahc-display :function: #+BEGIN_SRC emacs-lisp (defun jabber-ahc-display (jc xml-data) (let* ((from (jabber-xml-get-attribute xml-data 'from)) @@ -12028,7 +12028,7 @@ access allowed. nil means open for everyone." (widget-minor-mode 1)))) #+END_SRC -**** jabber-ahc-submit :function: +**** jabber-ahc-submit :function: #+BEGIN_SRC emacs-lisp (defun jabber-ahc-submit (action) "Submit Ad-Hoc Command." @@ -12052,7 +12052,7 @@ access allowed. nil means open for everyone." :old-file: jabber-ahc-presence.el :END: -*** jabber-ahc-presence-node :constant: +*** jabber-ahc-presence-node :constant: #+BEGIN_SRC emacs-lisp (defconst jabber-ahc-presence-node "http://jabber.org/protocol/rc#set-status" "Node used by jabber-ahc-presence") @@ -12064,7 +12064,7 @@ access allowed. nil means open for everyone." 'jabber-my-jid-p) #+END_SRC -*** jabber-ahc-presence :function: +*** jabber-ahc-presence :function: #+BEGIN_SRC emacs-lisp (defun jabber-ahc-presence (jc xml-data) "Process presence change command." @@ -12151,14 +12151,14 @@ access allowed. nil means open for everyone." (eval-when-compile (require 'cl)) #+END_SRC -*** jabber-mode-line :custom:group: +*** jabber-mode-line :custom:group: #+BEGIN_SRC emacs-lisp (defgroup jabber-mode-line nil "Display Jabber status in mode line" :group 'jabber) #+END_SRC -*** jabber-mode-line-compact :custom:variable: +*** jabber-mode-line-compact :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-mode-line-compact t "Count contacts in fewer categories for compact view" @@ -12166,17 +12166,17 @@ access allowed. nil means open for everyone." :type 'boolean) #+END_SRC -*** jabber-mode-line-string :variable: +*** jabber-mode-line-string :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-mode-line-string nil) #+END_SRC -*** jabber-mode-line-presence :variable: +*** jabber-mode-line-presence :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-mode-line-presence nil) #+END_SRC -*** jabber-mode-line-contacts :variable: +*** jabber-mode-line-contacts :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-mode-line-contacts nil) @@ -12188,7 +12188,7 @@ access allowed. nil means open for everyone." (jabber-mode-line-presence-update)) #+END_SRC -*** jabber-mode-line-presence-update :function: +*** jabber-mode-line-presence-update :function: #+BEGIN_SRC emacs-lisp (defun jabber-mode-line-presence-update () (setq jabber-mode-line-presence (if (and jabber-connections (not *jabber-disconnecting*)) @@ -12196,7 +12196,7 @@ access allowed. nil means open for everyone." "Offline"))) #+END_SRC -*** jabber-mode-line-count-contacts :function: +*** jabber-mode-line-count-contacts :function: #+BEGIN_SRC emacs-lisp (defun jabber-mode-line-count-contacts (&rest ignore) (let ((count (list (cons "chat" 0) @@ -12222,7 +12222,7 @@ access allowed. nil means open for everyone." (mapcar 'cdr count)))))) #+END_SRC -*** jabber-mode-line-mode :minor:mode: +*** jabber-mode-line-mode :minor:mode: #+BEGIN_SRC emacs-lisp (define-minor-mode jabber-mode-line-mode "Toggle display of Jabber status in mode lines. @@ -12256,7 +12256,7 @@ and offline contacts, respectively." :old-file: jabber-watch.el :END: -*** jabber-watch-alist :custom:variable: +*** jabber-watch-alist :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-watch-alist nil "Alist of buddies for which an extra notification should be sent @@ -12267,7 +12267,7 @@ when they come online, with comment strings as values." :group 'jabber-watch) #+END_SRC -*** jabber-presence-watch :function: +*** jabber-presence-watch :function: #+BEGIN_SRC emacs-lisp (defun jabber-presence-watch (who oldstatus newstatus statustext proposed-alert) @@ -12292,7 +12292,7 @@ sends a message if that happens. The buddies are stored in (if (cdr entry) (format ": %s" (cdr entry)) "")))))))))) #+END_SRC -*** jabber-watch-add :command: +*** jabber-watch-add :command: #+BEGIN_SRC emacs-lisp (defun jabber-watch-add (buddy &optional comment) (interactive (list (jabber-read-jid-completing "Add buddy to watch list: ") @@ -12305,7 +12305,7 @@ sends a message if that happens. The buddies are stored in comment)))) #+END_SRC -*** jabber-watch-remove :command: +*** jabber-watch-remove :command: #+BEGIN_SRC emacs-lisp (defun jabber-watch-remove (buddy) (interactive @@ -12336,14 +12336,14 @@ Allows tracking messages from buddies using the global mode line. See =(info "(j (require 'cl) #+END_SRC -*** jabber-activity :custom:group: +*** jabber-activity :custom:group: #+BEGIN_SRC emacs-lisp (defgroup jabber-activity nil "activity tracking options" :group 'jabber) #+END_SRC -*** jabber-activity-make-string :custom:variable: +*** jabber-activity-make-string :custom:variable: All the =(featurep 'jabber-activity)= is so we don't call a function with an autoloaded cookie while the file is loading, since that would lead to endless load recursion. #+BEGIN_SRC emacs-lisp @@ -12360,7 +12360,7 @@ line. The default function returns the nick of the user." :group 'jabber-activity) #+END_SRC -*** jabber-activity-shorten-minimum :custom:variable: +*** jabber-activity-shorten-minimum :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-activity-shorten-minimum 1 "All strings returned by `jabber-activity-make-strings-shorten' will be @@ -12369,7 +12369,7 @@ at least this long, when possible." :type 'number) #+END_SRC -*** jabber-activity-make-strings :custom:variable: +*** jabber-activity-make-strings :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-activity-make-strings 'jabber-activity-make-strings-default "Function which should return an alist of JID -> string when given a list of @@ -12388,7 +12388,7 @@ JIDs." :group 'jabber-activity) #+END_SRC -*** jabber-activity-count-in-title :custom:variable: +*** jabber-activity-count-in-title :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-activity-count-in-title nil "If non-nil, display number of active JIDs in frame title." @@ -12402,7 +12402,7 @@ JIDs." (jabber-activity-mode 1)))) #+END_SRC -*** jabber-activity-count-in-title-format :custom:variable: +*** jabber-activity-count-in-title-format :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-activity-count-in-title-format '(jabber-activity-jids ("[" jabber-activity-count-string "] ")) @@ -12418,7 +12418,7 @@ Same syntax as `mode-line-format'." (jabber-activity-mode 1)))) #+END_SRC -*** jabber-activity-show-p :custom:variable: +*** jabber-activity-show-p :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-activity-show-p 'jabber-activity-show-p-default "Predicate function to call to check if the given JID should be @@ -12427,7 +12427,7 @@ shown in the mode line or not." :group 'jabber-activity) #+END_SRC -*** jabber-activity-query-unread :custom:variable: +*** jabber-activity-query-unread :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-activity-query-unread t "Query the user as to whether killing Emacs should be cancelled when @@ -12436,7 +12436,7 @@ there are unread messages which otherwise would be lost." :group 'jabber-activity) #+END_SRC -*** jabber-activity-banned :custom:variable: +*** jabber-activity-banned :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-activity-banned nil "List of regexps of banned JID" @@ -12444,7 +12444,7 @@ there are unread messages which otherwise would be lost." :group 'jabber-activity) #+END_SRC -*** jabber-activity-face :face: +*** jabber-activity-face :face: #+BEGIN_SRC emacs-lisp (defface jabber-activity-face '((t (:foreground "red" :weight bold))) @@ -12452,7 +12452,7 @@ there are unread messages which otherwise would be lost." :group 'jabber-activity) #+END_SRC -*** jabber-activity-personal-face :face: +*** jabber-activity-personal-face :face: #+BEGIN_SRC emacs-lisp (defface jabber-activity-personal-face '((t (:foreground "blue" :weight bold))) @@ -12460,37 +12460,37 @@ there are unread messages which otherwise would be lost." :group 'jabber-activity) #+END_SRC -*** jabber-activity-jids :variable: +*** jabber-activity-jids :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-activity-jids nil "A list of JIDs which have caused activity") #+END_SRC -*** jabber-activity-personal-jids :variable: +*** jabber-activity-personal-jids :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-activity-personal-jids nil "Subset of `jabber-activity-jids' for JIDs with \"personal\" activity.") #+END_SRC -*** jabber-activity-name-alist :variable: +*** jabber-activity-name-alist :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-activity-name-alist nil "Alist of mode line names for bare JIDs") #+END_SRC -*** jabber-activity-mode-string :variable: +*** jabber-activity-mode-string :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-activity-mode-string "" "The mode string for jabber activity") #+END_SRC -*** jabber-activity-count-string :variable: +*** jabber-activity-count-string :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-activity-count-string "0" "Number of active JIDs as a string.") #+END_SRC -*** jabber-activity-update-hook :variable: +*** jabber-activity-update-hook :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-activity-update-hook nil "Hook called when `jabber-activity-jids' changes. @@ -12502,7 +12502,7 @@ It is called after `jabber-activity-mode-string' and (put 'jabber-activity-count-string 'risky-local-variable t) #+END_SRC -*** jabber-activity-make-string-default :function: +*** jabber-activity-make-string-default :function: #+BEGIN_SRC emacs-lisp (defun jabber-activity-make-string-default (jid) "Return the nick of the JID. If no nick is available, return @@ -12518,7 +12518,7 @@ return the user's nickname." nick)))) #+END_SRC -*** jabber-activity-make-strings-default :function: +*** jabber-activity-make-strings-default :function: #+BEGIN_SRC emacs-lisp (defun jabber-activity-make-strings-default (jids) "Apply `jabber-activity-make-string' on JIDS" @@ -12526,7 +12526,7 @@ return the user's nickname." jids)) #+END_SRC -*** jabber-activity-common-prefix :function: +*** jabber-activity-common-prefix :function: #+BEGIN_SRC emacs-lisp (defun jabber-activity-common-prefix (s1 s2) "Return length of common prefix string shared by S1 and S2" @@ -12538,7 +12538,7 @@ return the user's nickname." len))) #+END_SRC -*** jabber-activity-make-strings-shorten :function: +*** jabber-activity-make-strings-shorten :function: #+BEGIN_SRC emacs-lisp (defun jabber-activity-make-strings-shorten (jids) "Return an alist of JID -> names acquired by running @@ -12564,7 +12564,7 @@ least `jabber-activity-shorten-minimum' long." (1+ (jabber-activity-common-prefix cur next))))))))) #+END_SRC -*** jabber-activity-find-buffer-name :function: +*** jabber-activity-find-buffer-name :function: #+BEGIN_SRC emacs-lisp (defun jabber-activity-find-buffer-name (jid) "Find the name of the buffer that messages from JID would use." @@ -12576,7 +12576,7 @@ least `jabber-activity-shorten-minimum' long." (get-buffer (jabber-muc-get-buffer jid)))) #+END_SRC -*** jabber-activity-show-p-default :function: +*** jabber-activity-show-p-default :function: #+BEGIN_SRC emacs-lisp (defun jabber-activity-show-p-default (jid) "Returns t only if there is an invisible buffer for JID @@ -12589,7 +12589,7 @@ and JID not in jabber-activity-banned" (return t))))))) #+END_SRC -*** jabber-activity-make-name-alist :function: +*** jabber-activity-make-name-alist :function: #+BEGIN_SRC emacs-lisp (defun jabber-activity-make-name-alist () "Rebuild `jabber-activity-name-alist' based on currently known JIDs" @@ -12599,7 +12599,7 @@ and JID not in jabber-activity-banned" (funcall jabber-activity-make-strings jids)))) #+END_SRC -*** jabber-activity-lookup-name :function: +*** jabber-activity-lookup-name :function: #+BEGIN_SRC emacs-lisp (defun jabber-activity-lookup-name (jid) "Lookup name in `jabber-activity-name-alist', creates an entry @@ -12615,7 +12615,7 @@ if needed, and returns a (jid . string) pair suitable for the mode line" (jabber-activity-lookup-name jid))))) #+END_SRC -*** jabber-activity-mode-line-update :function: +*** jabber-activity-mode-line-update :function: #+BEGIN_SRC emacs-lisp (defun jabber-activity-mode-line-update () "Update the string shown in the mode line using `jabber-activity-make-string' @@ -12654,7 +12654,7 @@ Optional PRESENCE mean personal presence request or alert." #+END_SRC *** hooks -**** jabber-activity-clean :function: +**** jabber-activity-clean :function: #+BEGIN_SRC emacs-lisp (defun jabber-activity-clean () "Remove JIDs where `jabber-activity-show-p' no longer is true" @@ -12666,7 +12666,7 @@ Optional PRESENCE mean personal presence request or alert." (jabber-activity-mode-line-update)) #+END_SRC -**** jabber-activity-add :function: +**** jabber-activity-add :function: #+BEGIN_SRC emacs-lisp (defun jabber-activity-add (from buffer text proposed-alert) "Add a JID to mode line when `jabber-activity-show-p'" @@ -12676,7 +12676,7 @@ Optional PRESENCE mean personal presence request or alert." (jabber-activity-mode-line-update))) #+END_SRC -**** jabber-activity-add-muc :function: +**** jabber-activity-add-muc :function: #+BEGIN_SRC emacs-lisp (defun jabber-activity-add-muc (nick group buffer text proposed-alert) "Add a JID to mode line when `jabber-activity-show-p'" @@ -12687,7 +12687,7 @@ Optional PRESENCE mean personal presence request or alert." (jabber-activity-mode-line-update))) #+END_SRC -**** jabber-activity-presence :function: +**** jabber-activity-presence :function: #+BEGIN_SRC emacs-lisp (defun jabber-activity-presence (who oldstatus newstatus statustext proposed-alert) "Add a JID to mode line on subscription requests." @@ -12697,7 +12697,7 @@ Optional PRESENCE mean personal presence request or alert." (jabber-activity-mode-line-update))) #+END_SRC -**** jabber-activity-kill-hook :function: +**** jabber-activity-kill-hook :function: #+BEGIN_SRC emacs-lisp (defun jabber-activity-kill-hook () "Query the user as to whether killing Emacs should be cancelled @@ -12711,13 +12711,13 @@ when there are unread messages which otherwise would be lost, if #+END_SRC *** interactive functions -**** jabber-activity-last-buffer :variable: +**** jabber-activity-last-buffer :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-activity-last-buffer nil "Last non-Jabber buffer used.") #+END_SRC -**** jabber-activity-switch-to :command: +**** jabber-activity-switch-to :command: #+BEGIN_SRC emacs-lisp (defun jabber-activity-switch-to (&optional jid-param) "If JID-PARAM is provided, switch to that buffer. If JID-PARAM is nil and @@ -12737,12 +12737,12 @@ buffer exists, switch back to the last non Jabber chat buffer used." (message "No new activity")))) #+END_SRC -**** jabber-activity-idle-timer :variable: +**** jabber-activity-idle-timer :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-activity-idle-timer nil "Idle timer used for activity cleaning") #+END_SRC -**** jabber-activity-mode :minor:mode: +**** jabber-activity-mode :minor:mode: #+BEGIN_SRC emacs-lisp ;;;###autoload (define-minor-mode jabber-activity-mode @@ -12835,7 +12835,7 @@ With a numeric arg, enable this display if arg is positive." (require 'cl) #+END_SRC -*** jabber-events :custom:group: +*** jabber-events :custom:group: #+BEGIN_SRC emacs-lisp (defgroup jabber-events nil "Message events and notifications." @@ -12844,7 +12844,7 @@ With a numeric arg, enable this display if arg is positive." #+END_SRC *** incoming Code for requesting event notifications from others and handling them. -**** jabber-events-request-these :custom:variable: +**** jabber-events-request-these :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-events-request-these '(offline delivered @@ -12858,14 +12858,14 @@ Code for requesting event notifications from others and handling them. :group 'jabber-events) #+END_SRC -**** jabber-events-composing-p :variable: +**** jabber-events-composing-p :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-events-composing-p nil "Is the other person composing a message?") (make-variable-buffer-local 'jabber-events-composing-p) #+END_SRC -**** jabber-events-arrived :variable: +**** jabber-events-arrived :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-events-arrived nil "In what way has the message reached the recipient? @@ -12876,14 +12876,14 @@ probably reading the message).") (make-variable-buffer-local 'jabber-events-arrived) #+END_SRC -**** jabber-events-message :variable: +**** jabber-events-message :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-events-message "" "Human-readable presentation of event information") (make-variable-buffer-local 'jabber-events-message) #+END_SRC -**** jabber-events-update-message :function: +**** jabber-events-update-message :function: #+BEGIN_SRC emacs-lisp (defun jabber-events-update-message () (setq jabber-events-message @@ -12895,7 +12895,7 @@ probably reading the message).") " (typing a message)")))) #+END_SRC -**** jabber-events-when-sending :function: +**** jabber-events-when-sending :function: #+BEGIN_SRC emacs-lisp (add-hook 'jabber-chat-send-hooks 'jabber-events-when-sending) (defun jabber-events-when-sending (text id) @@ -12908,7 +12908,7 @@ probably reading the message).") *** outgoing Code for handling requests for event notifications and providing them, modulo user preferences. -**** jabber-events-confirm-delivered :custom:variable: +**** jabber-events-confirm-delivered :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-events-confirm-delivered t "Send delivery confirmation if requested?" @@ -12916,7 +12916,7 @@ Code for handling requests for event notifications and providing them, modulo us :type 'boolean) #+END_SRC -**** jabber-events-confirm-displayed :custom:variable: +**** jabber-events-confirm-displayed :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-events-confirm-displayed t "Send display confirmation if requested?" @@ -12924,7 +12924,7 @@ Code for handling requests for event notifications and providing them, modulo us :type 'boolean) #+END_SRC -**** jabber-events-confirm-composing :custom:variable: +**** jabber-events-confirm-composing :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-events-confirm-composing t "Send notifications about typing a reply?" @@ -12932,42 +12932,42 @@ Code for handling requests for event notifications and providing them, modulo us :type 'boolean) #+END_SRC -**** jabber-events-requested :variable: +**** jabber-events-requested :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-events-requested () "List of events requested") (make-variable-buffer-local 'jabber-events-requested) #+END_SRC -**** jabber-events-last-id :variable: +**** jabber-events-last-id :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-events-last-id nil "Id of last message received, or nil if none.") (make-variable-buffer-local 'jabber-events-last-id) #+END_SRC -**** jabber-events-delivery-confirmed :variable: +**** jabber-events-delivery-confirmed :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-events-delivery-confirmed nil "Has delivery confirmation been sent?") (make-variable-buffer-local 'jabber-events-delivery-confirmed) #+END_SRC -**** jabber-events-display-confirmed :variable: +**** jabber-events-display-confirmed :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-events-display-confirmed nil "Has display confirmation been sent?") (make-variable-buffer-local 'jabber-events-display-confirmed) #+END_SRC -**** jabber-events-composing-sent :variable: +**** jabber-events-composing-sent :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-events-composing-sent nil "Has composing notification been sent? It can be sent and cancelled several times.") #+END_SRC -**** jabber-events-confirm-display :function: +**** jabber-events-confirm-display :function: #+BEGIN_SRC emacs-lisp (add-hook 'window-configuration-change-hook 'jabber-events-confirm-display) @@ -12978,7 +12978,7 @@ and it hasn't been sent before." (walk-windows #'jabber-events-confirm-display-in-window)) #+END_SRC -**** jabber-events-confirm-display-in-window :function: +**** jabber-events-confirm-display-in-window :function: #+BEGIN_SRC emacs-lisp (defun jabber-events-confirm-display-in-window (window) (with-current-buffer (window-buffer window) @@ -13001,7 +13001,7 @@ and it hasn't been sent before." (setq jabber-events-display-confirmed t)))) #+END_SRC -**** jabber-events-after-change :function: +**** jabber-events-after-change :function: #+BEGIN_SRC emacs-lisp (defun jabber-events-after-change () (let ((composing-now (not (= (point-max) jabber-point-insert)))) @@ -13025,7 +13025,7 @@ Add function last in chain, so a chat buffer is already created. (add-to-list 'jabber-message-chain 'jabber-handle-incoming-message-events t) #+END_SRC -**** jabber-handle-incoming-message-events :function: +**** jabber-handle-incoming-message-events :function: #+BEGIN_SRC emacs-lisp (defun jabber-handle-incoming-message-events (jc xml-data) (when (and (not (jabber-muc-message-p xml-data)) @@ -13123,20 +13123,20 @@ Add function last in chain, so a chat buffer is already created. (require 'cl) #+END_SRC -*** jabber-chatstates :custom:group: +*** jabber-chatstates :custom:group: #+BEGIN_SRC emacs-lisp (defgroup jabber-chatstates nil "Chat state notifications." :group 'jabber) #+END_SRC -*** jabber-chatstates-xmlns :constant: +*** jabber-chatstates-xmlns :constant: #+BEGIN_SRC emacs-lisp (defconst jabber-chatstates-xmlns "http://jabber.org/protocol/chatstates" "XML namespace for the chatstates feature.") #+END_SRC -*** jabber-chatstates-confirm :custom:variable: +*** jabber-chatstates-confirm :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-chatstates-confirm t "Send notifications about chat states?" @@ -13144,7 +13144,7 @@ Add function last in chain, so a chat buffer is already created. :type 'boolean) #+END_SRC -*** jabber-chatstates-requested :variable: +*** jabber-chatstates-requested :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-chatstates-requested 'first-time "Whether or not chat states notification was requested. @@ -13155,14 +13155,14 @@ nil - don't send states") (make-variable-buffer-local 'jabber-chatstates-requested) #+END_SRC -*** jabber-chatstates-last-state :variable: +*** jabber-chatstates-last-state :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-chatstates-last-state nil "The last seen chat state.") (make-variable-buffer-local 'jabber-chatstates-last-state) #+END_SRC -*** jabber-chatstates-message :variable: +*** jabber-chatstates-message :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-chatstates-message "" "Human-readable presentation of chat state information") @@ -13172,7 +13172,7 @@ nil - don't send states") *** incoming Code for requesting chat state notifications from others and handling them. -**** jabber-chatstates-update-message :function: +**** jabber-chatstates-update-message :function: #+BEGIN_SRC emacs-lisp (defun jabber-chatstates-update-message () (setq jabber-chatstates-message @@ -13182,7 +13182,7 @@ Code for requesting chat state notifications from others and handling them. ""))) #+END_SRC -**** jabber-chatstates-when-sending :function: +**** jabber-chatstates-when-sending :function: #+BEGIN_SRC emacs-lisp (add-hook 'jabber-chat-send-hooks 'jabber-chatstates-when-sending) (defun jabber-chatstates-when-sending (text id) @@ -13200,7 +13200,7 @@ Code for requesting chat state notifications from others and handling them. *** outgoing Code for handling requests for chat state notifications and providing them, modulo user preferences. -**** jabber-chatstates-composing-sent :variable: +**** jabber-chatstates-composing-sent :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-chatstates-composing-sent nil "Has composing notification been sent? @@ -13208,14 +13208,14 @@ It can be sent and cancelled several times.") (make-variable-buffer-local 'jabber-chatstates-composing-sent) #+END_SRC -**** jabber-chatstates-paused-timer :variable: +**** jabber-chatstates-paused-timer :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-chatstates-paused-timer nil "Timer that counts down from 'composing state to 'paused.") (make-variable-buffer-local 'jabber-chatstates-paused-timer) #+END_SRC -**** jabber-chatstates-stop-timer :function: +**** jabber-chatstates-stop-timer :function: #+BEGIN_SRC emacs-lisp (defun jabber-chatstates-stop-timer () "Stop the 'paused timer." @@ -13223,7 +13223,7 @@ It can be sent and cancelled several times.") (cancel-timer jabber-chatstates-paused-timer))) #+END_SRC -**** jabber-chatstates-kick-timer :function: +**** jabber-chatstates-kick-timer :function: #+BEGIN_SRC emacs-lisp (defun jabber-chatstates-kick-timer () "Start (or restart) the 'paused timer as approriate." @@ -13232,7 +13232,7 @@ It can be sent and cancelled several times.") (run-with-timer 5 nil 'jabber-chatstates-send-paused))) #+END_SRC -**** jabber-chatstates-send-paused :function: +**** jabber-chatstates-send-paused :function: #+BEGIN_SRC emacs-lisp (defun jabber-chatstates-send-paused () "Send an 'paused state notification." @@ -13246,7 +13246,7 @@ It can be sent and cancelled several times.") (paused ((xmlns . ,jabber-chatstates-xmlns))))))) #+END_SRC -**** jabber-chatstates-after-change :function: +**** jabber-chatstates-after-change :function: #+BEGIN_SRC emacs-lisp (defun jabber-chatstates-after-change () (let* ((composing-now (not (= (point-max) jabber-point-insert))) @@ -13266,7 +13266,7 @@ It can be sent and cancelled several times.") #+END_SRC *** common -**** jabber-handle-incoming-message-chatstates :function: +**** jabber-handle-incoming-message-chatstates :function: #+BEGIN_SRC emacs-lisp (defun jabber-handle-incoming-message-chatstates (jc xml-data) (when (get-buffer (jabber-chat-get-buffer (jabber-xml-get-attribute xml-data 'from))) @@ -13331,14 +13331,14 @@ A contact with an avatar has the image in the avatar property of the JID symbol. (eval-when-compile (require 'cl)) #+END_SRC -*** jabber-avatar :custom:group: +*** jabber-avatar :custom:group: #+BEGIN_SRC emacs-lisp (defgroup jabber-avatar nil "Avatar related settings" :group 'jabber) #+END_SRC -*** jabber-avatar-cache-directory :custom:variable: +*** jabber-avatar-cache-directory :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-avatar-cache-directory (locate-user-emacs-file "jabber-avatar-cache" ".jabber-avatars") @@ -13347,7 +13347,7 @@ A contact with an avatar has the image in the avatar property of the JID symbol. :type 'directory) #+END_SRC -*** jabber-avatar-verbose :custom:variable: +*** jabber-avatar-verbose :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-avatar-verbose nil "Display messages about irregularities with other people's avatars." @@ -13355,7 +13355,7 @@ A contact with an avatar has the image in the avatar property of the JID symbol. :type 'boolean) #+END_SRC -*** jabber-avatar-max-width :custom:variable: +*** jabber-avatar-max-width :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-avatar-max-width 96 "Maximum width of avatars." @@ -13363,7 +13363,7 @@ A contact with an avatar has the image in the avatar property of the JID symbol. :type 'integer) #+END_SRC -*** jabber-avatar-max-height :custom:variable: +*** jabber-avatar-max-height :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-avatar-max-height 96 "Maximum height of avatars." @@ -13372,12 +13372,12 @@ A contact with an avatar has the image in the avatar property of the JID symbol. #+END_SRC *** avatar data handling -**** avatar :struct: +**** avatar :struct: #+BEGIN_SRC emacs-lisp (defstruct avatar sha1-sum mime-type url base64-data height width bytes) #+END_SRC -**** jabber-avatar-from-url :function: +**** jabber-avatar-from-url :function: #+BEGIN_SRC emacs-lisp (defun jabber-avatar-from-url (url) "Construct an avatar structure from the given URL. @@ -13396,7 +13396,7 @@ Retrieves the image to find info about it." (kill-buffer nil))))) #+END_SRC -**** jabber-avatar-from-file :function: +**** jabber-avatar-from-file :function: #+BEGIN_SRC emacs-lisp (defun jabber-avatar-from-file (filename) "Construct an avatar structure from FILENAME." @@ -13409,7 +13409,7 @@ Retrieves the image to find info about it." (jabber-avatar-from-data data nil mime-type))) #+END_SRC -**** jabber-avatar-from-base64-string :function: +**** jabber-avatar-from-base64-string :function: #+BEGIN_SRC emacs-lisp (defun jabber-avatar-from-base64-string (base64-string &optional mime-type) "Construct an avatar stucture from BASE64-STRING. @@ -13417,7 +13417,7 @@ If MIME-TYPE is not specified, try to find it from the image data." (jabber-avatar-from-data nil base64-string mime-type)) #+END_SRC -**** jabber-avatar-from-data :function: +**** jabber-avatar-from-data :function: #+BEGIN_SRC emacs-lisp (defun jabber-avatar-from-data (raw-data base64-string &optional mime-type) "Construct an avatar structure from RAW-DATA and/or BASE64-STRING. @@ -13447,7 +13447,7 @@ If MIME-TYPE is not specified, try to find it from the image data." ;; :height height :width width :base64-data base64-data)))) #+END_SRC -**** jabber-avatar-image :function: +**** jabber-avatar-image :function: #+BEGIN_SRC emacs-lisp (defun jabber-avatar-image (avatar) "Create an image from AVATAR. @@ -13463,7 +13463,7 @@ Return nil if images of this type are not supported." (error nil))) #+END_SRC -**** jabber-avatar-compute-size :function: +**** jabber-avatar-compute-size :function: #+BEGIN_SRC emacs-lisp (defun jabber-avatar-compute-size (avatar) "Compute and set the width and height fields of AVATAR. @@ -13482,7 +13482,7 @@ Return AVATAR." #+END_SRC *** avatar cache -**** jabber-avatar-find-cached :function: +**** jabber-avatar-find-cached :function: #+BEGIN_SRC emacs-lisp (defun jabber-avatar-find-cached (sha1-sum) "Return file name of cached image for avatar identified by SHA1-SUM. @@ -13493,7 +13493,7 @@ If there is no cached image, return nil." nil))) #+END_SRC -**** jabber-avatar-cache :function: +**** jabber-avatar-cache :function: #+BEGIN_SRC emacs-lisp (defun jabber-avatar-cache (avatar) "Cache the AVATAR." @@ -13517,7 +13517,7 @@ If there is no cached image, return nil." (write-region (point-min) (point-max) filename nil 'silent)))))) #+END_SRC -**** jabber-avatar-set :function: +**** jabber-avatar-set :function: #+BEGIN_SRC emacs-lisp ;;;; Set avatar for contact (defun jabber-avatar-set (jid avatar) @@ -13551,7 +13551,7 @@ AVATAR may be one of: (jabber-presence-update-roster jid-symbol)))) #+END_SRC -**** jabber-create-image :function: +**** jabber-create-image :function: #+BEGIN_SRC emacs-lisp (defun jabber-create-image (file-or-data &optional type data-p) "Create image, scaled down to jabber-avatar-max-width/height, @@ -13609,14 +13609,14 @@ EMAIL: X400 is always present. The cdr is the address as a string. -*** jabber-vcard-photo :variable: +*** jabber-vcard-photo :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-vcard-photo nil "The avatar structure for the photo in the vCard edit buffer.") (make-variable-buffer-local 'jabber-vcard-photo) #+END_SRC -*** jabber-vcard-parse :function: +*** jabber-vcard-parse :function: #+BEGIN_SRC emacs-lisp (defun jabber-vcard-parse (vcard) "Parse the vCard XML structure given in VCARD. @@ -13732,7 +13732,7 @@ The top node should be the `vCard' node." result)) #+END_SRC -*** jabber-vcard-reassemble :function: +*** jabber-vcard-reassemble :function: #+BEGIN_SRC emacs-lisp (defun jabber-vcard-reassemble (parsed) "Create a vCard XML structure from PARSED." @@ -13806,7 +13806,7 @@ The top node should be the `vCard' node." (cons "Request vcard" 'jabber-vcard-get)) #+END_SRC -*** jabber-vcard-get :command: +*** jabber-vcard-get :command: #+BEGIN_SRC emacs-lisp (defun jabber-vcard-get (jc jid) "Request vcard from JID." @@ -13819,7 +13819,7 @@ The top node should be the `vCard' node." #'jabber-process-data "Vcard request failed")) #+END_SRC -*** jabber-vcard-edit :command: +*** jabber-vcard-edit :command: #+BEGIN_SRC emacs-lisp (defun jabber-vcard-edit (jc) "Edit your own vcard." @@ -13831,7 +13831,7 @@ The top node should be the `vCard' node." #'jabber-report-success "Vcard request failed")) #+END_SRC -*** jabber-vcard-fields :constant: +*** jabber-vcard-fields :constant: #+BEGIN_SRC emacs-lisp (defconst jabber-vcard-fields '((FN . "Full name") (NICKNAME . "Nickname") @@ -13847,7 +13847,7 @@ The top node should be the `vCard' node." (NOTE . "Note"))) #+END_SRC -*** jabber-vcard-name-fields :constant: +*** jabber-vcard-name-fields :constant: #+BEGIN_SRC emacs-lisp (defconst jabber-vcard-name-fields '((PREFIX . "Prefix") (GIVEN . "Given name") @@ -13856,7 +13856,7 @@ The top node should be the `vCard' node." (SUFFIX . "Suffix"))) #+END_SRC -*** jabber-vcard-phone-types :constant: +*** jabber-vcard-phone-types :constant: #+BEGIN_SRC emacs-lisp (defconst jabber-vcard-phone-types '((HOME . "Home") (WORK . "Work") @@ -13872,7 +13872,7 @@ The top node should be the `vCard' node." (PCS . "PCS"))) #+END_SRC -*** jabber-vcard-email-types :constant: +*** jabber-vcard-email-types :constant: #+BEGIN_SRC emacs-lisp (defconst jabber-vcard-email-types '((HOME . "Home") (WORK . "Work") @@ -13881,7 +13881,7 @@ The top node should be the `vCard' node." (PREF . "Preferred"))) #+END_SRC -*** jabber-vcard-address-types :constant: +*** jabber-vcard-address-types :constant: #+BEGIN_SRC emacs-lisp (defconst jabber-vcard-address-types '((HOME . "Home") (WORK . "Work") @@ -13892,7 +13892,7 @@ The top node should be the `vCard' node." (PREF . "Preferred"))) #+END_SRC -*** jabber-vcard-address-fields :constant: +*** jabber-vcard-address-fields :constant: #+BEGIN_SRC emacs-lisp (defconst jabber-vcard-address-fields '((POBOX . "Post box") (EXTADD . "Ext. address") @@ -13903,7 +13903,7 @@ The top node should be the `vCard' node." (CTRY . "Country"))) #+END_SRC -*** jabber-vcard-display :function: +*** jabber-vcard-display :function: #+BEGIN_SRC emacs-lisp (defun jabber-vcard-display (jc xml-data) "Display received vcard." @@ -13981,7 +13981,7 @@ The top node should be the `vCard' node." (error (insert "Couldn't display photo\n"))))))) #+END_SRC -*** jabber-vcard-do-edit :function: +*** jabber-vcard-do-edit :function: #+BEGIN_SRC emacs-lisp (defun jabber-vcard-do-edit (jc xml-data closure-data) (let ((parsed (jabber-vcard-parse (jabber-iq-query xml-data))) @@ -14114,7 +14114,7 @@ The top node should be the `vCard' node." (goto-char start-position)))) #+END_SRC -*** jabber-vcard-submit :function: +*** jabber-vcard-submit :function: #+BEGIN_SRC emacs-lisp (defun jabber-vcard-submit (&rest ignore) (let ((to-publish (jabber-vcard-reassemble @@ -14145,7 +14145,7 @@ The top node should be the `vCard' node." :type 'boolean) #+END_SRC -*** jabber-vcard-avatars-publish :custom:variable: +*** jabber-vcard-avatars-publish :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-vcard-avatars-publish t "Publish your vCard photo as avatar?" @@ -14153,7 +14153,7 @@ The top node should be the `vCard' node." :type 'boolean) #+END_SRC -*** jabber-vcard-avatars-current-hash :variable: +*** jabber-vcard-avatars-current-hash :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-vcard-avatars-current-hash (make-hash-table :test 'equal) @@ -14161,7 +14161,7 @@ The top node should be the `vCard' node." Keys are full JIDs.") #+END_SRC -*** jabber-vcard-avatars-presence :function: +*** jabber-vcard-avatars-presence :function: #+BEGIN_SRC emacs-lisp (add-to-list 'jabber-presence-chain 'jabber-vcard-avatars-presence) (defun jabber-vcard-avatars-presence (jc xml-data) @@ -14187,7 +14187,7 @@ Keys are full JIDs.") (jabber-vcard-avatars-fetch jc from sha1-hash)))))) #+END_SRC -*** jabber-vcard-avatars-fetch :command: +*** jabber-vcard-avatars-fetch :command: #+BEGIN_SRC emacs-lisp (defun jabber-vcard-avatars-fetch (jc who sha1-hash) "Fetch WHO's vCard, and extract avatar." @@ -14199,7 +14199,7 @@ Keys are full JIDs.") #'ignore nil)) #+END_SRC -*** jabber-vcard-avatars-vcard :function: +*** jabber-vcard-avatars-vcard :function: #+BEGIN_SRC emacs-lisp (defun jabber-vcard-avatars-vcard (jc iq closure) "Get the photo from the vCard, and set the avatar." @@ -14221,7 +14221,7 @@ Keys are full JIDs.") (jabber-avatar-set from nil)))) #+END_SRC -*** jabber-vcard-avatars-find-current :function: +*** jabber-vcard-avatars-find-current :function: #+BEGIN_SRC emacs-lisp (defun jabber-vcard-avatars-find-current (jc) "Request our own vCard, to find hash of avatar." @@ -14231,7 +14231,7 @@ Keys are full JIDs.") #'jabber-vcard-avatars-find-current-1 nil))) #+END_SRC -*** jabber-vcard-avatars-find-current-1 :function: +*** jabber-vcard-avatars-find-current-1 :function: #+BEGIN_SRC emacs-lisp (defun jabber-vcard-avatars-find-current-1 (jc xml-data success) (jabber-vcard-avatars-update-current @@ -14244,7 +14244,7 @@ Keys are full JIDs.") (avatar-sha1-sum avatar))))))) #+END_SRC -*** jabber-vcard-avatars-update-current :function: +*** jabber-vcard-avatars-update-current :function: #+BEGIN_SRC emacs-lisp (defun jabber-vcard-avatars-update-current (jc new-hash) (let ((old-hash (gethash @@ -14256,7 +14256,7 @@ Keys are full JIDs.") (jabber-send-current-presence jc)))) #+END_SRC -*** jabber-vcard-avatars-presence-element :function: +*** jabber-vcard-avatars-presence-element :function: #+BEGIN_SRC emacs-lisp (add-to-list 'jabber-presence-element-functions 'jabber-vcard-avatars-presence-element) (defun jabber-vcard-avatars-presence-element (jc) @@ -14282,14 +14282,14 @@ Keys are full JIDs.") (require 'time-date) #+END_SRC -*** jabber-autoaway :custom:group: +*** jabber-autoaway :custom:group: #+BEGIN_SRC emacs-lisp (defgroup jabber-autoaway nil "Change status to away after idleness" :group 'jabber) #+END_SRC -*** jabber-autoaway-methods :custom:variable: +*** jabber-autoaway-methods :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-autoaway-methods (if (fboundp 'jabber-autoaway-method) @@ -14306,7 +14306,7 @@ number of seconds since the user was active, or nil on error." jabber-termatime-get-idle-time)) #+END_SRC -*** jabber-autoaway-timeout :custom:variable: +*** jabber-autoaway-timeout :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-autoaway-timeout 5 "Minutes of inactivity before changing status to away" @@ -14314,7 +14314,7 @@ number of seconds since the user was active, or nil on error." :type 'number) #+END_SRC -*** jabber-autoaway-xa-timeout :custom:variable: +*** jabber-autoaway-xa-timeout :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-autoaway-xa-timeout 10 "Minutes of inactivity before changing status to xa. Set to 0 to disable." @@ -14322,7 +14322,7 @@ number of seconds since the user was active, or nil on error." :type 'number) #+END_SRC -*** jabber-autoaway-status :custom:variable: +*** jabber-autoaway-status :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-autoaway-status "Idle" "Status string for autoaway" @@ -14330,7 +14330,7 @@ number of seconds since the user was active, or nil on error." :type 'string) #+END_SRC -*** jabber-autoaway-xa-status :custom:variable: +*** jabber-autoaway-xa-status :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-autoaway-xa-status "Extended away" "Status string for autoaway in xa state" @@ -14338,7 +14338,7 @@ number of seconds since the user was active, or nil on error." :type 'string) #+END_SRC -*** jabber-autoaway-priority :custom:variable: +*** jabber-autoaway-priority :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-autoaway-priority nil "Priority for autoaway. @@ -14350,7 +14350,7 @@ information about priority." :link '(info-link "(jabber)Presence")) #+END_SRC -*** jabber-autoaway-xa-priority :custom:variable: +*** jabber-autoaway-xa-priority :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-autoaway-xa-priority nil "Priority for autoaway in xa state. @@ -14362,7 +14362,7 @@ information about priority." :link '(info-link "(jabber)Presence")) #+END_SRC -*** jabber-xprintidle-program :custom:variable: +*** jabber-xprintidle-program :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-xprintidle-program (executable-find "xprintidle") "Name of the xprintidle program" @@ -14370,7 +14370,7 @@ information about priority." :type 'string) #+END_SRC -*** jabber-autoaway-verbose :custom:variable: +*** jabber-autoaway-verbose :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-autoaway-verbose nil "If nil, don't print autoaway status messages." @@ -14378,26 +14378,26 @@ information about priority." :type 'boolean) #+END_SRC -*** jabber-autoaway-timer :variable: +*** jabber-autoaway-timer :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-autoaway-timer nil) #+END_SRC -*** jabber-autoaway-last-idle-time :variable: +*** jabber-autoaway-last-idle-time :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-autoaway-last-idle-time nil "Seconds of idle time the last time we checked. This is used to detect whether the user has become unidle.") #+END_SRC -*** jabber-autoaway-message :function: +*** jabber-autoaway-message :function: #+BEGIN_SRC emacs-lisp (defun jabber-autoaway-message (&rest args) (when jabber-autoaway-verbose (apply #'message args))) #+END_SRC -*** jabber-autoaway-start :command: +*** jabber-autoaway-start :command: #+BEGIN_SRC emacs-lisp ;;;###autoload (defun jabber-autoaway-start (&optional ignored) @@ -14411,7 +14411,7 @@ The IGNORED argument is there so you can put this function in (jabber-autoaway-message "Autoaway timer started"))) #+END_SRC -*** jabber-autoaway-stop :command: +*** jabber-autoaway-stop :command: #+BEGIN_SRC emacs-lisp (defun jabber-autoaway-stop () "Stop autoaway timer." @@ -14422,7 +14422,7 @@ The IGNORED argument is there so you can put this function in (jabber-autoaway-message "Autoaway timer stopped"))) #+END_SRC -*** jabber-autoaway-get-idle-time :function: +*** jabber-autoaway-get-idle-time :function: #+BEGIN_SRC emacs-lisp (defun jabber-autoaway-get-idle-time () "Get idle time in seconds according to jabber-autoaway-methods. @@ -14430,7 +14430,7 @@ Return nil on error." (car (sort (mapcar 'funcall jabber-autoaway-methods) (lambda (a b) (if a (if b (< a b) t) nil))))) #+END_SRC -*** jabber-autoaway-timer :function: +*** jabber-autoaway-timer :function: #+BEGIN_SRC emacs-lisp (defun jabber-autoaway-timer () ;; We use one-time timers, so reset the variable. @@ -14447,7 +14447,7 @@ Return nil on error." nil #'jabber-autoaway-timer)))))) #+END_SRC -*** jabber-autoaway-set-idle :function: +*** jabber-autoaway-set-idle :function: #+BEGIN_SRC emacs-lisp (defun jabber-autoaway-set-idle (&optional xa) (jabber-autoaway-message "Autoaway triggered") @@ -14465,7 +14465,7 @@ Return nil on error." #'jabber-autoaway-maybe-unidle)))) #+END_SRC -*** jabber-autoaway-maybe-unidle :function: +*** jabber-autoaway-maybe-unidle :function: #+BEGIN_SRC emacs-lisp (defun jabber-autoaway-maybe-unidle () (let ((idle-time (jabber-autoaway-get-idle-time))) @@ -14491,7 +14491,7 @@ Return nil on error." (jabber-autoaway-start))))) #+END_SRC -*** jabber-xprintidle-get-idle-time :function: +*** jabber-xprintidle-get-idle-time :function: #+BEGIN_SRC emacs-lisp (defun jabber-xprintidle-get-idle-time () "Get idle time through the xprintidle program." @@ -14502,7 +14502,7 @@ Return nil on error." (/ (string-to-number (buffer-string)) 1000.0))))) #+END_SRC -*** jabber-termatime-get-idle-time :function: +*** jabber-termatime-get-idle-time :function: #+BEGIN_SRC emacs-lisp (defun jabber-termatime-get-idle-time () "Get idle time through atime of terminal. @@ -14519,7 +14519,7 @@ The method for finding the terminal only works on GNU/Linux." diff))))) #+END_SRC -*** jabber-current-idle-time :function: +*** jabber-current-idle-time :function: #+BEGIN_SRC emacs-lisp (defun jabber-current-idle-time () "Get idle time through `current-idle-time'. @@ -14545,7 +14545,7 @@ The method for finding the terminal only works on GNU/Linux." (add-to-list 'jabber-jid-info-menu (cons "Request time" 'jabber-get-time)) #+END_SRC -*** jabber-get-time :command: +*** jabber-get-time :command: #+BEGIN_SRC emacs-lisp (defun jabber-get-time (jc to) "Request time." @@ -14562,7 +14562,7 @@ The method for finding the terminal only works on GNU/Linux." (jabber-get-legacy-time jc from))))) #+END_SRC -*** jabber-get-legacy-time :command: +*** jabber-get-legacy-time :command: #+BEGIN_SRC emacs-lisp (defun jabber-get-legacy-time (jc to) "Request legacy time." @@ -14577,7 +14577,7 @@ The method for finding the terminal only works on GNU/Linux." 'jabber-silent-process-data "Time request failed")) #+END_SRC -*** jabber-process-time :function: +*** jabber-process-time :function: #+BEGIN_SRC emacs-lisp ;; called by jabber-process-data (defun jabber-process-time (jc xml-data) @@ -14595,7 +14595,7 @@ The method for finding the terminal only works on GNU/Linux." from (format-time-string "%Y-%m-%d %T" (jabber-parse-time utc)) tzo)))) #+END_SRC -*** jabber-process-legacy-time :function: +*** jabber-process-legacy-time :function: #+BEGIN_SRC emacs-lisp (defun jabber-process-legacy-time (jc xml-data) "Handle results from jabber:iq:time requests." @@ -14622,7 +14622,7 @@ The method for finding the terminal only works on GNU/Linux." (when tz (concat " " tz)))))))) #+END_SRC -*** jabber-get-last-online :command: +*** jabber-get-last-online :command: The only difference between these this and =jabber-get-idle-time= functions is the jabber-read-jid-completing call. #+BEGIN_SRC emacs-lisp (defun jabber-get-last-online (jc to) @@ -14637,7 +14637,7 @@ The only difference between these this and =jabber-get-idle-time= functions is t #'jabber-silent-process-data "Last online request failed")) #+END_SRC -*** jabber-get-idle-time :command: +*** jabber-get-idle-time :command: #+BEGIN_SRC emacs-lisp (defun jabber-get-idle-time (jc to) "Request idle time of user." @@ -14651,7 +14651,7 @@ The only difference between these this and =jabber-get-idle-time= functions is t #'jabber-silent-process-data "Idle time request failed")) #+END_SRC -*** jabber-process-last :function: +*** jabber-process-last :function: #+BEGIN_SRC emacs-lisp (defun jabber-process-last (jc xml-data) "Handle resultts from jabber:iq:last requests." @@ -14688,7 +14688,7 @@ The only difference between these this and =jabber-get-idle-time= functions is t (jabber-disco-advertise-feature "jabber:iq:time") #+END_SRC -*** jabber-return-legacy-time :function: +*** jabber-return-legacy-time :function: #+BEGIN_SRC emacs-lisp (defun jabber-return-legacy-time (jc xml-data) "Return client time as defined in XEP-0090. Sender and ID are @@ -14712,7 +14712,7 @@ determined from the incoming packet passed in XML-DATA." (jabber-disco-advertise-feature "urn:xmpp:time") #+END_SRC -*** jabber-return-time :function: +*** jabber-return-time :function: #+BEGIN_SRC emacs-lisp (defun jabber-return-time (jc xml-data) "Return client time as defined in XEP-0202. Sender and ID are @@ -14733,7 +14733,7 @@ determined from the incoming packet passed in XML-DATA." (jabber-disco-advertise-feature "jabber:iq:last") #+END_SRC -*** jabber-return-last :function: +*** jabber-return-last :function: #+BEGIN_SRC emacs-lisp (defun jabber-return-last (jc xml-data) (let ((to (jabber-xml-get-attribute xml-data 'from)) @@ -14756,13 +14756,13 @@ determined from the incoming packet passed in XML-DATA." (require 'cl) #+END_SRC -*** jabber-log-lines-to-keep :variable: +*** jabber-log-lines-to-keep :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-log-lines-to-keep 1000 "Maximum number of lines in chat buffer.") #+END_SRC -*** jabber-truncate-top :command: +*** jabber-truncate-top :command: #+BEGIN_SRC emacs-lisp (defun jabber-truncate-top (buffer &optional ewoc) "Clean old history from a chat BUFFER. @@ -14793,7 +14793,7 @@ get it, and then it just gets deleted." (ewoc-delete work-ewoc delete-before)))))) #+END_SRC -*** jabber-truncate-muc :function: +*** jabber-truncate-muc :function: #+BEGIN_SRC emacs-lisp (defun jabber-truncate-muc (nick group buffer text proposed-alert) "Clean old history from MUC buffers. @@ -14802,7 +14802,7 @@ keep." (jabber-truncate-top buffer)) #+END_SRC -*** jabber-truncate-chat :function: +*** jabber-truncate-chat :function: #+BEGIN_SRC emacs-lisp (defun jabber-truncate-chat (from buffer text proposed-alert) "Clean old history from chat buffers. @@ -14820,20 +14820,20 @@ get it, and then it just gets deleted." :old-file: jabber-carbons.el :END: -*** jabber-carbon-success :function: +*** jabber-carbon-success :function: #+BEGIN_SRC emacs-lisp (defun jabber-carbon-success (jc xml-data context) (when (equal "result" (jabber-xml-get-attribute xml-data 'type)) (message "Carbons feature successfully enabled"))) #+END_SRC -*** jabber-carbon-failure :function: +*** jabber-carbon-failure :function: #+BEGIN_SRC emacs-lisp (defun jabber-carbon-failure (jc xml-data context) (message "Carbons feature could not be enabled: %S" xml-data)) #+END_SRC -*** jabber-enable-carbons :command: +*** jabber-enable-carbons :command: #+BEGIN_SRC emacs-lisp (add-to-list 'jabber-jid-service-menu (cons "Enable Carbons" 'jabber-enable-carbons)) @@ -14854,7 +14854,7 @@ get it, and then it just gets deleted." :file: jabber-si-common.el :END: -**** jabber-si-stream-methods :variable: +**** jabber-si-stream-methods :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-si-stream-methods nil "Supported SI stream methods. @@ -14899,7 +14899,7 @@ If it returns nil, the stream should be closed.") :file: jabber-si-client.el :END: -**** jabber-si-initiate :function: +**** jabber-si-initiate :function: #+BEGIN_SRC emacs-lisp (defun jabber-si-initiate (jc jid profile-namespace profile-data profile-function &optional mime-type) "Try to initiate a stream to JID. @@ -14929,7 +14929,7 @@ Returns the SID." sid)) #+END_SRC -**** jabber-si-initiate-process :function: +**** jabber-si-initiate-process :function: #+BEGIN_SRC emacs-lisp (defun jabber-si-initiate-process (jc xml-data closure-data) "Act on response to our SI query." @@ -14956,7 +14956,7 @@ Returns the SID." (jabber-disco-advertise-feature "http://jabber.org/protocol/si") #+END_SRC -**** jabber-si-profiles :variable: +**** jabber-si-profiles :variable: Now, stream methods push data to profiles. It could be the other way around; not sure which is better. #+BEGIN_SRC emacs-lisp @@ -14971,7 +14971,7 @@ Each entry is a list, containing: * \"Connection established\" function. See `jabber-si-stream-methods'.") #+END_SRC -**** jabber-si-process :function: +**** jabber-si-process :function: #+BEGIN_SRC emacs-lisp (add-to-list 'jabber-iq-set-xmlns-alist (cons "http://jabber.org/protocol/si" 'jabber-si-process)) @@ -15028,7 +15028,7 @@ Each entry is a list, containing: :file: jabber-ft-common.el :END: -**** jabber-ft-md5sum-program :custom:variable: +**** jabber-ft-md5sum-program :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-ft-md5sum-program (or (when (executable-find "md5") (list (executable-find "md5") "-n")) @@ -15042,7 +15042,7 @@ argument." :group 'jabber) #+END_SRC -**** jabber-ft-get-md5 :function: +**** jabber-ft-get-md5 :function: #+BEGIN_SRC emacs-lisp (defun jabber-ft-get-md5 (file-name) "Get MD5 sum of FILE-NAME, and return as hex string. @@ -15066,7 +15066,7 @@ Return nil if no MD5 summing program is available." (eval-when-compile (require 'cl)) #+END_SRC -**** jabber-ft-send :command: +**** jabber-ft-send :command: #+BEGIN_SRC emacs-lisp (defun jabber-ft-send (jc jid filename desc) "Attempt to send FILENAME to JID." @@ -15096,7 +15096,7 @@ Return nil if no MD5 summing program is available." jid sid send-data-function filename)))))) #+END_SRC -**** jabber-ft-do-send :function: +**** jabber-ft-do-send :function: #+BEGIN_SRC emacs-lisp (defun jabber-ft-do-send (jid sid send-data-function filename) (if (stringp send-data-function) @@ -15116,19 +15116,19 @@ Return nil if no MD5 summing program is available." :file: jabber-ft-server.el :END: -**** jabber-ft-sessions :variable: +**** jabber-ft-sessions :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-ft-sessions nil "Alist, where keys are (sid jid), and values are buffers of the files.") #+END_SRC -**** jabber-ft-size :variable: +**** jabber-ft-size :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-ft-size nil "Size of the file that is being downloaded") #+END_SRC -**** jabber-ft-md5-hash :variable: +**** jabber-ft-md5-hash :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-ft-md5-hash nil "MD5 hash of the file that is being downloaded") @@ -15147,7 +15147,7 @@ Return nil if no MD5 summing program is available." 'jabber-ft-server-connected)) #+END_SRC -**** jabber-ft-accept :function: +**** jabber-ft-accept :function: #+BEGIN_SRC emacs-lisp (defun jabber-ft-accept (jc xml-data) "Receive IQ stanza containing file transfer request, ask user" @@ -15203,7 +15203,7 @@ Return nil if no MD5 summing program is available." nil)) #+END_SRC -**** jabber-ft-server-connected :function: +**** jabber-ft-server-connected :function: #+BEGIN_SRC emacs-lisp (defun jabber-ft-server-connected (jc jid sid send-data-function) ;; We don't really care about the send-data-function. But if it's @@ -15214,7 +15214,7 @@ Return nil if no MD5 summing program is available." 'jabber-ft-data)) #+END_SRC -**** jabber-ft-data :function: +**** jabber-ft-data :function: #+BEGIN_SRC emacs-lisp (defun jabber-ft-data (jc jid sid data) "Receive chunk of transferred file." @@ -15254,7 +15254,7 @@ Return nil if no MD5 summing program is available." (eval-when-compile (require 'cl)) #+END_SRC -*** jabber-socks5-pending-sessions :variable: +*** jabber-socks5-pending-sessions :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-socks5-pending-sessions nil "List of pending sessions. @@ -15265,7 +15265,7 @@ Each entry is a list, containing: * State machine managing the session") #+END_SRC -*** jabber-socks5-active-sessions :variable: +*** jabber-socks5-active-sessions :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-socks5-active-sessions nil "List of active sessions. @@ -15277,7 +15277,7 @@ Each entry is a list, containing: * Profile data function") #+END_SRC -*** jabber-socks5-proxies :custom:variable: +*** jabber-socks5-proxies :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-socks5-proxies nil "JIDs of XEP-0065 proxies to use for file transfer. @@ -15288,7 +15288,7 @@ Put preferred ones first." ) #+END_SRC -*** jabber-socks5-proxies-data :variable: +*** jabber-socks5-proxies-data :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-socks5-proxies-data nil "Alist containing information about proxies. @@ -15309,7 +15309,7 @@ Values are \"streamhost\" XML nodes.") 'jabber-socks5-accept)) #+END_SRC -*** jabber-socks5-set-proxies :function: +*** jabber-socks5-set-proxies :function: #+BEGIN_SRC emacs-lisp (defun jabber-socks5-set-proxies (symbol value) "Set `jabber-socks5-proxies' and query proxies. @@ -15319,7 +15319,7 @@ This is the set function of `jabber-socks5-proxies-data'." (jabber-socks5-query-all-proxies))) #+END_SRC -*** jabber-socks5-query-all-proxies :command: +*** jabber-socks5-query-all-proxies :command: #+BEGIN_SRC emacs-lisp (defun jabber-socks5-query-all-proxies (jc &optional callback) "Ask all proxies in `jabber-socks5-proxies' for connection information. @@ -15331,7 +15331,7 @@ proxies have answered." (jabber-socks5-query-proxy jc proxy callback))) #+END_SRC -*** jabber-socks5-query-proxy :function: +*** jabber-socks5-query-proxy :function: #+BEGIN_SRC emacs-lisp (defun jabber-socks5-query-proxy (jc jid &optional callback) "Query the SOCKS5 proxy specified by JID for IP and port number." @@ -15341,7 +15341,7 @@ proxies have answered." #'jabber-socks5-process-proxy-response (list callback nil))) #+END_SRC -*** jabber-socks5-process-proxy-response :function: +*** jabber-socks5-process-proxy-response :function: #+BEGIN_SRC emacs-lisp (defun jabber-socks5-process-proxy-response (jc xml-data closure-data) "Process response from proxy query." @@ -15396,7 +15396,7 @@ set; the target waits for one." (list new-state new-state-data nil)))) #+END_SRC -*** jabber-socks5-accept :function: +*** jabber-socks5-accept :function: #+BEGIN_SRC emacs-lisp (defun jabber-socks5-accept (jc jid sid profile-function) "Remember that we are waiting for connection from JID, with stream id SID" @@ -15550,7 +15550,7 @@ set; the target waits for one." (list state-data nil)) #+END_SRC -*** jabber-socks5-process :function: +*** jabber-socks5-process :function: #+BEGIN_SRC emacs-lisp (add-to-list 'jabber-iq-set-xmlns-alist (cons "http://jabber.org/protocol/bytestreams" 'jabber-socks5-process)) @@ -15950,7 +15950,7 @@ set; the target waits for one." (list nil nil)) #+END_SRC -*** jabber-socks5-client-1 :function: +*** jabber-socks5-client-1 :function: #+BEGIN_SRC emacs-lisp (defun jabber-socks5-client-1 (jc jid sid profile-function) "Negotiate a SOCKS5 connection with JID. @@ -15959,7 +15959,7 @@ This function simply starts a state machine." (list sid jid (start-jabber-socks5 jc jid sid profile-function :initiator)))) #+END_SRC -*** +jabber-socks5-client-2+ :function: +*** +jabber-socks5-client-2+ :function: #+BEGIN_SRC emacs-lisp ;; (defun jabber-socks5-client-2 (xml-data jid sid profile-function) ;; "Contact has selected a streamhost to use. Connect to the proxy." @@ -16016,37 +16016,37 @@ This function simply starts a state machine." (eval-after-load "jabber-disco" '(jabber-disco-advertise-feature "urn:xmpp:rtt:0")) #+END_SRC -**** jabber-rtt-ewoc-node :variable: +**** jabber-rtt-ewoc-node :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-rtt-ewoc-node nil) (make-variable-buffer-local 'jabber-rtt-ewoc-node) #+END_SRC -**** jabber-rtt-last-seq :variable: +**** jabber-rtt-last-seq :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-rtt-last-seq nil) (make-variable-buffer-local 'jabber-rtt-last-seq) #+END_SRC -**** jabber-rtt-message :variable: +**** jabber-rtt-message :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-rtt-message nil) (make-variable-buffer-local 'jabber-rtt-message) #+END_SRC -**** jabber-rtt-pending-events :variable: +**** jabber-rtt-pending-events :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-rtt-pending-events nil) (make-variable-buffer-local 'jabber-rtt-pending-events) #+END_SRC -**** jabber-rtt-timer :variable: +**** jabber-rtt-timer :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-rtt-timer nil) (make-variable-buffer-local 'jabber-rtt-timer) #+END_SRC -**** jabber-rtt-handle-message :function: +**** jabber-rtt-handle-message :function: Add function last in chain, so a chat buffer is already created. #+BEGIN_SRC emacs-lisp ;;;###autoload @@ -16098,7 +16098,7 @@ Add function last in chain, so a chat buffer is already created. ))))) #+END_SRC -**** jabber-rtt--reset :internal:function: +**** jabber-rtt--reset :internal:function: #+BEGIN_SRC emacs-lisp (defun jabber-rtt--reset () (when jabber-rtt-ewoc-node @@ -16112,7 +16112,7 @@ Add function last in chain, so a chat buffer is already created. jabber-rtt-timer nil)) #+END_SRC -**** jabber-rtt--enqueue-actions :internal:function: +**** jabber-rtt--enqueue-actions :internal:function: #+BEGIN_SRC emacs-lisp (defun jabber-rtt--enqueue-actions (new-actions) (setq jabber-rtt-pending-events @@ -16123,7 +16123,7 @@ Add function last in chain, so a chat buffer is already created. (jabber-rtt--process-actions (current-buffer)))) #+END_SRC -**** jabber-rtt--process-actions :internal:function: +**** jabber-rtt--process-actions :internal:function: #+BEGIN_SRC emacs-lisp (defun jabber-rtt--process-actions (buffer) (with-current-buffer buffer @@ -16171,7 +16171,7 @@ Add function last in chain, so a chat buffer is already created. (throw 'wait nil)))))))) #+END_SRC -**** jabber-rtt--fix-waits :internal:function: +**** jabber-rtt--fix-waits :internal:function: #+BEGIN_SRC emacs-lisp (defun jabber-rtt--fix-waits (actions) ;; Ensure that the sum of all wait events is no more than 700 ms. @@ -16198,31 +16198,31 @@ Add function last in chain, so a chat buffer is already created. #+END_SRC *** Sending events -**** jabber-rtt-send-timer :variable: +**** jabber-rtt-send-timer :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-rtt-send-timer nil) (make-variable-buffer-local 'jabber-rtt-send-timer) #+END_SRC -**** jabber-rtt-send-seq :variable: +**** jabber-rtt-send-seq :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-rtt-send-seq nil) (make-variable-buffer-local 'jabber-rtt-send-seq) #+END_SRC -**** jabber-rtt-outgoing-events :variable: +**** jabber-rtt-outgoing-events :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-rtt-outgoing-events nil) (make-variable-buffer-local 'jabber-rtt-outgoing-events) #+END_SRC -**** jabber-rtt-send-last-timestamp :variable: +**** jabber-rtt-send-last-timestamp :variable: #+BEGIN_SRC emacs-lisp (defvar jabber-rtt-send-last-timestamp nil) (make-variable-buffer-local 'jabber-rtt-send-last-timestamp) #+END_SRC -**** jabber-rtt-send-mode :minor:mode: +**** jabber-rtt-send-mode :minor:mode: #+BEGIN_SRC emacs-lisp ;;;###autoload (define-minor-mode jabber-rtt-send-mode @@ -16249,7 +16249,7 @@ XEP-0301, In-Band Real Time Text." (add-hook 'jabber-chat-send-hooks #'jabber-rtt--message-sent nil t))) #+END_SRC -**** jabber-rtt--cancel-send :internal:function: +**** jabber-rtt--cancel-send :internal:function: #+BEGIN_SRC emacs-lisp (defun jabber-rtt--cancel-send () (when (timerp jabber-rtt-send-timer) @@ -16269,7 +16269,7 @@ XEP-0301, In-Band Real Time Text." #+END_SRC -**** jabber-rtt--send-current-text :internal:function: +**** jabber-rtt--send-current-text :internal:function: #+BEGIN_SRC emacs-lisp (defun jabber-rtt--send-current-text (resetp) (let ((text (buffer-substring-no-properties jabber-point-insert (point-max)))) @@ -16285,7 +16285,7 @@ XEP-0301, In-Band Real Time Text." (t () ,text)))))) #+END_SRC -**** jabber-rtt--queue-update :internal:function: +**** jabber-rtt--queue-update :internal:function: #+BEGIN_SRC emacs-lisp (defun jabber-rtt--queue-update (beg end pre-change-length) (unless (or (< beg jabber-point-insert) @@ -16332,7 +16332,7 @@ XEP-0301, In-Band Real Time Text." (run-with-timer 0.7 nil #'jabber-rtt--send-queued-events (current-buffer)))))) #+END_SRC -**** jabber-rtt--send-queued-events :internal:function: +**** jabber-rtt--send-queued-events :internal:function: #+BEGIN_SRC emacs-lisp (defun jabber-rtt--send-queued-events (buffer) (with-current-buffer buffer @@ -16353,7 +16353,7 @@ XEP-0301, In-Band Real Time Text." (setq jabber-rtt-outgoing-events nil))))) #+END_SRC -**** jabber-rtt--message-sent :internal:function: +**** jabber-rtt--message-sent :internal:function: #+BEGIN_SRC emacs-lisp (defun jabber-rtt--message-sent (_text _id) ;; We're sending a <body/> element; reset our state @@ -16376,13 +16376,13 @@ XEP-0301, In-Band Real Time Text." (when (and (featurep 'xemacs) (not (emacs-version>= 21 5 5))) (require 'un-define)) #+END_SRC -*** jabber :custom:group: +*** jabber :custom:group: #+BEGIN_SRC emacs-lisp ;;; these customize fields should come first (defgroup jabber nil "Jabber instant messaging" :group 'applications) #+END_SRC -*** jabber-account-list :custom:variable: +*** jabber-account-list :custom:variable: #+BEGIN_SRC emacs-lisp ;;;###autoload (defcustom jabber-account-list nil @@ -16448,7 +16448,7 @@ configure a Google Talk account like this: :group 'jabber) #+END_SRC -*** jabber-default-show :custom:variable: +*** jabber-default-show :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-default-show "" "Default show state." @@ -16460,7 +16460,7 @@ configure a Google Talk account like this: :group 'jabber) #+END_SRC -*** jabber-default-status :custom:variable: +*** jabber-default-status :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-default-status "" "Default status string." @@ -16468,7 +16468,7 @@ configure a Google Talk account like this: :group 'jabber) #+END_SRC -*** jabber-default-priority :custom:variable: +*** jabber-default-priority :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-default-priority 10 "Default priority." @@ -16476,40 +16476,40 @@ configure a Google Talk account like this: :group 'jabber) #+END_SRC -*** *jabber-current-status* :variable: +*** *jabber-current-status* :variable: #+BEGIN_SRC emacs-lisp ;;;###autoload (defvar *jabber-current-status* nil "The users current presence status.") #+END_SRC -*** *jabber-current-show* :variable: +*** *jabber-current-show* :variable: #+BEGIN_SRC emacs-lisp ;;;###autoload (defvar *jabber-current-show* nil "The users current presence show.") #+END_SRC -*** *jabber-current-priority* :variable: +*** *jabber-current-priority* :variable: #+BEGIN_SRC emacs-lisp ;;;###autoload (defvar *jabber-current-priority* nil "The user's current priority.") #+END_SRC -*** *jabber-status-history* :variable: +*** *jabber-status-history* :variable: #+BEGIN_SRC emacs-lisp (defvar *jabber-status-history* nil "History of status messages.") #+END_SRC -*** jabber-faces :custom:group: +*** jabber-faces :custom:group: #+BEGIN_SRC emacs-lisp (defgroup jabber-faces nil "Faces for displaying jabber instant messaging." :group 'jabber) #+END_SRC -*** jabber-title-small :face: +*** jabber-title-small :face: #+BEGIN_SRC emacs-lisp (defface jabber-title-small '((t (:weight bold :width semi-expanded :height 1.0 :inherit variable-pitch))) @@ -16517,7 +16517,7 @@ configure a Google Talk account like this: :group 'jabber-faces) #+END_SRC -*** jabber-title-medium :face: +*** jabber-title-medium :face: #+BEGIN_SRC emacs-lisp (defface jabber-title-medium '((t (:weight bold :width expanded :height 2.0 :inherit variable-pitch))) @@ -16525,7 +16525,7 @@ configure a Google Talk account like this: :group 'jabber-faces) #+END_SRC -*** jabber-title-large :face: +*** jabber-title-large :face: #+BEGIN_SRC emacs-lisp (defface jabber-title-large '((t (:weight bold :width ultra-expanded :height 3.0 :inherit variable-pitch))) @@ -16533,13 +16533,13 @@ configure a Google Talk account like this: :group 'jabber-faces) #+END_SRC -*** jabber-debug :custom:group: +*** jabber-debug :custom:group: #+BEGIN_SRC emacs-lisp (defgroup jabber-debug nil "debugging options" :group 'jabber) #+END_SRC -*** jabber-debug-log-xml :custom:variable: +*** jabber-debug-log-xml :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-debug-log-xml nil "Set to non-nil to log all XML i/o in *-jabber-console-JID-* buffer. @@ -16550,7 +16550,7 @@ Set to string to also dump XML i/o in specified file." :group 'jabber-debug) #+END_SRC -*** jabber-debug-keep-process-buffers :custom:variable: +*** jabber-debug-keep-process-buffers :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-debug-keep-process-buffers nil "If nil, kill process buffers when the process dies. @@ -16559,7 +16559,7 @@ Contents of process buffers might be useful for debugging." :group 'jabber-debug) #+END_SRC -*** jabber-silent-mode :custom:variable: +*** jabber-silent-mode :custom:variable: #+BEGIN_SRC emacs-lisp (defcustom jabber-silent-mode nil "If non-nil, do not ask for confirmation for some operations. DANGEROUS!" @@ -16567,7 +16567,7 @@ Contents of process buffers might be useful for debugging." :group 'jabber) #+END_SRC -*** jabber-presence-faces :constant: +*** jabber-presence-faces :constant: #+BEGIN_SRC emacs-lisp ;;;###autoload (defconst jabber-presence-faces @@ -16581,7 +16581,7 @@ Contents of process buffers might be useful for debugging." "Mapping from presence types to faces.") #+END_SRC -*** jabber-presence-strings :constant: +*** jabber-presence-strings :constant: #+BEGIN_SRC emacs-lisp (defconst jabber-presence-strings `(("" . ,(jabber-propertize "Online" 'face 'jabber-roster-user-online)) @@ -16594,7 +16594,7 @@ Contents of process buffers might be useful for debugging." "Mapping from presence types to readable, colorized strings.") #+END_SRC -*** jabber-customize :command: +*** jabber-customize :command: #+BEGIN_SRC emacs-lisp ;;;###autoload (defun jabber-customize () @@ -16603,7 +16603,7 @@ Contents of process buffers might be useful for debugging." (customize-group 'jabber)) #+END_SRC -*** jabber-info :command: +*** jabber-info :command: #+BEGIN_SRC emacs-lisp ;;;###autoload (defun jabber-info () @@ -16622,5 +16622,6 @@ Contents of process buffers might be useful for debugging." * Local variables :noexport: # Local Variables: +# org-tags-column: -60 # eval: (add-hook 'after-save-hook (lambda nil (interactive) (compile (mapconcat #'shell-quote-argument `("emacs" "-q" "-Q" "--batch" "--eval=(require 'ob-tangle)" ,(format "--eval=(org-babel-tangle-file \"%s\")" (buffer-file-name))) " "))) nil t) # End: |