;ELC
|
;;; Compiled
|
;;; in Emacs version 26.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 (#$ . 423))
|
#@75 Non-nil will store a link to the logs, nil will store an irc: style link.
|
(defvar org-irc-link-to-logs nil (#$ . 495))
|
(org-link-set-parameters "irc" :follow 'org-irc-visit :store 'org-irc-store-link)
|
#@87 Parse LINK and dispatch to the correct function based on the client found.
|
|
(fn LINK)
|
(defalias 'org-irc-visit #[257 "\301!\302\267\202 \303!\202 \304\305!\207" [org-irc-client org-irc-parse-link #s(hash-table size 1 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (erc 9)) org-irc-visit-erc error "ERC only known client"] 4 (#$ . 702)])
|
#@222 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.
|
|
(fn LINK)
|
(defalias 'org-irc-parse-link #[257 "\300\301\302#\211G\211\303W\204 \211\304V\203 \305\306\"\210\300@\307\302#\240\210\207" [split-string "/" t 1 3 error "Failed to parse link needed 1-3 parts, got %d" ":"] 8 (#$ . 1068)])
|
#@73 Dispatch to the appropriate function to store a link to an IRC session.
|
(defalias 'org-irc-store-link #[0 "\301=\205 \302 \207" [major-mode erc-mode org-irc-erc-store-link] 2 (#$ . 1526)])
|
#@208 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 `...'
|
|
(fn STRING &optional AFTER)
|
(defalias 'org-irc-ellipsify-description #[513 "\300\206 \301!\302\303B\304\303B\305\306Q\307BE\211\211\2035 \211@\310@\"\203. \311A\312\211 $\262A\266\202\202 \262\207" [number-to-string 30 "^[ ]*" "" "[ ]*$" "^\\(.\\{" "\\}\\).*" "\\1..." string-match replace-match nil] 11 (#$ . 1724)])
|
#@267 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.
|
|
(fn ERC-LINE)
|
(defalias 'org-irc-erc-get-line-from-log #[257 "\301 \210\302\303!\210r\304\305 !q\210db\210\306!\307 \230\2030 \310 b\210\311\312\313\314#\205> \315\310 \316 \"\202> \317\313\314#\205> \315\310 \316 \")D\207" [buffer-file-name 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] 6 (#$ . 2243)])
|
#@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 #[0 "\302\303!\210\203; \304\305 \306 \"\307!\310\311!\2037 \312\313\314\315\316\317A@\320\"\321Q\322\323@\324 A@R&\210\325\202: \326\327!\207\330 \331!\203v \312\313\332\322\333P\315\334\316Q\335@@\336\337 \211A\262 \242A@!\206g \340\f\211A\262\242&\f\210\325\202y \326\341!\207" [org-irc-link-to-logs 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"] 16 (#$ . 2985)])
|
#@57 Return an org compatible irc:/ link from an ERC buffer.
|
(defalias 'org-irc-get-erc-link #[0 "\247\203 \302!\202\f \303Q\211\304\305 \2035 \306\305 !\2035 \307`\310\"@\2035 \307`\310\"@\305 \304Q\262\2027 \305 Q\207" [erc-session-port erc-session-server number-to-string ":" "/" erc-default-target erc-channel-p get-text-property erc-data] 8 (#$ . 4044)])
|
#@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 #[0 ";\203 \302!\207\247\203 \207 \207" [erc-session-port erc-default-port string-to-number] 2 (#$ . 4414)])
|
#@65 Visit an ERC buffer based on criteria found in LINK.
|
|
(fn LINK)
|
(defalias 'org-irc-visit-erc #[257 "\301\302!\210\301\303!\210\211@@\211A\262\242A@\211\203 \304!\202 \262\305C\306\307\310\311\312\313#\314\"\315$!\211\203\250 \211A\262\242\211\203\237 \3162d \211\205a \211@\317!\230\203Z \320\316\"\210A\266\202\202G \2620\211\203\222 \321!\210\211A\262\242\211\205\215 \211\322 \235\203\210 db\210\211\323Pc\202\215 \324\325#\262\202\232 \321\242!\210\326!\262\202\243 \321\242!\262\202\257 \327\330\331$\207" [erc-default-port require erc erc-log string-to-number nil erc-buffer-filter make-byte-code 0 "\304 \211\205 r\211q\210\305 \301=\205 \300\230\205 \302\240)\207" vconcat vector [erc-session-server erc-server-buffer org-irc-get-current-erc-port] 3 found buffer-name throw pop-to-buffer-same-window erc-get-server-nickname-list ": " error "%s not found in %s" erc-cmd-JOIN erc-select :server :port] 13 (#$ . 4687)])
|
(provide 'org-irc)
|
