From 5853ad53980e7e3988f12bd239f5d4b660297cdd Mon Sep 17 00:00:00 2001 From: Ole Tange Date: Sat, 11 Feb 2017 22:26:58 +0100 Subject: [PATCH] WasteBasket.lua: added. --- README | 2 + wastebasket/WasteBasket.lua | 138 ++++++++++++++++++++++++++++++++++++ 2 files changed, 140 insertions(+) create mode 100644 wastebasket/WasteBasket.lua diff --git a/README b/README index 8c2f287..96988d3 100644 --- a/README +++ b/README @@ -34,4 +34,6 @@ tracefile - List files/dirs being accessed by program. w4it-for-port-open - Block until the given port opens on a given host. +wastebasket - VLC extension for moving current file to a wastebasket + wssh - Shorthand for w4it-for-port-open $host 22; ssh $host diff --git a/wastebasket/WasteBasket.lua b/wastebasket/WasteBasket.lua new file mode 100644 index 0000000..01f0d64 --- /dev/null +++ b/wastebasket/WasteBasket.lua @@ -0,0 +1,138 @@ +--[[ +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 > 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/wastebasket" + } +end + +--[[ Hooks ]] + +-- Activation hook +function activate() + -- get the current playing file + item = vlc.input.item() + -- extract its URI + uri = item:uri() + -- decode %foo stuff from the URI + filename = vlc.strings.decode_uri(uri) + -- remove 'file://' prefix which is 7 chars long + filename = string.sub(filename,8) + + -- find .waste in parent dirs + wdir = wastedir(dirname(filename)) + 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 wastedir(dir) + -- recursively search for .waste in parent dir + + vlc.msg.dbg("[Wastebasket/wastedir] Looking at " .. dir) + wdir = dir .. "/" .. ".waste" + if directory_exists(wdir) then + vlc.msg.dbg("[Wastebasket/wastedir] Found wastedir: " .. wdir) + return wdir + end + -- try the parent dir + parent = dirname(dir) + 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 + 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() + -- get the current playing file + item = vlc.input.item() + -- extract its URI + uri = item:uri() + -- decode %foo stuff from the URI + filename = vlc.strings.decode_uri(uri) + -- remove 'file://' prefix which is 7 chars long + filename = string.sub(filename,8) + + -- find .waste in parent dirs + wdir = wastedir(dirname(filename)) + if(directory_exists(wdir)) then + basena = basename(filename) + dst = wdir .. "/" .. basena + vlc.msg.dbg("[Wastebasket]: Move to " .. dst) + retval, err = os.rename(filename,dst) + if(retval == nil) then + -- error handling; if deletion 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