elisp2any 0.0.5 → 0.0.6

data/.rdoc_options

@@ -1,2 +0,0 @@
-main_page: README.md
-op_dir: html

data/.rubocop.yml

@@ -1,11 +0,0 @@
-AllCops:
-  TargetRubyVersion: 3.1
-  NewCops: enable
-  DisabledByDefault: true
-
-Layout/LineLength:
-  Enabled: false
-
-Style/FrozenStringLiteralComment:
-  Enabled: true
-  EnforcedStyle: never

data/lib/elisp2any/asciidoc_renderer/index.adoc.erb

@@ -1,15 +0,0 @@
-= <%= name %>
-
-<%= synopsis %>
-
-== Commentary
-
-<% commentary.each do |paragraph| %>
-<%= render_paragraph(paragraph) %>
-<% end %>
-
-== Code
-
-<% code.each do |block| %>
-<%= render_block(block, level: 2) %>
-<% end %>

data/lib/elisp2any/asciidoc_renderer.rb

@@ -1,57 +0,0 @@
-require 'forwardable'
-
-module Elisp2any
-  # This renderer is experimental.
-  class AsciiDocRenderer
-    def initialize(file)
-      @file = file
-    end
-
-    def render
-      erb_renderer('index.adoc.erb')
-    end
-
-    private
-
-    def render_paragraph(paragraph)
-      adoc = ''
-      paragraph.each do |line|
-        line.each do |chunk|
-          case chunk
-          when InlineCode
-            adoc << "``#{chunk.content}``"
-          when String
-            adoc << chunk
-          end
-        end
-      end
-      adoc
-    end
-
-    def render_block(block, level:)
-      adoc = ''
-      case block
-      when Heading
-        prefix = '=' * (level + block.level - 1)
-        adoc << "#{prefix} #{block.content}"
-      when Paragraph
-        adoc << render_paragraph(block)
-      when CodeBlock
-        adoc << <<~ADOC
-          ----
-          #{block.content}
-          ----
-        ADOC
-      end
-      adoc
-    end
-
-    def erb_renderer(path)
-      source = ::File.read(::File.join(__dir__, 'asciidoc_renderer', path))
-      ERB.new(source).result(binding)
-    end
-
-    extend Forwardable # :nodoc:
-    def_delegators :@file, :name, :synopsis, :commentary, :code
-  end
-end

data/lib/elisp2any/file.rb

@@ -1,63 +0,0 @@
-require_relative 'node'
-require_relative 'tree_sitter_parser'
-require "elisp2any/header_line"
-require "elisp2any/blanklines"
-require "elisp2any/commentary"
-require "elisp2any/code"
-require "elisp2any/footer_line"
-
-module Elisp2any
-  class File
-    attr_reader :name, # TODO: filename
-                :synopsis, # TODO: header_line, including description
-                :commentary, :code, :header_line
-
-    def self.scan(scanner)
-      scanner = scanner.read if scanner.respond_to?(:read)
-      scanner = StringScanner.new(scanner) unless scanner.respond_to?(:skip)
-      line = HeaderLine.scan(scanner) or return # TODO: header line
-      Blanklines.scan(scanner) # optional
-      commentary = Commentary.scan(scanner)
-      Blanklines.scan(scanner) # optional
-      code = Code.scan(scanner)
-      footer_line = FooterLine.scan(scanner)
-      footer_line == line.filename or raise Error, "header and footer filename is not same: #{line.filename} and #{footer_line.filename}"
-      Blanklines.scan(scanner) # optional
-      scanner.eos? or raise Error, "extra content after footer line"
-      new(name: line.filename,
-          synopsis: line.description,
-          commentary:,
-          code:,
-          header_line: line)
-    end
-
-    def self.parse(source)
-      source = source.respond_to?(:read) ? source.read : source
-      ts_node = TreeSitterParser.parse(source)
-      first_heading, second_heading, *nodes, last_heading = Node.from_tree_sitter(source, ts_node)
-      name, synopsis = first_heading.name_and_synopsis
-      second_heading.commentary? or raise Error, "no commentary heading: #{second_heading.inspect}"
-      commentary = []
-      until nodes.empty?
-        (node = nodes.shift).code? and break
-        commentary << node
-      end
-      code = nodes
-      last_heading.final_name == name or raise Error, 'different names'
-      new(name: name, synopsis: synopsis, commentary: commentary, code: code)
-    end
-
-    # TODO: Remove nil default from footer line
-    def initialize(name:,
-                   synopsis:,
-                   commentary:,
-                   code:,
-                   header_line: nil) # :nodoc:
-      @name = name
-      @synopsis = synopsis
-      @commentary = commentary
-      @code = code
-      @header_line = header_line
-    end
-  end
-end

data/lib/elisp2any/node.rb

