Новая сборка

.gitignore

@@ -8,4 +8,4 @@ debian/*.tmp
 debian/errors
 *.tmp
 errors
-test.tcl
+test.*

debian/changelog

@@ -1,17 +1,8 @@
 projman (2.0.0-beta6) stable; urgency=medium
 
-  *  Добавил обновление информации в просмотрщике MD при сохранении открытого в редакторе файла.
-
- -- Sergey Kalinin <svk@nuk-svk.ru>  Wed,  8 Apr 2026 18:17:24 +0300
-
-projman (2.0.0-beta6) stable; urgency=medium
-
-  *  Новая сборка
-
- -- Sergey Kalinin <svk@nuk-svk.ru>  Wed,  8 Apr 2026 16:50:52 +0300
-
-projman (2.0.0-beta6) stable; urgency=medium
-
+  *  Добавлена логика для работы с troff/groff файлами
+  *  Добавил настройку команды для troff файлов (по умолчанию groff)
+  *  Добавлена иконка для troff файлов
   *  Добавлены настройки для просмотрщика MD в части касаемой ссылок и выделения текста.
   *  Добавлена обработка тэгов выдеоления текста курсивом или тодщиной. Релизована обработка показа ссылок и вызова брузера при щелчке на ссылке.
   *  Добавлены процедуры отображение подсказок и запуска броузера для ссылок.
@@ -559,4 +550,5 @@ projman (2.0.0-alfa0) stable; urgency=medium
 
 
 
+
 

lib/config.tcl

@@ -75,6 +75,7 @@ RB=ruby
 HTM=firefox
 HTML=firefox
 LUA=lua
+TROFF=groff
 \[Debug\]
 debug=false
 debugOut=stdout

lib/editor.tcl

@@ -1462,7 +1462,25 @@ namespace eval Editor {
 
         }
         set fileType [string toupper [string trimleft [file extension $fileFullPath] "."]]
-        if {$fileType eq ""} {set fileType "Unknown"}
+        # Set file type if file extention is digits
+        switch -regexp -- $fileType {
+            [[:digit:]]+ {
+                if {[FileOper::GetFileMimeType $fileFullPath] eq "troff"} {
+                    set fileType TROFF
+                } else {
+                    set fileType "Unknow"
+                }
+            }
+            ^$ {
+                if {[FileOper::GetFileMimeType $fileFullPath] eq "troff"} {
+                    set fileType TROFF
+                } else {
+                    set fileType "Unknow"
+                }
+            }
+        }
+        DebugPuts "Editor::Editor: file type is \"$fileType\""
+        # if {$fileType eq ""} {set fileType "Unknown"}
 
         ExecutorCommandPathSetting $fileType
         
@@ -1510,7 +1528,7 @@ namespace eval Editor {
             puts $fileFullPath
         }
         # puts [$w.panelTxt panes]
-        DebugPuts "$w $fileType $nb $fileFullPath"
+        DebugPuts "Editor::SplitEditorForExecute: $w $fileType $nb $fileFullPath"
 
         # set fileType [string toupper [string trimleft [file extension $filePath] "."]]
     

lib/files.tcl

@@ -76,7 +76,13 @@ namespace eval FileOper {
         }
         # линуксовый file не всегда корректно определяет тип файла
         # используем пакет из tcl
+        if { $fType eq "text" && $fExt eq "troff"} {
+            set fType $fExt
+            set fBinaryType "text"
+            set fBinaryInterp "groff"
+        } else {
             lassign [::fileutil::fileType $fileFullPath] fType fBinaryType fBinaryInterp
+        }
         DebugPuts "File type is $fType, $fBinaryType, $fBinaryInterp"
         set ext [string tolower [file extension $fileFullPath]]
         
@@ -140,6 +146,9 @@ namespace eval FileOper {
                     }
                 }
             }
+            "troff" {
+                return troff
+            }
             "empty" {
                 return text
             }
@@ -536,7 +545,7 @@ namespace eval FileOper {
             set fileType [FileOper::GetFileMimeType $fileFullPath]
         }
 
-        # puts "$fileType <<<<<<<<<<<"
+        DebugPuts "FileOper::Edit: file type is \"$fileType\""
 
         switch $fileType {
             "text" {

lib/image_library.tcl

@@ -1968,3 +1968,14 @@ image create photo cpp_16x12 -data {
     AAALEwEAmpwYAAAAB3RJTUUH6gIGDxU21/OqSAAAADVJREFUCNd9jUEOACAIw7D7/58VmNF4sAco
     CbCIm5FsBTwsd+kmgVQu87p3OLfg/9AJJPFhAjDkAJmwKBolAAAAAElFTkSuQmCC
 }
+image create photo troff_16x12 -data {
+    iVBORw0KGgoAAAANSUhEUgAAAAwAAAAMCAYAAABWdVznAAAAAXNSR0IB2cksfwAAAARnQU1BAACx
+    jwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAZiS0dE
+    AAAAAAAA+UO7fwAAAAlwSFlzAAAAWAAAAFgBeNpLYgAAAAd0SU1FB+oEDw0yFseUVqEAAAEXSURB
+    VCjPfZE/S4JxEMc/p4/EU489Bg5BSDgECdZQU7QF0hYUuLm1+yJqj15AS2+gRWhraWvIQcEKwnIw
+    bIt80OcPT9fSY49pfuE47nf34X53J0xRuaxJd/G1ilCpXeS34znjx2v0sLx6SHdwRcZcB0lEOfkL
+    oKqEoXJz+0Hz0eO+5VHaMbm+HO+eiAf1hsNbzyefS+EMlWLBnPjuCBgMQ3rvPhnboPHgMpeCwtoM
+    4Lnt0ndC0gtJ6k8BRyULyzL+B0QUz4eT8zssU9jfs6ct8Hfol47P1uY8nW4RP1AytjEbyK2ksG2D
+    LxWqx1kSIsySfvYDPT3rarPlaFzxG40BgO4e1BTSUVHcJoYWQJayGxXoSxTHbKRvV5VqA9sEagYA
+    AAAASUVORK5CYII=
+}

lib/procedure.tcl

@@ -925,6 +925,22 @@ proc Execute {filePath w activeEditor} {
 
     # Added executor from config
     set fileType [string toupper [string trimleft [file extension $filePath] "."]]
+    switch -regexp -- $fileType {
+        [[:digit:]]+ {
+            if {[FileOper::GetFileMimeType $filePath] eq "troff"} {
+                set fileType TROFF
+            } else {
+                set fileType "Unknow"
+            }
+        }
+        ^$ {
+            if {[FileOper::GetFileMimeType $filePath] eq "troff"} {
+                set fileType TROFF
+            } else {
+                set fileType "Unknow"
+            }
+        }
+    }
     if {[info exists cfgVariables($fileType)] != 0 && $cfgVariables($fileType) ne ""} {
          $w.frame.text insert end "$cfgVariables($fileType) %f"
     }
@@ -1131,7 +1147,7 @@ proc ExecutorCommandPathSetting {fileType} {
     }
     if {[info exists cfgVariables($fileType)] == 0} {
         set cfgVariables($fileType) ""
-        DebugPuts $cfgVariables($fileType)
+        DebugPuts "ExecutorCommandPathSetting: cfgVariables($fileType) = $cfgVariables($fileType)"
     }
 }
 

projman.tcl

@@ -10,7 +10,7 @@ exec wish8.6 "$0" -- "$@"
 ######################################################
 # Version: 2.0.0
 # Release: beta6
-# Build: 08042026181732
+# Build: 15042026165805
 ######################################################
 
 # определим текущую версию, релиз и т.д.