From 28bf6141b54970c8097326fb51b3fa42f2381ec7 Mon Sep 17 00:00:00 2001
From: Stevie Strickland <sstrickl@racket-lang.org>
Date: Sun, 13 Jul 2008 19:26:36 +0000
Subject: [PATCH] Add .scrbl files as DrScheme-handled files in OS X.

svn: r10746
---
 collects/drscheme/drscheme.filetypes  | 10 +++++++++-
 collects/drscheme/drscheme.utiexports | 16 +++++++++++++++-
 2 files changed, 24 insertions(+), 2 deletions(-)

diff --git a/collects/drscheme/drscheme.filetypes b/collects/drscheme/drscheme.filetypes
index c833614f95..7afec38eb5 100644
--- a/collects/drscheme/drscheme.filetypes
+++ b/collects/drscheme/drscheme.filetypes
@@ -17,4 +17,12 @@
   ("CFBundleTypeOSTypes"
    (array "PLT_" "WXME"))
   ("CFBundleTypeExtensions"
-   (array "plt"))))
+   (array "plt")))
+ (("CFBundleTypeName"
+   "Scheme Doc Source")
+  ("CFBundleTypeRole"
+   "Viewer")
+  ("CFBundleTypeOSTypes"
+   (array "TEXT" "WXME"))
+  ("CFBundleTypeExtensions"
+   (array "scrbl"))))
diff --git a/collects/drscheme/drscheme.utiexports b/collects/drscheme/drscheme.utiexports
index 7d0c93b5ea..9b683ad7fc 100644
--- a/collects/drscheme/drscheme.utiexports
+++ b/collects/drscheme/drscheme.utiexports
@@ -12,4 +12,18 @@
                 "TEXT")
     (assoc-pair "public.filename-extension"
                 (array "ss"
-                       "scm"))))))
+                       "scm")))))
+ (("UTTypeConformsTo"
+    (array
+     "public.text"
+     "public.plain-text"))
+   ("UTTypeDescription"
+    "PLT Scheme documentation source")
+   ("UTTypeIdentifier"
+    "org.plt-scheme.scribble")
+   ("UTTypeTagSpecification"
+    (dict
+     (assoc-pair "com.apple.ostype"
+                 "TEXT")
+     (assoc-pair "public.filename-extension"
+                 (array "scrbl"))))))