@@ -1,67 +0,0 @@
-require_relative 'codeblock'
-require_relative 'line'
-require_relative 'heading'
-require_relative 'paragraph'
-require 'strscan'
-
-module Elisp2any
-  # TODO: delete
-  class Node
-    attr_reader :range # :nodoc:
-    attr_reader :content
-
-    def self.from_tree_sitter(source, ts_node) #:nodoc:
-      nodes = []
-      (0 ... ts_node.child_count).map { |index| ts_node[index] }.each do |top_level_node|
-        range = top_level_node.start_byte .. top_level_node.end_byte
-        content = source.byteslice(range)
-        node = Node.new(content, range)
-        case top_level_node.type
-        when :comment
-          scanner = StringScanner.new(content)
-          scanner.skip(';') or raise Error, 'no semicolon for comment'
-          scanner.skip(';') or
-            begin
-              (last_node = nodes.last) && last_node.is_a?(Codeblock) or raise Error, 'no prior code for single semicolon comment'
-              last_node.append(source, range.end)
-              next
-            end
-
-          if (level = scanner.skip(/;+/))
-            scanner.skip(' ') or raise Error, 'no space after heading semicolons'
-            nodes << Heading.new(node, level, scanner.rest.chomp)
-            next
-          elsif scanner.skip("\n")
-            next
-          end
-
-          scanner.skip(' ') or raise Error, "no space after semicolons: #{scanner.inspect}"
-          line = Line.parse(scanner.rest)
-          if (last_node = nodes.last) && last_node.is_a?(Paragraph) && last_node.end_row + 1 == top_level_node.start_point.row
-            last_node << line
-          else
-            paragraph = Paragraph.new(node, [line], top_level_node.end_point.row)
-            nodes << paragraph
-          end
-        else
-          if (last_node = nodes.last) && last_node.is_a?(Codeblock)
-            last_node.append(source, range.end)
-          else
-            nodes << Codeblock.new(node)
-          end
-        end
-      end
-      nodes
-    end
-
-    def append(source, end_byte) # :nodoc:
-      @range = range = @range.begin .. end_byte
-      @content = source.byteslice(range)
-    end
-
-    def initialize(content, range) # :nodoc:
-      @content = content
-      @range = range
-    end
-  end
-end

data/lib/elisp2any/tree_sitter_parser.rb

@@ -1,36 +0,0 @@
-require 'tree_sitter'
-
-module Elisp2any
-  class TreeSitterParser # :nodoc:
-    def self.parse(source)
-      new(source).parse
-    end
-
-    def parse
-      @node = parser.parse_string(nil, @source).root_node
-    end
-
-    private
-
-    def initialize(source)
-      @source = source
-    end
-
-    def parser
-      TreeSitter::Parser.new.tap do |p|
-        p.language = TreeSitter::Language.load('elisp', elisp_library)
-      end
-    end
-
-    def elisp_library
-      shared_object = 'libtree-sitter-elisp.so'
-
-      # Set this env var for Guix shell environment or shared object file is not found
-      if ENV['ELISP2ANY_GUIX_USE_PROFILE_PATH']
-        shared_object = ::File.join(ENV["GUIX_ENVIRONMENT"], "lib/tree-sitter", shared_object)
-      end
-
-      shared_object
-    end
-  end
-end

data/manifest.scm

