tana 0.0.0

data/lib/tana/client.rb

@@ -0,0 +1,20 @@
+# frozen_string_literal: true
+
+module Tana
+  # The primary interface for making API requests.
+  class Client
+    include Import[:configuration]
+
+    def initialize(endpoint: Endpoints::Add::Action.new, **)
+      @endpoint = endpoint
+      super(**)
+      yield configuration if block_given?
+    end
+
+    def add(...) = endpoint.call(...)
+
+    private
+
+    attr_reader :endpoint
+  end
+end

data/lib/tana/configuration/content.rb

@@ -0,0 +1,8 @@
+# frozen_string_literal: true
+
+module Tana
+  module Configuration
+    # Defines the content of the client configuration for API requests.
+    Content = Struct.new :accept, :token, :url
+  end
+end

data/lib/tana/configuration/loader.rb

@@ -0,0 +1,29 @@
+# frozen_string_literal: true
+
+require "refinements/string"
+
+module Tana
+  module Configuration
+    # Handles loading of configuration with environment defaults.
+    class Loader
+      using Refinements::String
+
+      def initialize model = Content, environment: ENV
+        @model = model
+        @environment = environment
+      end
+
+      def call
+        model[
+          accept: environment.fetch("TANA_API_ACCEPT", "application/json"),
+          token: environment["TANA_API_TOKEN"],
+          url: environment.fetch("TANA_API_URL", "https://europe-west1-tagr-prod.cloudfunctions.net")
+        ]
+      end
+
+      private
+
+      attr_reader :model, :environment
+    end
+  end
+end

data/lib/tana/container.rb

@@ -0,0 +1,15 @@
+# frozen_string_literal: true
+
+require "dry-container"
+require "http"
+
+module Tana
+  # Defines application dependencies.
+  module Container
+    extend Dry::Container::Mixin
+
+    register(:configuration, memoize: true) { Configuration::Loader.new.call }
+    register(:http) { HTTP }
+    register(:client, memoize: true) { API::Client.new }
+  end
+end

data/lib/tana/endpoints/add/action.rb

@@ -0,0 +1,44 @@
+# frozen_string_literal: true
+
+require "transactable"
+
+module Tana
+  module Endpoints
+    module Add
+      # Handles a repository create action.
+      class Action
+        include Import[:client]
+        include Transactable
+
+        # rubocop:todo Metrics/ParameterLists
+        def initialize(
+          request: Requests::Add.new,
+          response: Responses::Root,
+          model: Models::Root,
+          **
+        )
+          @request = request
+          @response = response
+          @model = model
+          super(**)
+        end
+        # rubocop:enable Metrics/ParameterLists
+
+        def call(body, **)
+          pipe body,
+               validate(request),
+               insert("addToNodeV2", at: 0),
+               insert(**),
+               to(client, :post),
+               try(:parse, catch: JSON::ParserError),
+               validate(response),
+               to(model, :for)
+        end
+
+        private
+
+        attr_reader :request, :response, :model
+      end
+    end
+  end
+end

data/lib/tana/import.rb

@@ -0,0 +1,7 @@
+# frozen_string_literal: true
+
+require "infusible"
+
+module Tana
+  Import = Infusible.with Container
+end

data/lib/tana/models/node.rb

@@ -0,0 +1,19 @@
+# frozen_string_literal: true
+
+require "core"
+
+module Tana
+  module Models
+    # A generic node.
+    Node = Data.define :id, :name, :description, :type, :children do
+      def self.for(**attributes) = new(**attributes.transform_keys!(nodeId: :id))
+
+      def initialize id:, type:, name: nil, description: nil, children: Core::EMPTY_ARRAY
+        updated_children = children.map { |child| self.class.for(**child) }
+        super id:, name:, type:, description:, children: updated_children
+      end
+
+      alias_method :to_hash, :to_h
+    end
+  end
+end

data/lib/tana/models/root.rb

@@ -0,0 +1,16 @@
+# frozen_string_literal: true
+
+require "core"
+
+module Tana
+  module Models
+    # A root node.
+    Root = Data.define :children do
+      def self.for(node: Node, **attributes)
+        attributes.fetch(:children, Core::EMPTY_ARRAY)
+                  .map { |child| node.for(**child) }
+                  .then { |children| new children: }
+      end
+    end
+  end
+end

