Support URL-format vCard properties

contact.scm

@@ -230,15 +230,20 @@
                 (lineEditWidget (if formname (qt:find window lineEditName) #f))]
            (cond
             [lineEditWidget
-             (set! (qt:property lineEditWidget "text") (last property))]
+             (set! (qt:property lineEditWidget "text")
+               (cond
+                [(string? (last property))
+                 (last property)]
+                [(uri:uri? (last property))
+                 (uri:uri->string (last property))]
+                [#t ""]))]
             [(and (eq? (car property) 'PHOTO)
                   (list? (last property)))
              (let* [(avatar (qt:find window "avatarLabel"))
                     (old-pixmap (if avatar (qt:property avatar "pixmap")))
                     [new-pixmap (if avatar (u8vector->pixmap (cadr (last property))))]]
                (when avatar
-                 (set! (qt:property avatar "pixmap") new-pixmap)
-                 (qt:delete old-pixmap)))])))
+                 (set! (qt:property avatar "pixmap") new-pixmap)))])))
        vcard-alist))
 
 

contact.ui

@@ -22,6 +22,12 @@
       </property>
       <item>
        <widget class="QLabel" name="avatarLabel">
+        <property name="maximumSize">
+         <size>
+          <width>100</width>
+          <height>100</height>
+         </size>
+        </property>
         <property name="text">
          <string>Profile picture</string>
         </property>