repubmark 0.0.0

data/lib/repubmark/elems/joint.rb

@@ -0,0 +1,176 @@
+# frozen_string_literal: true
+
+module Repubmark
+  module Elems
+    class Joint < Base
+      parents :Caption, :Quote
+
+      def initialize(parent)
+        super parent
+
+        @raw1   = nil
+        @base   = nil
+        @raw2   = nil
+        @notes  = []
+        @raw3   = nil
+
+        @context = nil
+        @context_note = false
+      end
+
+      #################
+      # Basic methods #
+      #################
+
+      def word_count = components.sum(&:word_count)
+
+      def to_summary_plain = components.map(&:to_summary_plain).join.freeze
+
+      def to_html = components.map(&:to_html).join.freeze
+
+      def to_gemtext = components.map(&:to_gemtext).join.freeze
+
+      ########################
+      # Builder methods: Raw #
+      ########################
+
+      def raw(str)
+        text = Text.new self, str
+        if @notes.any?
+          raise 'Joint raw text already exists' if @raw3
+
+          @raw3 = text
+        elsif @base
+          raise 'Joint raw text already exists' if @raw2
+
+          @raw2 = text
+        else
+          raise 'Joint raw text already exists' if @raw1
+
+          @raw1 = text
+        end
+      end
+
+      #########################
+      # Builder methods: Base #
+      #########################
+
+      def abbrev(abbrev, transcript) = base Abbrev.new self, abbrev, transcript
+
+      def bold(str) = base Text.new self, str, bold: true
+
+      def code_inline(str) = base CodeInline.new self, str
+
+      def ellipsis = base Special.new self, :ellipsis
+
+      def fraction(top, bottom) = base Fraction.new self, top, bottom
+
+      def italic(str) = base Text.new self, str, italic: true
+
+      def link(text, uri) = base Link.new self, text, uri
+
+      def link_italic(text, uri) = base Link.new self, text, uri, italic: true
+
+      def mdash = base Special.new self, :mdash
+
+      def power(base, exponent) = base Power.new self, base, exponent
+
+      def quote(str = nil)
+        quote = Quote.new self
+        case [!!str, block_given?]
+        when [true, false] then quote.text str
+        when [false, true] then yield quote
+        else
+          raise 'Invalid args'
+        end
+        base quote
+      end
+
+      def quote_italic(str)
+        quote = Quote.new self
+        quote.italic str
+        base quote
+      end
+
+      def section(*args) = base Section.new self, *args
+
+      def text(str) = base Text.new self, str
+
+      ##########################
+      # Builder methods: Notes #
+      ##########################
+
+      def context(index, category, slug)
+        raise 'Context already given' if @context
+
+        @context = [index, category, slug]
+        nil
+      end
+
+      def context_note
+        raise 'No context given' if @context.nil?
+        raise 'Context already noted' if @context_note
+
+        @context_note = true
+        ref_note(*@context)
+      end
+
+      def ref_note(index, category, slug)
+        note Note.new self, index, category, slug
+      end
+
+    private
+
+      def components
+        raise 'No context note' if @context && !@context_note
+
+        [@raw1, @base, @raw2, *@notes, @raw3].compact
+      end
+
+      def base(elem)
+        raise 'Joint base already exists'   if @base
+        raise 'Joint notes already exist'   if @notes.any?
+
+        @base = elem
+        nil
+      end
+
+      def note(elem)
+        raise 'Joint base does not exists' if @base.nil?
+
+        @notes << elem
+        nil
+      end
+
+      module ForwardingBuilders
+        def joint = raise NotImplementedError, "#{self.class}#joint"
+
+        def abbrev(*args) = joint { |joint| joint.abbrev(*args) }
+
+        def bold(*args) = joint { |joint| joint.bold(*args) }
+
+        def code_inline(*args) = joint { |joint| joint.code_inline(*args) }
+
+        def ellipsis(*args) = joint { |joint| joint.ellipsis(*args) }
+
+        def fraction(*args) = joint { |joint| joint.fraction(*args) }
+
+        def italic(*args) = joint { |joint| joint.italic(*args) }
+
+        def link(*args) = joint { |joint| joint.link(*args) }
+
+        def link_italic(*args) = joint { |joint| joint.link_italic(*args) }
+
+        def mdash(*args) = joint { |joint| joint.mdash(*args) }
+
+        def power(*args) = joint { |joint| joint.power(*args) }
+
+        def quote_italic(*args) = joint { |joint| joint.quote_italic(*args) }
+
+        def section(*args) = joint { |joint| joint.section(*args) }
+
+        def text(*args) = joint { |joint| joint.text(*args) }
+      end
+    end
+  end
+end

