Function: org-irc-get-erc-link

org-irc-get-erc-link is a byte-compiled function defined in ol-irc.el.gz.

Signature

(org-irc-get-erc-link)

Documentation

Return an org compatible irc:/ link from an ERC buffer.

Source Code

;; Defined in /usr/src/emacs/lisp/org/ol-irc.el.gz
(defun org-irc-get-erc-link ()
  "Return an org compatible irc:/ link from an ERC buffer."
  (let* ((session-port (if (numberp erc-session-port)
			   (number-to-string erc-session-port)
			 erc-session-port))
	 (link (concat erc-session-server ":" session-port)))
    (concat link "/"
	    (if (and (erc-default-target)
		     (erc-channel-p (erc-default-target))
		     (car (get-text-property (point) 'erc-data)))
		;; we can get a nick
		(let ((nick (car (get-text-property (point) 'erc-data))))
		  (concat (erc-default-target) "/" nick))
	      (erc-default-target)))))