anchor.diff:              | _ -> None)
           |> Option.getOrTry (fun _ ->
               try 
  -                Logging.logWarning "Can't read Visual Studio themes from registry keys."
                   let dte = serviceProvider.GetService<DTE, SDTE>()
                   let fontsAndColors = 
  +                    // This method will not work well for customized themes, but we should not give up.
                       dte.Properties("FontsAndColors", "TextEditor").Item("FontsAndColorsItems").Object :?> FontsAndColorsItems
  -                let background = System.Drawing.ColorTranslator.FromOle(int (fontsAndColors.Item("Plain Text").Background))
  +                let background = ColorTranslator.FromOle(int (fontsAndColors.Item("Plain Text").Background))
                   match background.R, background.G, background.B with
                   | 30uy, 30uy, 30uy -> VisualStudioTheme.Dark
                   | _ -> VisualStudioTheme.Light
  
positive.code:                (Guid("1ded0138-47ce-435e-84ef-9ec1f439b749"), VisualStudioTheme.Dark) ]
  
      let getThemeId() =
          let categoryName = "General"
          let themePropertyName = "CurrentTheme"
          let dte = serviceProvider.GetService<DTE, SDTE>()
          let keyName = 
              match VisualStudioVersion.fromDTEVersion dte.Version with
              | VisualStudioVersion.VS2012
              | VisualStudioVersion.VS2013
              | VisualStudioVersion.VS2015 as version ->
                  Some (String.Format(@"Software\Microsoft\VisualStudio\{0}.0\{1}", VisualStudioVersion.toString version, categoryName))
              | v ->
                  Logging.logWarning "Unknown Visual Studio version detected while checking theme colors: %O" v
                  None
          keyName 
          |> Option.bind (fun keyName ->
              use key = Registry.CurrentUser.OpenSubKey(keyName)
              key.GetValue(themePropertyName, null)
              |> Option.ofNull
              |> Option.map string)
  
      member __.GetCurrentTheme() =
          getThemeId()
  
negative.code: open System.ComponentModel.Composition
  open Microsoft.VisualStudio.Shell
  open Microsoft.VisualStudio.Shell.Interop
  open FSharpVSPowerTools
  open FSharpVSPowerTools.ProjectSystem
  open System.Drawing
  open Microsoft.Win32
  open EnvDTE
  
  