elisp2any 0.0.6 → 0.0.8

data/lib/elisp/version.rb

@@ -0,0 +1,18 @@
+# Copyright (C) 2025, 2026  gemmaro
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+class Elisp
+  VERSION = "0.0.8"
+end

data/lib/elisp.rb

@@ -1,7 +1,22 @@
-require "strscan"
-require "cgi"
-require "uri"
-
+# Copyright (C) 2025, 2026  gemmaro
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+require "cgi/escape"
+
+# +pandoc_json_object+ methods for some classes means the AST for the
+# Pandoc JSON filter.
 class Elisp
   Error = Class.new(StandardError)
 
@@ -10,67 +25,12 @@ class Elisp
   end
 end
 
-class Elisp::Sidebar
-  def initialize(headings)
-    @headings = headings
-  end
-
-  def html
-    rest = @headings.dup
-    result = +""
-    while (head = rest.shift)
-      level = head.level
-      subheadings = []
-      while (heading = rest.shift)
-        if heading.level > level
-          subheadings << heading
-        else
-          rest.unshift(heading)
-          break
-        end
-      end
-      sub_sidebar =
-        subheadings.empty? ? nil
-          : (html = self.class.new(subheadings).html
-            "<details open>#{html}</details>")
-      content = CGI.escape_html(head.content)
-      result << <<~END_HTML
-        <li>
-          <a href="##{head.html_id}">#{content}</a>
-          #{sub_sidebar}
-        </li>
-      END_HTML
-    end
-    "<ul>#{result}</ul>"
-  end
-end
-
-class PageDelimiter
+class Elisp::PageDelimiter
   def html = "<hr>"
-end
-
-class Elisp::Heading
-  attr_reader :level, :content
-
-  def initialize(content, level: 2)
-    @content = content
-    @level = level
-  end
-
-  def html
-    name = "h#{@level}"
-    content = CGI.escape_html(@content)
-    <<~END_HTML
-      <#{name} id="#{html_id}">
-        #{content}
-        <a href="##{html_id}">#</a>
-      </#{name}>
-    END_HTML
-  end
-
-  def html_id
-    content = CGI.escape(@content)
-    "#{@level}-#{content}"
+  def pandoc_json_object
+    {
+      "t": "HorizontalRule",
+    }
   end
 end
 