data/lib/repubmark/elems/link.rb

@@ -0,0 +1,56 @@
+# frozen_string_literal: true
+
+module Repubmark
+  module Elems
+    class Link < Text
+      parents :Joint
+
+      SCHEMES = %w[http https].freeze
+
+      def initialize(parent, str, uri, **kwargs)
+        super parent, str, **kwargs
+
+        self.uri = uri
+        validate_uri!
+      end
+
+      #################
+      # Basic methods #
+      #################
+
+      def to_html
+        "<a href=\"#{build_uri('.html')}\">#{str_to_html}</a>".freeze
+      end
+
+    private
+
+      attr_reader :uri
+
+      def uri=(uri)
+        @uri = URI.parse(uri).freeze
+      end
+
+      def validate_uri!
+        raise 'Expected normalized URI' unless uri.normalize == uri
+        raise 'Expected no userinfo'    unless uri.userinfo.nil?
+
+        validate_uri_http_absolute!
+      end
+
+      def validate_uri_http_absolute!
+        return unless uri.is_a?(URI::HTTP) && uri.absolute?
+
+        raise 'Invalid scheme'    unless SCHEMES.include? uri.scheme
+        raise 'Expected hostname' unless uri.hostname
+      end
+
+      def build_uri(ext)
+        if uri.is_a?(URI::MailTo) || uri.absolute?
+          uri
+        else
+          own_url "#{uri}#{ext}"
+        end.to_s.freeze
+      end
+    end
+  end
+end

data/lib/repubmark/elems/list.rb

@@ -0,0 +1,84 @@
+# frozen_string_literal: true
+
+module Repubmark
+  module Elems
+    class List < Base
+      parents :Canvas, :ListItem
+
+      def initialize(parent, links:, ordered:)
+        super parent
+
+        @links = !!links
+        @ordered = !!ordered
+
+        @items = []
+      end
+
+      #################
+      # Basic methods #
+      #################
+
+      def word_count = @items.sum(&:word_count)
+
+      def to_summary_plain = @items.map(&:to_summary_plain).join(' ').freeze
+
+      def to_html
+        [
+          "<#{tag_name}>\n",
+          *@items.map(&:to_html),
+          "</#{tag_name}>\n",
+        ].join.freeze
+      end
+
+      def to_gemtext = @items.map(&:to_gemtext).join.freeze
+
+      ##################
+      # Helper methods #
+      ##################
+
+      def level = parent.instance_of?(ListItem) ? parent.level + 1 : 0
+
+      def items_count = @items.count
+
+      def unicode_decor
+        return if level <= 1
+
+        "#{parent.unicode_decor_parent}#{parent.last? ? '⠀ ' : '│ '}"
+      end
+
+      ###################
+      # Builder methods #
+      ###################
+
+      def item(...) = @links ? item_links(...) : item_nolinks(...)
+
+    private
+
+      def parent=(parent)
+        unless parent.instance_of?(Canvas) || parent.instance_of?(ListItem)
+          raise TypeError,
+                "Expected #{Canvas} or #{ListItem}, got #{parent.class}"
+        end
+
+        @parent = parent
+      end
+
+      def tag_name = @ordered ? 'ol' : 'ul'
+
+      def item_nolinks
+        list_item = ListItem.new self, @items.count
+        @items << list_item
+        yield list_item
+        nil
+      end
+
+      def item_links(ref_url, ref_title = nil)
+        titled_ref = TitledRef.new ref_url, ref_title
+        list_item = ListItem.new self, @items.count, titled_ref
+        @items << list_item
+        yield list_item if block_given?
+        nil
+      end
+    end
+  end
+end

data/lib/repubmark/elems/list_item.rb

