apple-notes-exporter 0.1.0

A library and CLI tool for exporting Apple Notes to Markdown
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70

on run argv
    set notesList to {}
    
    tell application "Notes"
        set theAccounts to every account
        repeat with anAccount in theAccounts
            set accountName to name of anAccount
            set theFolders to every folder of anAccount
            repeat with aFolder in theFolders
                set folderName to name of aFolder
                set theNotes to notes of aFolder
                
                repeat with theNote in theNotes
                    -- Get note data
                    set noteTitle to name of theNote
                    set noteContent to body of theNote
                    set noteId to id of theNote
                    set noteCreationDate to creation date of theNote
                    set noteModificationDate to modification date of theNote
                    
                    -- Clean strings by removing problematic characters
                    set cleanTitle to my cleanForJson(noteTitle)
                    set cleanContent to my cleanForJson(noteContent)
                    set cleanFolder to my cleanForJson(folderName)
                    set cleanAccount to my cleanForJson(accountName)
                    
                    -- Create JSON object
                    set noteData to "{"
                    set noteData to noteData & "\"title\":\"" & cleanTitle & "\","
                    set noteData to noteData & "\"content\":\"" & cleanContent & "\","
                    set noteData to noteData & "\"folder\":\"" & cleanFolder & "\","
                    set noteData to noteData & "\"account\":\"" & cleanAccount & "\","
                    set noteData to noteData & "\"id\":\"" & noteId & "\","
                    set noteData to noteData & "\"created\":\"" & ((noteCreationDate as text)) & "\","
                    set noteData to noteData & "\"modified\":\"" & ((noteModificationDate as text)) & "\""
                    set noteData to noteData & "}"
                    
                    set end of notesList to noteData
                end repeat
            end repeat
        end repeat
    end tell
    
    return "[" & (my joinList(notesList, ",")) & "]"
end run

on joinList(theList, theDelimiter)
    set oldDelimiters to AppleScript's text item delimiters
    set AppleScript's text item delimiters to theDelimiter
    set theString to theList as string
    set AppleScript's text item delimiters to oldDelimiters
    return theString
end joinList

on cleanForJson(str)
    set str to my replaceText(str, "\"", "'") -- replace quotes with single quotes
    set str to my replaceText(str, "\n", " ") -- replace newlines with spaces
    set str to my replaceText(str, "\r", " ") -- replace returns with spaces
    set str to my replaceText(str, "\t", " ") -- replace tabs with spaces
    return str
end cleanForJson

on replaceText(sourceText, searchString, replacementString)
    set AppleScript's text item delimiters to searchString
    set the textItems to every text item of sourceText
    set AppleScript's text item delimiters to replacementString
    set sourceText to textItems as string
    set AppleScript's text item delimiters to ""
    return sourceText
end replaceText