The Lambda Lab
/
projects
/
lurk.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Improvements to url regexp.
[lurk.git]
/
lurk.el
diff --git
a/lurk.el
b/lurk.el
index
2fb3662
..
2f7e15a
100644
(file)
--- a/
lurk.el
+++ b/
lurk.el
@@
-487,7
+487,9
@@
portion of the source component of the message, as LURK doesn't use this.")
(if (equal to lurk-nick) from to))))
(lurk-display-string
context
(if (equal to lurk-nick) from to))))
(lurk-display-string
context
- (concat "* " from)
+ (propertize
+ (concat context " * " from)
+ 'face (lurk-get-context-facelist context))
action-text)))
(defun lurk-display-notice (context &rest notices)
action-text)))
(defun lurk-display-notice (context &rest notices)
@@
-541,8
+543,8
@@
portion of the source component of the message, as LURK doesn't use this.")
(opt (group (: ":" (+ digit))))
(opt (group (: "/"
(opt
(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)
"Imperfect regex used to find URLs in plain text.")
(defun lurk-click-url (button)
@@
-780,10
+782,10
@@
portion of the source component of the message, as LURK doesn't use this.")
(setq lurk-nick nick)
(lurk-display-notice nil "Set default nick to '" nick "'")))
(setq lurk-nick nick)
(lurk-display-notice nil "Set default nick to '" nick "'")))
- ((rx
"LIST"
)
+ ((rx
(: "LIST" (* whitespace) string-end)
)
(lurk-display-notice nil "This command can generate lots of output. Use `LIST -yes' if you're sure."))
(lurk-display-notice nil "This command can generate lots of output. Use `LIST -yes' if you're sure."))
- ((rx (: "LIST" (+ whitespace) "-YES"))
+ ((rx (: "LIST" (+ whitespace) "-YES"
(* whitespace) string-end
))
(lurk-send-msg (lurk-msg nil nil "LIST")))
((rx "MSG "
(lurk-send-msg (lurk-msg nil nil "LIST")))
((rx "MSG "