|
978 | 978 |
|
979 | 979 | (tm-define (section-prefix-sep-var t) |
980 | 980 | (with l (tree-label t) |
981 | | - (cond ((== l 'chapter) "chapter-prefix-sep") |
982 | | - ((== l 'section) "section-prefix-sep") |
| 981 | + (cond ((== l 'section) "section-prefix-sep") |
983 | 982 | ((== l 'subsection) "subsection-prefix-sep") |
984 | 983 | ((== l 'subsubsection) "subsubsection-prefix-sep") |
985 | 984 | (else #f)))) |
|
1047 | 1046 | ((check "-" "v" (== (safe-init-env sep-var) "-")) |
1048 | 1047 | (init-env sep-var "-")) |
1049 | 1048 | ((check "space" "v" (== (safe-init-env sep-var) " ")) |
1050 | | - (init-env sep-var " ")) |
1051 | | - ((check "none" "v" (== (safe-init-env sep-var) "")) |
1052 | | - (init-env sep-var ""))))) |
| 1049 | + (init-env sep-var " ")))) |
| 1050 | +) ;menu-bind |
1053 | 1051 |
|
1054 | 1052 | (menu-bind section-prefix-sep-menu |
1055 | 1053 | (with prefix-sep-var (section-prefix-sep-var (focus-tree)) |
|
1061 | 1059 | ((check "-" "v" (== (safe-init-env prefix-sep-var) "-")) |
1062 | 1060 | (init-env prefix-sep-var "-")) |
1063 | 1061 | ((check "space" "v" (== (safe-init-env prefix-sep-var) " ")) |
1064 | | - (init-env prefix-sep-var " ")) |
1065 | | - ((check "none" "v" (== (safe-init-env prefix-sep-var) "")) |
1066 | | - (init-env prefix-sep-var ""))))) |
| 1062 | + (init-env prefix-sep-var " ")))) |
| 1063 | +) ;menu-bind |
1067 | 1064 |
|
1068 | 1065 | (tm-menu (focus-preferences-menu t) |
1069 | 1066 | (:require (section-context? t)) |
|
1097 | 1094 | ---)) |
1098 | 1095 | (with sep-var (section-sep-var t) |
1099 | 1096 | (if sep-var |
1100 | | - (-> "Separator" (link section-sep-menu)) |
| 1097 | + (-> "Number-title separator" (link section-sep-menu)) |
1101 | 1098 | ---)) |
1102 | 1099 | (with prefix-sep-var (section-prefix-sep-var t) |
1103 | 1100 | (if prefix-sep-var |
1104 | | - (-> "Prefix separator" (link section-prefix-sep-menu)) |
| 1101 | + (-> "Sub-level separator" (link section-prefix-sep-menu)) |
1105 | 1102 | ---)) |
1106 | 1103 | (dynamic (focus-tag-edit-menu (tree-label t)))) |
1107 | 1104 |
|
|
0 commit comments