@@ -0,0 +1,147 @@
+# frozen_string_literal: true
+
+module Repubmark
+  module Elems
+    class ListItem < Base
+      extend Forwardable
+
+      parents :List
+
+      attr_reader :index, :titled_ref
+
+      def initialize(parent, index, titled_ref = nil)
+        super parent
+
+        self.index = index
+        self.titled_ref = titled_ref
+
+        @caption = Caption.new self
+        @sublist = nil
+      end
+
+      #################
+      # Basic methods #
+      #################
+
+      def word_count = @caption.word_count + (@sublist&.word_count || 0)
+
+      def to_summary_plain
+        [
+          @caption.to_summary_plain,
+          @sublist&.to_summary_plain,
+        ].compact.join("\n").freeze
+      end
+
+      def to_html
+        [
+          "<li>\n",
+          build_ref(:html),
+          @caption.to_html,
+          @sublist&.to_html,
+          "</li>\n",
+        ].join.freeze
+      end
+
+      def to_gemtext
+        [
+          if titled_ref
+            "#{build_ref(:gemtext)}#{@caption.to_gemtext}".strip
+          else
+            "* #{unicode_decor_own}#{@caption.to_gemtext}".strip
+          end,
+          @sublist&.to_gemtext,
+        ].join("\n").freeze
+      end
+
+      ##################
+      # Helper methods #
+      ##################
+
+      def level = parent.level
+
+      def last? = index >= parent.items_count - 1
+
+      def unicode_decor_own
+        "#{parent.unicode_decor}#{last? ? '└' : '├'} " unless level.zero?
+      end
+
+      def unicode_decor_parent = parent.unicode_decor
+
+      ###################
+      # Builder methods #
+      ###################
+
+      def subolist
+        raise 'No nested link lists' if titled_ref
+        raise 'Sublist already exists' if @sublist
+
+        @sublist = List.new self, links: false, ordered: true
+        yield @sublist
+        nil
+      end
+
+      def subulist
+        raise 'No nested link lists' if titled_ref
+        raise 'Sublist already exists' if @sublist
+
+        @sublist = List.new self, links: false, ordered: false
+        yield @sublist
+        nil
+      end
+
+      def respond_to_missing?(method_name, _include_private)
+        @caption.respond_to?(method_name) || super
+      end
+
+      def method_missing(method_name, ...)
+        if @caption.respond_to? method_name
+          raise 'Caption after sublist' if @sublist
+
+          @caption.public_send(method_name, ...)
+        else
+          super
+        end
+      end
+
+    private
+
+      def parent=(parent)
+        unless parent.instance_of? List
+          raise TypeError, "Expected #{List}, got #{parent.class}"
+        end
+
+        @parent = parent
+      end
+
+      def index=(index)
+        index = Integer index
+        raise 'Invalid index' if index.negative?
+
+        @index = index
+      end
+
+      def titled_ref=(titled_ref)
+        return @titled_ref = nil if titled_ref.nil?
+
+        unless titled_ref.instance_of? TitledRef
+          raise TypeError, "Expected #{TitledRef}, got #{titled_ref.class}"
+        end
+
+        @titled_ref = titled_ref
+      end
+
+      def build_ref(format)
+        return if titled_ref.nil?
+
+        case format
+        when :html
+          "<a href=\"#{titled_ref.url}\">#{titled_ref.title}</a>\n".freeze
+        when :gemtext
+          "=> #{titled_ref.url} #{unicode_decor_own}#{titled_ref.title} ".freeze
+        else
+          raise 'Invalid format'
+        end
+      end
+    end
+  end
+end

data/lib/repubmark/elems/note.rb

