View Fonts Nicely with Elvish

font-tree.elv

#!/usr/bin/env elvish
use str

var fonts = [&]

# 1. Grab fonts from the system and split them into lines
fc-list --format="%{family}|%{style}\n" | from-lines | each {|line|
  var parts = [(str:split '|' $line)]
  
  if (== (count $parts) 2) {
    # Isolate the primary family name and style (ignoring comma aliases)
    var family = (str:trim-space [(str:split ',' $parts[0])][0])
    var style = (str:trim-space [(str:split ',' $parts[1])][0])
    
    # 2. Build a nested dictionary grouping styles by family
    if (not (has-key $fonts $family)) {
      set fonts[$family] = [&]
    }
    set fonts[$family][$style] = $true
  }
}

# 3. Print the dictionary with formatting
for family [(keys $fonts | order)] {
  echo (styled $family green bold)
  var styles = [(keys $fonts[$family] | order)]
  echo "  ↳ "(styled (str:join ", " $styles) italic)
}