Add ReadContactPermission to handle read-only contact permissions separately from write permissions.

Author: ciprig

permissions-contacts/src/androidMain/kotlin/dev/icerock/moko/permissions/contacts/ContactsPermission.android.kt

@@ -17,3 +17,12 @@ actual val contactsDelegate = object : PermissionDelegate {
             Manifest.permission.WRITE_CONTACTS
         )
 }
+
+actual val readContactsDelegate = object : PermissionDelegate {
+    override fun getPermissionStateOverride(applicationContext: Context) = null
+
+    override fun getPlatformPermission() =
+        listOf(
+            Manifest.permission.READ_CONTACTS
+        )
+}

permissions-contacts/src/commonMain/kotlin/dev/icerock/moko/permissions/contacts/ContactPermission.kt

@@ -8,9 +8,28 @@ import dev.icerock.moko.permissions.Permission
 import dev.icerock.moko.permissions.PermissionDelegate
 
 internal expect val contactsDelegate: PermissionDelegate
+internal expect val readContactsDelegate: PermissionDelegate
 
+/**
+ * Permission to read and write contacts.
+ *
+ * On Android, declare both `READ_CONTACTS` and `WRITE_CONTACTS` permissions
+ * in `AndroidManifest.xml`
+ */
 object ContactPermission : Permission {
     override val delegate get() = contactsDelegate
 }
 
+/**
+ * Permission to read contacts
+ *
+ * On Android, declare `READ_CONTACTS` permission in `AndroidManifest.xml`
+ *
+ * On iOS this permission is the same with [ContactPermission]
+ */
+object ReadContactPermission : Permission {
+    override val delegate get() = readContactsDelegate
+}
+
 val Permission.Companion.CONTACTS get() = ContactPermission
+val Permission.Companion.READ_CONTACTS get() = ReadContactPermission

permissions-contacts/src/iosMain/kotlin/dev/icerock/moko/permissions/contacts/ContactsPermission.ios.kt

@@ -76,3 +76,4 @@ private class ContactsPermissionDelegate(
 private const val CNAuthorizationStatusLimited: Long = 4
 
 actual val contactsDelegate: PermissionDelegate = ContactsPermissionDelegate(ContactPermission)
+actual val readContactsDelegate: PermissionDelegate = ContactsPermissionDelegate(ReadContactPermission)