ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/org-irc.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 425))
#@75 Non-nil will store a link to the logs, nil will store an irc: style link.
(defvar org-irc-link-to-logs nil (#$ . 497))
(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 (#$ . 778)])
#@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 (#$ . 1050)])
#@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 (#$ . 1517)])
#@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-ellipsify-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 (#$ . 1717)])
#@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 (#$ . 2261)])
#@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\203; \310\311 \312 \"\313 !\314\315!\2036 \316\317\320\321\322\323\nA@\324\"\325Q\326\327\n@\330\nA@R&\210\331\2029 \332\333!*\207\334 \335 ! \203q \316\317\336\326\337 P\321\340 \322Q\341\f@@\342\343\f\211A\242A@!\206d
\344\f\211A\242&\f\210\331\202t \332\345!*\207" [org-irc-link-to-logs erc-line parsed-line link-text link erc-default-port 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-ellipsify-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"] 14 (#$ . 3004)])
#@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 (#$ . 4096)])
#@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 (#$ . 4493)])
#@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\242A@!\206 \n\312 \313\314!\211 \203\245 \211A\242\211 \203\236 \3152^
\312 \211 \205\\ @\316!\230\203R \317\315\"\210A\211\204= \312*0\211 \203\222 \320 !\210\211A\242\211 \205\216 \321 \235\203\207 db\210 \322Pc\202\216 \323\324 #)\202\232 \320\f!\210\325!)\202\241 \320\f!)\202\253 \326\327 \330 $,\207" [link server erc-default-port port server-buffer buffer-list 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 buffer-name throw org-pop-to-buffer-same-window erc-get-server-nickname-list ": " error "%s not found in %s" erc-cmd-JOIN erc-select :server :port chan-name x --dolist-tail-- chan-buf nick] 6 (#$ . 4768)])
(provide 'org-irc)
Kontol Shell Bypass