[61_7] S7: add automatic brackets and add keyword list?

XmacsLabs · May 16, 2024 · 785ac4c · 785ac4c
1 parent 9a62aa7
commit 785ac4c
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 2 deletions.
diff --git a/TeXmacs/plugins/s7/progs/code/s7-edit.scm b/TeXmacs/plugins/s7/progs/code/s7-edit.scm
@@ -36,4 +36,15 @@
 (tm-define (notify-cursor-moved status)
   (:require prog-highlight-brackets?)
   (:mode in-prog-s7?)
-  (select-brackets-after-movement "([{" ")]}" "\\"))
+  (select-brackets-after-movement "([{" ")]}" "\\"))
+
+(kbd-map
+  (:mode in-prog-s7?)
+  ("{" (s7-bracket-open "{" "}" ))
+  ("}" (s7-bracket-close "{" "}" ))
+  ("(" (s7-bracket-open "(" ")" ))
+  (")" (s7-bracket-close "(" ")" ))
+  ("[" (s7-bracket-open "[" "]" ))
+  ("]" (s7-bracket-close "[" "]" ))
+  ("\"" (s7-bracket-open "\"" "\"" ))
+  ("'" (s7-bracket-open "'" "'" )))
diff --git a/TeXmacs/plugins/s7/progs/code/s7-lang.scm b/TeXmacs/plugins/s7/progs/code/s7-lang.scm
@@ -28,7 +28,7 @@
      "list-tabulate" "list-copy" "circular-list" "iota"
      ; SRFI-1: List predicates
      "pair?" "null?" "proper-list?" "circular-list?" "dotted-list?"
-     "not-pair?" "null-list?" "list="
+     "not-pair?" "null-list?" "list=" "list?"
      ; SRFI-1: List selectors
      "car" "cdr" "caar" "cadr" "list-ref"
      "first" "second" "third" "fourth" "fifth"