Function: erc--ensure-url

erc--ensure-url is a byte-compiled function defined in erc.el.gz.

Signature

(erc--ensure-url INPUT)

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc.el.gz
(defun erc--ensure-url (input)
  (unless (string-match (rx bot "irc" (? "6") (? "s") "://") input)
    (when (and (string-match (rx (? (+ any) "@")
                                 (or (group (* (not "[")) ":" (* any))
                                     (+ any))
                                 ":" (+ (not (any ":]"))) eot)
                             input)
               (match-beginning 1))
      (setq input (concat "[" (substring input (match-beginning 1)) "]")))
    (setq input (concat "irc://" input)))
  input)