distorted 0.6.0 → 0.7.0

data/lib/distorted/molecule/text.rb

@@ -1,225 +0,0 @@
-require 'set'
-
-require 'charlock_holmes'  # Text file charset detection
-
-require 'distorted/monkey_business/string'  # String#map
-require 'distorted/modular_technology/pango'
-require 'distorted/modular_technology/ttfunk'
-require 'distorted/modular_technology/vips_save'
-
-require 'distorted/checking_you_out'
-require 'distorted/injection_of_love'
-require 'distorted/molecule/image'
-
-
-module Cooltrainer
-  module DistorteD
-    module Text
-
-
-      LOWER_WORLD = CHECKING::YOU::IN(/^text\/(plain|x-nfo)/)
-      OUTER_LIMITS = CHECKING::YOU::IN(/^text\/(plain|x-nfo)/)
-
-      # Track supported fonts by codepage.
-      # Avoid renaming these from the original archives / websites.
-      # Try not to go nuts here bloating the size of our Gem for a
-      # very niche feature, but I want to ensure good coverage too.
-      #
-      # Treat codepage 8859 documents as codepage 1252 to avoid breaking smart-
-      # quotes and other printable chars in 1252 that are control chars in 8859.
-      # https://encoding.spec.whatwg.org/#names-and-labels
-      #
-      # Numeric key for UTF-8 is codepage 65001 like Win32:
-      # https://docs.microsoft.com/en-us/windows/win32/intl/code-page-identifiers
-      FONT_FILENAME = {
-        :anonpro => 'Anonymous Pro.ttf'.freeze,
-        :anonpro_b => 'Anonymous Pro B.ttf'.freeze,
-        :anonpro_bi => 'Anonymous Pro BI.ttf'.freeze,
-        :anonpro_i => 'Anonymous Pro I.ttf'.freeze,
-        :lessperfectdosvga => 'LessPerfectDOSVGA.ttf'.freeze,
-        :moreperfectdisvga => 'MorePerfectDOSVGA.ttf'.freeze,
-        :perfectdosvgawin => 'Perfect DOS VGA 437 Win.ttf'.freeze,
-        :mona => 'mona.ttf'.freeze,
-        :perfectdosvga => 'Perfect DOS VGA 437.ttf'.freeze,
-        :profont => 'ProFontWindows.ttf'.freeze,
-        :profont_b => 'ProFontWindows-Bold.ttf'.freeze,
-      }
-      # Certain fonts are more suitable for certain codepages,
-      # so track each codepage's available fonts…
-      CODEPAGE_FONT = {
-        65001 => [
-          :anonpro,
-          :anonpro_b,
-          :anonpro_bi,
-          :anonpro_i,
-        ],
-        1252 => [
-          :lessperfectdosvga,
-          :moreperfectdosvga,
-          :perfectdosvgawin,
-        ],
-        932 => [
-          :mona,
-        ],
-        850 => [
-          :profont,
-          :profont_b,
-        ],
-        437 => [
-          :perfectdosvga,
-        ],
-      }
-      # …as well as the inverse, the numeric codepage for each font:
-      FONT_CODEPAGE = self::CODEPAGE_FONT.reduce(Hash.new([])) { |memo, (key, values)|
-        values.each { |value| memo[value] = key }
-        memo
-      }
-
-      self::OUTER_LIMITS.each { |t|
-        define_method(t.distorted_method) { |*a, **k, &b|
-          copy_file(*a, **k, &b)
-        }
-      }
-
-      ATTRIBUTES = Set[
-        :alt,
-        :crop,
-        :font,
-        :encoding,
-        :spacing,
-        :dpi,
-      ]
-      ATTRIBUTES_VALUES = {
-        :spacing => Set[:monospace, :proportional],
-        :font => self::FONT_FILENAME.keys.to_set,
-      }
-      ATTRIBUTES_DEFAULT = {
-        :crop => :none,
-        :dpi => 144,
-        :encoding => 'UTF-8'.freeze
-      }
-
-      include Cooltrainer::DistorteD::Technology::TTFunk
-      include Cooltrainer::DistorteD::Technology::Pango
-      include Cooltrainer::DistorteD::Technology::VipsSave
-      include Cooltrainer::DistorteD::InjectionOfLove
-
-      # Using a numeric key for things for simplicity.
-      # TODO: Replace this with Ruby's built-in Encoding class after I have
-      # a better idea what I want to do.
-      def codepage
-        case text_file_encoding
-          when 'UTF-8'.freeze then 65001
-          when 'Shift_JIS'.freeze then 932
-          when 'IBM437'.freeze then 437
-          else 1252
-        end
-      end
-
-      # Return a Pango Markup escaped version of the document.
-      def to_pango
-        # https://developer.gnome.org/glib/stable/glib-Simple-XML-Subset-Parser.html#g-markup-escape-text
-        escaped = text_file_utf8_content.map{ |c|
-          g_markup_escape_char(c)
-        }
-        if font_spacing == :monospace
-          "<tt>" << escaped << "</tt>"
-        else
-          escaped
-        end
-      end
-
-      protected
-
-      def text_file_content
-        # VIPS makes us provide the text content as a single variable,
-        # so we may as well just one-shot File.read() it into memory.
-        # https://kunststube.net/encoding/
-        @text_file_content ||= File.read(path)
-      end
-
-      def text_file_utf8_content
-        CharlockHolmes::Converter.convert(text_file_content, text_file_encoding, 'UTF-8'.freeze)
-      end
-
-      def text_file_encoding
-        # It's not easy or even possible in some cases to tell the "true" codepage
-        # we should use for any given text document, but using character detection
-        # is worth a shot if the user gave us nothing.
-        #
-        # TODO: Figure out if/how we can get IBM437 files to not be detected as ISO-8859-1
-        @text_file_encoding ||= (
-          abstract(:encoding).to_s ||
-          CharlockHolmes::EncodingDetector.detect(text_file_content)[:encoding] ||
-          'UTF-8'.freeze
-        ).to_s
-      end
-
-      def vips_font
-        # Set the shorthand Symbol key for our chosen font.
-        return abstract(:font)&.to_sym || CODEPAGE_FONT[codepage].first
-      end
-
-      def to_vips_image
-        # Load font metadata directly from the file so we don't have to
-        # duplicate it here to feed to Vips/Pango.
-        #
-        # irb(main)> font_meta.name.font_name
-        # => ["Perfect DOS VGA 437", "\x00P\x00e\x00r\x00f\x00e\x00c\x00t\x00 \x00D\x00O\x00S\x00 \x00V\x00G\x00A\x00 \x004\x003\x007"]
-        # irb(main)> font_meta.name.font_family
-        # => ["Perfect DOS VGA 437", "\x00P\x00e\x00r\x00f\x00e\x00c\x00t\x00 \x00D\x00O\x00S\x00 \x00V\x00G\x00A\x00 \x004\x003\x007"]
-        # irb(main)> font_meta.name.font_subfamily
-        # => ["Regular", "\x00R\x00e\x00g\x00u\x00l\x00a\x00r"]
-        # irb(main)> font_meta.name.postscript_name
-        # => "PerfectDOSVGA437"
-        # irb(main)> font_meta.line_gap
-        # => 0
-
-        # https://libvips.github.io/libvips/API/current/libvips-create.html#vips-text
-        Vips::Image.text(
-          # This string must be well-escaped Pango Markup:
-          # https://developer.gnome.org/pango/stable/pango-Markup.html
-          # However the official function for escaping text is
-          # not implemented in Ruby GLib, so we have to do it ourselves.
-          to_pango,
-          **{
-            # String absolute path to TTF
-            :fontfile => font_path,
-            # It's not enough to just specify the TTF path;
-            # we must also specify a font family, subfamily, and size.
-            :font => "#{font_name} 16",
-            # Space between lines (in Points).
-            :spacing => to_ttfunk.line_gap,
-            :justify => true,  # Requires libvips 8.8
-            :dpi => abstract(:dpi)&.to_i,
-          },
-        )
-      end
-
-      # Return the String absolute path to the TTF file
-      def font_path
-        File.join(
-          File.dirname(__FILE__),  # molecule
-          '..'.freeze,  # distorted
-          '..'.freeze,  # lib
-          '..'.freeze,  # DistorteD-Ruby
-          'font'.freeze,
-          font_codepage.to_s,
-          font_filename,
-        )
-      end
-
-      # Returns the numeric representation of the codepage
-      # covered by our font.
-      def font_codepage
-        FONT_CODEPAGE.dig(vips_font).to_s
-      end
-
-      # Returns the basename (with file extension) of our font.
-      def font_filename
-        FONT_FILENAME.dig(vips_font)
-      end
-
-    end  # Text
-  end  # DistorteD
-end  # Cooltrainer

