How to find out available fonts from within Mathematica?

Question

How to find out available fonts on the system from within Mathematica? When I do

Style["foobar", FontFamily -> "Foobar"]

how do I know which font the displayed output is using/falling back to use?

If you want to know what font the output is, you can highlight the text and open the text window (Ctrl + T or Cmd + T). For my system, your command leads to text in 'Lucida Grand'.
I think kguler's answer in vitaliy's link is exactly what you're looking for... He's active on this site, so he'll be around soon to answer it himself
yep FE`Evaluate[FEPrivate`GetPopupList["MenuListFonts"]][[All, 2]]

kguler · Accepted Answer · 2013-02-03 02:03:22Z

up vote 16 down vote accepted

The relevant line from this SO post:

fontlist = FE`Evaluate[FEPrivate`GetPopupList["MenuListFonts"]];

Update: The content of the "MenuListFonts" list is system-dependent. In Windows Vista, I get a list that contains only FontFamily:

 Panel@Row[fontlist[[;; 60]] /.
 Rule[x_, y_] :> Style[ToString@x, 14, FontFamily -> y],  " \[FilledSquare] "]

enter image description here

On a Mac system, it appears that the list contains tuples of FontFamily, FontWeight and FontSlant. That is,

fontlist /. Rule[x_, y_] :> Style[x, 20, FontFamily -> y]

gives

enter image description here

edited Feb 3 at 2:03

answered Aug 30 '12 at 1:45

kguler
28.4k13592

	FWIW even though i did not accept your answer at the time back when I asked the question linked by Vitaly (I chose a different one) your answer is actually the one I am regularly now using. – Mike Honeychurch Aug 31 '12 at 9:06
	Thank you @Mike. The problem in your question still waits for a more direct solution -- everytime I come accross a new `CurrentValue` argument I wonder if it can be used for that problem. – kguler Aug 31 '12 at 10:25

1 Answer