141 lines
4.1 KiB
Lua
141 lines
4.1 KiB
Lua
--[[
|
|
INSTALLATION (create directories if they donot exist):
|
|
- put the file in the VLC subdir /lua/extensions, by default:
|
|
* Windows (all users): %ProgramFiles%\VideoLAN\VLC\lua\extensions\
|
|
* Windows (current user): %APPDATA%\VLC\lua\extensions\
|
|
* Linux (all users): /usr/share/vlc/lua/extensions/
|
|
* Linux (current user): ~/.local/share/vlc/lua/extensions/
|
|
* Mac OS X (all users): /Applications/VLC.app/Contents/MacOS/share/lua/extensions/
|
|
- Restart VLC.
|
|
- The extension can then be found in the menu:
|
|
View > Move current playing file into wastebasket
|
|
]]--
|
|
|
|
--[[ Extension description ]]
|
|
|
|
function descriptor()
|
|
return { title = "Wastebasket" ;
|
|
version = "0.9" ;
|
|
author = "Mark Morschhäuser/Ole Tange" ;
|
|
shortdesc = "Move current playing file into wastebasket";
|
|
description = "<h1>Wastebasket</h1>"
|
|
.. "When you're playing a file, use Wastebasket to "
|
|
.. "easily move this file to a .waste-dir with one click. "
|
|
.. "<br>This will NOT change your playlist, it will move the file itself. "
|
|
.. "<br>Wastebasket will search for a dir called .waste "
|
|
.. "in the dir of the file and all parent dirs of that.";
|
|
url = "https://gitlab.com/ole.tange/tangetools/tree/master/wastebasket"
|
|
}
|
|
end
|
|
|
|
--[[ Hooks ]]
|
|
|
|
-- Activation hook
|
|
function activate()
|
|
local filename,dst,wdir = filename_dst_wastedir()
|
|
if(directory_exists(wdir)) then
|
|
d = vlc.dialog("Wastebasket")
|
|
d:add_label("Move <b>".. filename .. "</b> to <b>" .. wdir .. "</b>?")
|
|
d:add_button("Move", delete)
|
|
d:add_button("Cancel", close)
|
|
d:show()
|
|
else
|
|
d = vlc.dialog("Wastebasket - no dir found")
|
|
d:add_label(".waste is not found anywhere in parent dirs")
|
|
d:add_button("Cancel", close)
|
|
d:show()
|
|
end
|
|
vlc.msg.dbg("[Wastebasket] Activated")
|
|
end
|
|
|
|
function filename_dst_wastedir()
|
|
-- get the current playing file
|
|
local item = vlc.input.item()
|
|
-- extract its URI
|
|
local uri = item:uri()
|
|
-- decode %foo stuff from the URI
|
|
local filename = vlc.strings.decode_uri(uri)
|
|
-- remove 'file://' prefix which is 7 chars long
|
|
filename = string.sub(filename,8)
|
|
|
|
-- find .waste in parent dirs
|
|
local wdir = wastedir(dirname(filename))
|
|
return filename,wdir .. "/" .. basename(filename),wdir
|
|
end
|
|
|
|
function wastedir(dir)
|
|
-- recursively search for .waste in parent dir
|
|
|
|
vlc.msg.dbg("[Wastebasket/wastedir] Looking at " .. dir)
|
|
local wdir = dir .. "/" .. ".waste"
|
|
if directory_exists(wdir) then
|
|
vlc.msg.dbg("[Wastebasket/wastedir] Found wastedir: " .. wdir)
|
|
return wdir
|
|
end
|
|
-- try the parent dir
|
|
local parent = dirname(dir)
|
|
if(parent == dir) then
|
|
-- we have reached root (/)
|
|
-- return wdir (which does not exist)
|
|
return wdir
|
|
end
|
|
vlc.msg.dbg("[Wastebasket/wastedir] parent " .. parent)
|
|
if directory_exists(parent) then
|
|
return wastedir(parent)
|
|
else
|
|
return parent
|
|
end
|
|
end
|
|
|
|
function directory_exists(dir)
|
|
-- Simple checker if dir exists
|
|
-- shell quote the dirname
|
|
dir, _ = dir:gsub("([\002-\009\011-\026\\#?`(){}%[%]^*<>=~|; \"!$&'\130-\255])", "\\%1")
|
|
dir, _ = dir:gsub("\n", "'\n'")
|
|
return os.execute("cd " .. dir)
|
|
end
|
|
|
|
function deactivate()
|
|
-- Deactivation hook
|
|
vlc.msg.dbg("[Wastebasket] Deactivated")
|
|
vlc.deactivate()
|
|
end
|
|
|
|
function close()
|
|
deactivate()
|
|
end
|
|
|
|
--- Function equivalent to basename in POSIX systems
|
|
--@param str the path string
|
|
function basename(str)
|
|
local name = string.gsub(str, "(.*/)(.*)", "%2")
|
|
return name
|
|
end
|
|
|
|
function dirname(str)
|
|
local name = string.gsub(str, "(.*)/(.*)", "%1")
|
|
return name
|
|
end
|
|
|
|
function delete()
|
|
local filename,dst,wdir = filename_dst_wastedir()
|
|
if(directory_exists(wdir)) then
|
|
vlc.msg.dbg("[Wastebasket]: Move to " .. dst)
|
|
local retval, err = os.rename(filename,dst)
|
|
if(retval == nil) then
|
|
-- error handling; if moving failed, print why
|
|
vlc.msg.dbg("[Wastebasket] error: " .. err)
|
|
end
|
|
else
|
|
d = vlc.dialog("Wastebasket - no dir found")
|
|
d:add_label(".waste is not found anywhere in parent dirs")
|
|
d:add_button("Cancel", close)
|
|
d:show()
|
|
end
|
|
close()
|
|
end
|
|
|
|
-- This empty function is there, because vlc pested me otherwise
|
|
function meta_changed()
|
|
end
|