PDF to PDF Bundle

Summary: Converts the selected PDF files to Skim PDF Bundles.
Requires: EagleFiler, Skim
Install Location: ~/Library/Scripts/Applications/EagleFiler/
Last Modified: 2019-10-02

Description

This script converts the selected PDF files into .pdfd bundles that can be annotated using Skim.

Note: If you plan to use the Rename for Dropbox/Windows script, do that before running this script. This will ensure that the files inside the PDFD package are also renamed for Dropbox/Windows.

Installation Instructions · Download in Compiled Format · Download in Text Format

Script

on run
    
tell application "EagleFiler"
        
set _selection to selected records of browser window 1
        
repeat with _record in _selection
            
if _record's universal type identifier is "com.adobe.pdf" then
                
my convertRecordToPDFD(_record)
            
end if
        
end repeat
    
end tell
end run

on convertRecordToPDFD(_record)
    
tell application "EagleFiler"
        
set _newName to my pdfdNameForRecord(_record)
        
set _newFile to my convertFileToPDFD(_record's file, _newName)
        
set _newRecords to import files {_newFile} with deleting afterwards
        
set _newRecord to item 1 of _newRecords
        
my copyMetadata(_record, _newRecord)
        
set _trash to trash of _record's library document
        
set _record's container to _trash
    
end tell
end convertRecordToPDFD

on convertFileToPDFD(_source, _destName)
    
tell application "Skim"
        
open _source
        
set _tempFolder to do shell script "mktemp -d -t 'EFPDFToPDFD'"
        
set _dest to _tempFolder & "/" & _destName
        
save document 1 as "PDF Bundle" in _dest
        
close document 1
        
return _dest
    
end tell
end convertFileToPDFD

on pdfdNameForRecord(_record)
    
tell application "EagleFiler"
        
set _name to _record's filename
        
if _name ends with ".pdf" then
            
set _end to (length of ".pdf") + 1
            
set _base to characters 1 thru -_end of _name
        
else
            
set _base to _name
        
end if
        
return _base & ".pdfd"
    
end tell
end pdfdNameForRecord

on copyMetadata(_source, _dest)
    
tell application "EagleFiler"
        
set source URL of _dest to _source's source URL
        
set container of _dest to _source's container
        
set note text of _dest to _source's note text
        
set _tags to _source's assigned tags
        
set assigned tags of _dest to _tags
        
set title of _dest to _source's title
        
set from name of _dest to _source's from name
        
set label index of _dest to _source's label index
        
set creation date of _dest to _source's creation date
        
set modification date of _dest to _source's modification date
        
set added date of _dest to _source's added date
    
end tell
end copyMetadata