@@ -0,0 +1,40 @@
+# frozen_string_literal: true
+
+module Repubmark
+  module Elems
+    class Note < Base
+      parents :Joint
+
+      def initialize(parent, index, category, slug)
+        super parent
+        @index = index
+        @category = category
+        @slug = slug
+      end
+
+      #################
+      # Basic methods #
+      #################
+
+      def to_html
+        [
+          '<sup>',
+          %(<a href="##{CGI.escape_html(anchor)}">),
+          %([#{CGI.escape_html(@index.to_s)}]),
+          '</a>',
+          '</sup>',
+        ].join.freeze
+      end
+
+      def to_gemtext = "⁽#{index_unicode_sup}⁾".freeze
+
+    private
+
+      def anchor = "#@category-#@slug"
+
+      def index_unicode_sup
+        @index_unicode_sup ||= Repubmark.unicode_sup @index
+      end
+    end
+  end
+end

data/lib/repubmark/elems/paragraph.rb

@@ -0,0 +1,42 @@
+# frozen_string_literal: true
+
+module Repubmark
+  module Elems
+    class Paragraph < Base
+      parents :Canvas
+
+      def initialize(parent)
+        super parent
+        @caption = Caption.new self
+      end
+
+      #################
+      # Basic methods #
+      #################
+
+      def word_count = @caption.word_count
+
+      def to_summary_plain = @caption.to_summary_plain
+
+      def to_html = "<p>\n#{@caption.to_html}</p>\n".freeze
+
+      def to_gemtext = "#{@caption.to_gemtext}\n".freeze
+
+      ###################
+      # Builder methods #
+      ###################
+
+      def respond_to_missing?(method_name, _include_private)
+        @caption.respond_to?(method_name) || super
+      end
+
+      def method_missing(method_name, ...)
+        if @caption.respond_to?(method_name)
+          @caption.public_send(method_name, ...)
+        else
+          super
+        end
+      end
+    end
+  end
+end

data/lib/repubmark/elems/power.rb

@@ -0,0 +1,34 @@
+# frozen_string_literal: true
+
+module Repubmark
+  module Elems
+    class Power < Base
+      parents :Joint
+
+      def initialize(parent, base, exponent)
+        super parent
+
+        @base     = Integer base
+        @exponent = Integer exponent
+      end
+
+      #################
+      # Basic methods #
+      #################
+
+      def word_count = 1
+
+      def to_summary_plain = "#@base#{unicode_exponent}".freeze
+
+      def to_html = "#@base<sup>#@exponent</sup>".freeze
+
+      def to_gemtext = "#@base#{unicode_exponent}".freeze
+
+    private
+
+      def unicode_exponent
+        @unicode_exponent ||= Repubmark.unicode_sup @exponent
+      end
+    end
+  end
+end

data/lib/repubmark/elems/quote.rb

@@ -0,0 +1,53 @@
+# frozen_string_literal: true
+
+module Repubmark
+  module Elems
+    class Quote < Base
+      include Joint::ForwardingBuilders
+
+      parents :Caption, :Joint, :Quote
+
+      def initialize(...)
+        super
+        @items = []
+      end
+
+      #################
+      # Basic methods #
+      #################
+
+      def word_count = @items.sum(&:word_count)
+
+      def to_summary_plain
+        "«#{@items.map(&:to_summary_plain).join(' ')}»".freeze
+      end
+
+      def to_html = "&laquo;#{@items.map(&:to_html).join("\n")}&raquo;".freeze
+
+      def to_gemtext = "«#{@items.map(&:to_gemtext).join(' ')}»".freeze
+
+      ###################
+      # Builder methods #
+      ###################
+
+      def joint
+        joint = Joint.new self
+        yield joint
+        @items << joint
+        nil
+      end
+
+      def quote(str = nil)
+        quote = Quote.new self
+        case [!!str, block_given?]
+        when [true, false] then quote.text str
+        when [false, true] then yield quote
+        else
+          raise 'Invalid args'
+        end
+        @items << quote
+        nil
+      end
+    end
+  end
+end

data/lib/repubmark/elems/section.rb

@@ -0,0 +1,58 @@
+# frozen_string_literal: true
+
+module Repubmark
+  module Elems
+    class Section < Base
+      parents :Joint
+
+      SECT_HTML = '&sect;'
+      SECT_UNICODE = '§'
+
+      attr_reader :count, :text
+
+      def initialize(parent, *args)
+        super parent
+
+        case args.length
+        when 1
+          self.count = 1
+          self.text = args[0]
+        when 2
+          self.count, self.text = args
+        else
+          raise ArgumentError, 'Expected 1 or 2 arguments'
+        end
+      end
+
+      #################
+      # Basic methods #
+      #################
+
+      def word_count = count_words @text
+
+      def to_summary_plain = "#{SECT_UNICODE * count}#{text}".freeze
+
+      def to_html = "#{SECT_HTML * count}#{text}".freeze
+
+      def to_gemtext = "#{SECT_UNICODE * count}#{text}".freeze
+
+    private
+
+      def count=(count)
+        unless count.instance_of? Integer
+          raise TypeError, "Expected #{Integer}, got #{count.class}"
+        end
+        raise 'Expected positive count' unless count.positive?
+
+        @count = count
+      end
+
+      def text=(text)
+        text = String(text).strip.freeze
+        raise 'Expected non-empty text' if text.empty?
+
+        @text = text
+      end
+    end
+  end
+end

data/lib/repubmark/elems/separator.rb

@@ -0,0 +1,17 @@
+# frozen_string_literal: true
+
+module Repubmark
+  module Elems
+    class Separator < Base
+      parents :Canvas
+
+      #################
+      # Basic methods #
+      #################
+
+      def to_html = "<hr/>\n"
+
+      def to_gemtext = "---\n"
+    end
+  end
+end