;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; 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=\203\303!\202\304\305!\207" [org-irc-client org-irc-parse-link erc 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 (#$ . 975)]) #@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 (#$ . 1432)]) #@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 (#$ . 1630)]) #@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 (#$ . 2149)]) #@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 (#$ . 2891)]) #@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 (#$ . 3950)]) #@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 (#$ . 4320)]) #@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\210db\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\205r\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 (#$ . 4593)]) (provide 'org-irc)