data/lib/tana/requests/add.rb

@@ -0,0 +1,35 @@
+# frozen_string_literal: true
+
+require "dry/validation"
+require "refinements/array"
+
+module Tana
+  module Requests
+    # Validates an API add request.
+    class Add < Dry::Validation::Contract
+      using Refinements::Array
+
+      TARGETS = ["INBOX", "SCHEMA", /\A[0-9a-z\-_]{12}\Z/i].freeze
+
+      def initialize(targets: TARGETS, **)
+        @targets = targets
+        super(**)
+      end
+
+      json do
+        optional(:targetNodeId).filled :string
+        required(:nodes).value(:array, min_size?: 1).each { hash LevelA }
+      end
+
+      rule :targetNodeId do
+        next unless key? && targets.none? { |target| value.match? target }
+
+        key.failure "is invalid. Use: #{targets.to_usage :or}"
+      end
+
+      private
+
+      attr_reader :targets
+    end
+  end
+end

data/lib/tana/requests/level_a.rb

@@ -0,0 +1,12 @@
+# frozen_string_literal: true
+
+require "dry/schema"
+
+module Tana
+  module Requests
+    # Validates the first level of an API request.
+    LevelA = Dry::Schema.JSON parent: Node.schema do
+      optional(:children).value(:array, min_size?: 1).each { hash LevelB }
+    end
+  end
+end

data/lib/tana/requests/level_b.rb

@@ -0,0 +1,12 @@
+# frozen_string_literal: true
+
+require "dry/schema"
+
+module Tana
+  module Requests
+    # Validates the second level of an API request.
+    LevelB = Dry::Schema.JSON parent: Node.schema do
+      optional(:children).value(:array, min_size?: 1).each { hash LevelC }
+    end
+  end
+end

data/lib/tana/requests/level_c.rb

@@ -0,0 +1,12 @@
+# frozen_string_literal: true
+
+require "dry/schema"
+
+module Tana
+  module Requests
+    # Validates the third level of an API request.
+    LevelC = Dry::Schema.JSON parent: Node.schema do
+      optional(:children).value(:array, min_size?: 1).each { hash LevelD }
+    end
+  end
+end

data/lib/tana/requests/level_d.rb

@@ -0,0 +1,12 @@
+# frozen_string_literal: true
+
+require "dry/schema"
+
+module Tana
+  module Requests
+    # Validates the fourth level of an API request.
+    LevelD = Dry::Schema.JSON parent: Node.schema do
+      optional(:children).value(:array, min_size?: 1).each { hash LevelE }
+    end
+  end
+end

data/lib/tana/requests/level_e.rb

@@ -0,0 +1,12 @@
+# frozen_string_literal: true
+
+require "dry/schema"
+
+module Tana
+  module Requests
+    # Validates the fifth level of an API request.
+    LevelE = Dry::Schema.JSON parent: Node.schema do
+      optional(:children).value(:array, min_size?: 1).each { hash LevelF }
+    end
+  end
+end

data/lib/tana/requests/level_f.rb

@@ -0,0 +1,12 @@
+# frozen_string_literal: true
+
+require "dry/schema"
+
+module Tana
+  module Requests
+    # Validates the sixth level of an API request.
+    LevelF = Dry::Schema.JSON parent: Node.schema do
+      optional(:children).value(:array, min_size?: 1).each { hash LevelG }
+    end
+  end
+end

data/lib/tana/requests/level_g.rb

@@ -0,0 +1,12 @@
+# frozen_string_literal: true
+
+require "dry/schema"
+
+module Tana
+  module Requests
+    # Validates the seventh level of an API request.
+    LevelG = Dry::Schema.JSON parent: Node.schema do
+      optional(:children).value(:array, min_size?: 1).each { hash LevelH }
+    end
+  end
+end

data/lib/tana/requests/level_h.rb

@@ -0,0 +1,12 @@
+# frozen_string_literal: true
+
+require "dry/schema"
+
+module Tana
+  module Requests
+    # Validates the eight level of an API request.
+    LevelH = Dry::Schema.JSON parent: Node.schema do
+      optional(:children).value(:array, min_size?: 1).each { hash LevelI }
+    end
+  end
+end

data/lib/tana/requests/level_i.rb

