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))] (lineEditWidget (if formname (qt:find window lineEditName) #f))]
(cond (cond
[lineEditWidget [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) [(and (eq? (car property) 'PHOTO)
(list? (last property))) (list? (last property)))
(let* [(avatar (qt:find window "avatarLabel")) (let* [(avatar (qt:find window "avatarLabel"))
(old-pixmap (if avatar (qt:property avatar "pixmap"))) (old-pixmap (if avatar (qt:property avatar "pixmap")))
[new-pixmap (if avatar (u8vector->pixmap (cadr (last property))))]] [new-pixmap (if avatar (u8vector->pixmap (cadr (last property))))]]
(when avatar (when avatar
(set! (qt:property avatar "pixmap") new-pixmap) (set! (qt:property avatar "pixmap") new-pixmap)))])))
(qt:delete old-pixmap)))])))
vcard-alist)) vcard-alist))