@@ -1,87 +0,0 @@
-(use-modules (guix packages)
-             ((guix licenses) #:prefix license:)
-             (guix git-download)
-             (guix build-system ruby)
-             (guix build-system tree-sitter)
-             (gnu packages tree-sitter)
-             (gnu packages ruby))
-
-(define-public ruby-tree-sitter
-  (let ((commit "2c56b04283f2a8cfed7d6c527ca36b8e1127ee8c")
-        (revision "0"))
-    (package
-     (name "ruby-tree-sitter")
-     (version (git-version "0.20.8.1" revision commit))
-     (source
-      (origin
-       (method git-fetch)
-       (uri (git-reference
-             (url "https://github.com/Faveod/ruby-tree-sitter")
-             (commit commit)))
-       (file-name (git-file-name name version))
-       (sha256
-        (base32 "144kp0ya4rl03bgwpix17bgq2ak2kqk63pwniy6sfxfjqp5yzr7f"))))
-     (build-system ruby-build-system)
-     (arguments
-      (list
-       #:phases #~(modify-phases %standard-phases
-                                 (add-after 'extract-gemspec 'remove-depends
-                                            (lambda _
-                                              (substitute* "tree_sitter.gemspec"
-                                                           ((".*minitest-color.*")
-                                                            "\n")
-                                                           ((".*pry.*")
-                                                            "\n")
-                                                           ((".*rake.*")
-                                                            "\n"))
-                                              (substitute* "test/test_helper.rb"
-                                                           ((".*minitest/color.*")
-                                                            "\n"))))
-                                 (add-before 'build 'compile
-                                             (lambda _
-                                               (invoke "rake" "compile")))
-                                 (add-before 'check 'set-path
-                                             (lambda* (#:key inputs #:allow-other-keys)
-                                               (let ((ruby (assoc-ref inputs "tree-sitter-ruby")))
-                                                 (setenv "TREE_SITTER_PARSERS"
-                                                         (string-append ruby "/lib/tree-sitter")))))
-                                 (add-before 'check 'remove-failing-test
-                                             (lambda _
-                                               (delete-file "test/tree_sitter/node_test.rb"))))))
-     (native-inputs (list ruby-minitest ruby-rake-compiler
-                          ruby-rake-compiler-dock ruby-ruby-memcheck
-                          tree-sitter-ruby))
-     (inputs (list tree-sitter))
-     (synopsis "Ruby bindings for Tree-Sitter")
-     (description "Ruby bindings for Tree-Sitter")
-     (home-page "https://www.github.com/Faveod/ruby-tree-sitter")
-     (license license:expat))))
-
-(define-public tree-sitter-elisp
-  (let ((commit "e5524fdccf8c22fc726474a910e4ade976dfc7bb")
-        (revision "0"))
-    (package
-      (name "tree-sitter-elisp")
-      (version (git-version "0.1.4" revision commit))
-      (source
-       (origin
-         (method git-fetch)
-         (uri (git-reference
-               (url "https://github.com/Wilfred/tree-sitter-elisp")
-               (commit commit)))
-         (file-name (git-file-name name version))
-         (sha256
-          (base32 "1wyzfb27zgpvm4110jgv0sl598mxv5dkrg2cwjw3p9g2bq9mav5d"))))
-      (build-system tree-sitter-build-system)
-      (home-page "https://github.com/Wilfred/tree-sitter-elisp")
-      (synopsis "Tree-sitter grammar for Emacs Lisp")
-      (description "This package provides an Emacs Lisp grammar for the Tree-sitter library.")
-      (license license:expat))))
-
-(concatenate-manifests
- (list
-  (packages->manifest (list ruby-tree-sitter tree-sitter-elisp))
-  (specifications->manifest (list "ruby@3.1"
-                                  "ruby-webrick"
-                                  "ruby-rubocop"
-				                  "ruby-asciidoctor"))))

data/sig/elisp2any.gen.rbs

@@ -1,112 +0,0 @@
-# TypeProf 0.21.3
-
-# Classes
-module Elisp2any
-  VERSION: String
-
-  class AsciiDocRenderer
-    extend Forwardable
-    @file: untyped
-
-    def initialize: (untyped file) -> void
-    def render: -> untyped
-
-    private
-    def render_paragraph: (untyped paragraph) -> String
-    def render_block: (untyped block, level: untyped) -> String
-    def erb_renderer: (String path) -> untyped
-  end
-
-  class CodeBlock
-    extend Forwardable
-    @node: Node
-
-    def initialize: (Node node) -> void
-    def append: (untyped source, untyped end_byte) -> untyped
-  end
-
-  class InlineCode
-    attr_reader content: untyped
-    def initialize: (untyped content) -> void
-  end
-
-  class Line
-    extend Forwardable
-    include Enumerable
-    @chunks: Array[(InlineCode | String)?]
-
-    def initialize: (Array[(InlineCode | String)?] chunks) -> void
-    def self.parse: (String string) -> Line
-  end
-
-  class Heading
-    extend Forwardable
-    @node: Node
-
-    attr_reader level: Integer
-    attr_reader content: String
-    def initialize: (Node node, Integer level, String content) -> void
-    def name_and_synopsis: -> [untyped, untyped]?
-    def commentary?: -> bool
-    def code?: -> bool
-    def final_name: -> String?
-  end
-
-  class Paragraph
-    extend Forwardable
-    include Enumerable
-    @node: Node
-    @lines: [Line]
-
-    attr_reader end_row: untyped
-    def initialize: (Node node, [Line] lines, untyped end_row) -> void
-    def code?: -> false
-  end
-
-  class Node
-    attr_reader range: Range
-    attr_reader content: untyped
-    def self.from_tree_sitter: (untyped source, untyped ts_node) -> (Array[CodeBlock | Heading | Paragraph])
-    def append: (untyped source, untyped end_byte) -> untyped
-    def initialize: (untyped content, Range range) -> void
-  end
-
-  class TreeSitterParser
-    @source: untyped
-    @node: untyped
-
-    def self.parse: (untyped source) -> untyped
-    def parse: -> untyped
-
-    private
-    def initialize: (untyped source) -> void
-    def parser: -> untyped
-    def elisp_library: -> String
-  end
-
-  class File
-    attr_reader name: nil
-    attr_reader synopsis: nil
-    attr_reader commentary: Array[(CodeBlock | Heading | Paragraph)?]
-    attr_reader code: Array[CodeBlock | Heading | Paragraph]
-    def self.parse: (untyped source) -> File
-    def initialize: (name: nil, synopsis: nil, commentary: Array[(CodeBlock | Heading | Paragraph)?], code: Array[CodeBlock | Heading | Paragraph]) -> void
-  end
-
-  class HTMLRenderer
-    extend Forwardable
-    @file: untyped
-
-    def initialize: (untyped file) -> void
-    def render: -> String
-
-    private
-    def render_paragraph: (untyped paragraph) -> String
-    def render_block: (untyped block, level: untyped) -> String
-    def erb_render: (String path) -> String
-    def h: (untyped string) -> String
-  end
-
-  class Error < StandardError
-  end
-end

data/sig/elisp2any.rbs

@@ -1,4 +0,0 @@
-module Elisp2any
-  VERSION: String
-  # See the writing guide of rbs: https://github.com/ruby/rbs#guides
-end