<commit_before>﻿Imports LangPadUI.Themes
''' <summary>
''' Handles the application's theme and icons.
''' </summary>
Module AppTheme
    Public Themer As ThemeManager = Nothing

    Public Sub InitThemes()
        If Themer Is Nothing Then ' No themes have been loaded yet
            Themer = New ThemeManager()

            ' Add items to theme combo on main form
            For Each Theme In Themer.Themes
                MainForm.ThemeCombo.Items.Add(Theme.Name)
            Next

            ' Init forms
            InitMainFormTheme()
            InitRtfEditorFormTheme()
            InitDictionaryFormTheme()

            ' Get saved theme
            Dim SavedTheme = Themer.GetTheme(My.Settings.Theme)
            ' Default to light theme if none found
            If SavedTheme Is Nothing Then
                SavedTheme = New LightTheme()
            End If

            ' Add each theme to the theme combo
            MainForm.ThemeCombo.Items.Clear()
            For Each Theme In Themer.Themes
                MainForm.ThemeCombo.Items.Add(Theme.Name)
            Next

            ' Apply saved theme
            Themer.CurrentTheme = SavedTheme

            ' Set the theme combo to be the current theme
            MainForm.ThemeCombo.SelectedItem = Themer.CurrentTheme.Name

        End If
    End Sub
<commit_msg>Fix missing call to InitCharEditTheme<commit_after>﻿Imports LangPadUI.Themes
''' <summary>
''' Handles the application's theme and icons.
''' </summary>
Module AppTheme
    Public Themer As ThemeManager = Nothing

    Public Sub InitThemes()
        If Themer Is Nothing Then ' No themes have been loaded yet
            Themer = New ThemeManager()

            ' Add items to theme combo on main form
            For Each Theme In Themer.Themes
                MainForm.ThemeCombo.Items.Add(Theme.Name)
            Next

            ' Init forms
            InitMainFormTheme()
            InitRtfEditorFormTheme()
            InitDictionaryFormTheme()
            InitCharEditTheme()

            ' Get saved theme
            Dim SavedTheme = Themer.GetTheme(My.Settings.Theme)
            ' Default to light theme if none found
            If SavedTheme Is Nothing Then
                SavedTheme = New LightTheme()
            End If

            ' Add each theme to the theme combo
            MainForm.ThemeCombo.Items.Clear()
            For Each Theme In Themer.Themes
                MainForm.ThemeCombo.Items.Add(Theme.Name)
            Next

            ' Apply saved theme
            Themer.CurrentTheme = SavedTheme

            ' Set the theme combo to be the current theme
            MainForm.ThemeCombo.SelectedItem = Themer.CurrentTheme.Name

        End If
    End Sub

{'fraction_non_alphanumeric': 0.0565345080763583, 'fraction_numerical': 0.0, 'mean_word_length': 1.7359437751004017, 'pattern_counts': {'":': 0, '<': 7, '<?xml version=': 0, '>': 7, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '2608041', 'n_tokens_mistral': 685, 'n_tokens_neox': 660, 'n_words': 229}