| Current Path : /usr/share/emacs/24.3/lisp/org/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/org/org-irc.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:07:35 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/org-irc.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'org)
#@27 The IRC client to act on.
(defvar org-irc-client 'erc (#$ . 569))
#@75 Non-nil will store a link to the logs, nil will store an irc: style link.
(defvar org-irc-link-to-logs nil (#$ . 641))
(byte-code "\300\301\302\"\210\303\304\305\306#\207" [add-to-list org-store-link-functions org-irc-store-link org-add-link-type "irc" org-irc-visit nil] 4)
#@76 Parse LINK and dispatch to the correct function based on the client found.
(defalias 'org-irc-visit #[(link) "\302! \303=\203 \304!\202 \305\306!)\207" [link org-irc-client org-irc-parse-link erc org-irc-visit-erc error "ERC only known client"] 2 (#$ . 922)])
#@211 Parse an IRC LINK and return the attributes found.
Parse a LINK that looks like server:port/chan/user (port, chan
and user being optional) and return any of the port, channel or user
attributes that are found.
(defalias 'org-irc-parse-link #[(link) "\303\304\305#\211G\211\306W\204 \n\307V\203 \310\311\n\"\210 \303 @\312\305#\240\210 *\207" [link parts len split-string "/" t 1 3 error "Failed to parse link needed 1-3 parts, got %d" ":"] 6 (#$ . 1194)])
#@73 Dispatch to the appropriate function to store a link to an IRC session.
(defalias 'org-irc-store-link #[nil "\301=\205 \302 \207" [major-mode erc-mode org-irc-erc-store-link] 2 (#$ . 1661)])
#@179 Remove unnecessary white space from STRING and add ellipses if necessary.
Strip starting and ending white space from STRING and replace any
chars that the value AFTER with '...'
(defalias 'org-irc-elipsify-description #[(string &optional after) "\303\206 \304!\305\306B\307\306B\310\311Q\312BE\313\314 \"\210\n*\207" [after replace-map string number-to-string 30 "^[ ]*" "" "[ ]*$" "^\\(.\\{" "\\}\\).*" "\\1..." mapc #[(x) "\302@ \"\205 \303A\304\211 $\211\207" [x string string-match replace-match nil] 5]] 5 (#$ . 1861)])
#@252 Find the best line to link to from the ERC logs given ERC-LINE as a start.
If the user is on the ERC-prompt then search backward for the
first non-blank line, otherwise return the current line. The
result is a cons of the filename and search string.
(defalias 'org-irc-erc-get-line-from-log #[(erc-line) "\302 \210\303\304!\210r\305\306 !q\210db\210\307! \310 \230\2030 \311 b\210\312\313\314\315#\205> \316\311 \317 \"\202> \320 \314\315#\205> \316\311 \317 \")D\207" [buffer-file-name erc-line erc-save-buffer-in-logs require erc-log find-file-noselect erc-current-logfile abbreviate-file-name erc-prompt point-at-bol search-backward-regexp "^[^ ]" nil t buffer-substring-no-properties point-at-eol search-backward] 5 (#$ . 2404)])
#@205 Store a link to the IRC log file or the session itself.
Depending on the variable `org-irc-link-to-logs' store either a
link to the log file for the current session or an irc: link to
the session itself.
(defalias 'org-irc-erc-store-link #[nil "\306\307!\210\203A \310\311 \312 \"\313 !\314\315!\203< \316\317\320\321\322\323\n\211A@)\324\"\325Q\326\327\n@\330\n\211A@)R&\210\331\202? \332\333!*\207\334 \335\f! \f\203{ \316\317\336\326\337\fP\321\340\f\322Q\341
@@\342\343
\211A@\211A@)!\206n &\344
\211A@&\f\210\331\202~ \332\345!*\207" [org-irc-link-to-logs erc-line parsed-line x link-text link require erc-log buffer-substring-no-properties point-at-bol point-at-eol org-irc-erc-get-line-from-log erc-logging-enabled nil org-store-link-props :type "file" :description "'" org-irc-elipsify-description 20 "' from an IRC conversation" :link "file:" "::" t error "This ERC session is not being logged" org-irc-get-erc-link org-irc-parse-link "irc" "irc:/" "irc session '" :server :port string-to-number :nick "Failed to create ('irc:/' style) ERC link" erc-default-port] 15 (#$ . 3147)])
#@57 Return an org compatible irc:/ link from an ERC buffer.
(defalias 'org-irc-get-erc-link #[nil "\247\203 \305!\202\f \n\306 Q\211\307\310 \2037 \311\310 !\2037 \312`\313\"@\2037 \312`\313\"@ \310 \307\fQ)\2029 \310 Q*\207" [erc-session-port session-port erc-session-server link nick number-to-string ":" "/" erc-default-target erc-channel-p get-text-property erc-data] 6 (#$ . 4254)])
#@113 Return the current port as a number.
Return the current port number or, if none is set, return the ERC
default.
(defalias 'org-irc-get-current-erc-port #[nil ";\203 \302!\207\247\203 \207 \207" [erc-session-port erc-default-port string-to-number] 2 (#$ . 4651)])
#@54 Visit an ERC buffer based on criteria found in LINK.
(defalias 'org-irc-visit-erc #[(link) "\306\307!\210\306\310!\210@@\311\211A@\211A@)!\206 \312 \313\314!\211 \203} \211A@\211 \203v \315\316\215\211 \203j \317!\210\211A@\211 \205f \320 \235\203_ db\210\321Pc\202f \322\323#)\202r \317
!\210\324!)\202y \317
!)\202\203 \325\326 \327\f$,\207" [link server x erc-default-port port server-buffer require erc erc-log string-to-number nil erc-buffer-filter #[nil "\305 \211\205 rq\210\306 =\205 \n \230\205 \211))\207" [tmp-server-buf port erc-session-server server server-buffer erc-server-buffer org-irc-get-current-erc-port] 3] found (byte-code "\304\211\205 \n@\305 ! \230\203 \306\307 \"\210\nA\211\204 \304*\207" [buffer-list x --dolist-tail-- chan-name nil buffer-name throw found] 4) org-pop-to-buffer-same-window erc-get-server-nickname-list ": " error "%s not found in %s" erc-cmd-JOIN erc-select :server :port buffer-list chan-name chan-buf nick] 6 (#$ . 4926)])
(provide 'org-irc)