@@ -0,0 +1,12 @@
+# frozen_string_literal: true
+
+require "dry/schema"
+
+module Tana
+  module Requests
+    # Validates the ninth level of an API request.
+    LevelI = Dry::Schema.JSON parent: Node.schema do
+      optional(:children).value(:array, min_size?: 1).each { hash Node.schema }
+    end
+  end
+end

data/lib/tana/requests/node.rb

@@ -0,0 +1,46 @@
+# frozen_string_literal: true
+
+require "dry/validation"
+require "refinements/array"
+
+module Tana
+  module Requests
+    # Validates a generic node within an API request.
+    class Node < Dry::Validation::Contract
+      TYPES = %w[boolean date field file plain reference url].freeze
+
+      using Refinements::Array
+
+      def initialize(types: TYPES, **)
+        @types = types
+        super(**)
+      end
+
+      json do
+        optional(:attributeId).filled :string
+        optional(:contentType).filled :string
+        optional(:dataType).filled :string
+        optional(:description).filled :string
+        optional(:file).filled :string
+        optional(:filename).filled :string
+        optional(:id).filled :string
+        optional(:name).filled :string
+        optional(:supertags).array(:hash) { required(:id).filled :string }
+        optional(:type).filled :string
+        optional(:value).filled :bool
+      end
+
+      rule :type do
+        key.failure "is invalid. Use: #{types.to_usage :or}" if key? && !types.include?(value)
+      end
+
+      rule :dataType do
+        key.failure "is invalid. Use: #{types.to_usage :or}" if key? && !types.include?(value)
+      end
+
+      private
+
+      attr_reader :types
+    end
+  end
+end

data/lib/tana/responses/level_a.rb

@@ -0,0 +1,12 @@
+# frozen_string_literal: true
+
+require "dry/schema"
+
+module Tana
+  module Responses
+    # Validates the first level of an API response.
+    LevelA = Dry::Schema.JSON parent: Node do
+      optional(:children).value(:array, min_size?: 1).each { hash LevelB }
+    end
+  end
+end

data/lib/tana/responses/level_b.rb

@@ -0,0 +1,12 @@
+# frozen_string_literal: true
+
+require "dry/schema"
+
+module Tana
+  module Responses
+    # Validates the second level of an API response.
+    LevelB = Dry::Schema.JSON parent: Node do
+      optional(:children).value(:array, min_size?: 1).each { hash LevelC }
+    end
+  end
+end

data/lib/tana/responses/level_c.rb

@@ -0,0 +1,12 @@
+# frozen_string_literal: true
+
+require "dry/schema"
+
+module Tana
+  module Responses
+    # Validates the third level of an API response.
+    LevelC = Dry::Schema.JSON parent: Node do
+      optional(:children).value(:array, min_size?: 1).each { hash LevelD }
+    end
+  end
+end

data/lib/tana/responses/level_d.rb

@@ -0,0 +1,12 @@
+# frozen_string_literal: true
+
+require "dry/schema"
+
+module Tana
+  module Responses
+    # Validates the fourth level of an API response.
+    LevelD = Dry::Schema.JSON parent: Node do
+      optional(:children).value(:array, min_size?: 1).each { hash LevelE }
+    end
+  end
+end

data/lib/tana/responses/level_e.rb

@@ -0,0 +1,12 @@
+# frozen_string_literal: true
+
+require "dry/schema"
+
+module Tana
+  module Responses
+    # Validates the fifth level of an API response.
+    LevelE = Dry::Schema.JSON parent: Node do
+      optional(:children).value(:array, min_size?: 1).each { hash LevelF }
+    end
+  end
+end

data/lib/tana/responses/level_f.rb

@@ -0,0 +1,12 @@
+# frozen_string_literal: true
+
+require "dry/schema"
+
+module Tana
+  module Responses
+    # Validates the sixth level of an API response.
+    LevelF = Dry::Schema.JSON parent: Node do
+      optional(:children).value(:array, min_size?: 1).each { hash LevelG }
+    end
+  end
+end

data/lib/tana/responses/level_g.rb

@@ -0,0 +1,12 @@
+# frozen_string_literal: true
+
+require "dry/schema"
+
+module Tana
+  module Responses
+    # Validates the seventh level of an API response.
+    LevelG = Dry::Schema.JSON parent: Node do
+      optional(:children).value(:array, min_size?: 1).each { hash LevelH }
+    end
+  end
+end