@@ -83,6 +43,26 @@ class Elisp::Desc
     content = CGI.escape_html(@content)
     %(<p class="description">#{content}</p>)
   end
+
+  def pandoc_json_object
+    {
+      "t": "Div",
+      "c": [
+        ["", ["description"], []],
+        [
+          {
+            "t": "Para",
+            "c": [
+              {
+                "t": "Str",
+                "c": @content,
+              },
+            ],
+          },
+        ],
+      ],
+    }
+  end
 end
 
 class Elisp::Variables
@@ -95,10 +75,28 @@ class Elisp::Variables
     <<~END_HTML
       <article>
         Header line variables:
-        <pre><code>#{content}</code></pre>
+        <pre class="code"><code>#{content}</code></pre>
       </article>
     END_HTML
   end
+
+  def pandoc_json_object
+    {
+      "t": "Div",
+      "c": [
+        ["", ["header-line-variables"], []],
+        [
+          {
+            "t": "CodeBlock",
+            "c": [
+              ["", ["emacs-lisp-header-line-variables"], []],
+              @content,
+            ],
+          },
+        ],
+      ],
+    }
+  end
 end
 
 class Elisp::MajorPara
@@ -110,6 +108,16 @@ class Elisp::MajorPara
     paras = @paras.map(&:html).join("\n")
     "<article>#{paras}</article>"
   end
+
+  def pandoc_json_object
+    {
+      "t": "Div",
+      "c": [
+        ["", ["major-para"], []],
+        @paras.map(&:pandoc_json_object),
+      ],
+    }
+  end
 end
 
 class Elisp::MinorPara
@@ -121,6 +129,13 @@ class Elisp::MinorPara
     content = Elisp::DocStringParser.new(@content).html
     "<pre>#{content}</pre>"
   end
+
+  def pandoc_json_object
+    {
+      "t": "Para",
+      "c": Elisp::DocStringParser.new(@content).pandoc_json_objects,
+    }
+  end
 end
 
 class Elisp::Code
@@ -136,7 +151,19 @@ class Elisp::Code
     content = CGI.escape_html(@content)
     %(<pre class="code"><code>#{content}</code></pre>)
   end
+
+  def pandoc_json_object
+    {
+      "t": "CodeBlock",
+      "c": [
+        ["", ["emacs-lisp"], []],
+        @content,
+      ],
+    }
+  end
 end
 
 require_relative "elisp/comment"
 require_relative "elisp/parser"
+require_relative "elisp/heading"
+require_relative "elisp/doc_string_parser"

data/sample.md

@@ -0,0 +1,30 @@
+これはページ区切りです：
+
+---
+
+これはコードブロックです：
+
+```emacs-lisp
+(message "hello")
+```
+
+これは有塀divです：
+
+::: majorpara
+段落1つ目。
+
+段落2つ目。
+:::
+
+なお、普通の段落はminor paraです。
+
+行内コード`aaa`を確かめます。
+
+# これは見出しです
+
+生のHTMLリンク https://example.com です。
+生のHTMLリンク <https://example.com> です。
+
+これは著作情報 Copyright (C) gemmaro です。
+
+これは電子メール<gemmaro.dev@gmail.com>です。

metadata

@@ -1,14 +1,13 @@
 --- !ruby/object:Gem::Specification
 name: elisp2any
 version: !ruby/object:Gem::Version
-  version: 0.0.6
+  version: 0.0.8
 platform: ruby
 authors:
 - gemmaro
-autorequire:
 bindir: exe
 cert_chain: []
-date: 2025-06-22 00:00:00.000000000 Z
+date: 1980-01-02 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: rake
@@ -47,6 +46,7 @@ executables:
 extensions: []
 extra_rdoc_files: []
 files:
+- ".envrc"
 - CHANGELOG.md
 - Gemfile
 - LICENSE.txt
@@ -56,27 +56,12 @@ files:
 - fixtures/init.el
 - lib/elisp.rb
 - lib/elisp/comment.rb
+- lib/elisp/default.css
+- lib/elisp/doc_string_parser.rb
+- lib/elisp/heading.rb
 - lib/elisp/parser.rb
-- lib/elisp2any.rb
-- lib/elisp2any/aside.rb
-- lib/elisp2any/blanklines.rb
-- lib/elisp2any/code.rb
-- lib/elisp2any/codeblock.rb
-- lib/elisp2any/comment.rb
-- lib/elisp2any/commentary.rb
-- lib/elisp2any/expression.rb
-- lib/elisp2any/footer_line.rb
-- lib/elisp2any/header_line.rb
-- lib/elisp2any/heading.rb
-- lib/elisp2any/html_renderer.erb
-- lib/elisp2any/html_renderer.rb
-- lib/elisp2any/html_renderer/index.html.erb
-- lib/elisp2any/inline_code.rb
-- lib/elisp2any/line.rb
-- lib/elisp2any/paragraph.rb
-- lib/elisp2any/section.rb
-- lib/elisp2any/text.rb
-- lib/elisp2any/version.rb
+- lib/elisp/version.rb
+- sample.md
 homepage: https://codeberg.org/gemmaro/elisp2any
 licenses:
 - GPL-3.0-or-later
@@ -88,7 +73,6 @@ metadata:
   homepage_uri: https://codeberg.org/gemmaro/elisp2any
   source_code_uri: https://codeberg.org/gemmaro/elisp2any
   wiki_uri: https://codeberg.org/gemmaro/elisp2any/wiki
-post_install_message:
 rdoc_options: []
 require_paths:
 - lib
@@ -103,8 +87,7 @@ required_rubygems_version: !ruby/object:Gem::Requirement
     - !ruby/object:Gem::Version
       version: '0'
 requirements: []
-rubygems_version: 3.3.27
-signing_key:
+rubygems_version: 4.0.16
 specification_version: 4
 summary: Converter from Emacs Lisp to some document markup
 test_files: []

data/lib/elisp2any/aside.rb

@@ -1,23 +0,0 @@
-require "elisp2any/comment"
-
-module Elisp2any
-  class Aside
-    def self.scan(scanner)
-      pos = scanner.pos
-      com = Comment.scan(scanner) or return
-      unless com.colons == 1
-        scanner.pos = pos
-        return
-      end
-      new(com.content)
-    end
-
-    def source
-      ";#{@content}\n"
-    end
-
-    def initialize(content)
-      @content = content
-    end
-  end
-end

data/lib/elisp2any/blanklines.rb

@@ -1,20 +0,0 @@
-require "forwardable"
-
-module Elisp2any
-  class Blanklines
-    def self.scan(scanner)
-      scanner = StringScanner.new(scanner) unless scanner.respond_to?(:skip)
-      count = 0
-      count += 1 while !scanner.eos? && scanner.skip(/ *\n/)
-      count.zero? and return
-      new(count)
-    end
-
-    def initialize(count) # :nodoc:
-      @count = count
-    end
-
-    extend Forwardable # :nodoc:
-    def_delegator :@count, :to_i
-  end
-end

data/lib/elisp2any/code.rb

@@ -1,49 +0,0 @@
-require "forwardable"
-require "elisp2any/paragraph"
-require "elisp2any/blanklines"
-require "elisp2any/section"
-
-module Elisp2any
-  class Code
-    def self.scan(scanner)
-      pos = scanner.pos
-      heading = Elisp2any.scan_top_heading(scanner) or return
-      unless heading == "Code:"
-        scanner.pos = pos
-        return
-      end
-      Blanklines.scan(scanner) # optional
-      paragraphs = []
-      while (par = Paragraph.scan(scanner))
-        paragraphs << par
-        Blanklines.scan(scanner) # optional
-      end
-      blocks = [paragraphs]
-      pos = scanner.pos
-      while (section = Section.scan(scanner))
-        if section.heading.level == 1
-          blocks << section
-          pos = scanner.pos
-        else
-          scanner.pos = pos
-          break
-        end
-      end
-      new(blocks)
-    end
-
-    def initialize(blocks)
-      @blocks = blocks
-    end
-
-    def sections
-      @blocks.drop(1)
-    end
-
-    extend Forwardable # :nodoc:
-    def_delegator :@blocks, :first, :paragraphs
-    def_delegator :@blocks, :each
-
-    include Enumerable
-  end
-end

data/lib/elisp2any/codeblock.rb

@@ -1,56 +0,0 @@
-require "forwardable"
-require "elisp2any/expression"
-require "elisp2any/blanklines"
-require "elisp2any/aside"
-
-module Elisp2any
-  class Codeblock # :nodoc:
-    def self.scan(scanner)
-      scanner = StringScanner.new(scanner) unless scanner.respond_to?(:skip)
-      expressions = []
-      while (exp = Expression.scan(scanner) ||
-                   scanner.scan(/[ \n]+/) ||
-                   Aside.scan(scanner))
-        expressions << exp
-      end
-      expressions.empty? and return
-      Blanklines.scan(scanner) # optional
-      new(:TODO, expressions:)
-    end
-
-    def source
-      @expressions.sum(+"") do |exp|
-        case exp
-        in String
-          exp
-        else
-          exp.source
-        end
-      end
-    end
-
-    # TODO: delete node
-    # TODO: Remove default empty array
-    def initialize(node, expressions: []) # :nodoc:
-      @node = node
-      @expressions = expressions
-    end
-
-    def append(source, end_byte) # :nodoc:
-      @node.append(source, end_byte)
-    end
-
-    def content
-      if @node.respond_to?(:content)
-        @node.content
-      else
-        @expressions
-      end
-    end
-
-    extend Forwardable # :nodoc:
-    def_delegator :@expressions, :each
-
-    include Enumerable
-  end
-end

data/lib/elisp2any/comment.rb

@@ -1,19 +0,0 @@
-module Elisp2any
-  class Comment
-    attr_reader :colons, :content, :padding
-
-    def self.scan(scanner)
-      scanner = StringScanner.new(scanner) unless scanner.respond_to?(:skip)
-      scanner.skip(/(?<colons>;+)(?<padding> *)(?<content>.*)\n?/) or return
-      new(colons: scanner[:colons].size,
-          content: scanner[:content],
-          padding: scanner[:padding])
-    end
-
-    def initialize(colons:, content:, padding:)
-      @colons = colons
-      @content = content
-      @padding = padding
-    end
-  end
-end

data/lib/elisp2any/commentary.rb

@@ -1,32 +0,0 @@
-require "forwardable"
-require "elisp2any/paragraph"
-require "elisp2any/blanklines"
-
-module Elisp2any
-  class Commentary
-    def self.scan(scanner)
-      pos = scanner.pos
-      heading = Elisp2any.scan_top_heading(scanner) or return
-      unless heading == "Commentary:"
-        scanner.pos = pos
-        return
-      end
-      Blanklines.scan(scanner) # optional
-      paragraphs = []
-      while (par = Paragraph.scan(scanner))
-        paragraphs << par
-        Blanklines.scan(scanner) # optional
-      end
-      new(paragraphs)
-    end
-
-    def initialize(paragraphs)
-      @paragraphs = paragraphs
-    end
-
-    extend Forwardable # :nodoc:
-    def_delegators :@paragraphs, :each, :size
-
-    include Enumerable
-  end
-end

data/lib/elisp2any/expression.rb

@@ -1,90 +0,0 @@
-require "strscan"
-
-module Elisp2any
-  class Expression
-    def self.scan(scanner)
-      scanner = StringScanner.new(scanner) unless scanner.respond_to?(:skip)
-      if scanner.skip("(")
-        exps = []
-        while (exp = scan(scanner))
-          exps << exp
-          spaces = scanner.scan(/[ \n]+/)
-          exps << spaces if spaces
-        end
-        scanner.skip(")") or raise Error, scanner.inspect
-        new(exps)
-      elsif scanner.skip("'")
-        exp = scan(scanner) or raise Error, scanner.inspect
-        new({ quoted: exp })
-      elsif scanner.skip("\"")
-        content = +""
-        while !scanner.eos? && !scanner.match?("\\") && !scanner.match?('"')
-          content << scanner.getch
-        end
-        scanner.skip('"') or raise Error, scanner.inspect
-        new(content)
-      elsif scanner.skip("#'")
-        exp = scan(scanner) or raise Error, scanner.inspect
-        new({ function: exp })
-      else
-        name = scanner.scan(/[a-z0-9_?.:-]+/) or return
-        new(name.to_sym)
-      end
-    end
-
-    def source
-      case @content
-      in { quoted: }
-        "'#{self.class.source(quoted)}"
-      in String
-        @content
-      in { function: }
-        "#'#{self.class.source(function)}"
-      in Array
-        result = +"("
-        @content.each { |exp| result << self.class.source(exp) }
-        "#{result})"
-      in Symbol
-        @content.to_s
-      end
-    end
-
-    def self.source(arg)
-      case arg
-      in Symbol
-        arg.to_s
-      in Array
-        result = +"("
-        arg.sum { |ele| result << source(ele) }
-        "#{result})"
-      in Expression
-        arg.source
-      in String
-        arg
-      else
-        raise arg.inspect
-      end
-    end
-
-    def deconstruct_keys(*keys)
-      result = {}
-      keys => [keys]
-      keys.each do |key|
-        case key
-        in :content
-          result[:content] = @content
-        else # nop
-        end
-      end
-      result
-    end
-
-    def deconstruct
-      [*@content]
-    end
-
-    def initialize(content)
-      @content = content
-    end
-  end
-end

data/lib/elisp2any/footer_line.rb

@@ -1,28 +0,0 @@
-require "forwardable"
-
-module Elisp2any
-  class FooterLine
-    def self.scan(scanner)
-      scanner = StringScanner.new(scanner) unless scanner.respond_to?(:pos)
-      pos = scanner.pos
-      heading = Elisp2any.scan_top_heading(scanner) or return
-      cscanner = StringScanner.new(heading)
-      unless (filename = Elisp2any.scan_filename(cscanner))
-        scanner.pos = pos
-        return
-      end
-      unless cscanner.skip(/ ends here\n?/)
-        scanner.pos = pos
-        return
-      end
-      new(filename)
-    end
-
-    def initialize(filename)
-      @filename = filename
-    end
-
-    extend Forwardable # :nodoc:
-    def_delegator :@filename, :==
-  end
-end