", a, true)
return data:sub(position+1,b-1)
end
if sonichits then
local a = string.find(data, '
", a)
else
b = string.find(data, "
", b-10)
end
if b == nil then
return ""
end
return data:sub(position+4,b-1)
end
if golyr then
local a = string.find(data, '
", position, true)
if b == nil then
return ""
end
return data:sub(position+5,b-1)
end
if lyricscom then
local a = string.find(data, 'itemprop="description')
if a == nil then
return "";
end
local b = string.find(data, "---", a, true)
return data:sub(a+4,b-1)
end
return ""
end
function input_changed()
-- fires on input change (video / audio change)
-- https://trac.videolan.org/vlc/ticket/5016 and https://forum.videolan.org/viewtopic.php?t=119837
-- update_metas() --doesn't work (freezes)
-- requires input-listener
collectgarbage()
local title_prev = title:get_text()
local artist_prev = artist:get_text()
local title_curr = get_title()
local artist_curr = get_artist()
if title_prev and title_curr then
if title_prev == title_curr then
--maybe this song has the same title, but a different performer
if artist_prev and artist_curr then
if artist_prev == artist_curr then
--nothing, do not reload (keep the lyrics as they are)
else
lyric:set_text(translation["message_newsong"])
dlg:set_title(translation["dialogtitle_normal"])
end
end
else
--it's a different song
local item = vlc.item or vlc.input.item()
if not item then
--no song loaded
lyric:set_text(translation["message_nosong"])
else
lyric:set_text(translation["message_newsong"])
end
dlg:set_title(translation["dialogtitle_normal"])
end
end
title:set_text(title_curr)
artist:set_text(artist_curr)
dlg:update()
--click_google()
collectgarbage()
--os.execute(string.format('xdg-open "%s"', "https://google.com/search?q=wikipedia"))
return true
end
function playing_changed()
-- fires on pause/play
-- requires playing-listener
end
-- Solve crash problem #14786: https://trac.videolan.org/vlc/ticket/14786
function meta_changed()
-- triggered by available media input meta data?
-- requires meta-listener
end
function is_lyric_page(lyric_string)
if lyric_string=="" or lyric_string==nil then
return false
end
if lyric_string:len() < 40 then
--debug
return false
end
if lyric_string:find("We are not in a position to display these lyrics due to licensing restrictions. Sorry for the inconvenience.") then
return false
end
if lyric_string:find("Select your carrier...") then
--low quality lyrics
return false
end
if lyric_string:find("Unfortunately, we aren't authorized to display these lyrics") then
--metrolyrics
return false
end
if lyric_string:find("No lyrics text found for this track.") then
--sonic hits
return false
end
if lyric_string:find("No lyrics found for this song") then
if debug_enabled then
vlc.msg.dbg("[Lyrics Finder] Data dump: " .. lyric_string)
end
return false
end
return true;
end
function update_lyrics()
local songtitle = title:get_text()
local songartist = artist:get_text()
local lyric_string = get_lyrics(songtitle, songartist)
if is_lyric_page(lyric_string) == false then
if debug_enabled == false then
if artist:get_text() == "" or title:get_text() == "" then
local item = vlc.item or vlc.input.item()
if not item then
lyric:set_text(translation["message_nosong"])
dlg:set_title(translation["dialogtitle_normal"])
return
else
lyric:set_text("" .. translation["message_incorrect"] .. "")
end
else
lyric:set_text("" .. translation["message_notfound"] .. "")
end
end
dlg:set_title(translation["dialogtitle_notfound"])
source_label:set_text("")
dlg:update()
return true
end
lyric:set_text(lyric_string)
dlg:set_title(translation["dialogtitle_lyricsof"] .. " " .. title:get_text() .. " " .. translation["dialogtitle_performedby"] .. " " .. artist:get_text())
dlg:update()
return true
end
-- Get clean title from filename
function get_title(sourcetext)
local item = vlc.item or vlc.input.item()
local uri = ""
local name = ""
if item then
name = item:name()
local metas = item:metas()
uri = item:uri()
if uri:find("googlevideo") == nil then
if metas["now_playing"] then
name = metas["now_playing"]
else
if metas["title"] then
if metas["title"]:find("%.") then
if metas["title"]:find("%.") > string.len(metas["title"]) - 6 then
-- this is no real metadata because it contains a dot near the end (as extension of a file name)
-- instead this is playlist data (could be a m3u playlist)
-- use the parsing from below
else
return metas["title"]
end
else
return metas["title"]
end
end
end
--else
-- vlc.msg.dbg(item:name())
-- vlc.msg.dbg(metas["title"])
end
else
-- no song loaded
--return ""
end
if sourcetext then
name = sourcetext;
end
local filename = string.gsub(name, "^(.+)%.%w+$", "%1")
local pos = filename:find("-")
local spacepos = filename:find("%s")
if pos == nil then
return "" --invalid things
end
if spacepos == nil then
return "" --invalid things (for example "-IRememberYou")
end
if pos < spacepos then
local oldpos = pos
pos = filename:find("-", spacepos)
if pos == nil then
pos = oldpos
end
end
local parpos = filename:find("%(")
if parpos == nil then
parpos = filename:len() + 2
end
filename = string.gsub(filename, " - Lyrics", "")
local hyphenpostwo = filename:find("-", pos + 1)
if hyphenpostwo then
if hyphenpostwo > filename:len() - 4 then
--Wham! - Wake Me Up Before You Go-Go
else
pos = hyphenpostwo --Olivia Newton-John
end
end
local amount = 2;
local space_after_pos = filename:find("%s", pos)
if space_after_pos == nil then
--no space after pos
amount = 1
else
--was +1
if space_after_pos > pos - 1 then
amount = 1
end
end
filename = string.sub(filename, pos + amount, parpos - amount)
filename = string.gsub(filename, " Lyrics", "")
filename = string.gsub(filename,"ft%..*","") --remove featuring (TODO: if Title - Author gets implemented, make this more robust)
filename = string.gsub(filename,"feat%..*","") --remove featuring (TODO: if Title - Author gets implemented, make this more robust)
filename = string.gsub(filename, "@.*","")
filename = string.gsub(filename," with Lyrics","") --remove with lyrics
filename = string.gsub(filename,"_ll","%'ll") --remove with lyrics
filename = string.gsub(filename,"w_ lyrics","") --remove w_ lyrics
return trim(filename)
end
-- Get clean artist from filename
function get_artist(sourcetext)
local item = vlc.item or vlc.input.item()
local name = ""
local uri
if item then
name = item:name()
local metas = item:metas()
uri = item:uri()
if uri:find("googlevideo") == nil then
if metas["now_playing"] then
name = metas["now_playing"]
else
if metas["artist"] then
return metas["artist"]
end
end
--else
-- vlc.msg.dbg(item:name())
-- vlc.msg.dbg(metas["title"])
end
else
-- no song loaded
-- return ""
end
if sourcetext then
name = sourcetext;
end
--unknown metadata, make a guess
local filename = string.gsub(name, "^(.+)%.%w+$", "%1")
local hyphenpos = filename:find("-")
if hyphenpos == nil and uri then
--item:name() does not contain a hyphen. probably metadata is title only
--filename = item:uri()
filename = string.gsub(uri,".*/","") --tested on Linux and Windows
end
filename = string.gsub(filename,"%%20"," ") --replace space
filename = string.gsub(filename,"%%2C", ",") --replace comma
filename = string.gsub(filename,"%%26", "and") --replace & by and
filename = string.gsub(filename,"%%27", "") --replace single quote by nothing
filename = string.gsub(filename,"%%21","!") --replace exclamation mark by exclamation mark :)
filename = string.gsub(filename, "/^(.+)(\\.[^ .]+)?$/", "") --remove extension
filename = string.gsub(filename,"%s_%s", " and ") --replace underscore with spaces by and
local spacepos = filename:find("%s")
hyphenpos = filename:find("-")
if spacepos == nil then
--return "notok"
--spacepos = 0
end
if hyphenpos == nil then
return "" --invalid things
end
if spacepos == nil then
return "" --invalid things (for example "-IRememberYou")
end
if hyphenpos < spacepos then
local oldpos = hyphenpos
hyphenpos = filename:find("-", spacepos) --was not the right hyphen (a-ha)
if hyphenpos == nil then
hyphenpos = oldpos
end
else
spacepos = filename:find("%s", hyphenpos-2)
end
filename = string.gsub(filename,"ft%..*","") --remove ft.
filename = string.gsub(filename,"feat%..*","") --remove feat.
local amount = 2
local space_after_pos = filename:find("%s", hyphenpos)
if space_after_pos == nil then
--no space after hyphenpos (Artist-Title)
amount = 1
else
--space after hyphenpos (Artist- Title)
--equal to or greather than (was space_after_pos > hyphenpos + 1)
if space_after_pos > hyphenpos - 1 then
amount = 1
end
end
local hyphenpostwo = filename:find("-", hyphenpos + 1)
if hyphenpostwo == nil then
return trim(string.sub(filename, 1, hyphenpos - amount))
else
if hyphenpostwo > filename:len() - 4 then
return trim(string.sub(filename, 1, hyphenpos - amount)) --Wham! - Wake Me Up Before You Go-Go
else
return trim(string.sub(filename, 1, hyphenpostwo - amount)) --Olivia Newton-John
end
end
end
-- Remove leading and trailing spaces
function trim(str)
if not str then return "" end
return string.gsub(str, "^%s*(.-)%s*$", "%1")
end
-- Source: http://stackoverflow.com/questions/11163748/open-web-browser-using-lua-in-a-vlc-extension
-- Attempts to open a given URL in the system default browser, regardless of Operating System.
local open_cmd -- this needs to stay outside the function, or it'll re-sniff every time...
function open_url(url)
if not open_cmd then
if package.config:sub(1,1) == '\\' then -- windows
open_cmd = function(url)
-- Should work on anything since (and including) win'95
-- todo: get default browser and handle it that way to eliminate the command prompt window
-- see http://lua-users.org/wiki/WindowsRegistry
os.execute('start ' .. url:gsub("% ","+"))
end
-- the only systems left should understand uname...
elseif (io.popen("uname -s"):read'*l') == "Darwin" then
open_cmd = function(url)
-- opening urls with the default application
os.execute(string.format('open "%s"', url))
end
else -- that ought to only leave Linux
open_cmd = function(url)
-- should work on X-based distros.
os.execute(string.format('xdg-open "%s"', url))
end
end
end
open_cmd(url)
end
--GPL code from VLSub
function is_window_path(path)
return string.match(path, "^(%a:\\).+$")
end