syntropy 0.42.0 → 0.44.0

data/examples/gitshabbos/app/_layout/style.css

@@ -0,0 +1,466 @@
+* {
+  border: 0;
+  font: inherit;
+  font-size: 100%;
+  vertical-align: baseline;
+  line-height: 1.5em;
+  margin: 0;
+  padding: 0;
+}
+
+body {
+  font-size: 1.5em;
+  font-family: sans-serif;
+  background-color: #f8f8f8;
+  color: #222;
+}
+
+ul {
+  list-style-position: inside;
+}
+
+@media (max-width: 768px) {
+  body {
+    margin-inline: 1em;
+  }
+}
+
+nav {
+  padding: 0.5em 1em;
+}
+
+header {
+  padding: 0.5em 1em;
+  background-color: #48A;
+  color: #eee;
+
+  h3 {
+    font-weight: bold;
+  }
+
+  code {
+    font-family: ui-monospace, 'Cascadia Code', 'Source Code Pro', Menlo, Consolas, 'DejaVu Sans Mono', monospace;
+  }
+}
+
+content {
+  display: block;
+  padding: 0.5em 1em;
+
+  &:has(main) {
+    display: grid;
+    grid-template-columns: 1fr 12em;
+  }
+}
+
+main {
+  display: block;
+  margin-right: 1em;
+
+  h1,
+  h2,
+  h3 {
+    font-weight: bold;
+    margin-bottom: 0.75em;
+  }
+  
+  h1 {
+    font-size: 1.5em;
+  }
+  
+  h2 {
+    margin-top: 1em;
+    font-size: 1.25em;
+  }
+  
+  h3 {
+    font-size: 1.1em;
+  }
+  
+  small {
+    font-size: 0.8em;
+  }
+  
+  small.date {
+    padding-left: 2em;
+    color: #888;
+  }
+  
+  a {
+    color: #248;
+    font-weight: 600;
+  }
+  
+  a:visited {
+    color: #824;
+  }
+  
+  li {
+    margin-left: 1em;
+    margin-bottom: 0.25em;
+  }
+  
+  ol li {
+    margin-left: 2em;
+  }
+  
+  em {
+    font-style: italic;
+  }
+  
+  strong {
+    font-weight: bold;
+  }
+  
+  p,
+  ul,
+  ol {
+    margin: 0 0 0.75em 0;
+    padding: 0;
+  }
+  
+  p code,
+  li code {
+    color: rgb(66, 146, 41);
+  }
+
+  pre,
+  code {
+    font-family: ui-monospace, 'Cascadia Code', 'Source Code Pro', Menlo, Consolas, 'DejaVu Sans Mono', monospace;
+    font-size: 0.9em;
+    line-height: 1.25em;
+  }
+  
+  pre {
+    padding: 0;
+    overflow-x: scroll;
+    scrollbar-width: none;
+  
+    /* border-left: 3px solid #a8b8c8;
+    padding-left: 12px; */
+  }
+  
+  pre * {
+    line-height: 1em;
+  }
+  
+  pre + p {
+    margin-top: 1em;
+  }
+  
+  pre code {
+    /* margin: 10px; */
+    word-wrap: no;
+  }
+}
+
+sidebar {
+  font-size: 0.9em;
+  display: block;
+  margin-left: 1em;
+
+  ul {
+    list-style: none;
+  }
+}
+
+commits {
+  ul {
+    list-style: none;
+  }
+}
+
+file-content {
+  display: block;
+  pre {
+    background-color: #f8f8f8;
+    color: #d4d4d4;
+    padding: 1rem;
+    border-radius: 6px;
+    font-family: 'Fira Code', Consolas, monospace;
+    overflow-x: auto;
+  }
+  
+  code {
+    counter-reset: line-number;
+    display: block;
+  }
+  
+  .line {
+    display: block;
+    counter-increment: line-number;
+  }
+  
+  .line::before {
+    content: counter(line-number);
+    display: inline-block;
+    width: 2rem;
+    margin-right: 1rem;
+    color: #6e7681;
+    text-align: right;
+    user-select: none; /* Prevents selection when copying */
+    -webkit-user-select: none;
+  }
+}
+
+footer {
+  padding: 0.5em 1em;
+  background-color: #eca;
+}
+
+/* Syntax highlighting */
+div.highlight {
+  margin-bottom: 1em;
+  padding: 1em;
+
+  pre {
+    padding: 0;
+    overflow-x: scroll;
+    scrollbar-width: none;
+    text-align: left;
+  }
+
+  pre * {
+    line-height: 1em;
+  }
+
+  pre + p {
+    margin-top: 1em;
+  }
+
+  pre code {
+    /* margin: 10px; */
+    word-wrap: no;
+  }
+
+  &, * {
+    background: #f0f0f0;
+  }
+  .hll {
+    background-color: #ffffcc;
+  }
+  .c {
+    color: #408080;
+    font-style: italic;
+  } /* Comment */
+  .err {
+    border: 1px solid #ff0000;
+  } /* Error */
+  .k {
+    color: #008000;
+    font-weight: bold;
+  } /* Keyword */
+  .o {
+    color: #666666;
+  } /* Operator */
+  .ch {
+    color: #408080;
+    font-style: italic;
+  } /* Comment.Hashbang */
+  .cm {
+    color: #408080;
+    font-style: italic;
+  } /* Comment.Multiline */
+  .cp {
+    color: #bc7a00;
+  } /* Comment.Preproc */
+  .cpf {
+    color: #408080;
+    font-style: italic;
+  } /* Comment.PreprocFile */
+  .c1 {
+    color: #408080;
+    font-style: italic;
+  } /* Comment.Single */
+  .cs {
+    color: #408080;
+    font-style: italic;
+  } /* Comment.Special */
+  .gd {
+    color: #a00000;
+  } /* Generic.Deleted */
+  .ge {
+    font-style: italic;
+  } /* Generic.Emph */
+  .gr {
+    color: #ff0000;
+  } /* Generic.Error */
+  .gh {
+    color: #000080;
+    font-weight: bold;
+  } /* Generic.Heading */
+  .gi {
+    color: #00a000;
+  } /* Generic.Inserted */
+  .go {
+    color: #888888;
+  } /* Generic.Output */
+  .gp {
+    color: #000080;
+    font-weight: bold;
+  } /* Generic.Prompt */
+  .gs {
+    font-weight: bold;
+  } /* Generic.Strong */
+  .gu {
+    color: #800080;
+    font-weight: bold;
+  } /* Generic.Subheading */
+  .gt {
+    color: #0044dd;
+  } /* Generic.Traceback */
+  .kc {
+    color: #008000;
+    font-weight: bold;
+  } /* Keyword.Constant */
+  .kd {
+    color: #008000;
+    font-weight: bold;
+  } /* Keyword.Declaration */
+  .kn {
+    color: #008000;
+    font-weight: bold;
+  } /* Keyword.Namespace */
+  .kp {
+    color: #008000;
+  } /* Keyword.Pseudo */
+  .kr {
+    color: #008000;
+    font-weight: bold;
+  } /* Keyword.Reserved */
+  .kt {
+    color: #b00040;
+  } /* Keyword.Type */
+  .m {
+    color: #666666;
+  } /* Literal.Number */
+  .s {
+    color: #ba2121;
+  } /* Literal.String */
+  .na {
+    color: #7d9029;
+  } /* Name.Attribute */
+  .nb {
+    color: #008000;
+  } /* Name.Builtin */
+  .nc {
+    color: #0000ff;
+    font-weight: bold;
+  } /* Name.Class */
+  .no {
+    color: #880000;
+  } /* Name.Constant */
+  .nd {
+    color: #aa22ff;
+  } /* Name.Decorator */
+  .ni {
+    color: #999999;
+    font-weight: bold;
+  } /* Name.Entity */
+  .ne {
+    color: #d2413a;
+    font-weight: bold;
+  } /* Name.Exception */
+  .nf {
+    color: #0000ff;
+  } /* Name.Function */
+  .nl {
+    color: #a0a000;
+  } /* Name.Label */
+  .nn {
+    color: #0000ff;
+    font-weight: bold;
+  } /* Name.Namespace */
+  .nt {
+    color: #008000;
+    font-weight: bold;
+  } /* Name.Tag */
+  .nv {
+    color: #19177c;
+  } /* Name.Variable */
+  .ow {
+    color: #aa22ff;
+    font-weight: bold;
+  } /* Operator.Word */
+  .w {
+    color: #bbbbbb;
+  } /* Text.Whitespace */
+  .mb {
+    color: #666666;
+  } /* Literal.Number.Bin */
+  .mf {
+    color: #666666;
+  } /* Literal.Number.Float */
+  .mh {
+    color: #666666;
+  } /* Literal.Number.Hex */
+  .mi {
+    color: #666666;
+  } /* Literal.Number.Integer */
+  .mo {
+    color: #666666;
+  } /* Literal.Number.Oct */
+  .sa {
+    color: #ba2121;
+  } /* Literal.String.Affix */
+  .sb {
+    color: #ba2121;
+  } /* Literal.String.Backtick */
+  .sc {
+    color: #ba2121;
+  } /* Literal.String.Char */
+  .dl {
+    color: #ba2121;
+  } /* Literal.String.Delimiter */
+  .sd {
+    color: #ba2121;
+    font-style: italic;
+  } /* Literal.String.Doc */
+  .s2 {
+    color: #ba2121;
+  } /* Literal.String.Double */
+  .se {
+    color: #bb6622;
+    font-weight: bold;
+  } /* Literal.String.Escape */
+  .sh {
+    color: #ba2121;
+  } /* Literal.String.Heredoc */
+  .si {
+    color: #bb6688;
+    font-weight: bold;
+  } /* Literal.String.Interpol */
+  .sx {
+    color: #008000;
+  } /* Literal.String.Other */
+  .sr {
+    color: #bb6688;
+  } /* Literal.String.Regex */
+  .s1 {
+    color: #ba2121;
+  } /* Literal.String.Single */
+  .ss {
+    color: #19177c;
+  } /* Literal.String.Symbol */
+  .bp {
+    color: #008000;
+  } /* Name.Builtin.Pseudo */
+  .fm {
+    color: #0000ff;
+  } /* Name.Function.Magic */
+  .vc {
+    color: #19177c;
+  } /* Name.Variable.Class */
+  .vg {
+    color: #19177c;
+  } /* Name.Variable.Global */
+  .vi {
+    color: #19177c;
+  } /* Name.Variable.Instance */
+  .vm {
+    color: #19177c;
+  } /* Name.Variable.Magic */
+  .il {
+    color: #666666;
+  } /* Literal.Number.Integer.Long */
+}

