From 50152e4abf8bf5d12deae30b56ed3943a02f59da Mon Sep 17 00:00:00 2001
From: Pranshu Sharma <pranshu@bauherren.ovh>
Date: Sun, 1 Jun 2025 13:01:59 +1000
Subject: [PATCH] Perc is finsished

Massive work done. Finished in that the criteria of what it wanted to
do is done, still lot of refining left.

Added directory-local toml, local routing support
---
 Gemfile |   3 ++
 app.rb  | 163 +++++++++++++++++++++++++++++++++-----------------------
 2 files changed, 100 insertions(+), 66 deletions(-)

diff --git a/Gemfile b/Gemfile
index de168e9..cd95677 100644
--- a/Gemfile
+++ b/Gemfile
@@ -12,3 +12,6 @@ gem 'tomlib'
 
 # embeded ruby templating lanuage
 gem 'erb'
+
+# database
+gem 'activerecord'
diff --git a/app.rb b/app.rb
index a8445a1..95cf1a1 100644
--- a/app.rb
+++ b/app.rb
@@ -5,14 +5,15 @@ require 'nokogiri'
 require 'redcarpet'
 require 'tomlib'
 
+$markdown = Redcarpet::Markdown.new(Redcarpet::Render::HTML, tables: true)
+
 $root = "/home/pranshu/Documents/proj/perc/test"
 Dir.chdir $root;
 
-
 class Config
   attr_reader :approved_regex, :layout
   def initialize
-    approved_files = [/\.md$/, /\.erb$/]
+    approved_files = [/\.md$/, /\.e?rb$/]
     @approved_regex = Regexp.union(approved_files)
     toml = Tomlib.load(File.read "config.toml")
 
@@ -26,8 +27,8 @@ $config = Config.new();
 
 class Sidebar
   attr_reader :tree
-  FileNode = Struct.new(:type, :path, :name)
-  DirNode = Struct.new(:type, :path, :name, :files)
+  FileNode = Struct.new(:type, :path, :name, :real)
+  DirNode = Struct.new(:type, :path, :name, :files, :index, :rb_file)
 
   def initialize
     @tree = process_dir "."
@@ -49,7 +50,13 @@ class Sidebar
     builder = Nokogiri::HTML::Builder.new do |doc|
       def deal_with_dir (doc, dir, path)
         doc.li {
-          doc.text dir.path
+          if dir.index
+            doc.a(:href => "/" + path + "/") {
+              doc.text dir.path
+            }
+          else
+            doc.text dir.path
+          end
           doc.ul {
             dir.files.each do |f|
               fpath = File.join(path, f.path)
@@ -68,7 +75,9 @@ class Sidebar
         deal_with_dir doc, @tree, @tree.path
       }
     end
-    @html = builder.to_html().split(/\n/)[1..-1].join
+    # colossus hack, but its fine for perf cause we cache
+    doc = Nokogiri::HTML(builder.to_html())
+    @html = doc.children[1].child.child.child.children[1].to_s
   end
   
   private
@@ -89,22 +98,74 @@ class Sidebar
   end
 
   def process_dir(dir)
-    DirNode.new(:dir, dir, getname(dir),
-                Dir.chdir(dir) do
+    index = false
+    rb_file = false
+    dn = DirNode.new
+    dn.type = :dir
+    dn.files = []
+    temp = Dir.chdir(dir) do
+      ignored = false
+      if File.file? ".perc.toml"
+        toml = Tomlib.load(File.read ".perc.toml")
+        toml["routes"].each do |route|
+          name = route[0]
+          url = route[1]
+          dn.files.push(FileNode.new(:fil, url, name, false))
+        end
+        ignored = toml["ignore"] || false
+        ignored = Regexp.union(ignored)
+      end
       dir_files.map do |f|
         if File.file? f
-          FileNode.new(:file, f, getname(f))
+          if f =~ /index\.(erb|md)$/
+            index = f
+            next nil
+          elsif f =~ /\.rb$/
+            rb_file = f
+            next nil
+          else
+            if ignored and f =~ ignored
+              next nil
+            end
+            next FileNode.new(:file, f, getname(f), true)
+          end
         else
-          process_dir f
+          next process_dir f
         end
       end
-    end)
+    end
+    dn.files = temp.collect + dn.files
+    dn.files = dn.files.compact
+    dn.path = dir
+    dn.rb_file = rb_file
+    dn.name = dn.path
+    dn.index = index
+    # Read dir local config
+    dn
   end
   
 end
 
 $sidebar = Sidebar.new
+def pview(file)
+  body = ""
+  cont = File.read(file) or return "Not found"
+  if (file =~ /\.erb$/)
+    tp = ERB.new(cont)
+    body = tp.result(binding)
+  elsif (file =~ /\.md$/)
+    body = $markdown.render cont    
+  end
+  put_in_layout(body)
+end
 
+Dir["./**/*.rb"].each { |f| load(f) }
+
+def put_in_layout (str)
+  body = str
+  tree = $sidebar.html
+  ERB.new(File.read($config.layout)).result(binding)
+end
 
 class App < Roda
 
@@ -118,67 +179,37 @@ class App < Roda
   end
 
     # Now the saga begins,we transform file_tree into a routing tree
-    def process_dir (r, dir, cdir)
-      p = Proc.new do
-        dir.files.each do |f|
-          dd = File.join(cdir, f.path)
-          if f.type == :dir
-            # f is dir
-            process_dir r, f, dd
-          else
-            # f is a file
-            r.get f.path do
-              pview dd
-            end
+  def process_dir (r, dir, cdir)
+    p = Proc.new do
+      dir.files.each do |f|
+        dd = File.join(cdir, f.path)
+        if f.type == :dir
+          # f is dir
+          process_dir r, f, dd
+        elsif f.real == true
+          # f is a file and is real
+          r.get f.path do
+            pview dd
           end
         end
-        "Whatup"
       end
-      if dir.path == "."
-        p.call
-      else
-        r.on dir.path do
-          p.call
+      if dir.index
+        r.is "" do
+          pview File.join(cdir, dir.index)
         end
       end
+      rf = dir.rb_file
+      if rf
+        eval "r.run #{File.basename(rf,File.extname(rf)).capitalize}"
+      end
+    end
+    if dir.path == "."
+      p.call
+    else
+      r.on dir.path do
+        p.call
+      end
     end
-
-  def tree
-    $sidebar.html
-  end
-  
-  def pview(file)
-    layout = $config.layout
-    tp = ERB.new(File.read(file))
-    body = tp.result(binding)
-    ERB.new(File.read(layout)).result(binding)
   end
   
 end
-
-# class Perc < Sinatra::Application
-#   set :views, "."
-#   set :markdown, :layout_engine => :erb
-#   # @sidebar = Sidebar.new
-  
-#   get "/" do
-#     erb :main, layout: $config.layout
-#   end
-
-#   get "/*.*" do |path, ext|
-#     if ext == "md"
-#       md = markdown File.read(path + ".md"), layout: $config.layout
-      
-#     else
-#       erb path.to_sym, layout: $config.layout
-#     end
-#   end
-
-#   helpers do
-#     def tree
-#       $sidebar.html
-#     end
-#   end
-  
-# end
-