From 50057d5149dda340b3b47aca4096f4a6ec66b9ee Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?P=C5=99emysl=20Eric=20Janouch?= Date: Fri, 6 Aug 2021 16:12:15 +0200 Subject: Come up with sillier names for the binaries I'm not entirely sure, but it looks like some people might not like jokes about the Holocaust. On a more serious note, the project has become more serious over the 7 or so years of its existence. --- plugins/degesch/auto-rejoin.lua | 48 ----------- plugins/degesch/censor.lua | 90 -------------------- plugins/degesch/fancy-prompt.lua | 105 ----------------------- plugins/degesch/last-fm.lua | 178 --------------------------------------- plugins/degesch/ping-timeout.lua | 32 ------- plugins/degesch/prime.lua | 68 --------------- plugins/degesch/slack.lua | 147 -------------------------------- plugins/degesch/thin-cursor.lua | 27 ------ plugins/degesch/utm-filter.lua | 62 -------------- 9 files changed, 757 deletions(-) delete mode 100644 plugins/degesch/auto-rejoin.lua delete mode 100644 plugins/degesch/censor.lua delete mode 100644 plugins/degesch/fancy-prompt.lua delete mode 100644 plugins/degesch/last-fm.lua delete mode 100644 plugins/degesch/ping-timeout.lua delete mode 100644 plugins/degesch/prime.lua delete mode 100644 plugins/degesch/slack.lua delete mode 100644 plugins/degesch/thin-cursor.lua delete mode 100644 plugins/degesch/utm-filter.lua (limited to 'plugins/degesch') diff --git a/plugins/degesch/auto-rejoin.lua b/plugins/degesch/auto-rejoin.lua deleted file mode 100644 index ce82213..0000000 --- a/plugins/degesch/auto-rejoin.lua +++ /dev/null @@ -1,48 +0,0 @@ --- --- auto-rejoin.lua: join back automatically when someone kicks you --- --- Copyright (c) 2016, Přemysl Eric Janouch --- --- Permission to use, copy, modify, and/or distribute this software for any --- purpose with or without fee is hereby granted. --- --- THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES --- WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF --- MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY --- SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES --- WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION --- OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN --- CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. --- - -local timeout -degesch.setup_config { - timeout = { - type = "integer", - comment = "auto rejoin timeout", - default = "0", - - on_change = function (v) - timeout = v - end, - validate = function (v) - if v < 0 then error ("timeout must not be negative", 0) end - end, - }, -} - -async, await = degesch.async, coroutine.yield -degesch.hook_irc (function (hook, server, line) - local msg = degesch.parse (line) - if msg.command ~= "KICK" then return line end - - local who = msg.prefix:match ("^[^!]*") - local channel, whom = table.unpack (msg.params) - if who ~= whom and whom == server.user.nickname then - async.go (function () - await (async.timer_ms (timeout * 1000)) - server:send ("JOIN " .. channel) - end) - end - return line -end) diff --git a/plugins/degesch/censor.lua b/plugins/degesch/censor.lua deleted file mode 100644 index cb76c23..0000000 --- a/plugins/degesch/censor.lua +++ /dev/null @@ -1,90 +0,0 @@ --- --- censor.lua: black out certain users' messages --- --- Copyright (c) 2016 - 2021, Přemysl Eric Janouch --- --- Permission to use, copy, modify, and/or distribute this software for any --- purpose with or without fee is hereby granted. --- --- THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES --- WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF --- MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY --- SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES --- WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION --- OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN --- CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. --- - -local to_pattern = function (mask) - if not mask:match ("!") then mask = mask .. "!*" end - if not mask:match ("@") then mask = mask .. "@*" end - - -- That is, * acts like a wildcard, otherwise everything is escaped - return "^" .. mask:gsub ("[%^%$%(%)%%%.%[%]%+%-%?]", "%%%0") - :gsub ("%*", ".*") .. "$" -end - -local patterns = {} -local read_masks = function (v) - patterns = {} - local add = function (who, where) - local channels = patterns[who] or {} - table.insert (channels, where) - patterns[who] = channels - end - for item in v:lower ():gmatch ("[^,]+") do - local who, where = item:match ("^([^/]+)/*(.*)") - if who then add (to_pattern (who), where == "" or where) end - end -end - -local quote -degesch.setup_config { - masks = { - type = "string_array", - default = "\"\"", - comment = "user masks (optionally \"/#channel\") to censor", - on_change = read_masks - }, - quote = { - type = "string", - default = "\"\\x0301,01\"", - comment = "formatting prefix for censored messages", - on_change = function (v) quote = v end - }, -} - -local decolor = function (text) - local rebuilt, last = {""}, 1 - for start in text:gmatch ('()\x03') do - table.insert (rebuilt, text:sub (last, start - 1)) - local sub = text:sub (start + 1) - last = start + (sub:match ('^%d%d?,%d%d?()') or sub:match ('^%d?%d?()')) - end - return table.concat (rebuilt) .. text:sub (last) -end - -local censor = function (line) - -- Taking a shortcut to avoid lengthy message reassembly - local start, text = line:match ("^(.- PRIVMSG .- :)(.*)$") - local ctcp, rest = text:match ("^(\x01%g+ )(.*)") - text = ctcp and ctcp .. quote .. decolor (rest) or quote .. decolor (text) - return start .. text -end - -degesch.hook_irc (function (hook, server, line) - local msg = degesch.parse (line) - if msg.command ~= "PRIVMSG" then return line end - - local channel = msg.params[1]:lower () - for who, where in pairs (patterns) do - if msg.prefix:lower ():match (who) then - for _, x in pairs (where) do - if x == true or x == channel then - return censor (line) - end - end - end - end - return line -end) diff --git a/plugins/degesch/fancy-prompt.lua b/plugins/degesch/fancy-prompt.lua deleted file mode 100644 index 93fe67c..0000000 --- a/plugins/degesch/fancy-prompt.lua +++ /dev/null @@ -1,105 +0,0 @@ --- --- fancy-prompt.lua: the fancy multiline prompt you probably want --- --- Copyright (c) 2016, Přemysl Eric Janouch --- --- Permission to use, copy, modify, and/or distribute this software for any --- purpose with or without fee is hereby granted. --- --- THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES --- WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF --- MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY --- SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES --- WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION --- OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN --- CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. --- --- Beware that it is a hack and only goes about 90% of the way, which is why --- this functionality is only available as a plugin in the first place --- (well, and also for customizability). --- --- The biggest problem is that the way we work with Readline is incompatible --- with multiline prompts, and normal newlines just don't work. This is being --- circumvented by using an overflowing single-line prompt with a specially --- crafted character in the rightmost column that prevents the bar's background --- from spilling all over the last line. --- --- There is also a problem with C-r search rendering not clearing out the --- background but to really fix that mode, we'd have to fully reimplement it --- since its alternative prompt very often gets overriden by accident anyway. - -degesch.hook_prompt (function (hook) - local current = degesch.current_buffer - local chan = current.channel - local s = current.server - - local bg_color = "255" - local current_n = 0 - local active = "" - for i, buffer in ipairs (degesch.buffers) do - if buffer == current then - current_n = i - elseif buffer.new_messages_count ~= buffer.new_unimportant_count then - if active ~= "" then active = active .. "," end - if buffer.highlighted then - active = active .. "!" - bg_color = "224" - end - active = active .. i - end - end - if active ~= "" then active = "(" .. active .. ")" end - local x = current_n .. ":" .. current.name - if chan and chan.users_len ~= 0 then - local params = "" - for mode, param in pairs (chan.param_modes) do - params = params .. " +" .. mode .. " " .. param - end - local modes = chan.no_param_modes .. params:sub (3) - if modes ~= "" then x = x .. "(+" .. modes .. ")" end - x = x .. "{" .. chan.users_len .. "}" - end - if current.hide_unimportant then x = x .. "" end - - local lines, cols = degesch.get_screen_size () - x = x .. " " .. active .. string.rep (" ", cols) - - -- Readline 7.0.003 seems to be broken and completely corrupts the prompt. - -- However 8.0.004 seems to be fine with these, as is libedit 20191231-3.1. - --x = x:gsub("[\128-\255]", "?") - - -- Cut off extra characters and apply formatting, including the hack. - -- FIXME: this doesn't count with full-width or zero-width characters. - -- We might want to export wcwidth() above term_from_utf8 somehow. - local overflow = utf8.offset (x, cols - 1) - if overflow then x = x:sub (1, overflow) end - x = "\x01\x1b[0;4;1;38;5;16m\x1b[48;5;" .. bg_color .. "m\x02" .. - x .. "\x01\x1b[0;4;1;7;38;5;" .. bg_color .. "m\x02 \x01\x1b[0;1m\x02" - - local user_prefix = function (chan, user) - for i, chan_user in ipairs (chan.users) do - if chan_user.user == user then return chan_user.prefixes end - end - return "" - end - if s then - x = x .. "[" - local state = s.state - if state == "disconnected" or state == "connecting" then - x = x .. "(" .. state .. ")" - elseif state ~= "registered" then - x = x .. "(unregistered)" - else - local user, modes = s.user, s.user_mode - if chan then x = x .. user_prefix (chan, user) end - x = x .. user.nickname - if modes ~= "" then x = x .. "(" .. modes .. ")" end - end - x = x .. "] " - else - -- There needs to be at least one character so that the cursor - -- doesn't get damaged by our hack in that last column - x = x .. "> " - end - return x -end) diff --git a/plugins/degesch/last-fm.lua b/plugins/degesch/last-fm.lua deleted file mode 100644 index 6ade80d..0000000 --- a/plugins/degesch/last-fm.lua +++ /dev/null @@ -1,178 +0,0 @@ --- --- last-fm.lua: "now playing" feature using the last.fm API --- --- Dependencies: lua-cjson (from luarocks e.g.) --- --- I call this style closure-oriented programming --- --- Copyright (c) 2016, Přemysl Eric Janouch --- --- Permission to use, copy, modify, and/or distribute this software for any --- purpose with or without fee is hereby granted. --- --- THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES --- WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF --- MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY --- SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES --- WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION --- OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN --- CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. --- - -local cjson = require "cjson" - --- Setup configuration to load last.fm API credentials from -local user, api_key -degesch.setup_config { - user = { - type = "string", - comment = "last.fm username", - on_change = function (v) user = v end - }, - api_key = { - type = "string", - comment = "last.fm API key", - on_change = function (v) api_key = v end - }, -} - --- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - --- Generic error reporting -local report_error = function (buffer, error) - buffer:log ("last-fm error: " .. error) -end - --- Process data return by the server and extract the now playing song -local process = function (buffer, data, action) - -- There's no reasonable Lua package to parse HTTP that I could find - local s, e, v, status, message = string.find (data, "(%S+) (%S+) .+\r\n") - if not s then return "server returned unexpected data" end - if status ~= "200" then return status .. " " .. message end - - local s, e = string.find (data, "\r\n\r\n") - if not s then return "server returned unexpected data" end - - local parser = cjson.new () - data = parser.decode (string.sub (data, e + 1)) - if not data.recenttracks or not data.recenttracks.track then - return "invalid response" end - - -- Need to make some sense of the XML automatically converted to JSON - local text_of = function (node) - if type (node) ~= "table" then return node end - return node["#text"] ~= "" and node["#text"] or nil - end - - local name, artist, album - for i, track in ipairs (data.recenttracks.track) do - if track["@attr"] and track["@attr"].nowplaying then - if track.name then name = text_of (track.name) end - if track.artist then artist = text_of (track.artist) end - if track.album then album = text_of (track.album) end - end - end - - if not name then - action (false) - else - local np = "\"" .. name .. "\"" - if artist then np = np .. " by " .. artist end - if album then np = np .. " from " .. album end - action (np) - end -end - --- Set up the connection and make the request -local on_connected = function (buffer, c, host, action) - -- Buffer data in the connection object - c.data = "" - c.on_data = function (data) - c.data = c.data .. data - end - - -- And process it after we receive everything - c.on_eof = function () - error = process (buffer, c.data, action) - if error then report_error (buffer, error) end - c:close () - end - c.on_error = function (e) - report_error (buffer, e) - end - - -- Make the unencrypted HTTP request - local url = "/2.0/?method=user.getrecenttracks&user=" .. user .. - "&limit=1&api_key=" .. api_key .. "&format=json" - c:send ("GET " .. url .. " HTTP/1.1\r\n") - c:send ("User-agent: last-fm.lua\r\n") - c:send ("Host: " .. host .. "\r\n") - c:send ("Connection: close\r\n") - c:send ("\r\n") -end - --- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - --- Avoid establishing more than one connection at a time -local running - --- Initiate a connection to last.fm servers -async, await = degesch.async, coroutine.yield -local make_request = function (buffer, action) - if not user or not api_key then - report_error (buffer, "configuration is incomplete") - return - end - - if running then running:cancel () end - running = async.go (function () - local c, host, e = await (async.dial ("ws.audioscrobbler.com", 80)) - if e then - report_error (buffer, e) - else - on_connected (buffer, c, host, action) - end - running = nil - end) -end - --- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -local now_playing - -local tell_song = function (buffer) - if now_playing == nil then - buffer:log ("last-fm: I don't know what you're listening to") - elseif not now_playing then - buffer:log ("last-fm: not playing anything right now") - else - buffer:log ("last-fm: now playing: " .. now_playing) - end -end - -local send_song = function (buffer) - if not now_playing then - tell_song (buffer) - else - buffer:execute ("/me is listening to " .. now_playing) - end -end - --- Hook input to simulate new commands -degesch.hook_input (function (hook, buffer, input) - if input == "/np" then - make_request (buffer, function (np) - now_playing = np - send_song (buffer) - end) - elseif input == "/np?" then - make_request (buffer, function (np) - now_playing = np - tell_song (buffer) - end) - elseif input == "/np!" then - send_song (buffer) - else - return input - end -end) diff --git a/plugins/degesch/ping-timeout.lua b/plugins/degesch/ping-timeout.lua deleted file mode 100644 index 6444c0a..0000000 --- a/plugins/degesch/ping-timeout.lua +++ /dev/null @@ -1,32 +0,0 @@ --- --- ping-timeout.lua: ping timeout readability enhancement plugin --- --- Copyright (c) 2015 - 2016, Přemysl Eric Janouch --- --- Permission to use, copy, modify, and/or distribute this software for any --- purpose with or without fee is hereby granted. --- --- THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES --- WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF --- MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY --- SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES --- WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION --- OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN --- CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. --- - -degesch.hook_irc (function (hook, server, line) - local msg = degesch.parse (line) - local start, timeout = line:match ("^(.* :Ping timeout:) (%d+) seconds$") - if msg.command ~= "QUIT" or not start then - return line - end - - local minutes = timeout // 60 - if minutes == 0 then - return line - end - - local seconds = timeout % 60 - return ("%s %d minutes, %d seconds"):format (start, minutes, seconds) -end) diff --git a/plugins/degesch/prime.lua b/plugins/degesch/prime.lua deleted file mode 100644 index 420124f..0000000 --- a/plugins/degesch/prime.lua +++ /dev/null @@ -1,68 +0,0 @@ --- --- prime.lua: highlight prime numbers in messages --- --- Copyright (c) 2020, Přemysl Eric Janouch --- --- Permission to use, copy, modify, and/or distribute this software for any --- purpose with or without fee is hereby granted. --- --- THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES --- WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF --- MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY --- SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES --- WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION --- OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN --- CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. --- - -local smallest, highlight = 0, "\x1f" -degesch.setup_config { - smallest = { - type = "integer", - default = "0", - comment = "smallest number to scan for primality", - on_change = function (v) smallest = math.max (v, 2) end - }, - highlight = { - type = "string", - default = "\"\\x1f\"", - comment = "the attribute to use for highlights", - on_change = function (v) highlight = v end - }, -} - --- The prime test is actually very fast, so there is no DoS concern -local do_intercolour = function (text) - return tostring (text:gsub ("%f[%w_]%d+", function (n) - if tonumber (n) < smallest then return nil end - for i = 2, n ^ (1 / 2) do if (n % i) == 0 then return nil end end - return highlight .. n .. highlight - end)) -end - -local do_interlink = function (text) - local rebuilt, last = {""}, 1 - for start in text:gmatch ('()\x03') do - table.insert (rebuilt, do_intercolour (text:sub (last, start - 1))) - local sub = text:sub (start + 1) - last = start + (sub:match ('^%d%d?,%d%d?()') or sub:match ('^%d?%d?()')) - table.insert (rebuilt, text:sub (start, last - 1)) - end - return table.concat (rebuilt) .. do_intercolour (text:sub (last)) -end - -local do_message = function (text) - local rebuilt, last = {""}, 1 - for run, link, endpos in text:gmatch ('(.-)(%f[%g]https?://%g+)()') do - last = endpos - table.insert (rebuilt, do_interlink (run) .. link) - end - return table.concat (rebuilt) .. do_interlink (text:sub (last)) -end - --- XXX: sadly it won't typically highlight primes in our own messages, --- unless IRCv3 echo-message is on -degesch.hook_irc (function (hook, server, line) - local start, message = line:match ("^(.- PRIVMSG .- :)(.*)$") - return message and start .. do_message (message) or line -end) diff --git a/plugins/degesch/slack.lua b/plugins/degesch/slack.lua deleted file mode 100644 index dcddb3c..0000000 --- a/plugins/degesch/slack.lua +++ /dev/null @@ -1,147 +0,0 @@ --- --- slack.lua: try to fix up UX when using the Slack IRC gateway --- --- Copyright (c) 2017, Přemysl Eric Janouch --- --- Permission to use, copy, modify, and/or distribute this software for any --- purpose with or without fee is hereby granted. --- --- THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES --- WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF --- MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY --- SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES --- WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION --- OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN --- CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. --- - -local servers = {} -local read_servers = function (v) - servers = {} - for name in v:lower ():gmatch "[^,]+" do - servers[name] = true - end -end - --- This is a reverse list of Slack's automatic emoji, noseless forms -local unemojify, emoji, emoji_default = false, {}, { - heart = "<3", - broken_heart = "", - neutral_face = ":|", - open_mouth = ":o", - angry = ">:(", - slightly_smiling_face = ":)", - disappointed = ":(", - confused = ":/", - stuck_out_tongue = ":p", - stuck_out_tongue_winking_eye = ";p", -} -local load_emoji = function (extra) - emoji = {} - for k, v in pairs (emoji_default) do emoji[k] = v end - for k, v in extra:gmatch "([^,]+) ([^,]+)" do emoji[k] = v end -end - -degesch.setup_config { - servers = { - type = "string_array", - default = "\"\"", - comment = "list of server names that are Slack IRC gateways", - on_change = read_servers - }, - unemojify = { - type = "boolean", - default = "true", - comment = "convert emoji to normal ASCII emoticons", - on_change = function (v) unemojify = v end - }, - extra_emoji = { - type = "string_array", - default = "\"grinning :)),joy :'),innocent o:),persevere >_<\"", - comment = "overrides or extra emoji for unemojify", - on_change = function (v) load_emoji (v) end - } -} - --- We can handle external messages about what we've supposedly sent just fine, --- so let's get rid of that "[username] some message sent from the web UI" crap -degesch.hook_irc (function (hook, server, line) - local msg, us = degesch.parse (line), server.user - if not servers[server.name] or msg.command ~= "PRIVMSG" or not us - or msg.params[1]:lower () ~= us.nickname:lower () then return line end - - -- Taking a shortcut to avoid lengthy message reassembly - local quoted_nick = us.nickname:gsub ("[%^%$%(%)%%%.%[%]%*%+%-%?]", "%%%0") - local text = line:match ("^.- PRIVMSG .- :%[" .. quoted_nick .. "%] (.*)$") - if not text then return line end - return ":" .. us.nickname .. "!" .. server.irc_user_host .. " PRIVMSG " - .. msg.prefix:match "^[^!@]*" .. " :" .. text -end) - --- Unfuck emoji and :nick!nick@irc.tinyspeck.com MODE #channel +v nick : active -degesch.hook_irc (function (hook, server, line) - if not servers[server.name] then return line end - if unemojify then - local start, text = line:match ("^(.- PRIVMSG .- :)(.*)$") - if start then return start .. text:gsub (":([a-z_]+):", function (name) - if emoji[name] then return emoji[name] end - return ":" .. name .. ":" - end) end - end - return line:gsub ("^(:%S+ MODE .+) : .*", "%1") -end) - --- The gateway simply ignores the NAMES command altogether -degesch.hook_input (function (hook, buffer, input) - if not buffer.channel or not servers[buffer.server.name] - or not input:match "^/names%s*$" then return input end - - local users = buffer.channel.users - table.sort (users, function (a, b) - if a.prefixes > b.prefixes then return true end - if a.prefixes < b.prefixes then return false end - return a.user.nickname < b.user.nickname - end) - - local names = "Users on " .. buffer.channel.name .. ":" - for i, chan_user in ipairs (users) do - names = names .. " " .. chan_user.prefixes .. chan_user.user.nickname - end - buffer:log (names) -end) - -degesch.hook_completion (function (hook, data, word) - local chan = degesch.current_buffer.channel - local server = degesch.current_buffer.server - if not chan or not servers[server.name] then return end - - -- In /commands there is typically no desire at all to add the at sign - if data.location == 1 and data.words[1]:match "^/" then return end - - -- Handle both when the at sign is already there and when it is not - local needle = word:gsub ("^@", ""):lower () - - local t = {} - local try = function (name) - if data.location == 0 then name = name .. ":" end - if name:sub (1, #needle):lower () == needle then - table.insert (t, "@" .. name) - end - end - for _, chan_user in ipairs (chan.users) do - try (chan_user.user.nickname) - end - for _, special in ipairs { "channel", "here" } do - try (special) - end - return t -end) diff --git a/plugins/degesch/thin-cursor.lua b/plugins/degesch/thin-cursor.lua deleted file mode 100644 index d0fbf38..0000000 --- a/plugins/degesch/thin-cursor.lua +++ /dev/null @@ -1,27 +0,0 @@ --- --- thin-cursor.lua: set a thin cursor --- --- Copyright (c) 2016, Přemysl Eric Janouch --- --- Permission to use, copy, modify, and/or distribute this software for any --- purpose with or without fee is hereby granted. --- --- THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES --- WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF --- MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY --- SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES --- WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION --- OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN --- CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. --- --- If tmux doesn't work, add the following to its configuration: --- set -as terminal-overrides ',*:Ss=\E[%p1%d q:Se=\E[2 q' --- Change the "2" as per http://invisible-island.net/xterm/ctlseqs/ctlseqs.html - -local out = io.output () -out:write ("\x1b[6 q"):flush () - --- By registering a global variable, we get notified about plugin unload -x = setmetatable ({}, { __gc = function () - out:write ("\x1b[2 q"):flush () -end }) diff --git a/plugins/degesch/utm-filter.lua b/plugins/degesch/utm-filter.lua deleted file mode 100644 index 63f85e3..0000000 --- a/plugins/degesch/utm-filter.lua +++ /dev/null @@ -1,62 +0,0 @@ --- --- utm-filter.lua: filter out Google Analytics bullshit from URLs --- --- Copyright (c) 2015, Přemysl Eric Janouch --- --- Permission to use, copy, modify, and/or distribute this software for any --- purpose with or without fee is hereby granted. --- --- THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES --- WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF --- MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY --- SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES --- WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION --- OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN --- CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. --- - --- A list of useless URL parameters that don't affect page function -local banned = { - gclid = 1, - - utm_source = 1, - utm_medium = 1, - utm_term = 1, - utm_content = 1, - utm_campaign = 1, -} - --- Go through a parameter list and throw out any banned elements -local do_args = function (args) - local filtered = {} - for part in args:gmatch ("[^&]+") do - if not banned[part:match ("^[^=]*")] then - table.insert (filtered, part) - end - end - return table.concat (filtered, "&") -end - --- Filter parameters in both the query and the fragment part of an URL -local do_single_url = function (url) - return url:gsub ('^([^?#]*)%?([^#]*)', function (start, query) - local clean = do_args (query) - return #clean > 0 and start .. "?" .. clean or start - end, 1):gsub ('^([^#]*)#(.*)', function (start, fragment) - local clean = do_args (fragment) - return #clean > 0 and start .. "#" .. clean or start - end, 1) -end - -local do_text = function (text) - return text:gsub ('%f[%g]https?://%g+', do_single_url) -end - -degesch.hook_irc (function (hook, server, line) - local start, message = line:match ("^(.* :)(.*)$") - return message and start .. do_text (message) or line -end) - -degesch.hook_input (function (hook, buffer, input) - return do_text (input) -end) -- cgit v1.2.3