data/examples/gitshabbos/app/_lib/git_repository.rb

@@ -0,0 +1,95 @@
+require 'syntropy/mime_types'
+require 'open3'
+
+class GitRepository
+  attr_reader :path, :name, :description, :commits
+  
+  def initialize(path, description)
+    @path = path
+    @rel_re = /^#{path}\//.freeze
+    @files = {}
+    @description = description
+    setup
+  end
+
+  def get(rel_path)
+    item = @files[rel_path]
+    return nil if !item
+    
+    item[:mime_type] ||= Syntropy::MimeTypes[
+      (m = item[:ref].match(/([^\.]+)$/)) && m[1]
+    ]
+    item[:binary] = binary_file?(item[:fn]) if item[:binary].nil?
+    
+    item
+  end
+
+  def list
+    @files.values
+  end
+
+  def advertise_refs
+    `git upload-pack --stateless-rpc --advertise-refs #{@path}`
+  end
+
+  def rpc(machine, service, input, &block)
+    Open3.popen3('git', service, '--stateless-rpc', @path) do |i, o, e, w|
+      puts '*' * 40
+      p 1
+      machine.write(i.fileno, input)
+      p 2
+      machine.close(i.fileno)
+      p 3
+      # io_out = machine.io(o.fileno, :file)
+      p 4
+      buf = +''
+      loop {
+        len = machine.read(o.fileno, buf, 1 << 30)
+        break if len == 0
+        block.(buf)
+      }
+      # io.read_each(&block)
+      p 5
+      w.join
+      p 6
+    end
+  end
+
+  private
+
+  def setup
+    @name = File.basename(@path)
+
+    fn = File.join(@path, '.git/description')
+    @description ||= File.exist?(fn) ? File.read(fn).strip : ""
+
+    r = `git -C #{@path} ls-tree -r --name-only HEAD`
+    files = r.lines.map(&:chomp).map { File.join(@path, it) }. select { File.file?(it) }
+    calc_tree(files)
+
+    @commits = get_commits
+  end
+
+  def calc_tree(files)
+    @readme_fn = files.find { |file_path| file_path =~ /\AREADME(\.md)?\z/ }
+    files.each do |fn|
+      ref = rel_path(fn)
+      item = { fn:, ref: }
+      @files[ref] = item
+    end
+  end
+
+  def rel_path(path)
+    path.gsub(@rel_re, '')
+  end
+
+  def binary_file?(fn)
+    File.binread(fn, 8000).to_s.include?("\0")
+  end
+
+  def get_commits
+    `git log -C #{@path} --date=short --pretty=format:'%h  %ad  %an  %s'`.lines
+  end
+end
+
+export GitRepository

