Copy Slack behavior of automatically creating link when pasting url with text selected

org-yank-link.el

(defun lgm/is-link (text)
  (let ((url-in-text (cl-search "https://" text)))
    (if url-in-text
	(= 0 url-in-text)
      nil)
    )
  )

;; Copy Slack behavior of automatically creating link when pasting url with text selected
(defun lgm/org-yank-link ()
  (interactive)
  (let ((yank-text (car kill-ring)))
  (if (lgm/is-link yank-text)
	  (org-insert-link "https://" yank-text (buffer-substring-no-properties (mark) (point)))
	  (org-yank)))
  )

(org-defkey org-mode-map (kbd "C-y") (lambda ()
				       (interactive)
				       (lgm/org-yank-link)))