Добавил README.md по F1. Сделал черновой вариант парсера и визуализатора MD
This commit is contained in:
Sergey Kalinin
213
lib/mdviewer.tcl
Normal file
213
lib/mdviewer.tcl
Normal file
@@ -0,0 +1,213 @@
|
||||
######################################################
|
||||
# ProjMan 2
|
||||
# Distributed under GNU Public License
|
||||
# Author: Sergey Kalinin svk@nuk-svk.ru
|
||||
# Copyright (c) "", 2022-2026, https://nuk-svk.ru
|
||||
######################################################
|
||||
#
|
||||
# The markdown file viewer
|
||||
#
|
||||
######################################################
|
||||
|
||||
proc ShowMD {fileFullPath} {
|
||||
global cfgVariables
|
||||
|
||||
set win .viewer
|
||||
|
||||
set parentGeometry [wm geometry .]
|
||||
set parentWidth [winfo width .]
|
||||
set parentHeight [winfo height .]
|
||||
set parentX [winfo x .]
|
||||
set parentY [winfo y .]
|
||||
|
||||
# Устанавливаем размеры нового окна (меньше на 200)
|
||||
set newWidth [expr {$parentWidth - 200}]
|
||||
set newHeight [expr {$parentHeight - 200}]
|
||||
|
||||
# Вычисляем позицию для центрирования относительно родительского окна
|
||||
set x [expr {$parentX + ($parentWidth - $newWidth) / 2}]
|
||||
set y [expr {$parentY + ($parentHeight - $newHeight) / 2}]
|
||||
|
||||
# Применяем геометрию
|
||||
|
||||
if { [winfo exists $win] } { destroy $win; return false }
|
||||
toplevel $win
|
||||
wm title $win "[::msgcat::mc "Help"]"
|
||||
wm geometry $win ${newWidth}x${newHeight}+${x}+${y}
|
||||
wm overrideredirect $win 0
|
||||
|
||||
set frm [ttk::frame $win.frmHelp]
|
||||
pack $frm -expand 1 -fill both
|
||||
|
||||
set txt [text $frm.txt -wrap $cfgVariables(editorWrap) -background $cfgVariables(textBG) \
|
||||
-xscrollcommand "$win.h set" -yscrollcommand "$frm.v set"]
|
||||
pack $txt -side left -expand 1 -fill both
|
||||
pack [ttk::scrollbar $frm.v -command "$frm.txt yview"] -side right -fill y
|
||||
ttk::scrollbar $win.h -orient horizontal -command "$frm.txt xview"
|
||||
if {$cfgVariables(editorWrap) eq "none"} {
|
||||
pack $win.h -side bottom -fill x
|
||||
|
||||
}
|
||||
bind .viewer <Escape> {destroy .viewer}
|
||||
|
||||
$txt tag configure h1 -font $cfgVariables(h1Font)
|
||||
$txt tag configure h2 -font $cfgVariables(h2Font)
|
||||
$txt tag configure h3 -font $cfgVariables(h3Font)
|
||||
$txt tag configure h4 -font $cfgVariables(h4Font)
|
||||
$txt tag configure h5 -font $cfgVariables(h5Font)
|
||||
$txt tag configure h6 -font $cfgVariables(h6Font)
|
||||
$txt tag configure mdList -font $cfgVariables(mdListFont)
|
||||
$txt tag configure codeBlock -foreground $cfgVariables(codeBlockFG) \
|
||||
-background $cfgVariables(codeBlockBG) -font $cfgVariables(codeBlockFont)
|
||||
|
||||
set codeBlockBegin false
|
||||
|
||||
set f [open "$fileFullPath" r]
|
||||
set lineNumber 0
|
||||
while {[gets $f line] >= 0} {
|
||||
# puts $line
|
||||
if {$line eq ""} {
|
||||
if {$codeBlockBegin eq "true"} {
|
||||
$txt insert end "\n" codeBlock
|
||||
} else {
|
||||
$txt insert end "\n"
|
||||
}
|
||||
incr lineNumber
|
||||
continue
|
||||
}
|
||||
set result [MarkDownParser $line]
|
||||
# puts $result
|
||||
set textTag [lindex $result 0]
|
||||
if {$textTag eq "codeBlock" && $codeBlockBegin eq "false"} {
|
||||
set codeBlockBegin true
|
||||
} elseif {$textTag eq "codeBlock" && $codeBlockBegin eq "true"} {
|
||||
set codeBlockBegin false
|
||||
}
|
||||
if {$codeBlockBegin eq "true"} {
|
||||
set textTag "codeBlock"
|
||||
}
|
||||
if {$textTag eq "" && $codeBlockBegin eq "false"} {
|
||||
$txt insert end "[lindex $result 1]\n"
|
||||
} elseif {$textTag eq "codeBlockOneString"} {
|
||||
ProcessLineWithCode $line $txt
|
||||
} elseif {$textTag eq "mdList"} {
|
||||
$txt insert end " $cfgVariables(listSymbol) $result\n"
|
||||
} else {
|
||||
$txt insert end "[lindex $result 1]\n" $textTag
|
||||
}
|
||||
incr lineNumber
|
||||
}
|
||||
close $f
|
||||
}
|
||||
|
||||
proc ProcessLineWithCode {line txt} {
|
||||
set codeBlocks [ExtractCodeBlocks $line]
|
||||
|
||||
if {[llength $codeBlocks] == 0} {
|
||||
$txt insert end "$line\n"
|
||||
return
|
||||
}
|
||||
|
||||
set lastPos 0
|
||||
|
||||
foreach block $codeBlocks {
|
||||
# Извлекаем данные из блока
|
||||
set fullMatch [lindex $block 0]
|
||||
set codeText [lindex $block 1]
|
||||
set matchPos [lindex $block 2]
|
||||
set codePos [lindex $block 3]
|
||||
|
||||
set start [lindex $matchPos 0]
|
||||
set end [lindex $matchPos 1]
|
||||
|
||||
# Вставляем текст перед кодом
|
||||
if {$start > $lastPos} {
|
||||
set text_before [string range $line $lastPos [expr {$start - 1}]]
|
||||
$txt insert end $text_before
|
||||
}
|
||||
|
||||
# Вставляем код с соответствующим тегом
|
||||
if {[string match "```*" $fullMatch]} {
|
||||
$txt insert end $codeText codeBlock
|
||||
} else {
|
||||
$txt insert end $codeText code_inline
|
||||
}
|
||||
|
||||
set lastPos [expr {$end + 1}]
|
||||
}
|
||||
|
||||
# Вставляем остаток строки
|
||||
if {$lastPos < [string length $line]} {
|
||||
$txt insert end [string range $line $lastPos end]
|
||||
}
|
||||
|
||||
$txt insert end "\n"
|
||||
}
|
||||
|
||||
|
||||
proc MarkDownParser {line} {
|
||||
# Title
|
||||
# [regexp -nocase -line -- {^(#{1,6})\s\w+} $line match sharp]
|
||||
if [regexp -nocase -all -line -- {^(#{1,6})\s(.+)} $line match sharp title] {
|
||||
set titlePrefixLength [string length $sharp]
|
||||
puts $title
|
||||
switch $titlePrefixLength {
|
||||
1 {return [list h1 "$title"]}
|
||||
2 {return [list h2 "$title"]}
|
||||
3 {return [list h3 "$title"]}
|
||||
4 {return [list h4 "$title"]}
|
||||
5 {return [list h5 "$title"]}
|
||||
6 {return [list h6 "$title"]}
|
||||
}
|
||||
}
|
||||
# Lists
|
||||
if [regexp -nocase -all -line -- {^\s*(\*|-|\+)\s(.+)} $line match symbol textLine] {
|
||||
# puts $textLine
|
||||
return [list mdList "$textLine"]
|
||||
}
|
||||
|
||||
# Multi-line code block
|
||||
if [regexp -nocase -all -line -- {^```(\w*)} $line match lang] {
|
||||
return [list codeBlock {}]
|
||||
}
|
||||
|
||||
# One string code blockregexp -nocase -all -line -- {(`{1,3}([^`]+)`{1,3})} string match v1 v2
|
||||
|
||||
if [regexp -nocase -all -line -- {`{1,3}([^`]+)`{1,3}} $line match v1 code v2] {
|
||||
# puts $line
|
||||
set result [ExtractCodeBlocks $line]
|
||||
# puts "$v1, $code, $v2"
|
||||
# puts "$result"
|
||||
return [list codeBlockOneString $result]
|
||||
}
|
||||
|
||||
return [list {} $line]
|
||||
|
||||
}
|
||||
|
||||
proc ExtractCodeBlocks {line} {
|
||||
set pattern {`{1,3}([^`]+)`{1,3}}
|
||||
set result {}
|
||||
|
||||
# Ищем все вхождения
|
||||
set pos 0
|
||||
while {[regexp -indices -start $pos -- $pattern $line match code]} {
|
||||
set start [lindex $match 0]
|
||||
set end [lindex $match 1]
|
||||
set codeStart [lindex $code 0]
|
||||
set codeEnd [lindex $code 1]
|
||||
|
||||
# Получаем текст кода без кавычек
|
||||
set codeText [string range $line $codeStart $codeEnd]
|
||||
|
||||
# Получаем полный текст с кавычками
|
||||
set fullMatch [string range $line $start $end]
|
||||
|
||||
lappend result [list $fullMatch $codeText [list $start $end] [list $codeStart $codeEnd]]
|
||||
|
||||
set pos [expr {$end + 1}]
|
||||
}
|
||||
|
||||
return $result
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user