data/examples/gitshabbos/app/_repos.rb

@@ -0,0 +1,10 @@
+GitRepository = import '_lib/git_repository'
+
+repos = {}
+@env[:config][:repositories].each do |d|
+  path = File.expand_path(d[:path])
+  repo = GitRepository.new(path, d[:description])
+  repos[d[:name]] = repo
+end
+
+export repos

data/examples/gitshabbos/app/git/[repo]/git-upload-pack.rb

@@ -0,0 +1,21 @@
+require 'zlib'
+require 'stringio'
+
+repos   = import '/_repos'
+
+export ->(req) {
+  req.validate_http_method('post')
+  repo = repos[req.route_params[:repo]]
+  raise Error.not_found if !repo
+
+  input = req.read
+  input = Zlib::GzipReader.new(StringIO.new(input)).read if req.headers['content-encoding'] == 'gzip'
+
+  req.send_headers(':status' => 200, 'Content-Type' => 'application/x-upload-pack-result')
+  repo.rpc(@machine, 'upload-pack', input) {
+    p len: it.bytesize
+    req.adapter.io.write(it)
+  }
+
+  # req.respond(out, 'Content-Type' => "application/x-upload-pack-result")
+}

data/examples/gitshabbos/app/git/[repo]/info/refs.rb

@@ -0,0 +1,19 @@
+repos   = import '/_repos'
+
+export ->(req) {
+  req.validate_http_method('get')
+  repo = repos[req.route_params[:repo]]
+  raise Error.not_found if !repo
+
+  advertise(req, repo)
+}
+
+def advertise(req, repo)
+  refs = repo.advertise_refs
+  body = pkt("# service=git-upload-pack\n") + '0000' + refs
+  req.respond(body, 'Content-Type' => 'application/x-git-upload-pack-advertisement')
+end
+
+def pkt(line)
+  format('%04x%s', line.bytesize + 4, line)
+end

