--[[ 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 = "

Wastebasket

" .. "When you're playing a file, use Wastebasket to " .. "easily move this file to a .waste-dir with one click. " .. "
This will NOT change your playlist, it will move the file itself. " .. "
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 ".. filename .. " to " .. wdir .. "?") 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