cocoa: add NSFontManager and some words to use it

diff --git a/basis/cocoa/cocoa.factor b/basis/cocoa/cocoa.factor
index 5562637791928beaff9ede7f9f47490ce8b7447e..b07fdc6d17e1bdabb4cfdecfb92af371416b9adf 100644 (file)
--- a/basis/cocoa/cocoa.factor
+++ b/basis/cocoa/cocoa.factor
@@ -66,6 +66,7 @@ SYNTAX: IMPORT: scan-token [ ] import-objc-class ;
         "NSError"
         "NSEvent"
         "NSException"
+        "NSFontManager"
         "NSImage"
         "NSMenu"
         "NSMenuItem"

diff --git a/basis/core-foundation/fonts/fonts.factor b/basis/core-foundation/fonts/fonts.factor
new file mode 100644 (file)
index 0000000..5e20a9e
--- /dev/null
+++ b/basis/core-foundation/fonts/fonts.factor
@@ -0,0 +1,10 @@
+! Copyright (C) 2023 Doug Coleman.
+! See https://factorcode.org/license.txt for BSD license.
+USING: cocoa cocoa.classes core-foundation.strings ;
+IN: core-foundation.fonts
+
+: all-font-families ( -- seq )
+    NSFontManager -> sharedFontManager -> availableFontFamilies CF>string-array ;
+
+: all-fonts ( -- seq )
+    NSFontManager -> sharedFontManager -> availableFonts CF>string-array ;