data/examples/gitshabbos/app/git/[repo]/objects/index+.rb

@@ -0,0 +1,37 @@
+require 'open3'
+
+repos   = import '../../_repos'
+
+export ->(req) {
+  req.validate_http_method('get')
+
+  repo = repos[req.route_params[:repo]]
+  raise Error.not_found if !repo
+
+  puts '*' * 40
+  p query: req.query
+  p rel_path: req.rel_path
+  
+  case req.rel_path
+  when 'info/refs'
+    if req.query['service'] != 'git-upload-pack'
+      raise Error.new('Bad request', HTTP::BAD_REQUEST)
+    end
+    body = generate_info_refs_body(repo.path)
+    req.respond(body, 'Content-Type' => 'Content-Type: application/x-git-upload-pack-advertisement')
+  else
+    raise Error.bad_request
+  end
+}
+
+def generate_info_refs_body(repo_path)
+  # Execute the git CLI command in stateless RPC advertisement mode
+  stdout_str, status = Open3.capture2('git', 'upload-pack', '--stateless-rpc', '--advertise-refs', repo_path)
+  
+  return nil unless status.success?
+
+  # Smart HTTP header prefix: length (001e) + payload + flush packet (0000)
+  header = "001e# service=git-upload-pack\n0000"
+  
+  header + stdout_str
+end

data/examples/gitshabbos/app/git/index+.rb

@@ -0,0 +1,37 @@
+require 'open3'
+
+repos   = import '../../_repos'
+
+export ->(req) {
+  req.validate_http_method('get')
+
+  repo = repos[req.route_params[:repo]]
+  raise Error.not_found if !repo
+
+  puts '*' * 40
+  p query: req.query
+  p rel_path: req.rel_path
+  
+  case req.rel_path
+  when 'info/refs'
+    if req.query['service'] != 'git-upload-pack'
+      raise Error.new('Bad request', HTTP::BAD_REQUEST)
+    end
+    body = generate_info_refs_body(repo.path)
+    req.respond(body, 'Content-Type' => 'Content-Type: application/x-git-upload-pack-advertisement')
+  else
+    raise Error.bad_request
+  end
+}
+
+def generate_info_refs_body(repo_path)
+  # Execute the git CLI command in stateless RPC advertisement mode
+  stdout_str, status = Open3.capture2('git', 'upload-pack', '--stateless-rpc', '--advertise-refs', repo_path)
+  
+  return nil unless status.success?
+
+  # Smart HTTP header prefix: length (001e) + payload + flush packet (0000)
+  header = "001e# service=git-upload-pack\n0000"
+  
+  header + stdout_str
+end

data/examples/gitshabbos/app/index.rb

@@ -0,0 +1,18 @@
+layout = import '_layout/default'
+repos   = import '../../_repos'
+
+template = layout.apply { |repo_list:, **props|
+  content {
+    h2 'Repositories'
+    ul {
+      repo_list.each { |n, u|
+        li { a n, href: u }
+      }
+    }
+  }
+}
+
+export ->(req) {
+  repo_list = repos.transform_values { |r| File.join(@ref, r.name) }
+  req.respond_html(template.render(repo_list:))  
+}

data/examples/gitshabbos/config/Caddyfile

@@ -0,0 +1,5 @@
+localhost {
+  reverse_proxy app_server:1234
+  tls internal
+  encode
+}