Skip to content

Commit

Permalink
fix(theme-common): fix missing code block MagicComments style in Visu…
Browse files Browse the repository at this point in the history
…al Basic (.NET) 16 (#9727)
  • Loading branch information
tats-u authored Jan 12, 2024
1 parent 0a2e6e6 commit d75f99f
Show file tree
Hide file tree
Showing 2 changed files with 23 additions and 5 deletions.
4 changes: 3 additions & 1 deletion packages/docusaurus-theme-common/src/utils/codeBlockUtils.ts
Original file line number Diff line number Diff line change
Expand Up @@ -28,6 +28,7 @@ const commentPatterns = {
wasm: {start: '\\;\\;', end: ''},
tex: {start: '%', end: ''},
vb: {start: "['‘’]", end: ''},
vbnet: {start: "(?:_\\s*)?['‘’]", end: ''}, // Visual Studio 2019 or later
rem: {start: '[Rr][Ee][Mm]\\b', end: ''},
f90: {start: '!', end: ''}, // Free format only
ml: {start: '\\(\\*', end: '\\*\\)'},
Expand Down Expand Up @@ -113,10 +114,11 @@ function getAllMagicCommentDirectiveStyles(
return getCommentPattern(['wasm'], magicCommentDirectives);

case 'vb':
case 'vbnet':
case 'vba':
case 'visual-basic':
return getCommentPattern(['vb', 'rem'], magicCommentDirectives);
case 'vbnet':
return getCommentPattern(['vbnet', 'rem'], magicCommentDirectives);

case 'batch':
return getCommentPattern(['rem'], magicCommentDirectives);
Expand Down
24 changes: 20 additions & 4 deletions website/_dogfooding/_pages tests/code-block-tests.mdx
Original file line number Diff line number Diff line change
Expand Up @@ -384,16 +384,32 @@ y = times2(x);
\end{document}
```
```vbnet title="vbnet.vb"
Dim languages As New Set(Of String) From {
```vba title="vba.vb"
Function Factorial(ByVal n As Long) As Long
If n < 0 Then
Err.Raise 5 ' Invalid argument
End If
'highlight-next-line
Factorial = 1 ' return value
Dim i As Long
' highlight-start
For i = 2 To n
Factorial = Factorial * i
Next
' highlight-end
End Function
```
```vbnet title="vbnet.vb"
' highlight-next-line
Dim languages As New HashSet(Of String) From {
"C#",
"Visual Basic",
_ ' highlight-start
"F#",
' highlight-end
"PowerShell",
' highlight-next-line
"TypeScript"
_' highlight-end
}
```
Expand Down

0 comments on commit d75f99f

Please sign in to comment.