Добавил корректный путь к readme для rpm пакетов

README.md

@@ -163,6 +163,7 @@ Or type "projman" into terminal, Or choose the name of the program "Projman" on
 ProjMan allows you to connect any external tools to the editor. To do this, you need to add an entry to the file ~/.config/projman/tools.ini.
 
 Calling an external program is available through the main and pop-up menus. To transfer the parameters, write the appropriate template in the file.
+
  - %s - template for substituting selected text in the editor
  - %f - template for substituting selected file\(s\) in the file tree
 

debian/changelog

@@ -1,3 +1,17 @@
+projman (2.0.0-beta6) stable; urgency=medium
+
+  *  Отключил сжатие README.md в пакете
+  *  Добавил README.md по F1. Сделал черновой вариант парсера и визуализатора MD
+
+ -- Sergey Kalinin <svk@nuk-svk.ru>  Thu, 26 Mar 2026 19:39:54 +0300
+
+projman (2.0.0-beta5) stable; urgency=medium
+
+  *  Исправил перевод (все равно какой-то кривой)
+  *  Исправил changelog
+
+ -- Sergey Kalinin <svk@nuk-svk.ru>  Tue, 17 Feb 2026 13:00:42 +0300
+
 projman (2.0.0-beta5) stable; urgency=medium
 
   *  Добавил код из https://github.com/wandrien/projman/tree/master для работы с выделенным текстом. И внес изменения в связи с этим.
@@ -519,3 +533,4 @@ projman (2.0.0-alfa0) stable; urgency=medium
 
 
 
+

debian/docs

@@ -1,4 +1,2 @@
-README.md
 CHANGELOG
 TODO
-

debian/install

@@ -4,6 +4,6 @@ tkregexp /usr/bin
 lib/*.tcl	/usr/share/projman/lib
 lib/msgs/*	/usr/share/projman/lib/msgs
 theme	/usr/share/projman/
-README.md /usr/share/doc/projman
 projman.desktop	/usr/share/applications
 projman.png /usr/share/pixmaps
+README.md /usr/share/doc/projman/

debian/rules

@@ -1,5 +1,4 @@
 #!/usr/bin/make -f
-# debian/rules for alien
 
 PACKAGE=$(shell dh_listpackages)
 
@@ -21,26 +20,13 @@ binary-arch: build
 	dh_install
 	dh_installdocs
 	dh_installchangelogs
-# Copy the packages's files.
-#	find . -maxdepth 1 -mindepth 1 -not -name debian -print0 | \
-#		xargs -0 -r -i cp -a {} debian/$(PACKAGE)
-
-#
-# If you need to move files around in debian/$(PACKAGE) or do some
-# binary patching, do it here
-#
-
-
-# This has been known to break on some wacky binaries.
-#	dh_strip
 	dh_compress
-#	dh_fixperms
+	gunzip -f debian/$(PACKAGE)/usr/share/doc/$(PACKAGE)/README.md.gz 2>/dev/null || true
 	dh_makeshlibs
 	dh_installdeb
 	-dh_shlibdeps
 	dh_gencontrol
 	dh_md5sums
-#	dh_link
 	dh_builddeb
 
 binary: binary-indep binary-arch

lib/config.tcl

@@ -78,6 +78,19 @@ LUA=lua
 \[Debug\]
 debug=false
 debugOut=stdout
+\[Viewer\]
+listSymbol=०
+h1Font={Droid Sans Mono} 20 bold
+h2Font={Droid Sans Mono} 18 bold
+h3Font={Droid Sans Mono} 16 bold
+h4Font={Droid Sans Mono} 14 bold
+h5Font={Droid Sans Mono} 12 bold
+h6Font={Droid Sans Mono} 10 bold
+mdListFont={Droid Sans Mono} 10
+codeBlockBG=#7a7a7a
+codeBlockFG=black
+codeBlockFont=Monospace 10 italic
+textBG=#333333
 "
 proc Config::create {dir} {
     set cfgFile [open [file join $dir projman.ini]  "w+"]

lib/help.tcl

@@ -0,0 +1,29 @@
+######################################################
+#                ProjMan 2
+#        Distributed under GNU Public License
+# Author: Sergey Kalinin svk@nuk-svk.ru
+# Copyright (c) "", 2022-2026, https://nuk-svk.ru
+######################################################
+# 
+# Projman Help dialog
+# 
+######################################################
+
+
+proc ShowHelpDialog {} {
+    ShowMD [HelpFileLocation README.md]
+}
+
+proc HelpFileLocation {fileName} {
+    global dir projman
+    if [file exists [file join $dir(lib) $fileName]] {
+        return [file join $dir(lib) fileName]
+    } elseif [file exists [file join /usr/share/doc/projman $fileName]] {
+        return [file join /usr/share/doc/projman $fileName]
+    } elseif [file exists [file join /usr/share/doc/projman-$projman(Version) $fileName]] {
+        return [file join /usr/share/doc/projman-$projman(Version) $fileName]
+    } else {
+        return [file join [pwd] $fileName]
+    }
+    
+}

lib/mdviewer.tcl

@@ -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
+}
+

lib/procedure.tcl

@@ -1231,3 +1231,5 @@ proc DebugPuts {msg} {
         }
     }
 }
+
+

projman.tcl

@@ -9,8 +9,8 @@ exec wish8.6 "$0" -- "$@"
 # Home page: https://nuk-svk.ru
 ######################################################
 # Version: 2.0.0
-# Release: beta5
+# Release: beta6
-# Build: 17022026124216
+# Build: 27032026113701
 ######################################################
 
 # определим текущую версию, релиз и т.д.

redhat/projman.spec

@@ -70,6 +70,14 @@ fi
 %{_iconsdir}/hicolor/48x48/apps/projman.png
 
 %changelog
+* Fri Mar 27 2026 Sergey Kalinin <svk@nuk-svk.ru> 2.0.0-beta6
+    -  Отключил сжатие README.md в пакете
+    -  Добавил README.md по F1. Сделал черновой вариант парсера и визуализатора MD
+
+* Tue Feb 17 2026 Sergey Kalinin <svkalinin@samsonpost.ru> 2.0.0-beta5
+    -  Исправил перевод (все равно какой-то кривой)
+    -  Исправил changelog
+
 * Tue Feb 17 2026 Sergey Kalinin <svkalinin@samsonpost.ru> 2.0.0-beta5
     -  Добавил код из https://github.com/wandrien/projman/tree/master для работы с выделенным текстом. И внес изменения в связи с этим.
     -  Исправления работы с С
@@ -243,3 +251,5 @@ fi
 
 
 
+
+