Changeset 7503


Ignore:
Timestamp:
Oct 24, 2007, 3:28:28 AM (14 years ago)
Author:
rme
Message:

Address ticket:136 (make lisp source files show up in quick look)

Add UTI information for lisp files to Info.plist-proto, and also
add another document type for txt/text/* documents, removing the

  • from the lisp type.

In cocoa-editor.lisp, tell the save panel to keep the whining down
and to let the user save files with any extension.

Location:
trunk/ccl/cocoa-ide
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/cocoa-ide/Info.plist-proto

    r7446 r7503  
    11<?xml version="1.0" encoding="UTF-8"?>
    2 <!DOCTYPE plist SYSTEM "file://localhost/System/Library/DTDs/PropertyList.dtd">
     2<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
    33<plist version="1.0">
    44<dict>
     
    1111                        <array>
    1212                                <string>lisp</string>
    13                                 <string>*</string>
    1413                        </array>
     14                        <key>CFBundleTypeIconFile</key>
     15                        <string>openmcl-icon.icns</string>
    1516                        <key>CFBundleTypeName</key>
    16                         <string>NSStringPboardType</string>
    17                         <key>CFBundleTypeOSTypes</key>
    18                         <array>
    19                                 <string>TEXT</string>
    20                         </array>
     17                        <string>org.lisp.lisp-source</string>
    2118                        <key>CFBundleTypeRole</key>
    2219                        <string>Editor</string>
    23                         <key>CFBundleTypeName</key>
    24                         <string>Lisp source file</string>
     20                        <key>LSIsAppleDefaultForType</key>
     21                        <true/>
    2522                        <key>NSDocumentClass</key>
    2623                        <string>HemlockEditorDocument</string>
     24                </dict>
     25                <dict>
    2726                        <key>CFBundleTypeIconFile</key>
    2827                        <string>openmcl-icon.icns</string>
    29                 </dict>
    30                 <dict>
    3128                        <key>CFBundleTypeName</key>
    3229                        <string>Listener</string>
     
    3532                        <key>NSDocumentClass</key>
    3633                        <string>HemlockListenerDocument</string>
    37                         <key>CFBundleTypeIconFile</key>
    38                         <string>openmcl-icon.icns</string>
     34                </dict>
     35                <dict>
     36                        <key>CFBundleTypeExtensions</key>
     37                        <array>
     38                                <string>txt</string>
     39                                <string>text</string>
     40                                <string>*</string>
     41                        </array>
     42                        <key>CFBundleTypeName</key>
     43                        <string>public.text</string>
     44                        <key>CFBundleTypeOSTypes</key>
     45                        <array>
     46                                <string>****</string>
     47                        </array>
     48                        <key>CFBundleTypeRole</key>
     49                        <string>Editor</string>
     50                        <key>NSDocumentClass</key>
     51                        <string>HemlockEditorDocument</string>
    3952                </dict>
    4053                <dict>
     
    4558                        <key>NSDocumentClass</key>
    4659                        <string>DisplayDocument</string>
    47                 </dict> </array>
     60                </dict>
     61        </array>
     62        <key>CFBundleExecutable</key>
     63        <string>OPENMCL-KERNEL</string>
    4864        <key>CFBundleHelpBookFolder</key>
    4965        <string>Help</string>
    5066        <key>CFBundleHelpBookName</key>
    5167        <string>OpenMCL Help</string>
    52         <key>CFBundleExecutable</key>
    53         <string>OPENMCL-KERNEL</string>
     68        <key>CFBundleIconFile</key>
     69        <string>openmcl-icon.icns</string>
     70        <key>CFBundleIdentifier</key>
     71        <string>OPENMCL-IDENTIFIER</string>
    5472        <key>CFBundleInfoDictionaryVersion</key>
    5573        <string>6.0</string>
     74        <key>CFBundleName</key>
     75        <string>OPENMCL-NAME</string>
    5676        <key>CFBundlePackageType</key>
    5777        <string>APPL</string>
     
    6484        <key>NSPrincipalClass</key>
    6585        <string>LispApplication</string>
    66         <key>CFBundleName</key>
    67         <string>OPENMCL-NAME</string>
    68         <key>CFBundleIdentifier</key>
    69         <string>OPENMCL-IDENTIFIER</string>
    70         <key>CFBundleIconFile</key>
    71         <string>openmcl-icon.icns</string>
     86        <key>UTExportedTypeDeclarations</key>
     87        <array>
     88                <dict>
     89                        <key>UTTypeConformsTo</key>
     90                        <string>public.source-code</string>
     91                        <key>UTTypeDescription</key>
     92                        <string>Lisp source file</string>
     93                        <key>UTTypeIdentifier</key>
     94                        <string>org.lisp.lisp-source</string>
     95                        <key>UTTypeReferenceURL</key>
     96                        <string></string>
     97                        <key>UTTypeTagSpecification</key>
     98                        <dict>
     99                                <key>public.filename-extension</key>
     100                                <array>
     101                                        <string>lisp</string>
     102                                        <string>lsp</string>
     103                                        <string>cl</string>
     104                                </array>
     105                        </dict>
     106                </dict>
     107        </array>
    72108</dict>
    73109</plist>
  • trunk/ccl/cocoa-ide/cocoa-editor.lisp

    r7502 r7503  
    23402340  (#/setExtensionHidden: panel nil)
    23412341  (#/setCanSelectHiddenExtension: panel nil)
     2342  (#/setAllowedFileTypes: panel +null-ptr+)
    23422343  (call-next-method panel))
    23432344
Note: See TracChangeset for help on using the changeset viewer.