Добавлена поддержка markdown (подсветка, навигация по коду)

README.md

@@ -1,27 +1,39 @@
-ABOUT
+# About
 
 ProjMan (aka "Tcl/Tk Project Manager") is a editor for programming in TCL/Tk (and other language).
-It includes a file manager, a source editor with syntax highlighting and procedure navigation, a context-sensitive
+It includes a file manager, a source editor with syntax highlighting and code navigation, a context-sensitive help system, Git support, and much more.
-help system, and much more.
+Working an Linux and Windows.
-Working an Linux.
 
-REQUIREMENTS
+# Support languages
+
+Highlightning and source code navigation:
+
+* Tcl/Tk
+* GO
+* Perl
+* Python
+* Ruby
+* Shell (BASH)
+* Markdown
+* YAML (Ansible support)
+
+Highlightning:
+
+* HTML
+* XML
+
+# Requirements
 
 For UNIX-like OS
 Tcl/Tk >= 8.6 http://tcl.tk
 tcllib, tklib
 
-CREDITS
+# Credits
 
+Sergey Kalinin - author
 svk@nuk-svk.ru
 http://nuk-svk.ru
 
 Laurent Riesterer - VisualREGEXP and TkDIFF+ parts
 laurent.riesterer@free.fr
 http://laurent.riesterer.free.fr
-
-
-
-
-
-

lib/highlight.tcl

@@ -107,4 +107,14 @@ namespace eval Highlight {} {
         ctext::addHighlightClassForRegexp $txt comments #666666 {(#|//)[^\n\r]*}    
         ctext::addHighlightClassForRegexp $txt namespaces #4f64ff {::}
     }
+    proc MD {txt} {
+        ctext::addHighlightClassForRegexp $txt lists #4471ca {(\*|-|\+)+}
+        ctext::addHighlightClassForSpecialChars $txt brackets green {[]{}()}
+        ctext::addHighlightClassForRegexp $txt url #19a2a6 {(http|http|ftp|ssh)(://)(\w|\.|-)+?}
+        ctext::addHighlightClassForRegexp $txt email #467a7b {(\w|\.|-)+?(@)(\w|\.|-)+?($|\s)}
+        ctext::addHighlightClassForRegexp $txt qoute #b84a0c {("|'|`).*?("|'|`)}
+        ctext::addHighlightClassForRegexp $txt sharp #975db4 {(#+?)\s(.*?)$}
+        ctext::addHighlightClassForRegexp $txt quotedtext #a9b36c {^(\s*?)(>+).+?$}
+        ctext::addHighlightClassForRegexp $txt italictext #dff74e {((_|\*)+?)(.+?)((_|\*)+?)}
+    }
 }

lib/lexers.tcl

@@ -48,4 +48,12 @@ dict set lexers YML procRegexpCommand {regexp -nocase -all -- {^\s*?- (name):\s(
 dict set lexers YML varRegexpCommand {regexp -nocase -all -- {^(\s*?)([a-zA-Z0-9\-_$]+):\s+(.+?)(\s*$)} $line match indent varName varValue lineEnd}
 dict set lexers YML varRegexpCommandMultiline {regexp -all -line -- {^(\s*)(set_fact|vars):$} $line match indent keyWord}
 
+#--------------------------------------------------
+# MD (markdown)
+dict set lexers MD tabSize 2
+dict set lexers MD procFindString {(#+?)\s*?PROCNAME}
+dict set lexers MD procRegexpCommand {regexp -nocase -all -- {^\s*?(#+?)\s(.+?)$} $line match keyWord procName}
+# dict set lexers YML varRegexpCommandMultiline {regexp -all -line -- {^(\s*)(set_fact|vars):$} $line match indent keyWord}
+
+# -------------------------------------------------
 dict set lexers ALL varDirectory {variables vars group_vars host_vars defaults}

projman.tcl

@@ -10,7 +10,7 @@ exec wish "$0" -- "$@"
 ######################################################
 # Version: 2.0.0
 # Release: alpha
-# Build: 25112022080815
+# Build: 25112022110647
 ######################################################
 
 # определим текущую версию, релиз и т.д.