Moomin middleware for Scala

Moomin.scala

/*
 * Copyright 2013-2020 http4s.org
 *
 * SPDX-License-Identifier: Apache-2.0
 */

package org.http4s.server.middleware

import org.http4s._
import cats.Functor
import cats.data.Kleisli

/** Renders a Moomin in the header of every response.
 * 
 *  @see https://twitter.com/thingskatedid/status/1280745824951996416
 *  @see https://www.asciiart.eu/books/moomintroll
 **/
object Moomin {
  def apply[F[_]: Functor, A, G[_]](
    http: Kleisli[F, A, Response[G]]): Kleisli[F, A, Response[G]] =
    http.map(_.putHeaders(headers: _*))

  val headers = List(
"                              @@@",
"                               .@::               @@",
"                             $ @$@:.           .. @@@",
"                            ..:/ /$.          | $0$$@@",
"                            . $. /@ .. . . . .$/  @@@@@",
"                             |@. /@    :|||  :@   $$@@@ ",
"                            |:@@@@@@@@@@@@@@@@ .@ $$@@@                ",
"                          : @@@@@@@@@@@@@@@@@@$@@ $$#@              ",
"                        .| @@@@@@@@@@@@@@@@@@@@@@@@@$                 ",
"                         :@@@@@@@@@@@@@@@@@@@@@@@@@@@@@",
"                      | $@$::$@@@@@@@@@@@@@@@@@@@@@@@@@",
"                     . @0 @@@ @@@@@@@   :@@@@@@@@@@@@@@",
"                     :/@ @@@@@@@@@@@@@@@  |@@@@@@@@@@@@@   ",
"                    / $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@",
"                    ||@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@",
"                   ..@$ $    @@@@@@|  |$@@@@@@@@@@@@@@@@",
"                   .@0 @     @@@@  $    |@@@@@@@@@@@@@@@  ",
"                  :0@ @@     @@@  @      @@@@@@@@@@@@@@@",
"                .:@@@ @@@@@  @@@ @@@     @@@@@@@@@@@@@@@ ",
"             :.|@@@@@   .   @@@@ @@@@@@  @@@@@@@@@@@@@@@@",
"          |..$@@@@@@@@@@@@@@@@@@   //:  @@@@@@@@@@@@@@@@@    ",
"        : /@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@",
"       .0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@      ",
"    .|0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@",
"    /@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@",
"  .$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@",
"  $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@",
". @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@::#@@@@@@",
" .@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@.  @@@@@@@   ",
" :@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@$  $$@@@@@@@ ",
". @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#  @@@@@@@@@@@",
" |.@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ .@@@@@@@@@@@@@ ",
"  :0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  .@@@@@@@@@@@@@@@",
"     @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@$ .@@@@@@@@@@@@@@@@@@ ",
"      #@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@$  /@@@@@@@@@@@@@@@@@@@",
"      . 0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@$  /@@@@@@@@@@@@@@@@@@@@@@",
"        .: /$@@@@@@@@@@@@@@@@@@@@@@#/  /@@@@@@@@@@@@@@@@@@@@@@@@",
"           . .:$@@@@@@@@@@@@@@@@@@@   /@@@@@@@@@@@@@@@@@@@@@@@@@@",
"               ..      ...::      0$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@",
"               . @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@",
"                @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@",
"             ..@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@",
"            :.@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@$$@@@@@@@@@@@@@@@",
"            :@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@0  .@@@@@@@@@@@@@@@",
"           |/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@: 00@@@@@@@@@@@@@@@@",
"          ..@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/ :@@@@@@@@@@@@@@@@@@",
"       0$@| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@$  /@@@@@@@@@@@@@@@@@@@@",
"    0@@$@$ 0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@$  0@@@@@@@@@@@@@@@@@@@@@@",
"   . 0@@@. @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@$  $@@@@@@@@@@@@@@@@@@@@@@@@",
"  /0..@@@. @@@@@@@@@@@@@@@@@@@@@@@@@@@@0  $@@@@@@@@@@@@@@@.  :@@@@@@@@",
"    @0 @@  @@@@@@@@@@@@@@@@@@@@@@@@@@  .::@@@@@@@@@@@@@@.  |@@@@@@@@@@",
"   /:.@| |$@@@@@@@@@@@@@@@@@@@@@@@@0  $.0@@@@@@@@@@@@@/. :@@@@@@@@@@@@",
"    .  .  0@@@@@@@@@@@@@@@@@@@@@@@@  :. @: $@:@@@@@@@.  $@@@@@@@@@@@@@",
"         .:@@@@@@@@@@@@@@@@@@@@@@@@#0 .@. .@ :@0:@@@   @@@@@@@@@@@@@@@",
"          .@@@@@@@@@@@@@@@@@@@@@@@@@@     $   $ /:   @@@@@@@@@@@@@@@@@",
"          .|@@@@@@@@@@@@@@@@@@@@@@@@@@@@/   :     @@@@@@@@@@@@@@@@@@@@",
"            $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@",
"            .@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@",
"             .@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@",
"             ..@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@",
"                |@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@",
"                . $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@",
"                 . |@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@",
"                     @@@@@@@||@@@@@@@@@@@@| @@@@@@@@@@@@@@@@@@@@",
"                     .$@@@@@0.   /@@#$@$   $@@@@@@@@@@@@@@@@0/@@@@",
"                     ..@@@@@@@@@@#.    . $@@@@@@@@@@@@@@@@@: @@@@@",
"                     | @@@@@@@@@@@:.     #@@@@@@@@@@@@@@@@:.| @@@@@@@",
"                .::|$@@@@@@@@@@@@@:.     #@@@@@@@@@@@@@@@     :.@@@@@@@@                         @@@@ ",
"                #@@@@@@@@@@@@@@$00:    :.|@@@@@@@@@@@@@@/        .:@@@@@@@@@@@@@@             @@@@@@@@@",
"                 . :. .::.. .::   ..:.0@@@@@@@@@@@@@@@@@..          ..@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@",
"                                  .@@@@@@@@@@@@@@@@@@@@                   :|. .@@@@@@@@@@@@@@@@@@@@@@@@@",
"                                     @@@@@@@@@@@@@@@@@@                                     @@@@@@@@@@@",
"                                                                                               @@@@@@@@",
  ).zipWithIndex.map { case (s, i) => Header(f"X-Moomin-$i%02d", s) }
}