data/lib/tana/responses/level_h.rb

@@ -0,0 +1,12 @@
+# frozen_string_literal: true
+
+require "dry/schema"
+
+module Tana
+  module Responses
+    # Validates the eighth level of an API response.
+    LevelH = Dry::Schema.JSON parent: Node do
+      optional(:children).value(:array, min_size?: 1).each { hash LevelI }
+    end
+  end
+end

data/lib/tana/responses/level_i.rb

@@ -0,0 +1,12 @@
+# frozen_string_literal: true
+
+require "dry/schema"
+
+module Tana
+  module Responses
+    # Validates the ninth level of an API response.
+    LevelI = Dry::Schema.JSON parent: Node do
+      optional(:children).value(:array, min_size?: 1).each { hash Node }
+    end
+  end
+end

data/lib/tana/responses/node.rb

@@ -0,0 +1,15 @@
+# frozen_string_literal: true
+
+require "dry/schema"
+
+module Tana
+  module Responses
+    # Validates a generic node within an API response.
+    Node = Dry::Schema.JSON do
+      optional(:description).filled :string
+      optional(:name).filled :string
+      required(:nodeId).filled :string
+      required(:type).filled :string
+    end
+  end
+end

data/lib/tana/responses/root.rb

@@ -0,0 +1,12 @@
+# frozen_string_literal: true
+
+require "dry/schema"
+
+module Tana
+  module Responses
+    # Validates the root node of an API response.
+    Root = Dry::Schema.JSON do
+      optional(:children).value(:array, min_size?: 1).each { hash LevelA }
+    end
+  end
+end

data/lib/tana.rb

@@ -0,0 +1,24 @@
+# frozen_string_literal: true
+
+require "dry/monads"
+require "dry/validation"
+require "zeitwerk"
+
+Dry::Schema.load_extensions :monads
+Dry::Validation.load_extensions :monads
+
+Zeitwerk::Loader.new.then do |loader|
+  loader.inflector.inflect "api" => "API"
+  loader.tag = File.basename __FILE__, ".rb"
+  loader.push_dir __dir__
+  loader.setup
+end
+
+# Main namespace.
+module Tana
+  def self.loader registry = Zeitwerk::Registry
+    @loader ||= registry.loaders.find { |loader| loader.tag == File.basename(__FILE__, ".rb") }
+  end
+
+  def self.new(...) = Client.new(...)
+end

data/tana.gemspec

@@ -0,0 +1,38 @@
+# frozen_string_literal: true
+
+Gem::Specification.new do |spec|
+  spec.name = "tana"
+  spec.version = "0.0.0"
+  spec.authors = ["Brooke Kuhlmann"]
+  spec.email = ["brooke@alchemists.io"]
+  spec.homepage = "https://alchemists.io/projects/tana"
+  spec.summary = "A monadic API client for the Tana Personal Knowledge Management system."
+  spec.license = "Hippocratic-2.1"
+
+  spec.metadata = {
+    "bug_tracker_uri" => "https://github.com/bkuhlmann/tana/issues",
+    "changelog_uri" => "https://alchemists.io/projects/tana/versions",
+    "documentation_uri" => "https://alchemists.io/projects/tana",
+    "funding_uri" => "https://github.com/sponsors/bkuhlmann",
+    "label" => "Tana",
+    "rubygems_mfa_required" => "true",
+    "source_code_uri" => "https://github.com/bkuhlmann/tana"
+  }
+
+  spec.signing_key = Gem.default_key_path
+  spec.cert_chain = [Gem.default_cert_path]
+
+  spec.required_ruby_version = "~> 3.3"
+  spec.add_dependency "core", "~> 1.0"
+  spec.add_dependency "dry-container", "~> 0.11"
+  spec.add_dependency "dry-monads", "~> 1.6"
+  spec.add_dependency "dry-validation", "~> 1.10"
+  spec.add_dependency "http", "~> 5.1"
+  spec.add_dependency "infusible", "~> 3.0"
+  spec.add_dependency "refinements", "~> 12.0"
+  spec.add_dependency "transactable", "~> 0.10"
+  spec.add_dependency "zeitwerk", "~> 2.6"
+
+  spec.extra_rdoc_files = Dir["README*", "LICENSE*"]
+  spec.files = Dir["*.gemspec", "lib/**/*"]
+end