Graybyt3 Was Here

Linux vps-4656817-x.dattaweb.com 5.14.0-570.33.2.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Thu Aug 14 07:37:35 EDT 2025 x86_64
Apache
200.58.107.103

File Name : mark_lines.lua

Description="Marks the lines defined as comma separated list or range in the plug-in parameter (HTML, RTF or Truecolor/xterm256 Escape)."

Categories = {"format", "html", "rtf", "truecolor", "xterm256" }

function syntaxUpdate(desc)

if HL_OUTPUT ~= HL_FORMAT_HTML and HL_OUTPUT ~= HL_FORMAT_XHTML and HL_OUTPUT ~= HL_FORMAT_RTF
      and HL_OUTPUT ~= HL_FORMAT_TRUECOLOR and HL_OUTPUT ~= HL_FORMAT_XTERM256  then
      return
  end

if #HL_PLUGIN_PARAM == 0 then return end

ansiOpenSeq = StoreValue("ansiOpenSeq")

-- we need a dummy kw class to get the line mark colour into the colour map
  if HL_OUTPUT == HL_FORMAT_RTF then
    table.insert( Keywords, { Id=#Keywords+1, List={"HL_RTF_DUMMY" } } )
  end

-- explode (separator, string)
  function explode(d,p)
    local t, ll
    t={}
    ll=0
    if(#p == 1) then
      t[tonumber(p)] = 1
      return t
    end
    while true do
      l=string.find(p,d,ll,true) -- find the next d in the string
      if l~=nil then -- if "not not" found then..
        t[tonumber(string.sub(p,ll,l-1))] = 1
        ll=l+1 -- save just after where we found it for searching next time.
      else
        t[tonumber(string.sub(p,ll))] = 1
        break -- Break at end, as it should be, according to the lua manual.
      end
    end
    return t
  end

function range(p)
    local t, ll
    t={}
    ll=0
    l=string.find(p,'-',ll,true)
    if l~=nil then
      for i=tonumber(string.sub(p,ll,l-1)), tonumber(string.sub(p,l+1)), 1 do
        t[i] = 1
      end
    end
    return t
  end

if (string.find(HL_PLUGIN_PARAM,'-')) == nil then
    linesToMark=explode(',', HL_PLUGIN_PARAM)
  else
    linesToMark=range(HL_PLUGIN_PARAM)
  end

currentLineNumber=0
  currentColumn=0
  markStarts=true
  linesNoIdent = {}

if OnStateChange ~= nil then
    OrigOnStateChange = OnStateChange;
  end

function OnStateChange(oldState, newState, token, groupID, lineno, column)

-- a bit rough using cursor movement and resetting space properties but
    -- this kind of stuff is not intended at all in the core code
    if (HL_OUTPUT==HL_FORMAT_TRUECOLOR or HL_OUTPUT==HL_FORMAT_XTERM256) then
      if  linesToMark[currentLineNumber] then
        OverrideParam("format.spacer", ansiOpenSeq.." ")
        OverrideParam("format.maskws", "true")

if (currentColumn==0) then
          currentColumn = column
          if column> 1 then
            if markStarts then
              io.write("\x1B["..string.format("%d", 1).."C")
            elseif not linesNoIdent[currentLineNumber] then
              io.write("\x1B["..string.format("%d", column).."D")
            end
            io.write(ansiOpenSeq)
            if markStarts then
              io.write(string.rep(" ", column))
              io.write("\x1B["..string.format("%d", column+1).."D")
            elseif not linesNoIdent[currentLineNumber] then
              io.write(string.rep(" ", column))
            end
            markStarts=false
          else
            linesNoIdent[currentLineNumber] = 1
          end
        end
      else
        markStarts=true
        OverrideParam("format.spacer", " ")
        OverrideParam("format.maskws", "false")
      end

end

if OrigOnStateChange then
        return OrigOnStateChange(oldState, newState, token, groupID, lineno, column)
    end
    return newState
  end

function Decorate(token, state)
    if ((HL_OUTPUT==HL_FORMAT_TRUECOLOR or HL_OUTPUT==HL_FORMAT_XTERM256) and linesToMark[currentLineNumber]) then
      return ansiOpenSeq..token
    end
  end

function DecorateLineBegin(lineNumber)
    currentLineNumber = lineNumber
    currentColumn=0

if (linesToMark[currentLineNumber]) then
      if HL_OUTPUT==HL_FORMAT_TRUECOLOR or HL_OUTPUT==HL_FORMAT_XTERM256 then
          OverrideParam("format.spacer", ansiOpenSeq.." ")
          OverrideParam("format.maskws", "true")
          return ansiOpenSeq
      end
      if HL_OUTPUT==HL_FORMAT_RTF then
        patternIdx = 12 + #Keywords  -- Index of the style which was added before
        return '\\chcbpat'..patternIdx..'{'
      end
      return '<span class="hl mark">'
    end
  end

function DecorateLineEnd()
    if (linesToMark[currentLineNumber]) then
      if HL_OUTPUT==HL_FORMAT_TRUECOLOR or HL_OUTPUT==HL_FORMAT_XTERM256 then
          OverrideParam("format.spacer", " ")
          OverrideParam("format.maskws", "false")
          return ""
      end
      if HL_OUTPUT==HL_FORMAT_RTF then
          return '}'
      end
      return '</span>'
    end
  end

end

function themeUpdate(desc)

function lighten(colour, fmt)
    if string.match(colour, "#%x+")==nil then
      return string.format(fmt, 0, 0, 0)
    end

base_rr = ("0x"..string.match(colour, "%x%x", 2))
    base_gg = ("0x"..string.match(colour, "%x%x", 4))
    base_bb = ("0x"..string.match(colour, "%x%x", 6))

min_bright=math.min(base_rr, base_gg, base_bb)
    max_bright=math.max(base_rr, base_gg, base_bb)
    brightness = (min_bright + max_bright) / (255*2.0)

if (brightness < 0.1) then
      return string.format(fmt, 68, 68, 68)
    elseif (brightness < 0.5) then
      percent = 100
    elseif (brightness > 0.95) then
      percent = -10
    else
      percent = 80
    end

rr = math.floor(base_rr * (100 + percent) / 100 )
    gg = math.floor(base_gg * (100 + percent) / 100 )
    bb = math.floor(base_bb * (100 + percent) / 100 )

-- konsole supports up to 0x99, what about other emulators?
    maxval = 255
    if (HL_OUTPUT == HL_FORMAT_TRUECOLOR) then maxval = 153 end
    if (rr>maxval) then rr = maxval end
    if (gg>maxval) then gg = maxval end
    if (bb>maxval) then bb = maxval end

return string.format(fmt, rr, gg, bb)
  end

if (HL_OUTPUT == HL_FORMAT_TRUECOLOR) then
    StoreValue("ansiOpenSeq", lighten(Canvas.Colour, "\x1B[48;2;%03d;%03d;%03dm"))
  elseif (HL_OUTPUT == HL_FORMAT_XTERM256) then
    --https://gist.github.com/MicahElliott/719710/8b8b962033efed8926ad8a8635b0a48630521a67
    lightCanvas = lighten(Canvas.Colour, "%03d %03d %03d")
    rr = tonumber(string.match(lightCanvas, "%d%d%d", 0))
    gg = tonumber(string.match(lightCanvas, "%d%d%d", 4))
    bb = tonumber(string.match(lightCanvas, "%d%d%d", 8))
    approx = math.floor(36 * (rr * 5) + 6 * (gg * 5) + (bb * 5) + 16)
    StoreValue("ansiOpenSeq", "\x1B[48;5;"..approx.."m")
  elseif (HL_OUTPUT == HL_FORMAT_HTML or HL_OUTPUT == HL_FORMAT_XHTML) then
    Injections[#Injections+1]=".hl.mark { background-color:"..lighten(Canvas.Colour, "#%02x%02x%02x").."; width:100%;float:left;}"
  elseif (HL_OUTPUT == HL_FORMAT_RTF) then
    table.insert(Keywords, {Colour=lighten(Canvas.Colour, "#%02x%02x%02x")})
  end
end

Plugins={
  { Type="lang", Chunk=syntaxUpdate },
  { Type="theme", Chunk=themeUpdate },
}

System Information
*ReClick For Close
File : BlackDragon /acciones/about.php

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	0755	2024-11-11 09:23:25
..	dir	-	root/root	0755	2024-11-11 09:23:25
asciidoc_html_add_links.lua	file	1.1 KB	root/root	0644	2022-03-25 07:00:28
bash_functions.lua	file	1.26 KB	root/root	0644	2022-03-25 07:00:28
bash_ref_man7_org.lua	file	22.86 KB	root/root	0644	2022-03-25 07:00:28
comment_links.lua	file	1.94 KB	root/root	0644	2022-03-25 07:00:28
cpp_qt.lua	file	1.26 KB	root/root	0644	2022-03-25 07:00:28
cpp_ref_cplusplus_com.lua	file	8.24 KB	root/root	0644	2022-03-25 07:00:28
cpp_ref_gtk_gnome_org.lua	file	1.75 KB	root/root	0644	2022-03-25 07:00:28
cpp_ref_local_includes.lua	file	2.07 KB	root/root	0644	2022-03-25 07:00:28
cpp_ref_qtproject_org.lua	file	1.52 KB	root/root	0644	2022-03-25 07:00:28
cpp_ref_wxwidgets_org.lua	file	1.81 KB	root/root	0644	2022-03-25 07:00:28
cpp_syslog.lua	file	1.46 KB	root/root	0644	2022-03-25 07:00:28
cpp_wx.lua	file	539 B	root/root	0644	2022-03-25 07:00:28
ctags_html_tooltips.lua	file	1.98 KB	root/root	0644	2022-03-25 07:00:28
java_library.lua	file	58.32 KB	root/root	0644	2022-03-25 07:00:28
keywords_capitalize.lua	file	524 B	root/root	0644	2022-03-25 07:00:28
keywords_lowercase.lua	file	474 B	root/root	0644	2022-03-25 07:00:28
keywords_uppercase.lua	file	474 B	root/root	0644	2022-03-25 07:00:28
latex_single_outfile.lua	file	713 B	root/root	0644	2022-03-25 07:00:28
mark_lines.lua	file	6.61 KB	root/root	0644	2022-03-25 07:00:28
outhtml_add_background_stripes.lua	file	1.78 KB	root/root	0644	2022-03-25 07:00:28
outhtml_add_background_svg.lua	file	2.13 KB	root/root	0644	2022-03-25 07:00:28
outhtml_add_figure.lua	file	681 B	root/root	0644	2022-03-25 07:00:28
outhtml_add_line.lua	file	738 B	root/root	0644	2022-03-25 07:00:28
outhtml_add_shadow.lua	file	1.23 KB	root/root	0644	2022-03-25 07:00:28
outhtml_ansi_esc.lua	file	494 B	root/root	0644	2022-03-25 07:00:28
outhtml_codefold.lua	file	9.06 KB	root/root	0644	2022-03-25 07:00:28
outhtml_copy_clipboard.lua	file	1.09 KB	root/root	0644	2022-03-25 07:00:28
outhtml_curly_brackets_matcher.lua	file	2.24 KB	root/root	0644	2022-03-25 07:00:28
outhtml_ie7_webctrl.lua	file	1.21 KB	root/root	0644	2022-03-25 07:00:28
outhtml_keyword_matcher.lua	file	2.19 KB	root/root	0644	2022-03-25 07:00:28
outhtml_ligature_fonts.lua	file	402 B	root/root	0644	2022-03-25 07:00:28
outhtml_lsp_clangd.lua	file	5.01 KB	root/root	0644	2022-03-25 07:00:28
outhtml_modern_fonts.lua	file	732 B	root/root	0644	2022-03-25 07:00:28
outhtml_parantheses_matcher.lua	file	2.48 KB	root/root	0644	2022-03-25 07:00:28
outhtml_tooltips.lua	file	904 B	root/root	0644	2022-03-25 07:00:28
perl_ref_perl_org.lua	file	5.53 KB	root/root	0644	2022-03-25 07:00:28
python_ref_python_org.lua	file	2.13 KB	root/root	0644	2022-03-25 07:00:28
reduce_filesize.lua	file	264 B	root/root	0644	2022-03-25 07:00:28
sam_seq.lua	file	1.35 KB	root/root	0644	2022-03-25 07:00:28
scala_ref_scala_lang_org.lua	file	10.23 KB	root/root	0644	2022-03-25 07:00:28
terminal_add_info.lua	file	825 B	root/root	0644	2022-03-25 07:00:28
theme_invert.lua	file	1.45 KB	root/root	0644	2022-03-25 07:00:28
token_add_state_ids.lua	file	285 B	root/root	0644	2022-03-25 07:00:28