kc3-lang/kc3/httpd/fx/app/views/fx_view.kc3

• Show log

  Commit

• Hash : 2744066b
  Author : Thomas de Grivel
  Date : 2024-10-15T21:32:56
  

  fix fx

Download

• httpd/fx/app/views/fx_view.kc3

• defmodule FXView do
  
    require HTML
    require List
    require Str
    require URL
  
    def path_links = fn {
      (path) {
        [_dot | path_list] = Str.split(path, "/")
        path_links(path_list, "/", [])
      }
      ([], _, acc) { List.join(List.reverse(acc), "/") }
      ([first | rest], url, acc) {
        a = """
  <a href="#{URL.escape(url + first)}">#{HTML.escape(first)}</a>
  """
        path_links(rest, "#{url}#{first}/", [a | acc])
      }
    }
  
    def menu_index_template =
      EKC3.load("app/templates/fx/menu_index.html.ekc3")
  
    def index_template =
      EKC3.load("app/templates/fx/index.html.ekc3")
  
    def properties_template =
      EKC3.load("app/templates/fx/properties.html.ekc3")
  
    def show_file_template =
      EKC3.load("app/templates/fx/show_file.html.ekc3")
  
    def render_index = fn (index) {
      EKC3.render(index_template)
    }
  
    def render_menu_index = fn (index) {
      EKC3.render(menu_index_template)
    }
  
    def render_properties = fn (properties) {
      EKC3.render(properties_template)
    }
    
    def render_show_file_preview = fn (path, size) {
      file_size = File.size(path)
      # mime = HTTP.mime_type(File.ext(path))
      mime = system(["file", "-bi", path])
      # puts("mime: #{inspect(mime)}")
      mime_first = (Sym) first(Str.split((Str) mime, "/"))
      # puts("mime_first: #{inspect(mime_first)}")
      file_path = "/file" + Str.slice(path, 4, -1)
      preview = if (mime_first == :image) do
        if (size == :small && file_size > 16024024) do
          ""
        else
          """<img class="#{size}" src="#{URL.escape(file_path)}" alt="#{HTML.escape(path)}" />"""
        end
      else
        if (mime_first == :video) do
          """<video class="#{size}" controls><source src="#{URL.escape(file_path)}" /></video>"""
        else
          if (mime_first == :audio) do
            """<audio class="#{size}" controls src="#{URL.escape(file_path)}" />"""
          else
            if (mime_first == :text ||
                Str.starts_with?(mime, "application/javascript") ||
                mime == "application/x-shellscript\n") do
              file = if (size == :small && file_size > 77) do
                Str.slice(File.read_max(path, 77), 0, 77) + "..."
              else
                File.read_all(path)
              end
              ext = File.ext(path)
              class = if (ext == "kc3" ||
                          ext == "ekc3" ||
                          ext == "facts") do
                "class=\"language-elixir\""
              else
                if (ext != "") do
                  "class=\"language-#{ext}\""
                else
                  if (File.name(path) == "GNUmakefile" ||
                      File.name(path) == "Makefile" ||
                      File.name(path) == "makefile") do
                    "class=\"language-make\""
                  else
                    ""
                  end
                end
              end
              """<pre class="#{size}"><code #{class}>#{HTML.escape(file)}</code>    </pre>"""
            else
              file = if (size == :small) do
                sh_path = Sh.escape(path)
                system(["sh", "-c",
                        "head -n 1 #{sh_path} | cut -b 1-47 | hexdump -C | head -n 3"])
              else
                system(["hexdump", "-C", path])
              end
              """<pre class="#{size}">#{HTML.escape(file)}</pre>"""
            end
          end
        end
      end
      """<span class="size">#{HTML.escape(human_size(file_size))}</span>
         <span class="file">#{HTML.escape(system(["file", "-b", path]))}</span>
         <div class="#{size}">#{preview}<hr /></div>"""
    }
  
    def render_show_file = fn (path, menu, file, properties) {
      nav2 = LayoutView.render_nav2()
      EKC3.render(show_file_template)
    }
  
  end
  

Download