Is there a better way to style UINavigation's bar appearance?

[mycroftcanner]

Loved your Overture showcase video and started to apply to one of my project.

I was wondering if there was a better way to initialise \UINavigationBar.*Appearance to avoid the verbosity and stuttering?

let baseNavigationBarStyle = concat(
  mut(\UINavigationBar.standardAppearance, .init()),
  mut(\UINavigationBar.compactAppearance, .init()),
  mut(\UINavigationBar.scrollEdgeAppearance, .init()),

  mver(\UINavigationBar.standardAppearance, opaqueNavigationBar),
  mver(\UINavigationBar.compactAppearance!, opaqueNavigationBar),
  mver(\UINavigationBar.scrollEdgeAppearance!, opaqueNavigationBar),

  mut(\UINavigationBar.titleTextAttributes, .init()),
  mut(\UINavigationBar.largeTitleTextAttributes, .init()),
  mut(\UINavigationBar.prefersLargeTitles, true)
)

Also setting those titleTextAttributes was a bit confusing.

Here is the full code so far:

import Foundation
import Overture
import AsyncDisplayKit
import UIKit

let neutralTintColor = mut(\UIView.tintColor, .label)

// TabBar
let baseTabBarStyle = concat(
  neutralTintColor,
  mut(\UITabBar.standardAppearance, .init()),
  mver(\UITabBar.standardAppearance, opaqueTabBar)
)

let opaqueTabBar: (inout UITabBarAppearance) -> Void = {
  with($0, baseBarAppearance)
}

let opaqueNavigationBar: (inout UINavigationBarAppearance) -> Void = {
  with($0, baseBarAppearance)
}

// NavigationBar
let baseNavigationBarStyle = concat(
  mut(\UINavigationBar.standardAppearance, .init()),
  mut(\UINavigationBar.compactAppearance, .init()),
  mut(\UINavigationBar.scrollEdgeAppearance, .init()),

  mver(\UINavigationBar.standardAppearance, opaqueNavigationBar),
  mver(\UINavigationBar.compactAppearance!, opaqueNavigationBar),
  mver(\UINavigationBar.scrollEdgeAppearance!, opaqueNavigationBar),

  mut(\UINavigationBar.titleTextAttributes, .init()),
  mut(\UINavigationBar.largeTitleTextAttributes, .init()),
  mut(\UINavigationBar.prefersLargeTitles, true)
)

// UIBarAppearance
let baseBarAppearance = concat(
  mut(\UIBarAppearance.shadowColor, nil),
  { $0.configureWithOpaqueBackground() }
)

let baseNavigationBarAppearance = concat(
  baseBarAppearance,
  mut(\UINavigationBarAppearance.largeTitleTextAttributes, labelTextAttribute()),
  mut(\UINavigationBarAppearance.titleTextAttributes, labelTextAttribute())
)

let labelTextAttribute: () -> [NSAttributedString.Key : Any] = {
  [.foregroundColor: UIColor.label]
}

// UIView
let baseNavigationBar: (inout UINavigationBar) -> Void = {
  with($0, baseNavigationBarStyle)
}