summaryrefslogtreecommitdiff
path: root/plugins/degesch
diff options
context:
space:
mode:
authorPřemysl Eric Janouch <p@janouch.name>2021-08-06 16:12:15 +0200
committerPřemysl Eric Janouch <p@janouch.name>2021-08-06 16:43:59 +0200
commit50057d5149dda340b3b47aca4096f4a6ec66b9ee (patch)
tree79323d20b17c2c8e32942a1ac9b84d9da3041c6d /plugins/degesch
parent1f64710e795b0c5434d15813d4f1f568467ca087 (diff)
downloadxK-50057d5149dda340b3b47aca4096f4a6ec66b9ee.tar.gz
xK-50057d5149dda340b3b47aca4096f4a6ec66b9ee.tar.xz
xK-50057d5149dda340b3b47aca4096f4a6ec66b9ee.zip
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.
Diffstat (limited to 'plugins/degesch')
-rw-r--r--plugins/degesch/auto-rejoin.lua48
-rw-r--r--plugins/degesch/censor.lua90
-rw-r--r--plugins/degesch/fancy-prompt.lua105
-rw-r--r--plugins/degesch/last-fm.lua178
-rw-r--r--plugins/degesch/ping-timeout.lua32
-rw-r--r--plugins/degesch/prime.lua68
-rw-r--r--plugins/degesch/slack.lua147
-rw-r--r--plugins/degesch/thin-cursor.lua27
-rw-r--r--plugins/degesch/utm-filter.lua62
9 files changed, 0 insertions, 757 deletions
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 <p@janouch.name>
---
--- 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 <p@janouch.name>
---
--- 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 <p@janouch.name>
---
--- 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 .. "<H>" 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 <p@janouch.name>
---
--- 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 <p@janouch.name>
---
--- 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 <p@janouch.name>
---
--- 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 <p@janouch.name>
---
--- 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 = "</3",
- sunglasses = "8)",
- anguished = "D:",
- cry = ":'(",
- monkey_face = ":o)",
- kiss = ":*",
- smiley = "=)",
- smile = ":D",
- wink = ";)",
- laughing = ":>",
- 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 <p@janouch.name>
---
--- 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 <p@janouch.name>
---
--- 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)