Fix regular expression

This commit is contained in:
Gerard Vermeulen 2022-12-21 17:48:28 +01:00
parent 68092c597d
commit ee82dfa487

View File

@ -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")