Add font-casker tool back

developer/bin/font_casker

@@ -0,0 +1,206 @@
+#!/usr/bin/env ruby
+# frozen_string_literal: true
+
+# rubocop:disable Style/TopLevelMethodDefinition
+
+#
+# font_casker
+#
+# TODO:
+# generate_font_cask_token
+# relevant code is in generate_cask_token
+# font version
+# report/resolve version conflicts
+# cask generation
+# templating
+# constants
+# abbreviations
+# URL
+# from file metadata as in list_url_attributes_on_file
+# homepage
+# from "Vendor URL" field in otfinfo -i output
+#
+
+###
+### system dependencies:
+### lcdf-typetools / other `otfinfo` with identical interface
+###
+
+require "open3"
+require "digest"
+
+###
+### Arguments
+###
+
+ARCHIVE_PATH = ARGV.first.freeze
+
+###
+### Constants
+###
+
+FONT_EXT_PATTERN = /.(otf|ttf)\Z/i
+
+# Font files typically denote their weight, style, and width in the filename.
+# Note that these patterns capture regardless of additional modifiers,
+# e.g. "semibold", "extralight".
+FONT_WEIGHTS = [
+ /black/i,
+ /bold/i,
+ /book/i,
+ /hairline/i,
+ /heavy/i,
+ /light/i,
+ /medium/i,
+ /normal/i,
+ /regular/i,
+ /roman/i,
+ /thin/i,
+ /ultra/i,
+].freeze
+
+FONT_STYLES = [
+ /italic/i,
+ /oblique/i,
+ /roman/i,
+ /slanted/i,
+ /upright/i,
+].freeze
+
+FONT_WIDTHS = [
+ /compressed/i,
+ /condensed/i,
+ /extended/i,
+ /narrow/i,
+ /wide/i,
+].freeze
+
+###
+### Utilia
+###
+
+def mce(enum)
+ enum.group_by { |x| x }
+ .values
+ .max_by(&:size)
+ .first
+end
+
+def eval_bin_cmd(cmd, blob)
+ IO.popen(cmd, "r+b") do |io|
+ io.print(blob)
+ io.close_write
+ io.read
+ end
+end
+
+def font_paths(archive)
+ cmd = ["zipinfo", "-1", archive]
+
+ IO.popen(cmd, "r", &:read)
+ .chomp
+ .split("\n")
+ .grep(FONT_EXT_PATTERN)
+ .reject { |x| x.start_with?("__MACOSX") }
+ .grep_v(%r{(?:\A|/)\._})
+ .sort
+end
+
+def font_blobs(archive, paths)
+ paths.map do |x|
+ IO.popen(["unzip", "-p", archive, x], "rb", &:read)
+ end
+end
+
+###
+### Templating
+###
+
+def stanzify(stanza_name, val = "")
+ if val.respond_to?(:map)
+ val.map { |x| " #{stanza_name} \"#{x}\"" }
+ else
+ " #{stanza_name} \"#{val}\""
+ end
+end
+
+# TODO: named parameters, after switching to Ruby 2.x
+def caskify(family, version, sha, paths)
+ output = ["FAMILY: #{family}"]
+ output << "cask 'FIXME' do"
+ output << stanzify("version", version)
+ output << stanzify("sha256", sha)
+ output << ""
+ output << stanzify("url", "")
+ output << stanzify("name", "")
+ output << stanzify("homepage", "")
+ output << ""
+ output << stanzify("font", paths)
+ output << ""
+ output << "# No zap stanza required"
+ output << "end"
+end
+
+###
+### Values
+###
+
+def shasum(archive)
+ Digest::SHA256.file archive
+end
+
+def font_version(fontblobs)
+ cmd = ["otfinfo", "-v"]
+ versions = fontblobs.map { |x| eval_bin_cmd(cmd, x) }
+ .map { |x| (m = /\A(?:Version\s+)?(\d[^\s,;]*)/i.match(x)) ? m[1] : x.delete("\n") }
+
+ # assumption: the main version is the most common one
+ mce(versions)
+end
+
+def font_family(fontblobs)
+ cmd = ["otfinfo", "-a"]
+ families = fontblobs.map { |x| eval_bin_cmd(cmd, x) }
+ .map { |x| x.delete("\n") }
+
+ # assumption: the main family is the most common one
+ mce(families)
+end
+
+def cask
+ paths = font_paths(ARCHIVE_PATH)
+ blobs = font_blobs(ARCHIVE_PATH, paths)
+
+ caskify(
+ font_family(blobs),
+ font_version(blobs),
+ shasum(ARCHIVE_PATH),
+ paths,
+ )
+end
+
+###
+### main
+###
+
+usage = <<~EOS
+ Usage: font_casker <font_archive.zip>
+
+ Generates cask stanzas from OTF/TTF files within <font_archive>.
+ Currently covers: version, sha, font.
+
+EOS
+
+if /^-+h(elp)?$/i.match?(ARGV.first)
+ puts usage
+ exit 0
+end
+
+if ARGV.length != 1
+ puts usage
+ exit 1
+end
+
+puts cask
+
+# rubocop:enable Style/TopLevelMethodDefinition