(opt (group (: ":" (+ digit))))
(opt (group (: "/"
(opt
- (* (any alnum "-/.,#:%=&_"))
- (any alnum "-/#:%=&_")))))))
+ (* (any alnum "-/.,#:%=&_?~"))
+ (any alnum "-/#:%=&_~")))))))
"Imperfect regex used to find URLs in plain text.")
(defun lurk-click-url (button)