Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
citizen-science
symbai
Commits
a5437c5c
Commit
a5437c5c
authored
Jun 05, 2014
by
Dave Griffiths
Browse files
split the chooser by household (and filtered by current village)
parent
5ad51470
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
61 additions
and
40 deletions
+61
-40
android/assets/starwisp.scm
android/assets/starwisp.scm
+61
-40
No files found.
android/assets/starwisp.scm
View file @
a5437c5c
...
@@ -423,49 +423,70 @@
...
@@ -423,49 +423,70 @@
(
inexact->exact
(
round
(
*
256
0.9
)))))
(
inexact->exact
(
round
(
*
256
0.9
)))))
(
define
(
build-photo-buttons
search
)
(
grid-ify
(
map
(
lambda
(
e
)
(
let*
((
id
(
ktv-get
e
"unique_id"
))
(
image-name
(
ktv-get
e
"photo"
))
(
image
(
if
(
image-invalid?
image-name
)
"face"
(
string-append
"/sdcard/symbai/files/"
image-name
))))
(
cond
((
>
(
length
search
)
50
)
(
button
(
make-id
(
string-append
"chooser-"
id
))
(
ktv-get
e
"name"
)
30
(
layout
(
car
button-size
)
(
/
(
cadr
button-size
)
3
)
1
'centre
5
)
(
lambda
()
(
set-current!
'choose-result
id
)
(
list
(
finish-activity
0
)))))
((
equal?
image
"face"
)
(
button
(
make-id
(
string-append
"chooser-"
id
))
(
ktv-get
e
"name"
)
30
(
layout
(
car
button-size
)
(
cadr
button-size
)
1
'centre
5
)
(
lambda
()
(
set-current!
'choose-result
id
)
(
list
(
finish-activity
0
)))))
(
else
(
vert
(
image-button
(
make-id
(
string-append
"chooser-"
id
))
image
(
layout
(
car
button-size
)
(
cadr
button-size
)
1
'centre
5
)
(
lambda
()
(
set-current!
'choose-result
id
)
(
list
(
finish-activity
0
))))
(
text-view
0
(
ktv-get
e
"name"
)
20
(
layout
'wrap-content
'wrap-content
-1
'centre
0
)))
))))
search
)
3
))
(
define
(
update-individual-filter-inner
households
)
(
map
(
lambda
(
household
)
(
let
((
search
(
db-filter-only
db
"sync"
"individual"
(
append
(
filter-get
)
(
list
(
list
"parent"
"varchar"
"="
(
ktv-get
household
"unique_id"
))))
(
list
(
list
"photo"
"file"
)
(
list
"name"
"varchar"
)))))
(
apply
vert
(
cons
(
text-view
0
(
ktv-get
household
"name"
)
20
fillwrap
)
(
build-photo-buttons
search
)))
))
households
))
(
define
(
update-individual-filter
)
(
define
(
update-individual-filter
)
(
let
((
search
(
db-filter-only
db
"sync"
"individual"
(
filter-get
)
(
msg
"update if"
)
(
list
(
let
((
households
(
db-filter-only
db
"sync"
"household"
(
list
"photo"
"file"
)
(
list
(
list
"parent"
"varchar"
"="
(
get-setting-value
"current-village"
)))
(
list
"name"
"varchar"
)))))
(
list
(
list
"name"
"varchar"
)))))
(
msg
households
)
(
update-widget
(
update-widget
'linear-layout
(
get-id
"choose-pics"
)
'contents
'linear-layout
(
get-id
"choose-pics"
)
'contents
(
grid-ify
(
update-individual-filter-inner
households
))))
(
map
(
lambda
(
e
)
(
let*
((
id
(
ktv-get
e
"unique_id"
))
(
image-name
(
ktv-get
e
"photo"
))
(
image
(
if
(
image-invalid?
image-name
)
"face"
(
string-append
"/sdcard/symbai/files/"
image-name
))))
(
cond
((
>
(
length
search
)
50
)
(
button
(
make-id
(
string-append
"chooser-"
id
))
(
ktv-get
e
"name"
)
30
(
layout
(
car
button-size
)
(
/
(
cadr
button-size
)
3
)
1
'centre
5
)
(
lambda
()
(
set-current!
'choose-result
id
)
(
list
(
finish-activity
0
)))))
((
equal?
image
"face"
)
(
button
(
make-id
(
string-append
"chooser-"
id
))
(
ktv-get
e
"name"
)
30
(
layout
(
car
button-size
)
(
cadr
button-size
)
1
'centre
5
)
(
lambda
()
(
set-current!
'choose-result
id
)
(
list
(
finish-activity
0
)))))
(
else
(
vert
(
image-button
(
make-id
(
string-append
"chooser-"
id
))
image
(
layout
(
car
button-size
)
(
cadr
button-size
)
1
'centre
5
)
(
lambda
()
(
set-current!
'choose-result
id
)
(
list
(
finish-activity
0
))))
(
text-view
0
(
ktv-get
e
"name"
)
20
(
layout
'wrap-content
'wrap-content
-1
'centre
0
)))
))))
search
)
3
))))
(
define
(
image/name-from-unique-id
db
table
unique-id
)
(
define
(
image/name-from-unique-id
db
table
unique-id
)
(
let
((
e
(
get-entity-by-unique
db
table
unique-id
)))
(
let
((
e
(
get-entity-by-unique
db
table
unique-id
)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment