It's a «developers» channel bot that is a great excuse to code haskell.
Uses regex-tdfa, lens, maybes and eithers, megaparsec, http-client-tls. Can be compiled with either nix or stack.
Currently deployed to a droplet inside a NixOS-built container(read more),
together with the open_nsfw neural network, also wrapped in a container.
58:28 ij | zn: ping && čiki
58:29 zn | pong ╱ briki
01:12 ij | zn, 'quote' one 't wo' "three" fou\ r \x66ive
01:12 zn | "one" "t wo" "three" "fou r" "five"
05:34 daGrevis | ij ir kruts parseris ^
05:49 ij | Pašam arī prieks.
06:09 ij | Sanāk, ka komandas var pieprasīt hexā arī tad…
07:06 ij | irb(main):009:0> puts "zn, " + "ping".each_char.map \
| { |x| "\\x#{ x.ord.to_s(16) }" }.join
07:06 ij | zn, \x70\x69\x6e\x67
07:08 zn | pong
07:20 ij | nenu labs
08:23 daGrevis | :D
13:27:02 ij | !echo tada && sleep 120 && ping
13:27:02 vdk | tada && sleep 120 && ping
13:27:02 msks | tada && sleep 120 && ping
13:27:02 zn | tada
13:29:04 zn | pong
15:26 ij | http://www.delfi.lv/news/par-desu-nozagsanu?id=48438569
15:26 zn | Par sešu desu nozagšanu apsūdzēto sievieti izsludina meklēšanā - DELFI
Bonus: NSFW image detection with open_nsfw! The code responsible for this is in this tree.
https://developers.lv/da728bfb-5559-43fd-8682-fb98cd9ee35b :
14:59 snowball | https://i.imgur.com/PPT9zUF.png
14:59 +zn | ¬ image/png · NSFW: 88.6078%
38:53 Tenjou | heya
41:53 Tenjou | so whats new?
43:17 Aleksejs | botofobi izbanoja manu botu no kanāla
44:22 ij | s/([^ ]+) ([^ ]+)/\\2 \\1/g
44:23 zn | izbanoja botofobi botu manu kanāla no
44:41 ij | Bet vismaz strādā ar kārtīgiem regexiem.
This feature sends out the same command to the channel's bots and collects their output.
13:15 ij | !botcast !ping
13:16 zn | agni[pong ], msks[pong], vdk[pong], zn[pong]
(as of 2017-12-19-13:18:10)
-- Args, Pure, Reply, Output(no input/args), Lift(IO), Monad(noargs)
commands :: M.Map Text (Command Text -> Bot ())
commands = M.fromList
[ commandPRA "echo" (T.intercalate " ")
, commandPRA "quote" (\x -> "\"" <> T.intercalate "\" \"" x <> "\"")
, commandPO "version" Zn.version
, commandO "uptime" uptime
, commandLO "uname" $ pack <$> shell "uname -a"
, commandM "reload" reload
, commandA "sleep" $ sleep . read . unpack . head
, commandM "shush" $ do silence .= True; sleep 10; silence .= False
, commandPO "mping" $ "--> !distribute !ping"
, commandRA "distribute" $ botcast . T.intercalate " "
, alias "botcast" "distribute"
, commandO "replies" Replies.list
, commandLO "iesauka" $ pack <$> shell "./lib/names-lv/bundle_wrapper.rb"
, commandRAL "urban" $ urban
-- leaks important data to chan, but might be useful for debugging sometimes
-- , command "dump" (\_ ->
-- (L.unpack . decodeUtf8 . encode . toJSON) <$> getTVar stateTVar)
]