jadedctrl/ rolladeck
1
0
Disbranĉigi 0
Fontkodo Issues Tirpetoj Actions Packages Projects Eldonoj Wiki Activity

Support URL-format vCard properties

This commit is contained in:
Jaidyn Ann 2024-02-11 19:12:20 -06:00
parent 3a1b9aa543
commit 205576d973
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
contact.scm
View File

@ -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))