Fix regular expression
This commit is contained in:
parent
68092c597d
commit
ee82dfa487
@ -4968,11 +4968,11 @@ Listing [[lst:configure-browse-url]] configures =browse-url=.
|
||||
(start-process "mpv" nil "mpv" url))
|
||||
|
||||
(defconst browse-url-mpv-regexp
|
||||
(rx bos
|
||||
(or "http://" "https://")
|
||||
(or (or "www.youtube.com/" "youtu.be/" "soundcloud.com/")
|
||||
(rx bos "http" (opt "s") "://"
|
||||
(or (seq "youtu.be/")
|
||||
(seq "www.youtube.com/" (or "embed/" "watch?"))
|
||||
(seq (+? nonl) (or ".mp4" ".webm") eos)))
|
||||
"Match hyperlinks to browse with mpv.")
|
||||
"Match hyperlinks to open with mpv.")
|
||||
|
||||
(custom-set-variables
|
||||
`(browse-url-generic-program ,(or (when (eq system-type 'darwin) "open")
|
||||
|
Loading…
Reference in New Issue
Block a user