data/lib/distorted/molecule/video.rb

@@ -1,195 +0,0 @@
-#!/usr/bin/env ruby
-# Tell the user to install the shared library if it's missing.
-begin
-  require 'gst'
-rescue LoadError => le
-  raise unless le.message =~ /libgst/
-
-  # Multiple OS help
-  help = <<~INSTALL
-
-  Please install the GStreamer library for your system.
-  INSTALL
-
-  # Re-raise with install message
-  raise $!, "#{help}\n#{$!}", $!.backtrace
-end
-
-require 'set'
-
-require 'distorted/checking_you_out'
-require 'distorted/injection_of_love'
-
-
-module Cooltrainer
-  module DistorteD
-    module Video
-
-      LOWER_WORLD = CHECKING::YOU::IN(/^video\/mp4/)
-
-      # Attributes for our <video>.
-      # Automatically enabled as attrs for DD Liquid Tag.
-      # https://developer.mozilla.org/en-US/docs/Web/HTML/Element/video#Attributes
-      ATTRIBUTES = Set[:caption]
-
-      # Defaults for HTML Element attributes.
-      # Not every attr has to be listed here.
-      # Many need no default and just won't render.
-      ATTRIBUTES_DEFAULT = {}
-      ATTRIBUTES_VALUES = {}
-      include Cooltrainer::DistorteD::InjectionOfLove
-
-      attr_accessor :dest
-
-
-      def initialize(src, dest, basename)
-        @src = src
-        @dest = dest
-        @basename = basename
-      end
-
-      def rotate(angle=nil)
-        false
-      end
-
-      def clean
-        false
-      end
-
-      def generate
-        self.generate_hls
-        begin
-          self.generate_dash
-        rescue Gst::ParseError::NoSuchElement
-          # This is going away once the new dashsink2 lands in Gst so :effort:
-        end
-      end
-
-      def generate_dash
-        orig_dest = @dest
-        orig_path = @src
-
-        FileUtils.mkdir_p(File.dirname(orig_dest))
-
-        hls_dest = File.join(File.dirname(orig_dest), @basename + '.dash')
-        FileUtils.mkdir_p(hls_dest)
-        Jekyll.logger.debug(@tag_name, "Re-muxing #{orig_path} to #{hls_dest}.")
-
-        #FileUtils.rm(orig_dest) if File.exist?(orig_dest)
-        if not File.file?(orig_dest)
-          FileUtils.cp(orig_path, orig_dest)
-        end
-
-        # https://gstreamer.freedesktop.org/documentation/tools/gst-launch.html?gi-language=c#pipeline-description
-        # TODO: Convert this from parse_launch() pipeline notation to Element objects
-        # TODO: Get source video duration/resolution/etc and use it to compute a
-        #  value for `target-duration`.
-        # TODO: Also support urldecodebin for remote media.
-        pipeline, error = Gst.parse_launch("filesrc name=src ! decodebin name=demux ! videoconvert ! vaapih264enc ! queue2 ! h264parse ! queue2 ! mux.video dashsink name=mux max-files=0 playlist-length=0 target-duration=2 demux. ! audioconvert ! voaacenc ! queue2 ! mux.audio")
-
-        if pipeline.nil?
-          Jekyll.logger.error(@tag_name, "Parse error: #{error.message}")
-          return false
-        end
-
-        filesrc = pipeline.get_by_name('src')
-        filesrc.location = orig_path
-
-        hls_playlist = "#{hls_dest}/#{@basename}.m3u8"
-        hls = pipeline.get_by_name('mux')
-        hls.location = "#{hls_dest}/#{@basename}%05d.ts"
-        hls.playlist_location = hls_playlist
-
-        # TODO: config option for absolute vs relative segment URIs in the playlist.
-        #hls.playlist_root = @url
-
-        # TODO: dashsink support once there is a stable GStreamer release including it:
-        # https://gitlab.freedesktop.org/gstreamer/gst-plugins-bad/merge_requests/704
-
-        pipeline.play
-
-        # Play until End Of Stream
-        event_loop(pipeline)
-
-        pipeline.stop
-
-      end
-
-      def generate_hls
-        orig_dest = @dest
-        orig_path = @src
-
-        FileUtils.mkdir_p(File.dirname(orig_dest))
-
-        hls_dest = File.join(File.dirname(orig_dest), @basename + '.hls')
-        FileUtils.mkdir_p(hls_dest)
-        Jekyll.logger.debug(@tag_name, "Re-muxing #{orig_path} to #{hls_dest}.")
-
-        #FileUtils.rm(orig_dest) if File.exist?(orig_dest)
-        if not File.file?(orig_dest)
-          FileUtils.cp(orig_path, orig_dest)
-        end
-
-        # https://gstreamer.freedesktop.org/documentation/tools/gst-launch.html?gi-language=c#pipeline-description
-        # TODO: Convert this from parse_launch() pipeline notation to Element objects
-        # TODO: Get source video duration/resolution/etc and use it to compute a
-        #  value for `target-duration`.
-        # TODO: Also support urldecodebin for remote media.
-        pipeline, error = Gst.parse_launch("filesrc name=src ! decodebin name=demux ! videoconvert ! vaapih264enc ! queue2 ! h264parse ! queue2 ! mux.video hlssink2 name=mux max-files=0 playlist-length=0 target-duration=2 demux. ! audioconvert ! voaacenc ! queue2 ! mux.audio")
-
-        if pipeline.nil?
-          Jekyll.logger.error(@tag_name, "Parse error: #{error.message}")
-          return false
-        end
-
-        filesrc = pipeline.get_by_name('src')
-        filesrc.location = orig_path
-
-        hls_playlist = "#{hls_dest}/#{@basename}.m3u8"
-        hls = pipeline.get_by_name('mux')
-        hls.location = "#{hls_dest}/#{@basename}%05d.ts"
-        hls.playlist_location = hls_playlist
-
-        # TODO: config option for absolute vs relative segment URIs in the playlist.
-        #hls.playlist_root = @url
-
-        # TODO: dashsink support once there is a stable GStreamer release including it:
-        # https://gitlab.freedesktop.org/gstreamer/gst-plugins-bad/merge_requests/704
-
-        pipeline.play
-
-        # Play until End Of Stream
-        event_loop(pipeline)
-
-        pipeline.stop
-
-        # HACK HACK HACK: Replace X-ALLOW-CACHE line in playlist with YES.
-        # This property does not seem to be exposed to the outside of hlssink:
-        # https://cgit.freedesktop.org/gstreamer/gst-plugins-bad/tree/ext/hls/gsthlssink.c
-        text = File.read(hls_playlist)
-        File.write(hls_playlist, text.gsub(/^#EXT-X-ALLOW-CACHE:NO$/, '#EXT-X-ALLOW-CACHE:YES'))
-      end
-
-      def event_loop(pipeline)
-        running = true
-        bus = pipeline.bus
-
-        while running
-          message = bus.poll(Gst::MessageType::ANY, -1)
-
-          case message.type
-          when Gst::MessageType::EOS
-            running = false
-          when Gst::MessageType::WARNING
-            warning, _debug = message.parse_warning
-            Jekyll.logger.warning(@tag_name, warning)
-          when Gst::MessageType::ERROR
-            error, _debug = message.parse_error
-            Jekyll.logger.error(@tag_name, error)
-            running = false
-          end
-        end
-      end
-    end  # Image
-  end  # DistorteD
-end  # Cooltrainer

data/lib/distorted/monkey_business/mnemoniq.rb

@@ -1,8 +0,0 @@
-require 'mime/types'
-
-# MIME::Types#preferred_extension returns @extensions.first unless
-# otherwise set. I don't like some of the defaults, so this file
-# changes them.
-# Normally I don't like to monkey patch just on import without calling
-# some method, but this is one time I explicitly want to do that.
-MIME::Types['image/jpeg'].last.preferred_extension = 'jpg'

data/lib/distorted/types/application.yaml

@@ -1,8 +0,0 @@
-# Define our own type to trigger Last Resort instead of abusing application/x-imagemap :)
-- !ruby/object:MIME::Type
-  content-type: application/x.distorted.last-resort
-  encoding: 8bit
-  xrefs:
-    person:
-      - okeeblow
-  registered: false