Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Open sidebar
citizen-science
symbai
Commits
ae2d3a9f
Commit
ae2d3a9f
authored
Apr 14, 2014
by
Dave Griffiths
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
social type added
parent
c5671103
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
8 additions
and
0 deletions
+8
-0
android/assets/starwisp.scm
android/assets/starwisp.scm
+8
-0
No files found.
android/assets/starwisp.scm
View file @
ae2d3a9f
...
...
@@ -47,6 +47,7 @@
(
define
education-list
'
(
illiterate
literate
primary
middle
high
secondary
university
))
(
define
married-list
'
(
ever-married
currently-married
currently-single
seperated
))
(
define
social-types-list
'
(
friendship
knowledge
prestige
))
(
define
social-relationship-list
'
(
mother
father
sister
brother
spouse
children
co-wife
spouse-mother
spouse-father
spouse-brother-wife
spouse-sister-husband
friend
neighbour
other
))
(
define
social-residence-list
'
(
same
other
))
(
define
social-strength-list
'
(
daily
weekly
monthly
less
))
...
...
@@ -254,6 +255,10 @@
(
list
'sex
(
list
"Sex"
))
;; social
(
list
'social-type
(
list
"Type"
))
(
list
'friendship
(
list
"Friendship"
))
(
list
'knowledge
(
list
"Knowledge"
))
(
list
'prestige
(
list
"Prestige"
))
(
list
'social-one
(
list
"One"
))
(
list
'social-two
(
list
"Two"
))
(
list
'social-three
(
list
"Three"
))
...
...
@@ -1113,6 +1118,7 @@
(
activity
"social"
(
build-activity
(
mspinner
'social-type
social-types-list
(
lambda
(
v
)
(
entity-set-value!
"social-type"
"varchar"
v
)
'
()))
(
build-social-connection
'social-one
"social-one"
"friend"
social-request-code-one
)
(
build-social-connection
'social-two
"social-two"
"friend"
social-request-code-two
)
(
build-social-connection
'social-three
"social-three"
"friend"
social-request-code-three
)
...
...
@@ -1124,6 +1130,8 @@
(
activity-layout
activity
))
(
lambda
(
activity
arg
)
(
append
(
list
(
mupdate-spinner
'social-type
"social-type"
social-types-list
))
(
update-social-connection
db
"sync"
'social-one
"social-one"
"friend"
social-request-code-one
)
(
update-social-connection
db
"sync"
'social-two
"social-two"
"friend"
social-request-code-two
)
(
update-social-connection
db
"sync"
'social-three
"social-three"
"friend"
social-request-code-three
)
...
...
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