dir rename ./sundry (from ./misc)

1 files changed, 79 insertions, 0 deletions

diff --git a/sundry/misc/editor-syntax-etc/nedit/sisu_nedit.pats b/sundry/misc/editor-syntax-etc/nedit/sisu_nedit.pats
new file mode 100644
index 0000000..ef01b2b
--- /dev/null
+++ b/sundry/misc/editor-syntax-etc/nedit/sisu_nedit.pats
@@ -0,0 +1,79 @@
+! Nedit Syntax highlighting patterns and commenting for SiSU
+! Version 0.1
+!
+! INSTALLATION
+!
+! Load this pattern by starting nedit with:
+!
+!       nedit -import <name of this file>
+!
+! Then, check that the patterns were loaded correctly, and choose Save Defaults
+! from the Preferences menu.  The new patterns will now be incorporated into
+! your own .nedit file, so the next time you start NEdit, you will no longer
+! need to use -import.
+!
+! These comments will not appear in your ~/.nedit
+!
+nedit.macroCommands: \
+  SiSU Comments>Comment Out Lines@SiSU:::R: {\n\
+                    replace_in_selection("^.*$", "%+ &", "regex")\n\
+            }\n\
+  SiSU Comments>Uncomment Lines@SiSU:::R: {\n\
+                    replace_in_selection("(^[ \\\\t]*# ?)(.*)$", "\\\\2", "regex")\n\
+            }\n\
+  SiSU Comments>Comment Out Sel.@SiSU:::R: {\n\
+                    beginning-of-selection()\n\
+                    mark("1")\n\
+                    deselect-all()\n\
+                    insert-string("=begin\\n")\n\
+                    goto-mark("1")\n\
+                    beginning-of-selection()\n\
+                    backward-character("extend")\n\
+                    backward-character("extend")\n\
+                    backward-character("extend")\n\
+                    backward-character("extend")\n\
+                    backward-character("extend")\n\
+                    backward-character("extend")\n\
+                    backward-character("extend")\n\
+                    mark("1")\n\
+                    end-of-selection()\n\
+                    deselect-all()\n\
+                    insert-string("\\n=end")\n\
+                    goto-mark("1")\n\
+            }\n\
+  SiSU Comments>Uncomment Sel.@SiSU:::R: {\n\
+                    beginning-of-selection()\n\
+                    mark("1")\n\
+                    deselect-all()\n\
+                    replace("=begin\\n","")\n\
+                    goto-mark("1")\n\
+                    deselect-all()\n\
+                    replace("\\n=end","","backward")\n\
+                    goto-mark("1")\n\
+            }\n
+nedit.highlightPatterns: SiSU:1:0{\n\
+    comment:"^%+ ":"$"::Comment::\n\
+    endnote1:"~\\^(\s|$)":::Keyword::D\n\
+    endnote2:"^\\^~ ":"$"::Comment::\n\
+    header:"^0~|@\S+:\s":"$"::Keyword::\n\
+    bold_line:"^!_ ":"$"::Keyword::\n\
+    heading:"^[1-9]~":"$"::Keyword::\n\
+    code_block:"^code\\{":"^\\}code"::Comment::\n\
+    poem_block:"^poem\\{":"^\\}poem"::Comment::\n\
+    group_block:"^group\\{":"^\\}group"::Comment::\n\
+    alt_block:"^alt\\{":"^\\}alt"::Comment::\n\
+    endnote:"~\\{":"\\}~":"\\n":String::\n\
+    string2:"'":"'":"\\n":String1::\n\
+    string escape chars:"\\\\(.|\\n)":::String1:endnote:\n\
+    character constant:"'":"'":"[^\\\\][^']":Character Const::\n\
+    numeric constant:"<((0(x|X)[0-9a-fA-F]*)|(([0-9]+\\.?[0-9]*)|(\\.[0-9]+))((e|E)(\\+|-)?[0-9]+)?)(L|l|UL|ul|u|U|F|f)?>":::Plain::D\n\
+    storage keyword:"<(class)>":::Storage Type::D\n\
+    line:"^(_[1-9]|_\\*|_[1-9]\\*)":::Keyword::D\n\
+    link:"[{}](http://[a-zA-Z0-9?.!+\\-_/&=#]+)?":::Keyword::D\n\
+    url:"http://[a-zA-Z0-9?.!+\\-_/&=#]+":::Keyword::D\n\
+  }
+!    endnote:"~\\{":"\\}~"::Keyword::\n\
+!    link:"\\{":"\\}http://\S+"::Keyword::D\n\
+nedit.languageModes: SiSU:.sst::::::".,/\\`'!|@#%^&*()-=+{}[]"":;<>?~"
+! nedit.languageModes: SiSU:.sst::::::".,/\\`'!|@#%^&*()-=+{}[]"":;<>?~"
+! nedit.languageModes: SiSU:.ss[tmi]::::::